Can anyone tell me why the map will not map out the unitialized
variable in this code with 'str'?  Thanks a lot,


use strict;
use warnings;

sub total
{
    my $firstone = shift;
    my $sum = 0;
    my $item = 0;
    map { defined $_ ? $_ : 'str' } @_ ;
    print @_;
}


my $hello;
print "not defined there\n" unless defined $hello;
my @data1 =('a','b','c','d',$hello);
total(@data1);


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to