Tricks of the DOOM Programming Gurus/Tricks_of_the_Doom_Programming_Gurus.iso/bonus/linux/waddir/wdircvt.pl

Perl Script | 1994-07-12 | 319 b | 17 lines

#!/usr/bin/perl
#
#    Convert waddir output into a directory listing...

while (<STDIN>) {
    if ( /^#/ ) {
        print;
        next;
    }
    # Break the line into it's components...
    /^([^\s]+)\s+([^\s]+)\s+([^\s]+)/;
    $DOSpath=$1;
    $WADpath=$2;
    $WADlen=$3;
    printf("%-20s %-20s %d\n", $DOSpath, $WADpath, $WADlen);
}