Help for this page

Select Code to Download


  1. or download this
    <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";
  2. or download this
    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";