Opened by climber at 2009-06-09 11:58
Komme gerade vom Urlaub zurück u. hab mich deshalb nicht direkt gemeldet. Sorry!
Erstmal danke für eure Hilfe.
Mein Script liefert mir folgenden Fehler:
"useless use of private variable in void context at line 13"
Hier nun das script:
Ich hab schon gegoogelt aber leider ohne erfolg!
Gruss
climber
Erstmal danke für eure Hilfe.
Mein Script liefert mir folgenden Fehler:
"useless use of private variable in void context at line 13"
Hier nun das script:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
$lies= "C:\\Batch\\Perl\\Werte.txt";
$schreib= "C:\\Batch\\Perl\\neu.txt";
open (DATEI, "< $lies")
or die "Fehler beim lesen von: $!";
while (<DATEI>)
{
chomp;
my ($D,$M,$Y) =~ /^(\d\d?)\.(\d\d?)\.(\d{2,4})/;
if (not defined $Y) {
($Y,$M,$D) =~ /^(\d{4})(\d{2})(\d{2})/;
}
push (@array, $D.$M.$Y);
}
open (REIN, "> $schreib")
or die "Fehler beim schreiben von: $!";
foreach (@array)
{
print REIN " $_ ";
}
Ich hab schon gegoogelt aber leider ohne erfolg!
Gruss
climber