print in PERL

Honza Pazdziora adelton na informatics.muni.cz
Pátek Květen 16 10:28:00 CEST 1997


> Nazdarek,
> 
> mam nasledujici kratky programek:
> 
> --------------------------------------------------
> 
> #!/usr/bin/perl
>
+ $| = 1;
> 
> local($count);
> $count=0;
> 
> $podminka=1;
> 
> while ($podminka) {
>   sleep 2;
>   $count++;
>   if ($count > 10) {
>     print "Sorry. Try again later.\n";
>     goto EXIT;
>   } else {
>     print $count," ";
>   }
> };
> 
> print "Zvladli jsme to.\n";
> 
> EXIT:
> exit 0;

Hope this helps.



Další informace o konferenci Linux