Help for this page
my @lines = <$handle>; my %record; ... next unless /^\| (\w+) \| (\d+)/; $record{$1} = $2; }
my %record = $data =~ /^\| (\w+) \| (\d+)/g;
my $rec1ref = \substr $data, $offset, $len; $$rec1ref = $newval;
www.com | www.net | www.org
No recent polls found