File::stat - stat() liefert keine Werte (gelöst) (Fragen zu Perl-Modulen)

[thread]17023[/thread]

File::stat - stat() liefert keine Werte [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+11 replies
crojay

2011-12-28 14:29
User since
2011-03-08
81 Artikel
BenutzerIn
Hi,

ich möchte in meiner MEthode, die neueste Datei einer Liste ermitteln. Dazu wollte ich mittels (stat($file))[9] das modify Datum erhalten. Jedoch liefert mir die Methode gar nichts. Weiss jemand woran es liegt, hier mein code
Code (perl): (dl )

1 2 3 4 5 6

foreach my $file(@files){ if (-e $file){ my @fileProps = stat($file); &log_this($customer,$ordername,"filestamp of file $file is: " . $fileProps[9] ); } }
Output:
2011_12_28_14_23_40:filestamp of file f:\TEST.10013907.ps is:
2011_12_28_14_23_40:filestamp of file f:\TEST.10013908.ps is:
2011_12_28_14_23_40:filestamp of file f:\TEST.10013909.ps is:
2011_12_28_14_23_40:filestamp of file f:\TEST.10013910.ps is:

modedit Editiert von GwenDragon: Titel gekürzt
Last edited: 2011-12-28 14:48:38 +0100 (CET)
- Linuxer
  
  2011-12-28 14:38
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  prüfe stat() doch mal auf Erfolg.
  
  Code (perl): (dl )
  
  my @fileProps = stat( $file ) or die "stat $file: $!\n";
  
  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!
- +8 replies
- GwenDragon
  
  2011-12-28 14:43
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Du geht immer davon aus, dass stat niemals fehlschlägt.
  
  Wie wäre es mit:
  my @fileProps = stat($file) or die "stat of $file failed!: $!"
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +7 replies
  - crojay
    
    2011-12-28 14:53
    User since
    2011-03-08
    81 Artikel
    BenutzerIn
    
    Hi,
    
    habe es nun angepasst, sodass es auch geprüft wird ob es fehlschlägt.
    
    Code (perl): (dl )
    
    my @fileProps = stat($file) or die "stat of $file failed!: $!";
    
    Das tut es offenbar nicht, denn der Output hat sich auch nicht geändert. Noch ne idee?
    - +6 replies
    - GwenDragon
      
      2011-12-28 15:03
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Ersetze mal zum fehlersuchen
      
      Code (perl): (dl )
      
      my @fileProps = stat($file) or die "stat of $file failed!: $!";
      
      durch
      
      Code (perl): (dl )
      
      1 2 3
      
      my @fileProps = stat($file) or die "stat of $file failed!: $!"; use Data::Dumper; print "DEBUG###\n", Dumper(\@fileProps), "\n####\n";
      
      Poste mal hier, was angezeigt wird.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +5 replies
      - crojay
        
        2011-12-28 15:13
        
        User since
        2011-03-08
        81 Artikel
        BenutzerIn
        
        Hi, hier der Output der ersten Datei
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        DEBUG### $VAR1 = [ bless( [ 5, 0, 33206, 1, 0, 0, 5, '1418962', 1325069244, 1325068443, 1325069244, '', '' ], 'File::stat' ) ]; ####
        
        Sieht doch danach aus, dass die Werte gesetzt sind???
        
        GwenDragon
        
        2011-12-28 15:22
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, da werten Werte durch stat gesetzt.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        GwenDragon
        
        2011-12-28 15:31
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Hättest mal äußern sollen, dass du File::stat verwendest und nicht stat.
        
        Dann solltest du den Wert so auselesen:
        
        Code (perl): (dl )
        
        1 2
        
        my $stat = stat($file) or die "Error in File::stat file $file : $!"; &log_this($customer,$ordername,"filestamp of file $file is: " . $stat->mtime );
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        crojay
        
        2011-12-28 15:38
        
        User since
        2011-03-08
        81 Artikel
        BenutzerIn
        
        Danke dir. So funktioniert es.
        
        Ich dachte es gäbe nur ein stat und von daher war mir das nicht bewusst, dass es mit File::stat anders zu machen ist.
        
        GwenDragon
        
        2011-12-28 15:46
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        File::stat ist die Objektorientierte Schnittstelle zu stat (= CORE::stat).
        
        Es empfiehlt sich immer mal perldoc -f stat oder perldoc File::stat in der DOS-Box aufzurufen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2011-12-28 15:47
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Fragen zu Perl-Modulen
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-12-28 14:29.