Perl - How to search a text file with multiple patterns?
Good day, great gurus,
I'm new to Perl, and programming in general. I'm trying to retrieve a column of data from my text file which spans a non-specific number of lines. So I did a regexp that will pick out the columns. However,my pattern would vary. I tried using a foreach loop unsuccessfully. How would I thus go about creating a script in perl that would:
1) Run a list of patterns (names in this case)
2) A pattern search of each in a file
The code I managed so far is this :
So a data file like this: NAME Joseph
blah
blah
blah
//
NAME Kent
blah
blah
blah
blah
//
NAME Clark
blah
blah
//
...
would give me this (after running the script):
above is just an example, but the file is huge, and so I just need to filter out these data. Any ideas much appreciated
Oh, and I only get one result, which is Joseph's data....
Last edited by Yogesh Sawant; 03-25-2009 at 06:45 AM..
Reason: added code tags
I have one file:
123*100*abcd*10
123*101*abcd*-29*def
123*100*abcd*-10
123*102*abcd*-105*asd
I would like to parameterize the search patterns in the following way so that the user could dynamically change the search pattern.
*100* and *- (ie *minus)
*102* and *-
The output that is... (6 Replies)
Hi
I'm not very good with the serach patterns and I'd need a sample how to find a line that has multiple patterns.
Say I want to find a line that has "abd", "123" and "QWERTY" and there can be any characters or numbers between the serach patterns, I have a file that has thousands of lines and... (10 Replies)
I have the following situation:
a text file with 50000 string patterns:
abc2344536
gvk6575556
klo6575556
....
and 3 text files each with more than 1 million lines:
...
000000 abc2344536 46575 0000
000000 abc2344536 46575 4444
000000 abc2344555 46575 1234
...
I... (8 Replies)
Hi,
I have to write one script that has to search a list of numbers in certain zipped files.
For eg. one file file1.txt contains the numbers. File1.txt contains 5,00,000 numbers and I have to search each number in zipped files(The number of zipped files are around 1000 each file is 5 MB)
I have... (10 Replies)
I have two lists in a file that look like
a b
b a
e f
c d
f e
d c
I would like a final list
a b
c d
e f
I've tried multiple grep and awk but can't get it to work (8 Replies)
Hi,
I tried to search multiple pattern using awk
trans=1234
reason=LN MISMATCH
rec=`awk '/$trans/ && /'"$reason"'/' file`
whenevr i tried to run on command promt it is executing but when i tried to implment same logic in shell script,it is failing i.e $rec is empty
... (6 Replies)
Hi all,
I have a vcd file with a bunch of lines containing an array, like this
$var wire 1 b a $end
$var wire 1 c a $end
$var wire 1 d a $end
$var wire 1 e a $end
$var wire 1 f b $end
$var wire 1 g b $end
$var wire 1 h b $end
$var wire 1 i b $end
I want it like this:
$var wire 1 e a... (12 Replies)
Hi All,
I am starting a service which will redirect its out put into 2 logs say A and B.
Now for succesful startup of the service i need to search pattern1 in log A and pattern2 in log B which are writen continuosly.
Now my requirement is to find the patterns in the increasing logs A and B... (19 Replies)
Hi,
I have scenario like below and need to search for multiple patterns
Eg:
Test
Time Started= secs
Time Ended = secc
Green test
Test
Time Started= secs
Time Ended = secc
Green test
Output:
I need to display the text starting with Test and starting with Time... (2 Replies)
Discussion started by: weknowd
2 Replies
LEARN ABOUT DEBIAN
wx::perl::datawalker
Wx::Perl::DataWalker(3pm) User Contributed Perl Documentation Wx::Perl::DataWalker(3pm)NAME
Wx::Perl::DataWalker - Perl extension for blah blah blah
SYNOPSIS
# alternatively, see the dataWalker.pl script in this distribution!
use Wx::Perl::DataWalker;
my $data_to_browse = {
# complex data structure.
# Good test: \%::
};
package MyWalkerDialog;
our @ISA = qw(Wx::App);
sub OnInit {
my $self = shift;
my $frame = Wx::Perl::DataWalker->new(
{data => $data_to_browse},
undef, -1,
"dataWalker",
);
$self->SetTopWindow($frame);
$frame->Show(1);
$frame->SetSize(500,500);
return 1;
}
package main;
my $app = MyWalkerDialog->new();
$app->MainLoop();
DESCRIPTION
"Wx::Perl::DataWalker" implements a "Wx::Frame" subclass that shows a relatively simple Perl data structure browser. After opening such a
frame and supplying it with a reference to an essentially arbitrary data structure, you can visually browse it by double-clicking
references.
So far, there is no tree view but only a display of the current level of the data structure. You can traverse back up the structure with a
back button.
Optionally, "Wx::Perl::DataWalker" displays the (approximate!) size of the data structure using "Devel::Size".
SEE ALSO
Wx, Devel::Size
Padre::Plugin::DataWalker
AUTHOR
Steffen Mueller, <smueller@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2009 by Steffen Mueller
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8 or, at
your option, any later version of Perl 5 you may have available.
perl v5.10.0 2009-03-29 Wx::Perl::DataWalker(3pm)