formaty

[Honza Pazdziora]

On Thu, May 27, 1999 at 09:51:37PM +0200, MUDr. Zdenek Kral wrote:
> 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?
> ///////

No nevim. Pod 5.004_04 mi to funguje OK:

( ten konec jsem teda zmenit, protoze ten Vas skript nesel prelozit
-->

print"index: ";          # vse za print   se nevytiskne
chomp( $x =<STDIN> );
            for ($x) {
                 /1/  and do { &format; exit; };
                        print"Chyba,zadej znovu."; &format;
            }
__END__

Mi da

=================================================================
text
=================================================================
index: 1
===============================================================

Tady je format.text
================================================================

Cili chyba bude pravdepodobne jinde.

------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 make vmlinux.exe			-- SGI Visual Workstation Howto
Any spam sent to my email will be rewarded by complaint to your ISP abuse
  team and abuse teams of servers that relayed that message. It works.