perl从文件取行号？

joefun

[quote]原帖由 "笨狗"]不知道你从哪里得到的这种结论 [/quote 发表：


晕，是我自己实验错误！！！   

兰花仙子

原帖由 "joefun" 发表：
perl操作文件时，能不能直接删文件中的空行后在被操作的文件中生效，
而不用写入另外一个文件？

文件不大的话，把文件内容读到数组里，关闭句柄，去掉空行，再重新写入这个文件即可。文件很大的话，这样做就不行了，用cpan模块看看。

笨狗

原帖由 "joefun" 发表：
perl操作文件时，能不能直接删文件中的空行后在被操作的文件中生效，
而不用写入另外一个文件？

可以试试tie:File,文件读入array以后修改array久等于修改文件

joefun

多谢二位，
我再查查资料，试试吧！

HonestQiao

原帖由 "joefun" 发表：
awk与sed当然容易实现，不过现在windows平台下想用perl实现
因为装cygwin很麻烦（网络不好，^_^）

ActivePerl不是可以直接安装在瘟到死下面么？
难道还要死歪鸡瘟么？

joefun

没有用cygwin，正在学习使用activestat的ppm添加模块

joefun

我看安装Tie-File包后生成的Tie/File.html文档时很是迷茫，看得我一头雾水。

"狗狗”兄能否稍微具体点说说Tie::File的使用，来个snippet阐述一下，
感谢之至！   

笨狗

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Fcntl;
   
5. 
   
6. 
   
7. use FindBin;
   
8. use lib "$FindBin::Bin";
   
9. use Tie::File;
   
10. 
    
11. my $filename = "test.txt";
    
12. my @logs;
    
13. tie @logs, 'Tie::File', $filename, mode =>; O_RDONLY
    
14.    or die "Cannot open $filename: $!\n" ;
    
15.    
    
16. for (@logs) {
    
17.   print "$_\n";
    
18. }
    
19. 
    
20. untie @logs;
    

复制代码

@logs的每一行相对应文件的每一行,例如把$logs[0]改为xxx,文件的首行就会被改为xxx
我不知道删掉@logs中的一个元素是否文件的一行也会被删掉,尼可以试试,删array的元素用splice
tie::File读文件的速度偏慢,因为tie::File默认使用的缓存很小,可以根据自己的需要和内存的大小设置缓存大小,具体见官方文档

joefun

多谢，“狗狗”兄的代码！
看来得认认真真的接着看书了