Perl的更換複雜的正則表達式與簡單的方法

Question

我有以下代碼：

#!/usr/bin/perl 

use strict; 
use warnings; 
#use diagnostics; 

use URI qw(); 

my @insert_words = qw(HELLO GOODBYE); 

while (<DATA>) { 
    chomp; 
    my $url = URI->new($_); 
    my $query = $url->query; 

foreach (@insert_words) { 
    # Use package vars to communicate with /(?{})/ blocks. 
    local our $insert_word = $_; 

    local our @queries; 
    if (defined $query) { 
     $query =~ m{ 
      ^(.*[/=])([^/=&]*)((?:[/=&].*)?)\z 
      (?{ 
       if (length $2) { 
      push @queries, "$1$insert_word$2$3"; 
        push @queries, "$1$insert_word$3"; 
        push @queries, "$1$2$insert_word$3"; 
       } 
      }) 
      (?!) 
    }x; 
    } 

     if (@queries) { 
      for (@queries) { 
       $url->query($_); 
       print $url, "\n"; 
      } 
     } 
     else { 
      print $url, "\n"; 
     } 
    } 
} 


__DATA__ 
http://www.example.com/index.php?route=9&other=7 

上面片的代碼正常和產生以下輸出：

http://www.example.com/index.php?route=9&other=HELLO7 <-- precedes the query parameter 
http://www.example.com/index.php?route=9&other=HELLO  <-- replaces the query parameter 
http://www.example.com/index.php?route=9&other=7HELLO <-- succeeds the query parameter and so on for the rest of them.... 
http://www.example.com/index.php?route=HELLO9&other=7 
http://www.example.com/index.php?route=HELLO&other=7 
http://www.example.com/index.php?route=9HELLO&other=7 
http://www.example.com/index.php?route=9&other=GOODBYE7 
http://www.example.com/index.php?route=9&other=GOODBYE 
http://www.example.com/index.php?route=9&other=7GOODBYE 
http://www.example.com/index.php?route=GOODBYE9&other=7 
http://www.example.com/index.php?route=GOODBYE&other=7 
http://www.example.com/index.php?route=9GOODBYE&other=7 

我正在嘗試做什麼

我試圖得到完全相同的輸出如上所示（所以foreach @insert_words先於，替換併成功在URL中的每個查詢參數），但我想用一個更簡單，更容易理解的方法替換複雜的正則表達式方法，但我不知道最好的解決方法。

您對我們的幫助將非常感激，非常感謝

Answer 1

它在文檔中的URI如何處理查詢的描述。 URI::QueryParam模塊提供允許與查詢進行交互的query_param子例程。

use strict; 
use warnings; 
use URI; 
use URI::QueryParam; 

my @words = qw(HELLO GOODBYE); 
my $URL = <DATA>; 
my $uri = URI->new($URL); 

for my $key ($uri->query_param) {     # the keys of the query 
    my $org = $uri->query_param($key);    # keep original value 
    for my $word (@words) { 
     for ("$org$word", $word, "$word$org") { 
      $uri->query_param($key, $_);    # set new value 
      print $uri->as_string, $/;    # print new uri 
     } 
    } 
    $uri->query_param($key, $org);     # restore original value 
} 

__DATA__ 
http://www.example.com/index.php?route=9&other=7 

輸出：

http://www.example.com/index.php?route=9HELLO&other=7 
http://www.example.com/index.php?route=HELLO&other=7 
http://www.example.com/index.php?route=HELLO9&other=7 
http://www.example.com/index.php?route=9GOODBYE&other=7 
http://www.example.com/index.php?route=GOODBYE&other=7 
http://www.example.com/index.php?route=GOODBYE9&other=7 
http://www.example.com/index.php?route=9&other=7HELLO 
http://www.example.com/index.php?route=9&other=HELLO 
http://www.example.com/index.php?route=9&other=HELLO7 
http://www.example.com/index.php?route=9&other=7GOODBYE 
http://www.example.com/index.php?route=9&other=GOODBYE 
http://www.example.com/index.php?route=9&other=GOODBYE7