Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^2: Perl = Greek to me

by Not_a_Number (Parson)
on Dec 22, 2011 at 20:56 UTC ( #944851=note: print w/ replies, xml ) Need Help??


in reply to Re: Perl = Greek to me
in thread Perl = Greek to me

my $slurp; { local $/ = undef; open my $textfile, '<', 'filename.txt' or die $!; $slurp = <$textfile>; close $textfile; }

The above code is unnecessary. It is syntactically correct if you want to read an entire file into a single scalar variable ($slurp), but then your code needs to use this variable, which it doesn't.

Far better to do this:

open my $textfile, '<', 'filename.txt' or die $!; while ( my $line = <$textfile> ) { ## Do something with $line }

Update: Do you see how much better formated my post looks than yours? That's because I followed the guidelines, wrapping code (and data) in <c>...</c> tags and paragraphs of text in <p>...</p> tags.

There's nothing stopping you from going back and correcting your posts now...

Update: Corrected minor tpyos.


Comment on Re^2: Perl = Greek to me
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (10)
As of 2015-07-05 17:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (67 votes), past polls