perl plusieurs lignes de substitution

Question

j'ai un fichier qui ressemble à:

<QUERY name="Secondary"> 
      <SQLStmt>select * from my_tb; 
      </SQLStmt> 
<QUERY name="primary"> 
      <SQLStmt>select * from my_tb; 
      </SQLStmt> 

<QUERY name="last"> 
      <SQLStmt>select * from my_tb; 
      </SQLStmt> 

je dois remplacer les SQLStmnts avec d'autres SQLStmnts et Nom de la requête que je recevais de commandline.

Comment puis-je utiliser une condition pour faire correspondre et substituer?

$qury_nm=shift; 
$sqlstmt=shift; 
undef $/; 
if(/<QUERY name="$qury_nm">(.*)<SQLStmt>(.*)<\SQLStmt>/) 
{ 
    #need help here!! 
    substitute the matched qury_nms SQLStmt wth the $sqlstmt and write it into the same file... 
} 

Answer 1

Voici un chemin à parcourir:

#!/usr/bin/perl 
use 5.10.1; 
use warnings; 
use strict; 

my $qury_nm = 'primary'; 
my $sqlstmt = 'SELECT col1,col2 FROM table2'; 
undef $/; 
my $str = <DATA>; 

$str =~ s!(<QUERY name="$qury_nm">.*?<SQLStmt>).*?(</SQLStmt>)!$1$sqlstmt$2!s; 
say $str; 

__DATA__ 
<QUERY name="Secondary"> 
      <SQLStmt>select * from my_tb; 
      </SQLStmt> 
<QUERY name="primary"> 
      <SQLStmt>select * from my_tb; 
      </SQLStmt> 

<QUERY name="last"> 
      <SQLStmt>select * from my_tb; 
      </SQLStmt> 

Sortie:

<QUERY name="Secondary"> 
      <SQLStmt>select * from my_tb; 
      </SQLStmt> 
<QUERY name="primary"> 
      <SQLStmt>SELECT col1,col2 FROM table2</SQLStmt> 

<QUERY name="last"> 
      <SQLStmt>select * from my_tb; 
      </SQLStmt> 

Answer 2

XML est pas une langue régulière. You should not treat it as such. Utilisez l'un des analyseurs syntaxiques XML disponibles pour Perl. Un bon moyen pourrait être d'utiliser XML :: Twig. Voici un tutoriel: http://www.xml.com/pub/a/2001/03/21/xmltwig.html.