关联数组赋值 [复制链接]

电梯直达

1楼 [收藏(0)] [报告]

发表于 2003-10-10 21:13 |只看该作者 |倒序浏览

#/usr/bin/perl
$inputline = <STDIN>;;
chop ($inputline);
$inputline =~ s/^\s+|\s+\n$//g;
%fruit = split(/\s+/,$inputline);
printf ("Number of bananas

fruit{\"bananas\"}\n"

;

这个例子是把split( )函数的返回值，一个列表赋给一个关联数组的，

$inputline =~ s/^\s+|\s+\n$//g;
%fruit = split(/\s+/,$inputline);

请哪位老兄帮我解释一下这两句的意思，多谢了，

2楼 [报告]

发表于 2003-10-10 22:52 |只看该作者

关联数组赋值

把開頭的空白和結尾的空白清掉留下中間的string..
然後用空白去split 剩下來的string將他們放入hash中
例如
aaa bbb ccc ddd \n
1.變成aaa bbb ccc ddd
2.$hash{aaa} = bbb;
$hash{ccc} = ddd;