Shell Programming and Scripting

@array = (1 , 2 , 3 , 4);
print $array[0];#prints 1
$array[2] = 'foo'; #changes 3 to foo

( $letter, $long_nm, $short_nm ) = split( /\|/, $line );

( @a_junk ) = split( /\|/, $line );

print "1st element: $a_junk[0] \n";
print "2nd element: $a_junk[1] \n";
print "3rd element: $a_junk[2] \n";

bbc&aaa&aaa
mmn&aaa&ccc
lmn&bbb&aaa
aaa&ccc&ddd
ššš&&
sss&&aaa
zzz&&
aaa&bbb&ccc
aaa&aaa&bbb
uuu&&
šas&&
saš&&
cab&&
uuū&&
ūuu&&
ūūū&&

use strict;
use warnings;
open (_file_, "< path-to-file")  or  die "Failed to read file : $! ";
my @not_sorted = <_file_>; 
sub normalize {
   my $in = $_[0];
   $in = lc($in);
   $in =~ tr<aeiouū>
   <aeiouu>;
   $in =~ tr<abcdefghijklmnopqrsštuvwxyz>
   <\x01-\x1B>;
   return $in;
}
my @splitted = split(/&/, @not_sorted);
my @sorted =
sort {normalize($a) cmp normalize($b) or $a cmp $b}
 $splitted[0];
print @sorted;
close (_file_);

16$

my @splitted = split(/&/, @not_sorted);

use strict;
use warnings;
open (_file_, "< path-to-file")  or  die "Failed to read file : $! ";
my @not_sorted = <_file_>; 
sub normalize {
   my $in = $_[0];
   $in = lc($in);
   $in =~ tr<aeiouu>
   <aeiouu>;
   $in =~ tr<abcdefghijklmnopqrsštuvwxyz>
   <\x01-\x1B>;
   return $in;
}
my @sorted = sort {normalize($a) cmp normalize($b) || $a cmp $b} @not_sorted;
print @sorted;
close (_file_);

alibumbi&\begin{CJK}{UTF8}{}\begin{SChinese}呈递，授与\end{SChinese}\end{CJK}&bithe alibuha&\begin{CJK}{UTF8}{}\begin{SChinese}呈文（下对上）\end{SChinese}\end{CJK}&56, 64\\

use strict;
use warnings;
open (_file_, "< path-to-file")  or  die "Failed to read file : $! ";
my @not_sorted = <_file_>;
sub normalize {
   my $in = $_[0];
   $in = lc($in);
   $in =~ tr<aeiouū>
   <aeiouu>;
   $in =~ tr<abcdefghijklmnopqrsštuvwxyz>
   <\x01-\x1B>;
   return $in;
}
my @sorted = map {$_->[0]}
        sort{ normalize($a->[1]) cmp normalize($b->[1]) or $a->[1] cmp $b->[1]}
        map {chomp;[$_,split(/&/)]} @not_sorted;
print "$_\n" for @sorted;
close (_file_);

normalize($a->[1])

bbc&aaa&aaa
mmn&aaa&ccc
lmn&bbb&aaa
aaa&ccc&ddd
ššš&&
sss&&aaa
zzz&&
aaa&bbb&ccc
aaa&aaa&bbb
uuu&&
šas&&
saš&&
cab&&
uuū&&
ūuu&&
ūūū&&

aaa&ccc&ddd
aaa&bbb&ccc
aaa&aaa&bbb
bbc&aaa&aaa
cab&&
lmn&bbb&aaa
mmn&aaa&ccc
saš&&
sss&&aaa
šas&&
ššš&&
uuu&&
uuū&&
ūuu&&
ūūū&&
zzz&&