Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
#!/opt/bin/perl $[ = 1; # set array base to 1 $, = ' '; # set output field separator $\ = "\n"; # set output record separator $FS = ';'; line: while (<>) { chomp; # strip record separator @Fld = split(/[;\n]/, $_, 9999); $id = $Fld[1]; if ($. == … |