[Pipe]

[David Rohleder]

> #!/usr/bin/perl
> 
> pipe(RED,WRT);
> 
> if($idp = fork())
> {

  close (RED);
  ^^^^^^^^^^^
> print WRT "\n\n\AHOJ\n";
> }
> else{

  close (WRT);
  ^^^^^^^^^^^^

> print <RED>;
> }
> 

Tak takto mi to funguje.

-----
Tento priklad mi prisel z linuxu z olomouce, takze jsem to radsi poslal
uz na tuto novou adresu.
/-----------------------------------------------------------------------\
| David Rohleder                            e-mail: davro na fi.muni.cz    |
| Karla Capka 2348                                                      |
| 697 01 Kyjov                                                          |
| Czech Republic                                                        |
\-----------------------------------------------------------------------/