Shell Programming and Scripting

perl -lne'
push @{ $_{$1} }, $2 while /(\S+)\s+(\S+)/g;

END {
    $max = ( sort { $#$b <=> $#$a } values %_ )[0];
    @keys = sort { lc $a cmp lc $b } keys %_;
    $mask = join "\t", map "%" . ( length $_ ) . "s", @keys;
    printf $mask. "\n", @keys;
    for ( $i = 0 ; $i <= @$max ; $i++ ) {
        printf $mask. "\n", map $_{$_}->[$i], @keys;
    }

}' infile

perl -wnale '
BEGIN{
$,="," ;
@a=(edge100,BroadLeaves,Conifers,clc2006,slope,aspect,dem30sec) ;
print sort(@a)
}
%h=@F ;
for ( sort keys %h) { printf "$h{$_}," ; }
print "" ;
' infile.txt

perl -wnale '
%B=@F , $,=","  , print sort {"\L$a" cmp "\L$b"} keys %B if $.==1 ;
%h=@F ; for ( sort { "\L$a" cmp "\L$b" } keys %h) { printf "$h{$_}," ; }  print "" ;
' infile.txt

perl -lane'
%_=@F;@f=sort{lc$a cmp lc$b}keys%_;print join"\t",@f if$.==1;print join"\t",map$_{$_},@f;
 ' infile