That was really helpful...still reading... Now I think its still very much distance to the opening door of Perl programming.
Thanks all :) -----Original Message----- From: John W. Krahn [mailto:[EMAIL PROTECTED] Sent: Friday, April 18, 2008 1:38 PM To: Perl Beginners Subject: Re: CSV duplicate [EMAIL PROTECTED] wrote: > > From: "John W. Krahn" <[EMAIL PROTECTED]> >> >> This should be close to what you want: >> >> my %data; >> while ( <FILE> ) { >> chomp; >> for ( map [ split /=/ ], ( split /\s*,\s*/ )[ 0, -1 ] ) { >> $data{ $_->[ 0 ] }{ $_->[ 1 ] }++; >> } >> } >> >> for my $type ( keys %data ) { >> print "Duplicate $type\n"; >> for my $key ( keys %{ $data{ $type } } ) { >> print "$key\n" if $data{ $type }{ $key } > 1; >> } >> print "\n"; >> } > > I haven't seen hash used in this format. > $data{ $val1 }{ $val2 }++; Can yor please tell what this means? It is called a "Hash of Hashes" and is explained in: perldoc perldsc The hash %data stores keys and the values for those keys are a reference to a hash and the values for that hash are autovivified and incremented using the autoincrement operator. Also, other related documentation: perldoc perllol perldoc perlreftut perldoc perlref John -- Perl isn't a toolbox, but a small machine shop where you can special-order certain sorts of tools at low cost and in short order. -- Larry Wall -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
