New subject: [OT] Mittelschweres Perl-Problem (was Re: Mittelschweres Perl-Problem)

27 May 2004

      Hallo David,

David Haller <david@dhaller.de> wrote ..
...
*Urgsl*
Ja, ich bin kein Perl-Debugger ;-)
...
Du willst dir 'perldoc File::Find' anschauen.
Gute Idee :-) Danke für den Tipp. Hier ist erstmal meine Anpassung an der ich weiterwursteln werde.

<cut here><cut here><cut here><cut here><cut here><cut here><cut here>
#!/usr/bin/perl -w

use strict;
use warnings;
use File::Find;

my $dirtoget="/home/macmewes/webadmin-trans/webmin";

# Hier stimmt was nicht. Die Dateien config-* werden nicht gelöscht.
my @dont_touch_files = (".*config\..*",".*module\..*");

# Hier stimmt was nicht. Die Verzeichnisse bleiben zwar unberührt, aber die 
# Dateien darin werden gelöscht. Das soll ja nicht so.
my @dont_touch_dirs = ("lang","ulang","help");

my $skipfiles = join("|", @dont_touch_files);
my $skipdirs = join("|", @dont_touch_dirs, '^\.$', '^\.\.$');

print "$skipfiles\n";
print "$skipdirs\n";

finddepth(\&wanted, $dirtoget);

sub wanted {
    if(-d $_ && /^(?:$skipdirs)$/ ) {
        print "skipping dir '$File::Find::name'\n";
    } elsif( -f $_ && /^(?:$skipfiles)$/ ) {
        print "skipping file '$File::Find::name'\n";
    } elsif( -d $_) {
        print "deleting directory '$File::Find::name'\n";
        #rmdir($_);
    } else {
        print "deleting file '$File::Find::name'\n";
        #unlink($_);
    }
}
<cut here><cut here><cut here><cut here><cut here><cut here><cut here>

bis dahin / kind regards

Martin

-- 
http://webmin.mamemu.de/		WebMin-Mirror
Official Webmin/Usermin Translation Co-Ordinator 2003/2004
http://www.webmin.com/mailing-trans.html

Re: [OT] Mittelschweres Perl-Problem (was Re: Mittelschweres Perl-Problem)

Martin Mewes

David Haller

Martin Mewes

tags

participants (2)