Correspondre à une expression régulière et affecter des résultats à une seule ligne de code

Question

Je souhaite être en mesure d'effectuer une correspondance regex sur une variable et affecter les résultats à la variable elle-même. Quelle est la meilleure façon de le faire?

Je veux essentiellement combiner les lignes 2 et 3 en une seule ligne de code:

$variable = "some string"; 
$variable =~ /(find something).*/; 
$variable = $1; 

est-il un moyen plus court/plus simple de le faire? Est-ce que je manque quelque chose?

Answer 1

Pourquoi voulez-vous qu'il soit plus court? Est-ce que c'est vraiment important?

$variable = $1 if $variable =~ /(find something).*/; 

Si vous êtes inquiet au sujet du nom de la variable ou de faire cela à plusieurs reprises, envelopper la chose dans un sous-programme et de l'oublier:

some_sub($variable, qr/pattern/); 
sub some_sub { $_[0] = $1 if eval { $_[0] =~ m/$_[1]/ }; $1 }; 

Cependant, vous le mettre en œuvre, le point du sous-programme est de Faites en sorte qu'il soit réutilisable pour que vous donniez à un ensemble particulier de lignes un nom court qui se trouve à leur place.

Answer 2

Vous pouvez le faire en tant que substitution:

$a = 'stackoverflow'; 
$a =~ s/(\w+)overflow/$1/; 

$a est maintenant "stack"

Answer 3

Presque ....

Vous pouvez combiner le match et récupérer la valeur assortie d'une substitution. AFAIK, vous devrez toujours copier la valeur, sauf si vous ne voulez pas écraser l'original.

Answer 4

Eh bien, vous pourriez dire

my $variable; 
($variable) = ($variable = "find something soon") =~ /(find something).*/; 

ou

(my $variable = "find something soon") =~ s/^.*?(find something).*/$1/; 

Answer 5

Je fais ceci:

#!/usr/bin/perl 

$target = "n: 123"; 
my ($target) = $target =~ /n:\s*(\d+)/g; 
print $target; # the var $target now is "123" 

Answer 6

my($variable) = "some string" =~ /(e\s*str)/; 

Cela fonctionne parce que

Si l'option /g est pas utilisée, m// dans un contexte de liste retourne une liste constituée par les sous-expressions reconnus par des parenthèses dans le motif, à savoir , ($1, $2, $3 ...).

et parce que my($variable) = ... (notez les parenthèses autour du scalaire) fournit un contexte de liste pour le match.

Si le motif ne correspond pas, $variable obtient la valeur indéfinie.

Answer 7

$variable2 = "stackoverflow"; 
(my $variable1) = ($variable2 =~ /stack(\w+)/); 

$variable1 est maintenant égal à "overflow".