formaty

[MUDr. Zdenek Kral]

Pekny den,
Ano chyby nehledejme v Perlu ale u sebe.Problém byl v přesměrování výstupu volaném za deklarovaným formátem,kdy jsme použily:
                                                        Format A =
                                                         .................................

                                                         open (F, ">soubor");
                                                         *STDOUT = *F;
                                                          print .......;              #vystup z formatu A                                                                                                 


                                                          format B =
                                                          ..........................#  Zadaní  dalšího formátu.
                                                          .

                                                          open B,"|cat";
                                                          write B;
                                                          close B;

                                                          print" index ";                 # Zde nevytisknuto
                                                          chomp($vstup = <STDIN>);
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

               místo správného                local *STDOUT = *F;

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

S pozdravem                                              -ZK-