Shell Programming and Scripting

open(FILE, "<$ARGV[0]") or die "Cannot open $ARGV[0] for read :$!";
@list = <FILE>;
close( FILE );

$AoA[$i] = [ @list ];
for $aref ( @AoA ) {
   print "[\n @$aref ],\n";
}

{
  for(i=1; i<=NF; i++)
    a[i, NR]=$i
  nf=NF;nr=NR
}
END {
  for(f=1; f<=nf;f++)
     for(r=1; r<=nr;r++)
       printf("%s%s", a[f,r], (r==nr) ? "\n" : FS)
}

sub ChangeMetrix
{
        if ($#_<1){
                print "Usage: ChangeMetrix filename delimeter\n";
                exit;
        }
        $file=shift;
        $del=shift;
        open(FH,"<$file");
        while(<FH>){
                $_=~tr/\n//d;
                @arr=split($del,$_);
                if($#arr>$col){
                        $col=$#arr;
                }
                for($i=0;$i<=$#arr;$i++){
                        $index=sprintf("%s%s",$.,$i);
                        $hash{$index}=$arr[$i];
                }
                $row=$.;

        }
        close(FH);
        for($i=0;$i<=$col;$i++){
                for($j=1;$j<=$row;$j++){
                        $temp=sprintf("%s%s",$j,$i);
                        if(exists $hash{$temp}){
                                print $hash{$temp},$del;
                        }
                        else{
                                print "**",$del;
                        }
                }
                print "\n";
        }

}