3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
use FileHandle;
my $fh = new FileHandle;
my $file = "test.datei";
if ($fh->open("< $file")) {
print $fh->getline();
$fh->close();
}else{
# hier kommst du hin, wenn die Datei nicht geöffnet werden konnte.
# normalerweise steht dann sowas wie die "cannot open file: " . $!; hier
}
1
2
3
4
5
use strict;
use warnings;
use Cwd;
my $dir = getcwd;
print "Startverzeichnis ist: $dir", "\n";
3 Einträge, 1 Seite |