Perl的文本處理

Question

我寫了一個perl腳本whihc將輸出包含類似下面類似的條目列表：

$var = ' whatever' 

是$ var包含：單引號，空格，字什麼，單引號

實際上，這是一個散列的關鍵，我想拉相同的值。但是由於單引號和位置之間的空間，我無法提取散列鍵值。

所以，我想要去除是$ var如下：

$var = whatever 

意味着去掉單引號，空間和後單引號。

這樣我可以使用$ var作爲散列鍵來拉取相應的值。

你能指導我的perl oneliner是否一樣。

thnaks。

Answer 1

#!/usr/bin/perl 
$string = "' my string'"; 
print $string . "\n"; 
$string =~ s/'//g; 
$string =~ s/^ //g; 
print $string; 

輸出

' my string' 
my string 

Answer 2

​​

見：tr operator

，或者由正則表達式

$var =~ s/(?:^['\s]+)|'//g; 

後者將保持在詞的中間空格，前者刪除所有空格和單引號。

一個簡短的測試：

... 
$var = q{' what ever'}; 
$var =~ s/ 
     (?:  # find the following group 
     ^  # at string begin, followed by  
      ['\s]+ # space or single quote, one or more 
     )  # close group 
     |  # OR 
     '  # single quotes in the while string 
     //gx ; # replace by nothing, use formatted regex (x) 
print "|$var|\n"; 
... 

打印：

|what ever| 

如預期。

Answer 3

下面是幾種方法來做到這一點，但要小心 - 修改一個哈希鍵可以用不想要的結果結束，如：

use strict; 
use warnings; 
use Data::Dumper; 

my $src = { 
    "a a"  => 1, 
    " a a "  => 2, 
    "' a a '" => 3, 
}; 
print "src: ", Dumper($src); 
my $trg; 

@$trg{ map { s/^[\s']*(.*?)[\s']*$/$1/; $_ } keys %$src } = values %$src; 
print "copy: ", Dumper($trg); 

會產生：

src: $VAR1 = { 
      ' a a ' => 2, 
      '\' a a \'' => 3, 
      'a a' => 1 
     }; 
copy: $VAR1 = { 
      'a a' => 1 
     }; 

任何正則表達式是可能的請使用YAPE :: Regex :: Explain模塊進行解釋。 （來自CPAN）。對於上述正則表達式：

use YAPE::Regex::Explain; 
print YAPE::Regex::Explain->new(qr(^[\s']*(.*?)[\s']*$))->explain; 

會產生：

正則表達式：

(?-imsx:^[\s']*(.*?)[\s']*$) 

matches as follows: 

NODE      EXPLANATION 
---------------------------------------------------------------------- 
(?-imsx:     group, but do not capture (case-sensitive) 
         (with^and $ matching normally) (with . not 
         matching \n) (matching whitespace and # 
         normally): 
---------------------------------------------------------------------- 
^      the beginning of the string 
---------------------------------------------------------------------- 
    [\s']*     any character of: whitespace (\n, \r, \t, 
          \f, and " "), ''' (0 or more times 
          (matching the most amount possible)) 
---------------------------------------------------------------------- 
    (      group and capture to \1: 
---------------------------------------------------------------------- 
    .*?      any character except \n (0 or more times 
          (matching the least amount possible)) 
---------------------------------------------------------------------- 
)      end of \1 
---------------------------------------------------------------------- 
    [\s']*     any character of: whitespace (\n, \r, \t, 
          \f, and " "), ''' (0 or more times 
          (matching the most amount possible)) 
---------------------------------------------------------------------- 
    $      before an optional \n, and the end of the 
          string 
---------------------------------------------------------------------- 
)      end of grouping 
---------------------------------------------------------------------- 

總之：s/^[\s']*(.*?)[\s']*$/$1/;平均：

• 在字符串匹配的開始空格或撇號儘可能多次，
• 然後在字符串空格或撇號的末尾儘可能多的次數儘可能
• 匹配匹配任何內容，並保持只有「東西」的一部分