noh, uite ca m-am scremut un pic sa scriu ceva cu documentatzia in fatza.
am un activeperl si mai am si un cygwin instalat ca sa emulez versiunea de
unix.
k-kam asa ar arata :
#!/usr/bin/perl -w
#
# rim - remove improved
#
# za first alfa vershian
#$workdir = "/root/work/crussen";
$workdir = "d:\\tmp";
chdir( $workdir) || die "Couldn\'t chdir to directory !\n";
@fnamez = <*.dmp>;
foreach $i (@fnamez) {
print ">>>FILENAME: ", $i, "\n";
print ">>> -M file test: ", -M $i, "\n";
if( (-M $i) > 3 ) {
print ">>>UNLINKING: ", $i, "\n";
# unlink( $i) || die "Bizaroidus...\n";
}
noh, cam cum ii pot lua timpul, calea si fisierele din parametrii?
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
unsubscribe from this list.
