| Current Path : /var/www/web-klick.de/dsh/91_archiv/mail_2005/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/91_archiv/mail_2005/ch |
my $dir = shift;
my $x = shift;
my $y = shift;
my @ee = ();
opendir(DDIR,$dir);
while ($entry = readdir(DDIR)) {
push(@ee,$entry);
}
closedir(DDIR);
foreach $entry (@ee) {
print "WW: $entry,$x,$y\n";
$o = $entry;
if ($entry =~ s/$x/$y/) {
print("mv $dir/$o $dir/$entry\n");
system("mv $dir/$o $dir/$entry");
}
}
$o = $dir;
if ($dir =~ s/$x/$y/) {
print("mv $o $dir\n");
system("mv $o $dir");
}