filehandle и use strict

[Forza]

Ничего не понимаю(с)....

Хочу открыть файл при наличии директивы use strict. При открытии типа open (FH, $fileName) вполне логично пишет "Bareword "FH" not allowed while "strict subs" in use". Как заранее объявить дескриптор такого формата, я пока в перлдоке не нашёл.
Кроме того perlopentut предлагает альтернативный вариант открытия файла: open( my $fh, $fileName ). На это версия Перла у провайдера пишет "Can\'t use an undefined value as a symbol reference", т.е. почему-то требует переменную со значением.
Конечно, я могу взять всю работу с файлом в скобки и сказать там no strict, но это будет отступление...

[Green Kakadu]

Forza:
Хочу открыть файл при наличии директивы use strict. При открытии типа open (FH, $fileName) вполне логично пишет "Bareword "FH" not allowed while "strict subs" in use".

чего то ты там сам намутил ибо ничего логичного я не вижу (может чего не понимаю)

Код: [Выделить]


#!/usr/bin/perl -w
use strict;
my $fileName=\'/text2-test.txt\';
open (FH, ">",$fileName)||die("Не могу открыть файл, $!");
print FH \'Hello,world!\';
close FH;

никаких ругательств, скорее у тебя где-то др. ошибочка закралась

[Forza]

Мда, твой вариант обращения с дескриптором работает. Бум искать ошибку.

Кстати, провайдерский перл ругается на open (FH, ">",$fileName) словами Too many arguments for open at filetest.pl line 5, near "$fileName)". Пришлось исправить на open (FH, ">$fileName").

А логичность я видел в том, что на мой взгляд use strict требует всё заранее объявлять, нет?

[Green Kakadu]

Forza:
провайдерский перл

похоже у них далеко не свежая версия перла

[Skif]

Ага, ниже 5.6.
По топику:
Например имеется массив с именами файлов(неважно как получили):

foreach $file (@my_file_arr) {
  my $filename = $file;
open($filename, $filename);
close($filename)
}
ЗЫ: можно, конечно дескриптор забить статически FH или менять а-ля $FH="FH_$filename", но это на любителя. Я пользуюсь в основном первым вариантом.

[Green Kakadu]

Forza:
на мой взгляд use strict требует всё заранее объявлять, нет?

насколько я понимаю,
use strict; аналогично одновременному вызову:

use strict "vars";
ругается если переменная не объявлена

use strict "refs";
ругается при использовании символических ссылок

use strict "subs";
ругается при неосторожном обращении с именами подпрограмм

[vladsu]

Попробуйте переписать строку так

Код: [Выделить]

open (FH, "> $fileName")