RISC DISC 2/RISC_DISC_2.iso/pd_share/utilities/cli/perl/!Perl/scripts/pl/makedoto

Text File | 1995-04-16 | 298 b | 13 lines

# make file list of .o files for makefile

if ($#ARGV < 0) {die "Need an argument !\n";}
$dirname = $ARGV[0];
opendir(SOURCEDIR,$dirname) || die "Couldn't open directory!!\n";
open(OUTFILE,">outO");
@flob = readdir(SOURCEDIR);
foreach $file (@flob)
{
    print "$file\n";
    print OUTFILE "o.$file ";
}