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