Select Code to Download

#!/usr/bin/perl

...
    }
    printf "%-10s %-15s %-40s\n", $file_number, $channel_name, $files_
+by_number{$file_number};
}

File#      Channel Name    File Name                               
---------- --------------- ----------------------------------------
...
00008      ch1             /foo/oradata/bar/foodb-index11.dbf      
00014      ch1             /foo/oradata/bar/foodb-lob01.dbf        
00019      ch2             /foo/oradata/bar/foodb-data02.dbf