hey, the first version works fine,
the second version dies a miserable death.
wassup?????
is there anyway to store a file handle in a
package variable?
Greg
# version 1
open ( my $my_var, 'junk.pl') or die "OPEN\n";
while (<$my_var>)
{
my $line = $_;
print $_;
}
close($my_var);
# version 2
our $our_var;
open ( $our_var, 'junk.pl') or die "OPEN\n";
while (<$our_var>)
{
my $line = $_;
print $_;
}
close($our_var);
--- Begin Message ---
hey, the first version works fine,
the second version dies a miserable death.
wassup?????
is there anyway to store a file handle in a
package variable?
Greg
# version 1
open ( my $my_var, 'junk.pl') or die "OPEN\n";
while (<$my_var>)
{
my $line = $_;
print $_;
}
close($my_var);
# version 2
our $our_var;
open ( $our_var, 'junk.pl') or die "OPEN\n";
while (<$our_var>)
{
my $line = $_;
print $_;
}
close($our_var);
--- End Message ---
