Perl. Помогите со скриптом

Автор: Makalu Дата: 03.01.2006 23:03
Здравствуйте.
Помогите найти ошибку.
Привожу скрипт.
Нужно в один файл печатать посредством нескольких (5-6) форм
Всем спасибо.

#!/usr/bin/perl

my $ttt ;
my $old ;
my $nom1 = 11111;
my $nom2 = 22222;

unlink "c:/1/Format.txt" ;
open MY, ">> c:/1/Format.txt" ;

select ("MY";-) ;
write ;
select ("MY2";-) ;
$~ = "MY2";

write ;

close MY;

format MY =
************ 1**********
^<<<<<<<<<<<<<<<<
$nom1
.
format MY2 =
************2**********
^<<<<<<<<<<<<<<<<
$nom2
.
Re: Perl. Помогите со скриптом 04.01.2006 16:40SlavaZ ---
#!/usr/bin/perl

my $ttt ;
my $old ;
my $nom1 = 11111;
my $nom2 = 22222;

unlink "c:/1/Format.txt" ;
open MY, ">> c:/1/Format.txt" ;

select ("MY";-) ;
$~ = "MY";
write ;
$~ = "MY2";
write ;

close MY;

format MY =
********** 1********
^<<<<<<<<<<<<<<<<
$nom1
.
format MY2 =
**********2********
^<<<<<<<<<<<<<<<<
$nom2
.
---
второй select("MY2";-) не нужен. Переназначение текущего формата - это присвоение переменной $~ названия формата. Функция select фактически переопределяет stdout в файловый дескриптор. Второй раз ты переопределял его в MY2, а у тебя нету такого открытого дескриптора (но есть формат с таким именем, но работа с форматами по умолчанию - только через переменную $~).
Надеюсь, несбивчиво объяснил... Улыбка
Re: Perl. Помогите со скриптом 04.01.2006 21:41Makalu !!!!!!!!!!!!!!!!!!!!1
Громадное спасибо.
RSS-материал