怎样去掉标点符号

QUOTE:

原帖由 bdwangchen 于 2008-5-22 16:44 发表
那是不是要改成这样?
#!/usr/bin/perl
open (FILEIN,"e:\\3.txt; # 这里在FILEIN之前用了(，在;之前应该用)吧，还有少了个"
while(  ){
$readline=~s/\n,.*$//g # $readline=~可不要，我喜欢直接用默认变量^_^
chomp($readline); # 这里不能使用这句，且你需把$readline的内容在while内部输出
}