Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: extracting data from an input file and associated errors

by jwkrahn (Monsignor)
on Feb 02, 2012 at 23:47 UTC ( #951559=note: print w/replies, xml ) Need Help??

in reply to extracting data from an input file and associated errors

open (DATA, "< C:/Perl_Scripts/InputFile.txt");

You should verify that open worked correctly:

open my $DATA, '<', 'C:/Perl_Scripts/InputFile.txt' or die "Cannot ope +n 'C:/Perl_Scripts/InputFile.txt' because: $!";

my @array_of_data = <DATA>; close (DATA); foreach my $line (@array_of_data) {

There is no need to read the entire file into memory first:

while ( my $line = <$DATA> ) {

if ( $line =~ m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\.csv$/g ) { print "Match $1"; }

The pattern is anchored at the end of the line so the /g option is superfluous.    You are not using capturing parentheses in the pattern so there is nothing in $1 to print out.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://951559]
[holli]: what's that smell?
[LanX]: good evening! :)
[Discipulus]: ProvoLanX? grin..
[holli]: wow. the google translation to german is really good

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2017-11-20 19:58 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (292 votes). Check out past polls.