perlquestion
jesuashok
Hi monks,
<p>
<code>
use strict; use warnings;
#prints one line and bails out
@ARGV = ( '<'.$0 );
while (<>) {
close ARGV;
print '.',$_;
}
</code>
Output :-
<code>
.#!/usr/bin/perl
</code>
could any one explain me that strange behaviour ?
<br>
<br>
Thanks a lot.
</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-395537">
"Keep pouring your ideas"
</div></div>