dateien aus dem verzeichnis lesen (Seite 2) (Datenbanken und Verzeichnisdienste)

Dubu

2006-04-15 04:23

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

my $suffix = '.a00';

my @dateien = glob("*$suffix");
my @ohneendung;
for my $datei (@dateien) {
    my $name = basename($datei,$suffix);
    print "$name\n";
    push(@ohneendung,$name);
}

# mache hier etwas mit @ohneendung

shaihulud

2006-04-25 20:24

User since
2006-04-12
76 Artikel
BenutzerIn
[default_avatar]

ich habe einen dateinamen, sagen wir "X" und in meinem Verzeichnis stehn auf jeden fall 2 dateien die X.jpl und X.a00 heissen. Wenn ich jetzt noch alle anderen Dateien die X heissen aber ne andere Endung haben bekommen möchte wie mache ich das?

Code: (dl )

 
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

my $suffix = '.a00';

my @dateien = glob("*$suffix");
my @ohneendung;
for my $datei (@dateien) {
   my $name = basename($datei,$suffix);
   print "$name\n";
   push(@ohneendung,$name);
}

Etwas in der Art aber nun möchte ich wie gesagt von dem Präfix ausgehn und alle suffixe speichern die X als Präfix haben und nicht die suffixe jpl und a00 haben.\n\n

pq

2006-04-25 23:08

User since
2003-08-04
12209 Artikel
Admin1

*$suffix $praefix*

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

shaihulud

2006-04-26 02:23

User since
2006-04-12
76 Artikel
BenutzerIn
[default_avatar]

jo das weiss ich aber ich will da ne bedingung die mir das präfix nur nimmt wenn bestimmte präfixe nicht dabei sind.. ich weiss nicht wie ich das da beides rein kriege..

renee

2006-04-26 09:36

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn Du weißt, welche Präfixe es nicht sein dürfen:

Code: (dl )

@nicht_erlaubte_praefixe = qw(hallo X Y);
for my $datei (@dateien) {
   my $name = basename($datei,$suffix);
   print "$name\n";
   if(!grep{$name =~ /^$_/}@nicht_erlaubte_praefixe){
     push(@ohneendung,$name);
   }
}

Wenn Du weißt, welche Präfixe es sein sollen:

Code: (dl )

@erlaubte_praefixe = qw(hallo X Y);
for my $datei (@dateien) {
   my $name = basename($datei,$suffix);
   print "$name\n";
   if(grep{$name =~ /^$_/}@erlaubte_praefixe){
     push(@ohneendung,$name);
   }
}

siehe perldoc -f grep

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

shaihulud

2006-04-26 11:39

User since
2006-04-12
76 Artikel
BenutzerIn
[default_avatar]

nein.. ihr versteht mich alle falsch *g
der Präfix steht fest. aber ich will suffixe haben. ich geb mal n Beispiel:

P007201031.JPL
P007201031.a00
P007201031.doc
P007201031.xls

mein präfix ist P007201031 ich möchte nun alle dateien in dem ordner durchgehn wo auch diese 4 dateien stehn und alle prüfen ob sie den präfix P007201031 haben und NICHT die Endung Jpl und a00. d.h. er müsste mir am ende diese beiden rausspucken :

P007201031.doc
P007201031.xls

renee

2006-04-26 11:53

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

my $praefix = 'P007201031';

my @dateien = glob("P007201031.*");
my @ohneendung;
for my $datei (@dateien) {
   my $name = basename($datei,$suffix);
   print "$name\n";
   if($suffix !~ /(jpl|a00)$/i){
     push(@ohneendung,$name);
   }
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

shaihulud

2006-04-26 15:24

User since
2006-04-12
76 Artikel
BenutzerIn
[default_avatar]

Use of uninitialized value in quotemeta at c:/Perl/lib/File/Basename.pm line 220
.
P007201031.JPL
Use of uninitialized value in pattern match (m//) at 1.pm line 14.
Use of uninitialized value in quotemeta at c:/Perl/lib/File/Basename.pm line 220
.
P007201031.TIF
Use of uninitialized value in pattern match (m//) at 1.pm line 14.

ist die fehlermeldung.. jemand ne ahnung?

line 14:

Code: (dl )

 if($suffix !~ /(jpl|a00)/i){

Strat

2006-04-26 16:55

User since
2003-08-04
5246 Artikel
ModeratorIn

vielleicht so?

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $praefix = 'P007201031';

for my $datei (glob("$prefix.*")) {
  if(  my ($suffix) = $datei =~ /^\Q$prefix\E\.(.+)$/ ) {
    print "Suffix: $suffix\n";
  } # if
}

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

renee

2006-04-26 18:26

User since
2003-08-04
14371 Artikel
ModeratorIn

Mach aus

Code: (dl )

1
2
3

   if($suffix !~ /(jpl|a00)$/i){
    push(@ohneendung,$name);
  }

ein

Code: (dl )

1
2
3

   if(defined $suffix and $suffix !~ /(jpl|a00)$/i){
    push(@ohneendung,$name);
  }

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/