Здравствуйте.
Помогите найти ошибку.
Привожу скрипт.
Нужно в один файл печатать посредством нескольких (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
.