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!"