Help for this page
open my $fd, '<', 'foo' or die open "$!\n"; my ($h, @arr); ## assuming <eor> and <eoh> are always at the end of their lines ... $c++ if /<eor>$/; } close $fd;
$VAR1 = [ { '<time_on:6>' => '213400', ... '<call:5>' => 'VE6GG' } ];
www.com | www.net | www.org
No recent polls found