Perl分割字符串的一个精妙的写法

 1 #!/usr/bin/perl -w
 2 use strict;  3 use warnings;  4 
 5 #分割字符串的一个精妙的写法
 6 sub spliteName  7 {  8     my $fileName = shift ;  9     my $arr_hash_ref = shift ; 10     open my $fd,'<',$fileName or die "open file $fileName error!"; 11     #文件格式如 ： 12  # girl: lily lucy may hallen # 关键字：名字（使用空格分开） 
13     while( <$fd> ) 14  { 15         #这种方法先将属性项保存在$1中去掉，再将剩下的用splite分隔得到数组，非常精妙
16         next unless s/^(.+?):s*// ; 17         $$arr_hash_ref{$1} = [ split ]; 18  } 19 } 20 
21 sub main 22 { 23     my $fileName = "test.txt"; 24     my %array_hash ; 25     spliteName($fileName,%array_hash); 26     print_arr_hash(%array_hash); 27 } 28 main(); 29 
30 sub print_arr_hash 31 { 32     my $arr_hash_ref = shift ; 33     for my $key (keys %$arr_hash_ref) 34  { 35         #注意这里是打印整个数组， 所以记得加上 @ 
36         print "$key:@{$$arr_hash_ref{$key}} n"; 37  } 38 }