perl如何定位到指定的行数

youngbit007

各位大虾，
$CH="/prog/Ch.txt.test";
open(CH,"+<$CH") or die "Couldn't open the file Ch.txt";
@var=<CH>;;
$test=join('',@var);

$pos=index($test,"\n",9);
seek(CH,$pos,0);

这样可以定位到文本第九行的开头吗？

如果要定位到某一行的开始该怎么做？

跪拜~~~

sjdy521

这样子可以吗？

1. open(CH,"+<$CH");
   
2. while(<CH>){
   
3. if($.==9){
   
4. #do want you want here
   
5. }
   
6. }
   
7. close CH;

复制代码

jason680

直接说,你要做什么....

Perlvim

1. #!perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $CH="/prog/Ch.txt.test";
   
7. open(CH,"+<", $CH) or die "Couldn't open the file Ch.txt";
   
8. my @var=<CH>;
   
9. my $line = 0;
   
10. foreach (@var) {
    
11.     $line++;
    
12.     if ($line == 9) {
    
13.         # do something;
    
14.     }
    
15. }
    

复制代码

youngbit007

各位大虾，用seek能定位到吗？

youngbit007

感谢楼上各位，受用了~
现在想在多问一句，我把文件读到数组里面，然后通过seek \n来定位行数行吗？具体怎么做~~

jason680

忘了seek吧!!!
@var = <CH>;
$var[0] 第一行
$var[1] 第二行
...
$var[8] 就是你要的第九行.....
重点在于你要做什么...

MMMIX

youngbit007 发表于 2012-03-27 13:25
感谢楼上各位，受用了~
现在想在多问一句，我把文件读到数组里面，然后通过seek \n来定位行数行吗？具体怎 ...

当然能，关键是为什么要绕这么几圈？要是那个文件很大，例如 400G，你有那么多内存么？

youngbit007

好的，谢谢诸位了~~~

youngbit007

MMMIX 发表于 2012-03-27 13:41
当然能，关键是为什么要绕这么几圈？要是那个文件很大，例如 400G，你有那么多内存么？

我很想知道要是seek的话怎么做，能给说下吗？多学习点~~~