怎样去掉标点符号

bdwangchen

怎样去掉文章当中开头带逗号的这一行并让下一行顶上来
原文件:
谢金虎 NR I-NP
,  PU I-NP
张持坚 NR I-NP
改完之后:
谢金虎 NR I-NP
张持坚 NR I-NP
谢谢大家了!

flw

sed '/,/d' /path/to/your/file

bdwangchen

能说的 详细一点吗?是这样吗?
#!/usr/bin/perl
open (FILEIN,"e:\\3.txt;
while( <FILEIN> ){
sed '/,/d' /path/to/your/FILEIN
}

[ 本帖最后由 bdwangchen 于 2008-5-22 16:30 编辑 ]

Monox

s/\n,.*$//g
二楼使用的不是perl而是sed

[ 本帖最后由 Monox 于 2008-5-22 16:34 编辑 ]

bdwangchen

那是不是要改成这样?
#!/usr/bin/perl
open (FILEIN,"e:\\3.txt;
while( <FILEIN> ){
$readline=~s/\n,.*$//g
chomp($readline);
}

zhuomingliang

竟然有这么傻的人，连运行都不会。

[ 本帖最后由 zhuomingliang 于 2008-5-22 17:35 编辑 ]

bdwangchen

想帮就帮,不帮就别说风凉话.难道你开始学习perl的时候就什么都明白?凡事都要有个过程吧!

zhuomingliang

原帖由 bdwangchen 于 2008-5-22 21:54 发表
想帮就帮,不帮就别说风凉话.难道你开始学习perl的时候就什么都明白?凡事都要有个过程吧!

那你也自己运行一下看看可行不可行呀，写个程序也不亲自运行一下看看效果，就问别人这样可以不可以。

[ 本帖最后由 zhuomingliang 于 2008-5-22 22:41 编辑 ]

sunny67892000

try this one:

#!/usr/bin/perl

open (FILEIN,"e:\\3.txt");
@d=<FILEIN>;
close (FILEIN);
foreach $x (@d) {
if ($x !~ /,/) { put the line into an output file;}

drunkedcat

perl -p -i -e "s/^,.*\n//g"  somefile.txt

如果不放心，可以不用 -i 选项