| 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/jj1 |
my $dir = shift;
my @labels = @ARGV;
my $o; my $dir1;
foreach $o (@labels) {
$o =~ s/\///g;
}
$dir1 = $dir . "__" . join("_",@labels);
system("mkdir $dir1");
foreach $o (@labels) {
system("mv /$o $dir1/h98.$dir"."__"."$o.txt");
}