my $osmoutputfile = 'dummy2011';
1 2 3 4 5
if ( -e $osmoutputfile.".osm" ){ print "gefunden\n"; } else { print "nicht gefunden\n"; }
2011-06-17T07:37:11 jan99Als Ausgabe bekomme ich "gefunden" - merkwürdigerweise finde ich die Datei NICHT im Windows-Explorer auch nach F5 nicht !!
Guest jan99Aber wenn die If (-e.....-Abfrage sagt das die Datei da ist, dann müßte ich diese doch auch irgendwie finden ?!?!?
open (my $fh, "<", "$osmoutputfile.osm") or die "Datei kann nicht oeffnen $!";
1 2 3 4 5 6 7 8 9 10 11 12
my $filename = 'blahblubb.txt'; if (-e $filename) { print "Datei $filename ist da!\n"; open(my $fh, "<", $filename); my @data = <$fh>; # usw. } else { print "Datei $filename ist NICHT da!\n"; system("wget http://example.org -O $filename"); }
1 2 3 4 5 6 7 8 9 10 11 12 13
my $filename = 'D:\blahblubb.txt'; if (-e $filename) { print "Datei $filename ist da!\n"; open(my $fh, "<", $filename) or die "### Problem mit Datei öffnen: $!"; my @data = <$fh>; close($fh); # usw. } else { print "Datei $filename ist NICHT da!\n"; system("wget http://example.org -O $filename"); }