如何用perl实现简单的分词

西红柿_炒番茄

按空格分词不考虑标点符号，并保存到一个数组或者hash中

比如，hello everybody good evening

把它分成hello，everybody，good，evening四个单词并存在一个数组里。

想了一些C语言的方法，比如，把这句话存在一个字符串数组里，然后读取到空格的时候，指针回溯去取前面的单词。但是。。。貌似perl。。。没有指针，也没有字符串数组。。。

然后又想到放到一个栈里，读到空格的时候，pop之前读取的元素，但是貌似，也不会写。。。

所以各位，有什么好的方法吗。最好能给出实例代码。

rubyish

biru:

1. my $s = 'hello everybody good evening';
   
2. 
   
3. # for array
   
4. my @a = split /\s+/, $s;
   
5. my @b = $s =~ /\w+/g;
   
6. my @c = map split, $s;
   
7. my @d = map /\w+/g, $s;
   
8. 
   
9. # for hash
   
10. my %e = map { $_, 1 } split /\s+/, $s;
    
11. my %f = map { $_, 1 } $s =~ /\w+/g;
    
12. my %g = map { $_, 1 } map split, $s;
    
13. my %h = map { $_, 1 } map /\w+/g, $s;

复制代码

zhlong8

这么暴力，直接列8种方法

rubyish

回复 3# zhlong8
TMTOWTDI
Perl语言的中心思想..
   

afukada

或者

1. use strict;
   
2. use warnings;
   
3. 
   
4. my @a=qw(hello everybody good evening);

复制代码

capfsxl

afukada 发表于 2013-12-12 10:58
或者

还是这厮的直接明了！