Help for this page
<FILE>; #discard a line (one line is read in void context) my $salt = <FILE>; #provide scalar context so only one line is read my (@post, @time); ($post[$#post + 1], $time[$#time + 1]) = split(/;/) while (<FILE>); print "@post\n@time\n";
my (undef, $salt, @post, @time) = (scalar(<FILE>), scalar(<FILE>)); #f +orce scalar context. ($post[$#post + 1], $time[$#time + 1]) = split(/;/) while (<FILE>); print "@post\n@time\n";
www.com | www.net | www.org
No recent polls found