用什么方式可以删除文本中的一段文字（perl编程）

baojiewu · 发表于 2013-6-24 14:54:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

用什么方式可以删除文本中的一段文字（perl编程）

sjtusonic · 发表于 2013-6-24 16:04:38

回复 1# baojiewu

perl -p -e "s/you_words//g" your_file.txt

baojiewu · 发表于 2013-6-24 17:29:50

回复 2# sjtusonic

text文本如下：

dn:xxxxxxx
objectclass：xxxxxxxx
cn:xxxxxxxx
mail:xxxxxxxx

dn:yyyyyyyy
objectclass：xxxxxxxx
cn:xxxxxxxx
mail:xxxxxxxx

如果删除第一段文本，用你的那种方法可行吗？

sjtusonic · 发表于 2013-6-25 08:58:27

回复 3# baojiewu

o ，这得多编一编了，设个flag，开始置1进行删除
当检测到：
dn:yyyyyyyy行时，flag=0，停止删除

kunfun2002 · 发表于 2013-8-31 17:22:14

這應該是要搭配讀檔案還有刪除完之後要自動寫入存檔案

steve2011 · 发表于 2013-9-6 08:26:23

s/match patten//g

why311 · 发表于 2013-9-6 10:02:29

#!/usr/bin/perl -w
use strict;
$^I = ".bak";

my $i = 1;
while (<>) {
if ($i <= 5) {
}
else {
print "$_ \n";
}
$i++;
}

eason0821 · 发表于 2013-9-18 17:20:04

不懂,學習一下!!

vien_gao · 发表于 2014-5-11 11:22:00

perl -n -e 'print unless $.>4'

[求助] 用什么方式可以删除文本中的一段文字（perl编程）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

站长推荐 /3