38 lines
409 B
Perl
38 lines
409 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Error qw(:try);
|
|
|
|
use IO::Handle;
|
|
|
|
package MyError;
|
|
|
|
use base 'Error';
|
|
|
|
package SecondError;
|
|
|
|
use base 'Error';
|
|
|
|
package main;
|
|
|
|
autoflush STDOUT 1;
|
|
|
|
foreach my $i (1 .. 100)
|
|
{
|
|
try
|
|
{
|
|
if ($i % 10 == 0)
|
|
{
|
|
throw MyError;
|
|
}
|
|
}
|
|
catch MyError with
|
|
{
|
|
my $E = shift;
|
|
next;
|
|
};
|
|
print "$i\n";
|
|
}
|