presmerovani vystupu scriptu do souboru

[Honza Pazdziora]

> 
> #!/usr/bin/perl
		  -w

use strict;

> if ( not open(FILE,"/var/log/account")) {
>                                                 print  " Nelze otevrit PIPE
					print STDERR nebo die?

> ";
>                                                 exit;
>                                         }
> 
> $count = 0;
> while ($count == 0)
> {
> $log = <FILE> ;

$| = 1;

> print $log;
> }

------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
------------------------------------------------------------------------