新人求助 面试时 perl正则匹配题

myuanzhao

在面试时遇到这么一道题：
以下是一个文件的一部分：
block1
    LAYER1
        a0=56, b0=147.345989944561, c0=11.0225098942223
        a1=76, b1=174.434168420681, c1=253.89644118973
        a2=42, b2=117.774925865152, c2=182.422622167185
    LAYER2
        a0=48, b0=164.391521356056, c0=243.612268442083
        a1=56, b1=56.3028265552006, c1=67.3497698774622
        a2=17, b2=182.182082410397, c2=265.689705668802
block2
    LAYER1
        a0=13, b0=98.5005938116799, c0=193.432038047288
        a1=32, b1=173.682215090149, c1=284.746973938173
        a2=80, b2=77.3396633455278, c2=45.913625227217
    LAYER2
        a0=89, b0=6.78883867591011, c0=181.63053325133
        a1=35, b1=51.962410302621, c1=114.479466051294
        a2=57, b2=88.5057901717936, c2=119.906443042102
    LAYER3
        a0=22, b0=135.172781428776, c0=180.32730953417
        a1=89, b1=38.4925211497517, c1=171.120129693275
        a2=53, b2=102.546819074468, c2=235.02212266283
        a3=5, b3=46.5476781394699, c3=69.2620776701364
block3  
     ..........
     ..........
要求利用perl，shell，tcl等语言将block2中的LAYER1和LAYER2中的内容替换为NEED TO REBUILD，替换后如下：

block1
    LAYER1
        a0=56, b0=147.345989944561, c0=11.0225098942223
        a1=76, b1=174.434168420681, c1=253.89644118973
        a2=42, b2=117.774925865152, c2=182.422622167185
    LAYER2
        a0=48, b0=164.391521356056, c0=243.612268442083
        a1=56, b1=56.3028265552006, c1=67.3497698774622
        a2=17, b2=182.182082410397, c2=265.689705668802
block2
    LAYER1
        NEED TO REBULID
    LAYER2
        NEED TO REBULID
    LAYER3
        a0=22, b0=135.172781428776, c0=180.32730953417
        a1=89, b1=38.4925211497517, c1=171.120129693275
        a2=53, b2=102.546819074468, c2=235.02212266283
        a3=5, b3=46.5476781394699, c3=69.2620776701364
block3  
     ..........
我自己的代码如下：
use strict;
my $file_dir="./generated_file";
my $str;
my $block_flag=0;
my $layer_flag=0;
open (IN,"<",$file_dir);
while(<IN>){
  $block_flag=0 if ($block_flag && $_=~/^[\w]*$/);
  $block_flag=1 if ($_=~/^block2/);
  if($block_flag && $_=~/^\tLAYER[12]/){
    $layer_flag=1;
    $str.=$_;
    $str.="\t\tNEED to REBUILD\n";
    next;
  }
  if($layer_flag && $_=~/LAYER/){
    $layer_flag=0;
  }
  next if($layer_flag);
  $str.=$_;
}
close IN;
print $str;

面试官说我写的不好，我想了好久，也没什么好的想法，向各位大神请教，请问我的问题出在哪里了？或者说能不能有更简洁的方法来操作？

523066680

等等，你在哪里面试的？求推荐用perl的公司

523066680

等等，你在哪里面试的？求推荐用perl的公司

myuanzhao

回复 3# 523066680
芯片行业好多在用，数字芯片常用的工具

523066680

1. use File::Slurp;
   
2. 
   
3. my $text = read_file('block.txt');
   
4. my $NTR = "NEED TO REBUILD";
   
5. 
   
6. $text =~s/(block2\s+LAYER1\s+).*?(\s+LAYER2)/$1$NTR$2/si;
   
7. $text =~s/(block2\s+.*?LAYER2\s+).*?(\s+LAYER3)/$1$NTR$2/si;
   
8. 
   
9. print $text;

复制代码

一些建议，如果使用类 C语言，左边花括号最好换行。面试官看代码印象分+1（除非他是异教徒
像下面的句子，该空格的地方空格，该换行的换行，不要太拥挤。

if($block_flag && $_=~/^\tLAYER[12]/){}

可以写成

if ( xxx   and   xxx )
{

}

甚至是：

if (
    xxxxxxxxxxxx
     and
    xxxxxxxxxxxx
   )
{

}

我是业余党，在外贸公司打杂，工作和编程毛关系都没有，但是我很注重风格，严于律己。
最后，思考问题要看到全局，这个问题可以锚定前后关键字，中间直接替换，无需 while 循环。

jason680

回复 1# myuanzhao

只看主要程序部分，程序做什么 !!??

while(<IN>){
  $block_flag=0 if ($block_flag && $_=~/^[\w]*$/);
  $block_flag=1 if ($_=~/^block2/);
  if($block_flag && $_=~/^\tLAYER[12]/){
    $layer_flag=1;
    $str.=$_;
    $str.="\t\tNEED to REBUILD\n";
    next;
  }
  if($layer_flag && $_=~/LAYER/){
    $layer_flag=0;
  }
  next if($layer_flag);
  $str.=$_;
}

hztj2005

写一个，不一定比你的好。

1. use strict;
   
2. open (IN,"<","generated_file");
   
3. open (OUT,">","generated_file2");
   
4. my $block_flag2=0;
   
5. my $layer_flag=0;
   
6. 
   
7. while(<IN>)
   
8. {   
   
9.          if($_=~/^\s*[bl]/i)#block、layer行
   
10.          {
    
11.                    print OUT  $_; #block、layer行全部保留
    
12.                    if ($_=~/block2/)
    
13.                    {
    
14.                            $block_flag2=1;
    
15.                    }elsif($_=~/block3/)
    
16.                    {
    
17.                            $block_flag2=0;
    
18.                    }
    
19.                    
    
20.            if ($block_flag2 && $_=~/^\s*LAYER[12]/)
    
21.            {
    
22.                             print OUT "          NEED to REBUILD\n"; #新增行
    
23.                             $layer_flag=1;#标志删除后面行
    
24.            }elsif ($_=~/^\s*LAYER3/)
    
25.            {
    
26.                      $layer_flag=0;
    
27.            }
    
28.                    
    
29.          }elsif($layer_flag)
    
30.          {          
    
31.            #删除行
    
32.          }else
    
33.          {
    
34.                    print OUT $_;#其余数据行保留
    
35.          }   
    
36. }
    
37. close IN;
    
38. close OUT;
    
39. 
    

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $/ = "\nblock";
   
6. my @aPair = ("    LAYER", "NEED TO REBULID\n");
   
7. while(<DATA>){
   
8.         chomp;
   
9.         (my $n, local $_) = split(/\n/, $_, 2);
   
10.         $n =~ /(\d+)/ and print("block$1\n");
    
11.         if($1 == 2 and /^(\s*LAYER3.*)/ms){
    
12.                 $_ = sprintf("%s1\n\t%s%s2\n\t%s$1", @aPair, @aPair);
    
13.         }
    
14.         print("$_\n");
    
15. }
    
16. 
    
17. __DATA__
    
18. block1
    
19.     LAYER1
    
20.         a0=56, b0=147.345989944561, c0=11.0225098942223
    
21.         a1=76, b1=174.434168420681, c1=253.89644118973
    
22.         a2=42, b2=117.774925865152, c2=182.422622167185
    
23.     LAYER2
    
24.         a0=48, b0=164.391521356056, c0=243.612268442083
    
25.         a1=56, b1=56.3028265552006, c1=67.3497698774622
    
26.         a2=17, b2=182.182082410397, c2=265.689705668802
    
27. block2
    
28.     LAYER1
    
29.         a0=13, b0=98.5005938116799, c0=193.432038047288
    
30.         a1=32, b1=173.682215090149, c1=284.746973938173
    
31.         a2=80, b2=77.3396633455278, c2=45.913625227217
    
32.     LAYER2
    
33.         a0=89, b0=6.78883867591011, c0=181.63053325133
    
34.         a1=35, b1=51.962410302621, c1=114.479466051294
    
35.         a2=57, b2=88.5057901717936, c2=119.906443042102
    
36.     LAYER3
    
37.         a0=22, b0=135.172781428776, c0=180.32730953417
    
38.         a1=89, b1=38.4925211497517, c1=171.120129693275
    
39.         a2=53, b2=102.546819074468, c2=235.02212266283
    
40.         a3=5, b3=46.5476781394699, c3=69.2620776701364
    
41. block3
    
42.     LAYER1
    
43.         a0=89, b1=38.4925211497517, c1=171.120129693299
    
44.         a1=53, b2=102.546819074468, c2=235.02212266299
    

复制代码

myuanzhao

回复 5# 523066680
谢谢您的指导，perl模块真的好用好多，如果遇到一个问题，如何去找对应的模块呢？只能通过平时积累吗？

myuanzhao

回复 8# sunzhiguolu
谢谢您的指导
我之前有想过用split划分模块，将整个文件化成不同的block，但具体操作时就不知道怎么入手了。
第一次知道split可以用的这么巧妙，感觉一下子还没有领悟的很好，可能还会有一些问题，希望您能指点，