создание текстового файла в Perl

Question

Я надеялся на некоторую помощь в том, как создать текстовый файл специально для Perl, получающего ввод от пользователя.

print "\ndirectory has been changed";
print "\nDear user, please enter the name of the file you want to create ";

my $nameFile = <>;

open MYFILE, ">$nameFile" or die "couldn't open the file $!";

Это создаст файл, но не текстовый файл.

С уважением Arian

Answer 1

Обновление: я только что понял, что у вас нет chomp вашего STDIN, поэтому к концу имени вашего файла будет добавлена ​​новая строка.

chomp $filename;

Должен решить эту конкретную ошибку с вашим файломname.

Рекомендуемый способ использования open - использование трех аргументов и лексического дескриптора файла.MYFILE является глобальным, со всеми присущими ему недостатками и преимуществами.

use autodie;  # will check important errors for you, such as open
open my $fh,      '>',               $namefile;
#    ^- lexical   ^- explicit mode   ^- filename separated from mode

print $fh "This is a textfile\n";   # put something in the file