# cat t1.pl use strict; use warnings; my $cfg = "1.txt"; my @x = qw/a b c 1 2 3/; my $fd;
open $fd,">",$cfg or die $!; print $fd for @x; close $fd; # perl t1.pl GLOB(0x818ab84)GLOB(0x818ab84)GLOB(0x818ab84)GLOB(0x818ab84)GLOB(0x818ab84)GLOB(0x818ab84) As you see the script won't work on my Linux with Perl 5.8.8. Please help, thanks! Regards. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
