split的疑惑~~~~

justto

我现在学perl用的是一套电子教程，写得不是很深入，有些地方写得很朦胧，看得我一头雾水，介绍split用法也是一样，我想烦请哪位DX举个例子给我说一下split的用法 :help

KornLee

是splice吧,用于拼接数组的 ?

justto

split是用于分割字符串的

KornLee

举俩个例子:
1这个例子检测键入的$_,如果输入4个字母的单词则显示Yes,否则显示No

1. /home/javalee#perl -
   
2. while(<>){for(split){if(/^\w{4}$/){print "Yes!!!\n"}else{print "error!!!\n"}}};__END__
   
3. linux
   
4. error!!!
   
5. shell
   
6. error!!!
   
7. perl
   
8. Yes!!!
   
9. exit
   
10. Yes!!!
    
11. quit
    
12. Yes!!!
    
13. Quit
    

复制代码

2这个例子将split返回的表中提取多个单词

1. /home/javalee#perl -
   
2. $,=" ";
   
3. print ((split ' ','I Love Linux and Perl!')[0,4],"\n");
   
4. __END__
   
5. I Perl!
   

复制代码

justto

谢谢~~

devel

这里有split 的解释。在置顶也有些例子。。。

1. 
   
2. split ([/PATTERN/], [EXPR], [LIMIT])
   
3. 
   
4. Category: Array, Regular Expression
   
5. Return Value in Scalar Context: Not recommended, but it returns the number of fields found and stored the fields in the @_ array.
   
6. Return Value in Array Context: A list of fields found in EXPR or $_ if no expression is specified.
   
7. Definition: Splits a string expression into fields based on the delimiter specified by PATTERN. If no pattern is specified whitespace is the default. An optional limit restricts the number of elements returned. A negative limit is the same effect as no limit. This fuNCtion is often used in conjuNCtion with join() to create small text databases.
   
8. 
   
9. @fields = split(/:/, "1:2:3:4:5");
   
10. 
    
11. 
    

复制代码

1. 
   
2. #!/usr/bin/perl -w
   
3. #@list=split(parrern,sting,maxlength);
   
4. #
   
5. @text=("well","hello,the world","how","do","you","do");
   
6. print "@text\n";
   
7. @name=split(/,/,@text,2);
   
8. print "@name\n";
   
9. print "@text\n";
   
10. $abc = "apile:fjkdfk:300:500:XXX:/bin/bash";
    
11. 
    
12. @abc = split(/:/,$abc);
    
13. print "@abc\n";

复制代码