Blame view

LIA_kaldiUtils/sort.pl 187 Bytes
ec85f8892   bigot benjamin   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."
  ";
  }