如何不需要更多的空间，去掉文件的首位注释行？

teleh

谢谢朋友们！！

我再把问题详细说一下：
注释行是为了标记开始和结束的，所以只有头尾两行，文件一共有一亿行左右，不是定值。
现在问题的焦点是空间问题。希望在不要增加空间使用的情况下，用简洁的方式处理掉头
尾行。假如使用grep awk sed，都需要双倍的空间才能完成操作。

ps：文件是给informatic 读取，进行加载的，如果有办法让informatic忽略注释行也可以。

谢谢了！！

r2007

试一下：创建一个命名管道，用grep,sed or awk处理源文件作为输入。然后用informatic加载这个命名管道。

yalp

原帖由 r2007 于 2006-2-20 08:31 发表
试一下：创建一个命名管道，用grep,sed or awk处理源文件作为输入。然后用informatic加载这个命名管道。

能否举个例子,学习一下。

r2007

1. mkfifo pipe #or mknod pipe p
   
2. sed '/^#/d' bigfile >pipe &
   
3. informatic pipe #没用过这个程序，参数自行补充
   

复制代码

woodie

informatic我也没用过。如果它和其它unix程序表现一样，能够从管道接受输入文件，那就很简单了：
sed '/^#/!p' HugeFile | informatic other arguments
如果不能，但是能在命令行接受文件名作为参数，并且你的平台有bash可用，你可以用bash的进程替换：
informatic <(sed '/^#/!p' HugeFile) other arguments
如果informatic是一个图形程序，而且不能在命令行接受文件名作为参数，又或者你没有bash，那么用r2007的方法吧。

flw

非常感谢 yuxh 的思路

1. #!/usr/bin/perl
   
2. $fn = shift;
   
3. open R, "<$fn";
   
4. open W, "+<$fn";
   
5. while(<R>){
   
6.     print W unless /^#/;
   
7. }
   
8. truncate( W, tell(W) );

复制代码

调用：

1. perl foo.pl you-big-file

复制代码

[ 本帖最后由 flw 于 2006-2-21 09:40 编辑 ]

teleh

谢谢了！！
我试试命名管道吧，我想这个应该可以考虑，只要能维护好！

flw的想法也很棒，不过我有点怀疑速度，等我测试以后，回复大家，谢谢了！！

flw

原帖由 teleh 于 2006-2-20 21:19 发表
谢谢了！！
我试试命名管道吧，我想这个应该可以考虑，只要能维护好！

flw的想法也很棒，不过我有点怀疑速度，等我测试以后，回复大家，谢谢了！！

呵呵，我在我的机器上测试过，
10G 的数据，需要将近 9 分钟。
我的配置：
P4 3G
1G 内存
SATA 硬盘，转速不详
Linux 2.6.10
Perl 5.8.5

[ 本帖最后由 flw 于 2006-2-21 09:42 编辑 ]

pvb1979

原帖由 r2007 于 2006-2-20 08:31 发表
试一下：创建一个命名管道，用grep,sed or awk处理源文件作为输入。然后用informatic加载这个命名管道。

这个命名管道和我们常用的管道有什么区别？

waker

最重要的是这个管道有名字

另外不用的时候要显式删除