[Cologne-pm] open () was mache ich falsch?

[cem.sakaryali at easi.de]

Hallo alle,

ich habe eine vermutlich simple Frage.

ich moechte alle Dateien (*.xml) in 
einem Verzeichniss und alle Unterverzeichnisse
mit einem script manipulieren. Fuer das "finden" 
benutze ich das Modul 
File::Find; 

Mein script oeffnet die Dateien im aktuellen Verz.
aber nicht die, die in den Unterverzeichnissen sind.
"No such file or director" aber die Dateien existieren
(find findet diese ja auch)
Hat einer von euch eeine Idee?

Gruss
Cem

--------------------------------------------
use strict;
use File::Find;

finddepth (\&GetPathAndName,".");

sub GetPathAndName {
  my $name=$File::Find::dir."/".$_;
  return if $name !~ /xml$/;
  loadfile ($name);
}

sub loadfile {  
  my $name = shift;
  print "$name\n";
  open (A,$name) or warn "|$name| $!";
  my @all=<A>;
  close (A);
  foreach (@all) {
      print if $_=~ /RELEASE/;
  }
}
--------------------------------------------




-- 
| __| / _ \ / __|(_) | C e m   S a k a r y a l i
| _| |  _  |\__ \| | | Eupener Str. 159, Geb. 107
|___||_| |_||___/|_| | D-50933 Koeln GERMANY
Engineering GmbH     | Tel: +49 221/650 496 12 Fax: 22
http://www.easi.de   | mailto:cem.sakaryali at easi.de