Help for this page

Select Code to Download


  1. or download this
    # lots of code assumed before this line
my $oWkS = $oBook->{Worksheet}[$sheet] or die "sheet doesn't exist";
  2. or download this
    eval {
    open FILE, $file;
}
die "$file did not open for reading" if $@;
  3. or download this
    while (1) {
    next if $_ = 'just skip this';
    last if $_ = 'fatal exception';
}