Help for this page

Select Code to Download


  1. or download this
    use Errno;

...
}
<>;
warn "custom message!\n" if $!{ENOENT};
  2. or download this
    use Errno;

...
        warn "custom message!\n";
    }
};
  3. or download this
    ( my %skater_avg = map
{
    chomp;
...
    { $skater => ( sum(@scores)-min(@scores)-max(@scores) ) / (@scores
+-2) }
}
<> ) || warn "custom message!\n";