Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: need a clearer understanding

by Utilitarian (Vicar)
on Aug 10, 2011 at 09:16 UTC ( #919622=note: print w/ replies, xml ) Need Help??


in reply to need a clearer understanding

I suspect that your failure to put the code in your question in a code block is the reason people are finding you hard to answer.

if($tmp[0] eq ">") { my $nm = substr($line,1); $nm = $nm . $tot; $tot++; $line = <$IFH>; #IS THIS THE LINE YOU MEANT ? chomp $line; $ret{$nm} = $line; }
If my guess is correct it means exactly the same as the same code in the while ($line = <$IFH>){ line that surrounds the read.

It reads the next line into the $line variable (If not end of file) within a block which is only run if the previous line began with a ">" character.

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."


Comment on Re: need a clearer understanding
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (11)
As of 2015-07-31 19:39 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 (280 votes), past polls