Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
    printf  "%7d\t%-7s\t%-15s\t%-7s\t%s\n",
            @{$href}{qw( MARK INST DEPT ROLL NAME )};
}

Select or download this

    100 CIA     SIGINT          rollno1 Albus
     98 CIA     SIGINT          rollno2 Q
...
      2 NSA     Encryption      rollno2 Dog
      2 NSA     Encryption      rollno2 Roger
      0 NSA     Decryption      rollno2 Dave