Match regex et affecter les résultats dans une seule ligne de code

Je veux être en mesure de faire une regex match sur une variable et de lui affecter les résultats de 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 plus court/moyen plus simple de faire cela? Ai-je raté quelque chose?

InformationsquelleAutor | 2010-09-06
  1. 27

    Pourquoi voulez-vous qu'il soit plus court? Ne est vraiment de l'importance?

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

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

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

    Toutefois la mettre en œuvre, le point de la sous-routine est de les rendre réutilisables, afin de vous donner un ensemble de lignes, un nom court qui se tient à leur place.

    • Je préfère cette réponse de l'utilisation de cession conditionnelle à la plus upvoted réponse de ($variable) = $variable =~ /(find).*/ pour les cas où vous souhaitez explicitement que la condition d'affectation si et seulement si le match œuvres.
    InformationsquelleAutor brian d foy
  2. 57
    my($variable) = "some string" =~ /(e\s*str)/;

    Cela fonctionne parce que

    Si le /g option n'est pas utilisée, m// dans un contexte de liste renvoie une liste constituée par les sous-expressions de correspondance par l'parenthèses dans le modèle, c'est à dire, ($1, $2, $3 ...).

    et parce que my($variable) = ... (notez les parenthèses autour de l'scalaire) de fournitures contexte de liste pour le match.

    Si le modèle ne parvient pas à égaler, $variable obtient la valeur undefined.

    • Pour ajouter à la description du contexte de liste. OoO est équivalent à my($foo) = ("bar box" =~ /(soap|box)/);
    • Je vais aussi ajouter un autre exemple. Si vous souhaitez ajouter une chaîne de résultats dans le même appel: my($foo) = map ( "prefix_$_", @{["bar box" =~ /(soap|box)/)]} );. Vous finirais avec "prefix_box" dans ce cas.
    InformationsquelleAutor Greg Bacon
  3. 7

    Vous pouvez faire de la substitution comme:

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

    $a est maintenant "stack"

    • Il y a un problème avec cela, Il suffira de remplacer la variable d'origine si l'ensemble de la chaîne est présente dans le modèle de recherche. Si je devais utiliser, disons, /(\w+)plus de/ pour la correspondance, cela ne marcherait pas.
    • Le motif est arbitraire, les matchs ne sont pas nécessairement commencer ou se terminer par une ligne ou une limite de mot. En tout cas, merci, je suppose qu'il n'y a pas évidemment de la manière la plus simple. Ma principale préoccupation était que je dois le faire souvent, et il semble répétitif.
    • Suis tombé sur ces 2 ans thread via Google, et j'ai l'impression que c'est la bonne réponse. Il suffit de modifier la regex pour s'adapter à vos besoins: /.*(trouver quelque chose).*/$1/;
    • Que faire si vous voulez avoir deux variables-le motif correspondant et l'original
    InformationsquelleAutor codaddict
  4. 6

    Eh bien, vous pourriez dire

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

    ou

    (my $variable = "find something soon") =~ s/^.*?(find something).*/$1/;
    • Je préfère utiliser la définition de la variable séparément pour plus de clarté, mais oui c'est une bonne solution pour une recherche rapide. Merci.
    InformationsquelleAutor Chas. Owens
  5. 4

    Presque ....

    Vous pouvez combiner le match et de récupérer le contenu de la valeur avec une substitution.

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

    Autant que je sache, Vous aurez toujours de copier la valeur du bien, à moins que vous ne se soucient pas de tabasser l'original.

    InformationsquelleAutor Peter Tillemans
  6. 4
    $variable2 = "stackoverflow";
(my $variable1) = ($variable2 =~ /stack(\w+)/);

    $variable1 est maintenant égale à "overflow".

    InformationsquelleAutor Dmitri Lihhatsov
  7. 3

    Je fais ceci: 

    #!/usr/bin/perl

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

    De Perl livre de recettes 2e éd
    6.1 la Copie et la Substitution Simultanée

    $dst = $src;
$dst =~ s/this/that/;

    devient

    ($dst = $src) =~ s/this/that/;

    J'ai supposé que tout le monde a fait de cette façon, étonné de voir que personne n'a donné cette réponse.

    • C'est la substitution (s///), pas un match (m//). Cela ne ferait-il pas utile, mais c'est pourquoi il n'était pas parmi les réponses initiales.
    InformationsquelleAutor user3287506
  9. 1

    Aussi, pour amplifier la accepté de répondre à l'aide de l'opérateur ternaire pour vous permettre de spécifier une valeur par défaut si aucune correspondance n'est trouvée:

    my $match = $variable =~ /(*pattern*).*/ ? $1 : *defaultValue*;
    • Parce que c'déclare $match, cela développe le plus upvoted réponse, permettant ainsi le remplacement de undefined avec *defaultValue* dans une ligne contenant la déclaration de la variable.
    InformationsquelleAutor atrobinson