> "BRH" == Bryan R Harris writes:
BRH> I have a curiosity maybe someone here can help with.
BRH> This code:
BRH>@a=(1,2);
BRH>map { $_ = 3 } @a;
BRH>print join(",", @a), "\n";
BRH> ... prints "3,3". That map is changing the @a array as it goes through
it.
BRH> G
On 11/10/09 Tue Nov 10, 2009 1:22 PM, "Bryan R Harris"
scribbled:
>
>
> I have a curiosity maybe someone here can help with.
>
> This code:
>
>@a=(1,2);
>map { $_ = 3 } @a;
>print join(",", @a), "\n";
>
> ... prints "3,3". That map is changing the @a array as it goes through i
I have a curiosity maybe someone here can help with.
This code:
@a=(1,2);
map { $_ = 3 } @a;
print join(",", @a), "\n";
... prints "3,3". That map is changing the @a array as it goes through it.
Good.
Now this:
%a=(1,2);
map { $_ = 3 } keys %a;
print join(",", keys(%a)), "
Weide wrote:
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;
Rob Dixon wrote:
Weide wrote:
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
Weide wrote:
>
> 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' } @_ ;
>
Weide wrote:
Can anyone tell me why the map will not map out the unitialized
variable in this code with 'str'?
It does.
map { defined $_ ? $_ : 'str' } @_ ;
print @_;
You probably meant to write
print map { defined $_ ? $_ : 'str' } @_ ;
--
Gunnar Hjalmarsson
Email: http://w
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 def
