ARM Club 3/TheARMClub_PDCD3.iso/hensa/programming/perl/perl_1/Perl5001/pl/Examples/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 ";
}