Perl : read file line by line

Got this spell after peeking at here
chomp here is to remove ‘newline’ character

#!/usr/bin/perl -w

open(infile, "<end_res");
while()
{
my($line) = $_ ;
chomp($line);
print outfile "$line";
}
close(infile);

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s