http://qs321.pair.com?node_id=386997


in reply to pls help me to implement try-catch-throws without using any exception handling

Put the "try" code inside an eval block, then check the value of $@. Example:

#! /usr/bin/perl -w
use strict;

for my $i ( 2, 1, 0 ) {
    for my $j ( 2, 1 ) {
        eval { 
            print "$j / $i = " . $j / $i . $/;
        };
        if ( $@ ) {
            warn "Warning: $@";
        }
    }
}

__END__

[download]

_______________
DamnDirtyApe 
Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche

In Section Seekers of Perl Wisdom