求助： 关于读取文件

james_zhenghao

请问我要读取文件的某一行的数据，数据间有空格和冒号，我该怎么写？
咧如： MY HOUSE NO : 602
我要print 602,我的写法是 $num = ~ /^/MY HOUSE NO : /

langren868

只是为了得到":"后面的数字？

james_zhenghao

是的，谢谢！

zhlong8

捕获数字用 /(\d+)/， 如果成功值在 $1 里面

去看下 perlretut 很简单的

james_zhenghao

那如果要数字和字母一起呢？ 比如： MU652
perlretut 可以给我个资料吗？ 谢谢！

zhlong8

http://perldoc.perl.org/perlretut.html

中文置顶里面有，不过可能不是最新版

你把需求说全面点，RE中每个字符都有意义，一点差不得

james_zhenghao

#!/usr/local/bin/perl
   my @lines;
   my $file = `ls *.doc`;
if(!open(file_in, "<$file"))
   {  
      print "Can't find File $file!\n";
      exit(0);      
   }
   else
   {
      $z=0;
      while($lines[$z]=<file_in>)
      {
         chomp($lines[$z]);
         $z++;
      }
   }
   
   $counter = 0;
   for ($count=0;$count<=$#lines;$count++)
   {
     if ($lines[$count] =~ /^FIGHT NO : /)
      {
         my $templine = $lines[$count];
         $templine =~ s/\s+/ /g;
         my @temp = split(/\s/,$templine);         
         $value = $temp[1];
         $value =~ s/\s+//g;
         $DEVICE = $value if ($lines[$count] =~ /^FIGHT NO : /);
      }
    }
print $DEVICE;
print "\n";

我要读取的文件如下
FIGHT NO : MU827
SEAT
8A

james_zhenghao

还有，8A这个数据有方法提取吗？ 多谢zhlong8 了~~

zhlong8

楼主你从 C 转过来的吧？这 perl 写的简直一悲剧啊

8A 那个有什么规则？

perl -ne 'print $1, "\n" if /^FIGHT NO :\s*(.*)$/' x.doc

或者

1. #!/usr/local/bin/perl -w
   
2. use strict;
   
3. 
   
4. while (<>) {
   
5.     if (/^FIGHT NO :\s(.*)$/) {
   
6.         print $1, "\n";
   
7.     }
   
8. }

复制代码

langren868

楼上的哥们，别这么说撒，大家都是新手，得慢慢来啊，哪能个个都像你这么炉火纯青嘛，太打击人了也