怎样去掉标点符号

bdwangchen

UID: 26388
帖子: 1
积分: 2
在线时间: 10 分钟

1^# bdwangchen 发表于 2008-05-22 15:51

怎样去掉标点符号

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-05-22 15:53

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

bdwangchen

UID: 26388
帖子: 1
积分: 2
在线时间: 10 分钟

3^# bdwangchen 发表于 2008-05-22 16:27

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

Monox

UID: 7804
帖子: 78
积分: 179
在线时间: 8 小时

4^# Monox 发表于 2008-05-22 16:33

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

bdwangchen

UID: 26388
帖子: 1
积分: 2
在线时间: 10 分钟

5^# bdwangchen 发表于 2008-05-22 16:44

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

zhuomingliang

UID: 40835
帖子: 179
积分: 411
在线时间: 1 天 19 小时

6^# zhuomingliang 发表于 2008-05-22 17:31

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

bdwangchen

UID: 26388
帖子: 1
积分: 2
在线时间: 10 分钟

7^# bdwangchen 发表于 2008-05-22 21:54

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

zhuomingliang

UID: 40835
帖子: 179
积分: 411
在线时间: 1 天 19 小时

8^# zhuomingliang 发表于 2008-05-22 22:39

QUOTE:

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

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

sunny67892000

UID: 12171
帖子: 183
积分: 420
在线时间: 1 天 21 小时

9^# sunny67892000 发表于 2008-05-23 21:01

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

UID: 45353
帖子: 109
积分: 250
在线时间: 16 小时

10^# drunkedcat 发表于 2008-05-24 16:34

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

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