Blame view
LIA_kaldiUtils/sort.pl
187 Bytes
ec85f8892 first commit |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
#!/usr/bin/perl use strict; use warnings; my %tab = (); while(<STDIN>){ chomp; $tab{$_} = 1; } my @sort = sort { $a cmp $b ; } keys %tab; for my $key (@sort){ print $key." "; } |