请高手解答一个文件内容删除的问题

ludio333

现在有个文件
假设内容是
abcd   id=1 defg
bda id=2 dfg

。。。

ert id=65535 dvdf
其中每行有一个id是唯一的
顺序也是从1-65535但每行除了id其他内容没有规律


现在需要把文件内容的
id=32768至id=65535行的数据删除不能留下空行
请问有什么效率高一点的办法吗
？

我试过用把32768-65535放在一个数组
然后用grep
但是效率太差了 感觉比while文件再循环32768-65535做删除慢

zhlong8

perl -pe "exit if $. == 32768" file

Kitaisky

perl -i.bak -ne 'print unless ($.==32768..65535)' file

RE_HASH

while (<>)
{
$I ++;
last if ($I >32767);
print;
}

Linux的话还可以
head -32767 a.txt > b.txt

ludio333

回复 2# zhlong8


    $.不是行号么。。。
这文件不包含id的行数是不固定的
我只是写一个子程序
传递进去文件名，要删除的id范围
现在的想法是把含id的行全部hash
然后按key装入数组，再与要删除范围的数组使用Array:iff
找到deleted的数组；
但是不知道效率怎么样
等忙完手头的事情我在实验一下

yx07004212

1. sed -i '/id=32768/,/id=65535/d' infile

复制代码

回复 1# ludio333

perlnewbie

1. perl -ne "print unless /id=32768/../id=65535/"

复制代码

ludio333

回复 7# perlnewbie


    这个能用？？？
我测试了一下不行啊

Kitaisky

回复  perlnewbie


    这个能用？？？
我测试了一下不行啊
ludio333 发表于 2011-09-06 11:46

测试过啦，一点问题没有呀～～

难道你的 Perl 版本太低？？

>5.10

freflying

给一段比较笨的代码：
while (<>) {
        @array = split;
        $id = (split "=",$array[1])[1];
        if ( $id >= 32768 ) {
                if ( $id <= 65535) {
                        next;
                }
        }
   print;
}