I just wrote this little script, and was hoping that some perl gurus on
the list could help out. My intent is to start at a known location and
go recursively through folders deleting all .java files and any .class
files compiled from them. Deleting all the .java files isn't difficult,
I'm just not sure about the other part. Here's the idea though: if there
is a file "x.java" then delete "x.class" and any files that start with
"x$" and end in ".class"
#-------------------------------------------
@Dirs = ("d:\\temp\\src");
foreach $folder (@Dirs)
{
print "\nfolder: ".$folder."\n";
chdir ($folder);
opendir (DIR,".");
for (sort readdir (DIR))
{
if ((/^\.$/) || (/^\.\.$/)) { next; }
$file = $_;
if (-d $file)
{
print "\t".$file."\n";
$file = $folder."\\".$file;
@Dirs = (@Dirs,$file);
}
else
{
@Src = (<*.java>);
foreach $file (@Src)
{
print $file."\n";
$name = $file;
$name =~ s/\.java$//;
@Class = (<$name.class>);
@Class = (@Class,<$name\$*.class>);
foreach (@Class) {unlink $_;}
unlink $file;
}
@Src = ();
@Class = ();
}
}
chdir ("..");
}
#-------------------------------------------
It seems to work from the limited test cases I've run but would
appreciate any help.
--
------------------------------------------------------------------------
; Justin Georgeson "free the mallocs" ;
; http://home.austin.rr.com/mastercontrol ;
; mailto:[EMAIL PROTECTED] ;
------------------------------------------------------------------------
---------------------------------------------------------------------------
Send administrative requests to [EMAIL PROTECTED]
