Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Perl file editing

by Athanasius (Archbishop)
on Nov 04, 2015 at 10:22 UTC ( [id://1146892]=note: print w/replies, xml ) Need Help??


in reply to Perl file editing

Hello rahulme81,

Your while loop contains this line:

my ($pattern,$id) = (split /\s+/, $_)[0,4];

which sets $pattern and $id to the first and fifth fields, respectively, in the current line. But the data you show contains only three fields per line, so you should have:

my ($pattern, $id) = (split /\s+/)[0, 2];

(Note that the $_ is unnecessary here.) Also, this line:

if ( $_ =~ m/^$pattern/ ) {

tests whether the current line begins with $pattern. But you just initialized $pattern as the first field in the line, so how could this fail? (Well, it will fail if the line begins with whitespace, but I don’t think that’s what you had in mind.) You need to test $pattern against a pre-determined pattern, for example:

... my $pattern_to_find = '4567'; ... while (<MAST>) { my ($pattern, $id) = (split /\s+/)[0, 2]; ... if ($pattern eq $pattern_to_find) { ...

Hope that helps,

Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1146892]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2024-03-19 05:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found