Posted By: Koles () on 'CZscripts'
Title:     FMTEYEWTK
Date:      Wed Jan 20 10:47:29 1999

Pokud vam neco rika perl, ale se zkratkou v subjectu jste se
dosud nesetkali, vrele doporucuju lehce si probehnout sbirku 
kratkych rad Toma Christiansena zvanou "Far More Than Everything 
You've Ever Wanted To Know", k dostani pod dokumentaci na CPANu 

    ftp://ftp.fi.muni.cz/pub/perl/doc/FMTEYEWTK/

pripadne 

    http://www.perl.com/CPAN/doc/FMTEYEWTK/

Jedna se o neuveritelne strhnujici cetbu, ktera vam velmi pomuze
k tomu, aby vase skripty byly jeste mnohem lepsi, vonavejsi, 
dokonalejsi.

Nekolik ukazek:

1,    for $his ($people{"Jason"}) {
              $his->{AGE} = 23;
              $his->{DAD} = "Herbert";
      }

      (tohle vyuziti prikazu for by me vazne nenapadlo)

2,    foreach $e (@a, @b) { $union{$e}++ && $isect{$e}++ }
      @union = keys %union;
      @isect = keys %isect;

3,    Sometimes, aesthetics counts. :-)

          for ($^O) {
              *struct_flock =                do                           {

                                      /bsd/  &&  &bsd_flock

                                  /linux/    &&    &linux_flock
                                             ||
                                /sunos/      &&      &sunos_flock
                                             ||
                        die "unknown operating system $^O, bailing out";
              };
          }

Preji prijemne perleni.

  Pavel

--
... a jejich hesla se spolu utkavala v ohlusujicim revu od rana do vecera:
"Unorove prevzeti moci bylo nelegalni!"
"Unorove prevzeti moci bylo podivuhodne!"