Opened by shaihulud at 2006-04-12 17:50
User since
2006-04-12
76 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-12
76 Artikel
BenutzerIn
also so wie ich deinen code zusammengeschnipselt habe sollte er so aussehn :
er gibt noch immer fehler aus (Use of uninitialized value in quotemeta at c:/Perl/lib/File/Basename.pm line 220) und was ich mich frage ist wo du das praefix benutzt.
hab auch mal my
$name = basename($datei,$suffix);
durch
my $name = basename($datei,$praefix);
ersetzt. so gibt er zwar keinen fehler aber er spuckt auch nichts aus, was bedeutet dass er nichts in ohneendung drin stehn hat..\n\n
<!--EDIT|shaihulud|1146226732-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
my $praefix = 'P007201031';
my $suffix;
my @dateien = glob("P007201031.*");
my @ohneendung;
for my $datei (@dateien) {
my $name = basename($datei,$suffix);
if(defined $suffix and $suffix !~ /(JPL|a00)$/i){
push(@ohneendung,$name);
}
}
foreach my $ele (@ohneendung){
print "$ele\n";
}
er gibt noch immer fehler aus (Use of uninitialized value in quotemeta at c:/Perl/lib/File/Basename.pm line 220) und was ich mich frage ist wo du das praefix benutzt.
hab auch mal my
$name = basename($datei,$suffix);
durch
my $name = basename($datei,$praefix);
ersetzt. so gibt er zwar keinen fehler aber er spuckt auch nichts aus, was bedeutet dass er nichts in ohneendung drin stehn hat..\n\n
<!--EDIT|shaihulud|1146226732-->