Perl a Titanik (RE: Zmrazeni RH6.0cz)

[Milan Zamazal]

>>>>> "MS" == Milan Sorm <xsorm na informatics.muni.cz> píše:

    MS> vyjimky perl umi:

    MS> eval {
    MS>    neco;

    MS>    die "vyjimka";

    MS> };
    MS> print "Vyjimka" if $@ =~ /vyjimka/;

    MS> a pokud se vam nelibi tato klicova slova, nic nebrani tomu si
    MS> zavest vlastni - treba try, catch a throw:

    MS> sub try (&@) {
    MS>   my ($try,$catch) = @_;
    MS>   eval { &$try };
    MS>   if ($@) {
    MS>     local $_ = $@;
    MS>     &$catch;
    MS>   }
    MS> }
    MS> sub catch (&) { $_[0]; }
    MS> sub throw ($) { die shift; }

    MS> a uz muzete psat:

    MS> try {
    MS>   neco;

    MS>   throw "vyjimka";
    MS> } catch {
    MS>   /vyjimka/ and print "Vyjimka";
    MS> };

Tak toto už snad opravdu patří do nějaké *.jokes konference, ne?
Buď si děláš srandu, nebo plácáš o výjimkách, aniž bys vůbec pochopil,
k čemu vlastně jsou.

Milan Zamazal