Arbeiten mit DIR (Allgemeines zu Perl)

[thread]20497[/thread]

Arbeiten mit DIR

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+7 replies
dirk.m

2018-08-07 20:51
User since
2018-08-07
2 Artikel
BenutzerIn
Hallo Leute,Ich möchte ein verzeichnis auslesen, darin befindliche Dateien vergleichen, Wenn CSV und CSV.Excel gleich sind tue nichts, ansonsten übergebe den Wert an $file.
Print $file ist nur zur kontrolle :).
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

my $dir = 'C:/Users/'; my $body; my @file = (""); opendir( MYDIR, $dir ) or die 'opendir'; $body = join( "\n", readdir MYDIR ); closedir MYDIR; #print "$body"; if ("$body =~ m/\.csv$/" cmp "$body =~ m/\.csv.xls$/") {} else {push (my $file);} print "$file"; exit 0;
Last edited: 2018-08-08 09:13:08 +0200 (CEST)
- hlubenow
  
  2018-08-08 09:18
  
  User since
  2009-02-22
  876 Artikel
  BenutzerIn
  
  Und?
- +5 replies
- Raubtier
  
  2018-08-08 14:47
  User since
  2012-05-04
  1077 Artikel
  BenutzerIn
  2018-08-07T18:51:07 dirk.m
  
  Code (perl): (dl )
  
  if ("$body =~ m/\.csv$/" cmp "$body =~ m/\.csv.xls$/")
  
  Erkläre bitte dieses if. Ich kann dir jetzt schon sagen, dass es immer false ist, egal was für Werte in $body und $/ stehen.
  
  Mir scheint, dass du in deinem readdir ein grep auf alle csv-Dateien machen möchtest und dann jeweils nachschauen solltest, ob ein ensprechendes .xlsx enthalten ist (dafür könntest du einen Hash nehmen).
  
  Sowas in der Art:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  opendir(my $dirh, "."); my @all = grep/\.csv(\.xlsx?)?$/i, readdir $dirh; my %excel; @excel{map lc, grep /\.xlsx?$/i, @all} = (); for(grep $_ !~ /.xlsx?$/i, @all) { say unless exists $excel{lc "$_.xlsx"} || exists $excel{lc "$_.xls"}; }
  
  Last edited: 2018-08-08 15:11:12 +0200 (CEST)
  - +4 replies
  - dirk.m
    
    2018-08-13 07:54
    
    User since
    2018-08-07
    2 Artikel
    BenutzerIn
    
    Hallo, danke für die Antwort.
    Ich habe ein verzeichnis mit .csv , .xls, .txt Dateien.
    Ursprung ist .csv alle Dateien haben den selben Dateinamen, also 1212.csv als ursprung, 1212.csv.txt und 1212.csv.xls.
    Wenn jetzt mehrere Datein mit *.csv dazu kommen, möchte ich diese in eine Variable csv legen, um sie nach und nach abzuarbeiten , dann über eine while-schleife.
    Dabei kann die txt aber aussen vor bleiben, da sie nur ein zwischenspeicher darstellt.
    - hlubenow
      
      2018-08-13 08:17
      
      User since
      2009-02-22
      876 Artikel
      BenutzerIn
      
      Ja dann mach' das doch. (Du müßtest schon eine konkrete Frage zur Programmierung stellen.)
    - rosti
      
      2018-08-13 09:25
      
      User since
      2011-03-19
      3513 Artikel
      BenutzerIn
      
      Idee, weil opendir nicht gerade schön ist:
      
      Code (perl): (dl )
      
      1 2 3
      
      chdir $dir; my @csv = <*.csv>; my @txt = <*.txt>;
      
      Wenn scalar @csv also > scalar @txt dann sind csv Dateien hinzugekommen. Die Differenz wäre zu verarbeiten.
      
      .
    - Linuxer
      
      2018-08-13 15:07
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      
      ich würde dieses String-Gebastel mit $body sein lassen und einfach mit den Dateinamen arbeiten.
      
      - Verzeichnis öffnen
      - Einträge einzeln auslesen
      - Nur die csv-Dateien betrachten; wenn aktuelle Datei eine csv-Datei ist, prüfe, ob die entsprechende csv.xls-Datei existiert. Wenn nicht, speichere csv-Datei-Namen in einen Array.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
      
      my $dir = 'C:/Users'; my @new_csv_files; opendir my $dh, $dir or die "opendir($dir) failed: $!"; chdir $dir; while ( my $filename = readdir $dh ) { if ( substr( $filename, -4, 4 ) eq '.csv' ) { if ( not -e "$filename.xls" ) { push @new_csv_files, $filename; } } } closedir $dh; # und jetzt die Dateien in @new_csv_files verarbeiten. # Beachte, dass hier nur die Dateinamen drin stehen, nicht der Verzeichnis-Pfad!
      
      PS: Groß-/Kleinschreibung muss hier genau genommen werden; der Code arbeitet nur mit .csv, nicht mit .CSV .
      
      edit: chdir $dir; ergänzt
      Last edited: 2018-08-13 15:15:26 +0200 (CEST)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2018-08-07 20:51.