perl如何根据字符串调用同名变量

picbhan

比如我一系列数组 @all，...
然后有一系列字符串 $str = 'all at the night', ...
因为每个字符串的第一个单词都有一个同名的数组，然后我需要把字符串中后面的单词都储存到第一个单词对应的数组中，怎么直接利用这个单词调用对应的数组呢？

zhlong8

你应该用个 hash，键为第一个单词值是个数组引用。

picbhan

回复 2# zhlong8

1. no strict qw(refs);
   
2. $str = 'all at this night';
   
3. my @t  = split / /, $str;
   
4. my $name =  shift @t;
   
5. push @{"$name"}, @t;
   
6. print join("\t", @{"$name"}), "\n";

复制代码

这种方法也可以，不需要事先声明变量。不过hash也挺方便的。

zhlong8

回复 3# picbhan


    这就是许多人称 Perl 为 read only 时所指的那类代码。可以干活但作为初学者你会付出养成坏的编程习惯的代价。要是一直这么硬来过不了多久你就会变成 Perl 坚定的反对者，然后换到一门不允许这么干的语言去了。