in reply to Evaluate success or failure of a subroutine

You've already received good responses, but I just thought I'd mention: 

my ($recCount)         = @_[0];
my ($tlrRecordCount)     = @_[1];
my ($verRecordCount)     = @_[2];

[download]
...can be expressed: 
my ( $recCount, $tlrRecordCount, $verRecordCount ) = @_;

[download]

--
"A long habit of not thinking a thing wrong, gives it a superficial appearance of being right." -- Thomas Paine
naChoZ

Replies are listed 'Best First'.
Re^2: Evaluate success or failure of a subroutine
by ikegami (Patriarch) on Aug 16, 2004 at 15:51 UTC

    wusphere, while I prefer naChoZ's style, if you like the multi-line style, consider using 

        my $recCount         = $_[0];
    my $tlrRecordCount   = $_[1];
    my $verRecordCount   = $_[2];

    [download]

    since it is much more efficient then taking array slices:

        my ($recCount)       = @_[0];
    my ($tlrRecordCount) = @_[1];
    my ($verRecordCount) = @_[2];

    [download]

    $array[num] means "get element num from the array @array".

    @array[num] means "create an array consiting of the element num of the array @array".

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom