in reply to Get unique fields from file
At least this does not fail any of the test cases you have provided :)
#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11140211 use warnings; my $data =<< "END"; head1|head2|head3 val1|val2|val3 val1|val4|val5 val6|val4|val5 val2|val7|val5 val3|val7|val3 END open my $fh , "<", \$data or die "can't open input file $!"; my @headers = split /[|\n]/, <$fh>; my %seen; while( <$fh> ) { my @row = split /[|\n]/; $seen{$_}{shift @row}++ for @headers; } print join "\n", "UNIQUE VALUES for $_:", (sort keys %{ $seen{$_} }), +"\n" for @headers;
Outputs:
UNIQUE VALUES for head1: val1 val2 val3 val6 UNIQUE VALUES for head2: val2 val4 val7 UNIQUE VALUES for head3: val3 val5
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Get unique fields from file
by Marshall (Canon) on Jan 07, 2022 at 03:49 UTC | |
by LanX (Saint) on Jan 08, 2022 at 15:27 UTC | |
by tybalt89 (Monsignor) on Jan 07, 2022 at 04:49 UTC | |
by Marshall (Canon) on Jan 07, 2022 at 10:33 UTC |
In Section
Seekers of Perl Wisdom