perl if 匹配中如何屏蔽掉特殊字符$，@, +等的解析。

weichanghe2000

場景：假如/tmp下面有3個子目錄為$b, g++, g@:F。
文件~/a內容如下其下面的子文件大小)：

1. 20  /tmp/$b/b1
   
2. 20  /tmp/$b/b2
   
3. 20  /tmp/$b/b3
   
4. 
   
5. 10  /tmp/g++/g1
   
6. 10  /tmp/g++/g2
   
7. 10  /tmp/g++/g3
   
8. 
   
9. 40  /tmp/g@:F/g1
   
10. 40  /tmp/g@:F/g2
    
11. 40  /tmp/g@:F/g3

復制代碼

現(xiàn)在想把~/a 中包括 /tmp/$b, /tmp/g++, /tmp/g@:F 行的第1列都相加(思路是: 用perl命令行，抓取~/a中包括 關鍵字的行，然后將其第1列相加):

1. my @dir=`ls /tmp`;
   
2. foreach my $one_dir (@dir) {
   
3.         chomp $one_dir;
   
4.         my $size = `perl -ne 'our \$t;
   
5.         \$t+=\$1 if m{^\\s*(\\d+)\\s+$one_dir};
   
6.         END {print "\$t\\n"}' $ENV{HOME}/a`;  
   
7.         print "$size\n";
   
8. }

復制代碼

但是會報錯，原因是 上面的if m{ $one_dir } 中包含了特殊字符$, @, +。
在 if 匹配里面：既能夠 將 $one_dir變量解析為字符串，但是又能夠屏蔽掉字符串里面的特殊字符呢？

附：上面只是一個例子，實際中還可能存在很多其它的特殊字符。

麻煩大家?guī)兔�看下�?br /> 深夜發(fā)帖求助，不容易哈。
多謝

zhlong8

"\Qa+b-c*d\E"  \Q \E 之間所有的非字符都會加 \ ，變成 "a\+b\-c\*d" 也可以用對應的函數(shù) quotemeta

zhlong8

啊，那個叫非數(shù)字字母

weichanghe2000

回復 2# zhlong8

您好，我按照您的方法試了，還是不行。
不論是 "\\Q$one_dir\\E" 或者是 \\Q$one_dir\\E，
都不行。

size結果為空。
麻煩繼續(xù)幫忙看下

zhlong8

回復 4# weichanghe2000


    看清楚啊，\\Q \\E 是什么東西，我就加了一個反斜杠。這是個語法，編譯后相當于字符串連接     '前面的' . quotemeta('QE之間的內容') . '后面的內容'

weichanghe2000

回復 5# zhlong8

版主，您好，用1個\Q \E 也是一樣的哈，$size還是為空。
您可不可以在您那邊也創(chuàng)建一個文件a 和幾個那樣的目錄 試下哈？

文件a如下：

1. 20  /tmp/$b/b1
   
2. 20  /tmp/$b/b2
   
3. 20  /tmp/$b/b3
   
4. 
   
5. 10  /tmp/g++/g1
   
6. 10  /tmp/g++/g2
   
7. 10  /tmp/g++/g3
   
8. 
   
9. 40  /tmp/g@:F/g1
   
10. 40  /tmp/g@:F/g2
    
11. 40  /tmp/g@:F/g3

復制代碼

腳本如下：

1. my @dir=`ls /tmp/spe`;
   
2. foreach my $one_dir (@dir) {
   
3.         chomp $one_dir;
   
4.         print "one_dir: $one_dir\n";
   
5.         my $size = `perl -ne 'our \$t;
   
6.         \$t+=\$1 if m{^\\s*(\\d+)\\s+"\Q$one_dir\E"};
   
7.         END {print "\$t\\n"}' $ENV{HOME}/a`;  
   
8.         print "size: $size\n";
   
9. }

復制代碼

weichanghe2000

回復 6# weichanghe2000


找到原因了，
1.  $one_dir前面還要加一個絕對路徑，
2.  \Q 和 \E 不能用 ""  括起
3.  \Q 和 \E 只用1個\
4.  \d+, \s* 用2個\

多謝版主大神哈。