Fehlermeldung "Can not open file: .txt" - #187560 (Allgemeines zu Perl)

MarkusH

2017-10-18 20:12

User since
2012-04-08
161 Artikel
BenutzerIn
[default_avatar]

Guest Alessia
Code (perl): (dl )
@paragraphs = AnalyzeText (ReadFile ("$test.txt"));

Für diese spezielle Datei test.txt ändere die Zeile 136 wie folgt ab.

Code (perl): (dl )

@paragraphs = AnalyzeText (ReadFile ("test.txt"));

Ich denke, dass die Zeile 136 ursprünglich

Code (perl): (dl )

@paragraphs = AnalyzeText (ReadFile ("$fname"));

lautete und man beim Copy&Paste vergessen hat das $ zu entfernen.

In der Sub ReadFile müsste es wohl auch lauten

Code (perl): (dl )

open (FILE, '<:encoding(UTF-8)', $fname) || die ("Can not open file: test.txt # [Error: $!]");

Das Skript kannst Du dann aufrufen mit:
lesbarkeit.pl test.txt
oder
lesbarkeit.pl C:\strawberry\PERL_DATA\test.txt

modedit Editiert von GwenDragon: Formatiert
Last edited: 2017-10-18 20:35:27 +0200 (CEST)

$q =~ /(bb|[^b]{2})/