Ich arbeite an einem einfachen Perl-Programm für meine erste Aufgabe in meiner Programmierklasse. Ich bin buchstäblich seit mehr als einem Tag in diesem ersten Teil stecken geblieben. Ich kann mein Programm nicht dazu bringen, einfach eine Textdatei zu öffnen, die sich im selben Verzeichnis wie das Programm befindet.

#!/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;
}

Ich benutze Erdbeerperl. Um das Programm auszuführen, ziehe ich das Programm per Drag & Drop in die Befehlszeile, um die Adresse des Programms abzurufen. Es wird dann versucht, es auszuführen.

Es gab mir anfangs eine Readline bei einem Fehler mit geschlossenem Dateihandle, und dann schloss ich das oder die ein ("Kann '$ fileName' nicht öffnen: $!"); Teil des Codes.

Jetzt heißt es, dass es im Verzeichnis keine solche Datei gibt, aber ich weiß, dass die Datei test.txt vorhanden ist, weil ich sie gerade erstellt habe.

Bild der Code-Ergebnisse:http://imgur.com/R8s7FFE

Dateiverzeichnis, in dem die Speicherorte meiner Dateien angezeigt werden:http://imgur.com/nUfM4lA)