散列自加，也许很简单的一个问题，但是想不明白，悬赏

yuio654

#!/usr/bin/perl -w
use strict;
use warnings;
my @people=qw/hwllo hello yaya llll hwllo hwllo baby llll/;
foreach (@people)
{
    print "数组的内容是:\n";
    print"$_\n";
    }
my %count;
#$count{$_}++ foreach(@people);
print "test hash##########\n";
foreach(@people)
{
    print "($_)\n";
    #my $hash_val=$count{$_};
    #print "now hash is: $hash_val\n";
    print "now hashh ishash_val\n";
   $count{$_}++;
    #$count{$_}=$count{$_};
    #$count{$_}+ 1;
    }


$count{$_}++;这里到底是怎么处理的呢？
一直想不明白

Lonki

先$count{$_}, 得到的东西++

你说的报错是未初始化吧? 正常的.

Lonki

每次循环: {
  $_为数组中的一个元素
在%count这个hash中, 将key为$_对应的value加1
}

yuio654

原帖由 Lonki 于 2007-11-9 16:19 发表
每次循环: {
  $_为数组中的一个元素
在%count这个hash中, 将key为$_对应的value加1
}

分析运行结果是这样的，我想知道散列内部怎么变化的
比如

foreach(@people)
{
    print "($_)\n";
    my $hash_val=$count{$_};
    print "now hash is: $hash_val\n";
    $count{$_}++;
    }

这样就报错。
$count{$_}++这个应该怎么分解能看得比较明白？

yuio654

原帖由 Lonki 于 2007-11-9 16:45 发表
先$count{$_}, 得到的东西++

你说的报错是未初始化吧? 正常的.

不是未初始化

#!/usr/bin/perl -w
use strict;
my @people=qw/hwllo hello yaya llll hwllo hwllo baby llll/;
foreach (@people)
{
    print "数组的内容是:\n";
    print"$_\n";
    }
my %count;
#$count{$_}++ foreach(@people);
print "test hash##########\n";

foreach(@people)
{
    print "($_)\n";
    my $hash_val=$count{$_};
    #print "now hash is: $hash_val\n";
    print "now hashh is: $hash_val\n";    #18行
    $count{$_}++;
    #$count{$_}=$count{$_};
    #$count{$_}+ 1;
    }

##################################
输出的结果是
数组的内容是:
Use of uninitialized value in concatenation (.) or string at D:\workspace\perl\hash.pl line 18.
hwllo
数组的内容是:
hello
数组的内容是:
yaya
数组的内容是:
llll
数组的内容是:
hwllo
数组的内容是:
hwllo
数组的内容是:
baby
数组的内容是:
llll
test hash##########
(hwllo)
now hashh is:
(hello)
now hashh is:
(yaya)
now hashh is:
(llll)
now hashh is:
(hwllo)
now hashh is:1
(hwllo)
now hashh is:2
(baby)
now hashh is:
(llll)
now hashh is:1
Use of uninitialized value in concatenation (.) or string at D:\workspace\perl\hash.pl line 18.
Use of uninitialized value in concatenation (.) or string at D:\workspace\perl\hash.pl line 18.
Use of uninitialized value in concatenation (.) or string at D:\workspace\perl\hash.pl line 18.
Use of uninitialized value in concatenation (.) or string at D:\workspace\perl\hash.pl line 18.



哪位高人幫忙講解下foreach裏邊
$count{$_}++;時散列的變化,哪怕只講一兩個數組元素

暈,輸入法怎麽突然變成了繁體的?

[ 本帖最后由 yuio654 于 2007-11-9 18:06 编辑 ]

JasonLee8872

Hash初始化了，那个Key-Value对没有初始化。
运行一下下面的代码可能会对你的理解有帮助：

#use warnings;
use strict;
my %aa;
$aa{"a"};
print keys %aa;      #produce nothing
print "\n";
$aa{"a"}++;
print keys %aa;      #produce "a"

Lonki

原帖由 yuio654 于 2007-11-9 17:30 发表


不是未初始化

#!/usr/bin/perl -w
use strict;
my @people=qw/hwllo hello yaya llll hwllo hwllo baby llll/;
foreach (@people)
{
    print "数组的内容是:\n";
    print"$_\n";
    }
my % ...

这还不是初始化????
你print一个undef自然这样.
但是对一个undef做++结果就是1了

yuio654

晕，原来是跟数组的上下文搞混了，如果是数组的话，自加应该是数组的个数自加
散列的话，$count{$_}++;
$count{$_}应该是被替换成%count的keys $_对应的values,
应该是散列的值自加，第一次应该是undef+1，

另外，标量可以是undef，但是print undef会报这个错
“Use of uninitialized value in concatenation (.) or string ”
不知道这样理解对不对？


感谢cu,感谢perl,感谢JasonLee8872，Lonki ……:wink:

perljoker

原帖由 yuio654 于 2007-11-12 17:14 发表
晕，原来是跟数组的上下文搞混了，如果是数组的话，自加应该是数组的个数自加
散列的话，$count{$_}++;
$count{$_}应该是被替换成%count的keys $_对应的values,
应该是散列的值自加，第一次应该是undef+1，
...

这和申明一个变量，然后不赋值一个意思啊，对于不赋值的变量，你print，他当然说你使用了未初始化的变量
还是lonki兄那句话，未初始化的意思

[ 本帖最后由 perljoker 于 2007-11-13 10:31 编辑 ]