jesuashok has asked for the wisdom of the Perl Monks concerning the following question:
Hi all
what is happening in the below code ?
Could any one clear me with nice answers ?
#!/bin/perl -w use strict; sub readZip() { open FH, '/dev/null'; while (<FH>) { print "Got something!\n"; } } my $x = 'hi'; for ($x) { readZip(); } print "Undefined! $x\n" unless defined $x;
"Keep pouring your ideas"
2006-10-07 Unapproved by planetscape once evidence of habitual plagiarism uncovered.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Help need in Miscellaneous code
by ikegami (Patriarch) on Apr 12, 2006 at 04:43 UTC | |
Re: Help need in Miscellaneous code
by chromatic (Archbishop) on Apr 12, 2006 at 04:49 UTC | |
by ikegami (Patriarch) on Apr 12, 2006 at 04:55 UTC | |
Re: Help need in Miscellaneous code
by liverpole (Monsignor) on Oct 06, 2006 at 13:04 UTC |
Back to
Seekers of Perl Wisdom