請(qǐng)高手解答一個(gè)文件內(nèi)容刪除的問(wèn)題

ludio333

現(xiàn)在有個(gè)文件
假設(shè)內(nèi)容是
abcd   id=1 defg
bda id=2 dfg

。。。

ert id=65535 dvdf
其中每行有一個(gè)id是唯一的
順序也是從1-65535但每行除了id其他內(nèi)容沒(méi)有規(guī)律


現(xiàn)在需要把文件內(nèi)容的
id=32768至id=65535行的數(shù)據(jù)刪除不能留下空行
請(qǐng)問(wèn)有什么效率高一點(diǎn)的辦法嗎
？

我試過(guò)用把32768-65535放在一個(gè)數(shù)組
然后用grep
但是效率太差了 感覺(jué)比while文件再循環(huán)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

回復(fù) 2# zhlong8


    $.不是行號(hào)么。。。
這文件不包含id的行數(shù)是不固定的
我只是寫(xiě)一個(gè)子程序
傳遞進(jìn)去文件名，要?jiǎng)h除的id范圍
現(xiàn)在的想法是把含id的行全部hash
然后按key裝入數(shù)組，再與要?jiǎng)h除范圍的數(shù)組使用Array:iff
找到deleted的數(shù)組；
但是不知道效率怎么樣
等忙完手頭的事情我在實(shí)驗(yàn)一下

yx07004212

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

復(fù)制代碼

回復(fù) 1# ludio333

perlnewbie

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

復(fù)制代碼

ludio333

回復(fù) 7# perlnewbie


    這個(gè)能用？？？
我測(cè)試了一下不行啊

Kitaisky

回復(fù)  perlnewbie


    這個(gè)能用？？？
我測(cè)試了一下不行啊
ludio333 發(fā)表于 2011-09-06 11:46

測(cè)試過(guò)啦，一點(diǎn)問(wèn)題沒(méi)有呀～～

難道你的 Perl 版本太低？？

>5.10

freflying

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