Forum Webscript.Ru

Программирование => Perl => Тема начата: Makalu от 01 Января 2006, 02:45:27

Название: Помогите со скриптом
Отправлено: Makalu от 01 Января 2006, 02:45:27

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