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

• Perl - Помогите,Bootmen, 10:35 , 04-Янв-06
  • Perl - Помогите,Bootmen, 10:50 , 04-Янв-06
• Perl - Помогите,ACCA, 21:59 , 09-Янв-06

А,где ошибку вы видите?
Что должен скрипт делать?
Одну пока ошибку вижу: c:/1/Format.txt" ;
У вас Винда?

Хотел добавить Вы ведь файл удалили:
unlink "c:/1/Format.txt" ;
А после собираетесь его открыть на запись:
open MY, ">> c:/1/Format.txt" ;
Странно ето.

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

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

>select ("MY") ;

select (MY);

>select ("MY2") ;

MY2 нужно тоже открывать.

man perlform
perldoc -f select

Брось встроенные перловые формы совсем, это теперь не так делается.

В общем случае ты должен отдать XML/SGML или хотя бы LaTeX, который потом преобразуешь для целевого устройства текстовым процессором. Иначе программу придётся переписывать под каждый шрифт каждого устройства.

Выучи русский язык и пользуйся им - твои вопросы невозможно понять.