Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

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]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (15)
As of 2016-06-29 20:36 GMT
Find Nodes?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...

    Results (387 votes). Check out past polls.