in reply to Generating sequence nos. for data

use strict;
use warnings;
my %seq;
for (@data) {
  my ($tag) = split;
  no warnings 'uninitialized';
  my $seq = ++$seq{$tag} ;
  print "$_ -> seqno = $seq\n";
}

[download]

Replies are listed 'Best First'.
Re^2: Generating sequence nos. for data
by merlyn (Sage) on Jun 07, 2005 at 13:05 UTC
[reply]

In Section Seekers of Perl Wisdom