formaty

[MUDr. Zdenek Kral]

Preji pekny den,
Mam nasledujici problem.Při  opetovném volani pojmenovaneho formatu s vystupem na obrazovku je pohlceno vse za prikazem print pokud mu predchazi prikaz write.V literature se pise,ze jenutno obsluhovat promennou $-.Nevi někdo jak nato?
///////
format A =
=================================================================
text
=================================================================
..
open A,"|cat";
write A;
close A;

sub format {

format T =
===============================================================

Tady je format.text
================================================================
..
open T,"|cat";
write T;
close T;
}
print"index: "          # vse za print   se nevytiskne
chomp( $x =<STDIN> );
            for ($x) {
                 /1/  and do { nejaka funkce(); &format };
                        print"Chyba,zadej znovu."; &format;
            }

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Nemá někdo zkusenosti s implementaci Perlu do SVGALIB na konzoli pod RH 5.1??

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Diky za odpoved.                                 Dr.Kral                            kral na arcom.cz