Perl5 split 函数的使用详细讲解_语言综合

概述文章来源与：http://perlmaven.com/perl-split 翻译：扬眉剑（GRC）rongchaogao@gmail.com Table of Contents 1 一个简单的例子 2 限制分成几分 3 通过split给标量赋值 4 用更复杂的正则分割 5 按照多种字符分割 6 分割字符 1 一个简单的例子 1: use Data::Dumper;2: my $str =

文章来源与：http://perlmaven.com/perl-split 翻译：扬眉剑（GRC）rongchaogao@gmail.com

table of Contents 1 一个简单的例子 2 限制分成几分 3 通过split给标量赋值 4 用更复杂的正则分割 5 按照多种字符分割 6 分割字符 1 一个简单的例子

1:  use Data::Dumper;2:  my $str  = "ab cd ef gh ij";3:  my @word = split/\s+/,$str;4:  print Dumper(\@word);

结果：

1:  $VAR1 = [2:            'ab',3:            'cd',4:            'ef',5:            'gh',6:            'ij'7:          ];8:

2 限制分成几分

 1:  use Data::Dumper; 2:  my $str  = "ab cd ef gh ij"; 3:  my @word = split/\s+/,$str,2; 4:  #添加一个参数2，这里整个字符串就被从前往后分成了两部分 5:  print Dumper(\@word); 6:  =结果 7:  $VAR1 = [ 8:            'ab', 9:            'cd ef gh ij'10:          ];11:  =cut12:  use Data::Dumper;13:  my $str  = "ab cd ef gh ij";14:  my @word = split/\s+/,3;15:  print Dumper(\@word);16:  =结果17:  $VAR1 = [18:            'ab',19:            'cd',20:            'ef gh ij'21:          ];22:  =cut

3 通过split给标量赋值方法一：

 1:  my $str  = "ab cd ef gh ij"; 2:  my ($first,$second,$third,$four,$five) = split/\s+/,$str; 3:  print "first $first\nsecond $second\nthird $third\nfour $four\nfive $five\n"; 4:   5:  =结果 6:  first ab 7:  second cd 8:  third ef 9:  four gh10:  five ij

方法二：

上面的程序可以达到我们的需求，但是，如果我们只需要其中的2个值。那么上面的程序就很繁琐了。我们可以用下面改进的办法；

 1:  my $str  = "ab cd ef gh ij"; 2:  my @word=split/\s+/,$str; 3:  my $third=@word[2]; 4:  my $five =@word[4]; 5:  print "third $third\nfive $five\n"; 6:   7:  =结果 8:  third ef 9:  five ij10:

方法三：

上面的方法也成功的实现了我们的需求，但还是不够简洁，我们还可以通过下面的方法：

1:  my $str  = "ab cd ef gh ij";2:  my ($third,$five)=(split/\s+/,$str)[2,4];3:  print "third $third\nfive $five\n";4:  =结果5:  third ef6:  five ij

@H_502_207@4 用更复杂的正则分割

首先还是一个简单的例子；

 1:  use Data::Dumper; 2:  my $str="fname    = Foolname =    baremail=foo@bar.com"; 3:  my @array=split/=/,$str; 4:  print Dumper(\@array); 5:   6:  =结果 7:  $VAR1 = [ 8:            'fname    ', 9:            ' Foolname ',10:            '    baremail',11:            'foo.com'12:          ];

上面的结果有什么不妥的地方呢？我们发现分成的四部分中有空格的存在，而空格未必是我们想要的。所以我们要对程序进行改进

 1:  use Data::Dumper; 2:  my $str="fname    = Foolname =    baremail=foo@bar.com"; 3:  my @array=split/\s*=\s*/,$str; 4:  print Dumper(\@array); 5:   6:  =结果 7:  $VAR1 = [ 8:            'fname', 9:            'Foolname',10:            'baremail',11:            'foo.com'12:          ];

我们还可以这样控制

 1:  use Data::Dumper; 2:  my $str="fname    = Foolname =    baremail=foo@bar.com"; 3:  my @array=split/\s+=\s+/,$str; 4:  print Dumper(\@array); 5:  =结果 6:  $VAR1 = [ 7:            'fname', 8:            'Foolname', 9:            'baremail=foo.com'10:          ];

上面的字符串$str有3个等号，我们最后的结果却只分成了三分。因为我们在分割的时候，要求必须=两侧有空格的才进行分割。所以最后的一个等号两侧没有被分割。

5 按照多种字符分割 @H_590_301@

我们有这么一个字符串"fname=Foo&lname=bar&email=foo@bar.com"我们既想用“=”分割，也想用“&”分割。怎么做到呢？

 1:  use Data::Dumper; 2:  my $str = 'fname=Foo&lname=bar&email=foo@bar.com'; 3:  my @user = split /[=&]/,$str; 4:  print Dumper (\@user); 5:  =结果 6:  $VAR1 = [ 7:            'fname', 8:            'Foo', 9:            'lname',10:            'bar',11:            'email',12:            'foo@bar.com'13:          ];

6 分割字符

也许我们有时候还会有这样的要求“hello world”把这个字符串按照字符来分割，分割成"h""e""l" 等等。

 1:  use Data::Dumper; 2:  my $str = "Hello World"; 3:  my @chars = split //,$str; 4:  print Dumper(\@chars); 5:   6:  =结果 7:  $VAR1 = [ 8:            'H', 9:            'e',10:            'l',11:            'l',12:            'o',13:            ' ',14:            'W',15:            'o',16:            'r',17:            'l',18:            'd'19:          ];