Opened by yasukatakaya at 2008-06-04 13:16
User since
2007-05-31
68 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-05-31
68 Artikel
BenutzerIn
Hallo,
ich versuche einen Ordner der viele Dateien enthält in jede Datei reinzugucken und nach dem folgenden Stichwort suchen "SNNH-UB01-002", wenn dieses in der Datei existiert, soll die Datei in den Ordner SNNHUB01 verschoben werden, irgendwie klappt es nich mit dem verschieben bei mir, könnt ihr mir sagen was ich falsch gemacht habe?!
ich versuche einen Ordner der viele Dateien enthält in jede Datei reinzugucken und nach dem folgenden Stichwort suchen "SNNH-UB01-002", wenn dieses in der Datei existiert, soll die Datei in den Ordner SNNHUB01 verschoben werden, irgendwie klappt es nich mit dem verschieben bei mir, könnt ihr mir sagen was ich falsch gemacht habe?!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
use strict;
use warnings;
opendir(DIR,"test");
while($datei = readdir(DIR))
{
open(INPUT,'<',"test/$datei");
print $datei;
undef $/;
#open (OUTPUT,">>Ausgabe.txt") or die "konnte $ziel nicht oeffnen,$!\n";
$_ = <INPUT>;
tr/\000//d; s/" /"\n/g; s/>/>\n/g;
#print "$_\n";
(my $testschritt) = $_ =~ /SNNH-UB01-002/gsm;
print "$testschritt\n";
if(defined($testschritt))
{
#print "$datei\n";
#rename("test/$datei", "SNNHUB01/$datei");
#print "$testschritt\n";
#chmod 0777, $datei;
#unlink ('test/$datei');
system "copy \"test\$datei\" SNNHUB01\\";
}
close (INPUT);
close(FILE);
}
closedir(DIR);