Help for this page

Select Code to Download


  1. or download this
    pos = 004 
    2574
    ...
    T%: 0725
    INR: 018034
    ID: 00004115
    
  2. or download this
    open(IN, "testB.txt") or die "Can't open testB.txt";
    open(OUT, ">>testB8.txt")or die "Can't open the file for writing.\n";
    ...
    foreach $Key (sort(keys(%Array))) {
        print (OUT "$Array{$Key} \n");
    }