Comment puis-je réorganiser l'ordre des éléments dans ce modèle, en utilisant Perl?

Question

Comment pouvez-vous convertir les correspondances suivantes au résultat donné?

Mes fichiers ont les matches suivants

-- cut -- 
Lorem ipsun Hello lorem ipsun { $hello } 
@param integer $question_id     // example of the match 
Lorem ipsun Hello lorem ipsun { $hello } 
-- cut -- 

Je voudrais les changer efficacement à

@param $question_id integer 

Ma tentative de pseudo-code

perl -i.bak -pe `s/(@param) (\\w) ($\\w)/$1 $3 $2/` 

Answer 1

Vous voulez dire (En supposant bash shell):

perl -i.bak -pe 's/(\@param) (\w+) (\$\w+)/$1 $3 $2/' 

Answer 2

s/(\@param)\s+(\w+)\s+(\$\w+)/$1 $3 $2/g 

Answer 3

je ne serais probablement aller soit très générique:

perl -i.bak -pe 's/^(\@param)(\s+)(\S+)(\s+)(\S+)/$1$2$5$4$3/' 

ou très spécifique:

perl -i.bak -pe 's/^(\@param)(\s+)(\$[_a-zA-Z]\w*)(\s+)(integer|long|char)(\s+)$/$1$2$5$4$3$6/' 

en fonction des données. Les choses à surveiller sont l'interpolation de chaîne de $ identifiant dans le shell et les interpolations de chaînes de @param et $identifier en Perl. Le premier est géré en utilisant des guillemets simples sur le shell (pour empêcher l'interpolation) et le second est géré en échappant au @ et au $ (ou en utilisant une classe de caractères qui évite d'avoir à correspondre explicitement au $).