Perl Readline na zamkniętym uchwycie pliku - plik nie istnieje błąd
Pracuję nad prostym programem perlowym dla mojego pierwszego zadania w mojej klasie programistycznej. Dosłownie utknąłem na tej pierwszej części przez ponad dzień. Nie mogę pobrać programu, który po prostu otwiera plik tekstowy znajdujący się w tym samym katalogu, co program.
#!/usr/bin/perl -w
use strict;
my($fileName, $line);
print "Please enter name of file to be opened: ", "\n";
$fileName = <STDIN>;
chop($fileName);
#Associates FILE filehandle with the file: "filename.txt"
open(FILE, $fileName) or die("Can't open '$fileName': $!");
while(my $line = <FILE>){
print $line;
}
Używam truskawki perl. Aby uruchomić program, przeciągam i upuszczam program do wiersza poleceń, aby uzyskać adres programu. Następnie próbuje go uruchomić.
Początkowo dał mi readlinę przy zamkniętym błędzie uchwytu pliku, a następnie włączyłem lub umarłem („Nie można otworzyć $ $ FileName ': $!”); część kodu.
Teraz mówi, że w katalogu nie ma takiego pliku, ale wiem, że plik test.txt jest tam, ponieważ właśnie go stworzyłem.
Obraz wyników kodu:http://imgur.com/R8s7FFE
Katalog plików, który pokazuje lokalizacje moich plików:http://imgur.com/nUfM4lA)