perlquestion
jesuashok
Hi all
<p>
what is happening in the below code ?
<br>
Could any one clear me with nice answers ?
<code>
#!/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;
</code>
</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-395537">
"Keep pouring your ideas"
</div></div>
<p><small>
2006-10-07 Unapproved by [planetscape] once evidence of habitual plagiarism uncovered.
</small></p>