May I be finicky? Nothing wrong with your code Jeff, but I prefer:
while (<PEL>) {
chomp;
s/ +//g;
my ($value, $field) = split /,/;
if ( $dup{field}++ ) { delete $vend{$field} }
else { $vend{$field} = $value };
}
Thank you :oD
Rob
"Jeff 'Japhy' Pinyan" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
[snip]
>
> while (<PEL>) {
> chomp;
> s/ +//g;
> my ($value, $field) = split /,/;
> $dup{$field}++;
> if ($dup{field} == 1) { $vend{$field} = $value }
> else { delete $vend{$field} }
> }
>
> That looks to me like it will work.
>
> --
> Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
> RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
> <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
> [ I'm looking for programming work. If you like my work, let me know. ]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
