Perl: s/ (remplacer) et le retour de la nouvelle chaîne

En Perl, l'opérateur s/ est utilisé pour remplacer une partie de la chaîne. Maintenant s/ va modifier son paramètre (la chaîne) en place. Je tiens cependant à remplacer une partie de la chaîne avant l'impression, comme dans

print "bla: ", replace("a","b",$myvar),"\n";

Il y a replace fonction en Perl, ou une autre façon de faire? s/ ne fonctionnera pas directement dans ce cas, et j'aimerais éviter d'utiliser un helper variable. Est-il possible de le faire en ligne?

InformationsquelleAutor sleske | 2010-08-09
  1. 61

    Non testé:

    require 5.013002;
print "bla: ", $myvar =~ s/a/b/r, "\n";

    Voir perl5132delta:

    La substitution de l'opérateur prend désormais en charge une option /r que des copies de la variable d'entrée, effectue la substitution sur la copie et retourne le résultat. L'original reste inchangé.

    my $old = 'cat';
my $new = $old =~ s/cat/dog/r;
# $old is 'cat' and $new is 'dog'
    • wow, nouvelle option, nice
    • Bien whaddya savoir! Très pratique. Si je l'avais su à propos de cela, je ne l'ai utilisé environ 80% du temps!
    • Ah, maintenant je vois qu'il est en fait très récente... Perl 5.13.2. Il est donc encore de l'intérêt à rechercher des solutions de contournement pour les anciennes versions.
    InformationsquelleAutor daxim
  2. 3

    En Perl 5.14 et plus tard, vous pouvez utiliser le /r option avec la substitution de l'opérateur pour effectuer non-destructive de substitution:

    print "bla: ", $myvar =~ s/a/b/r, "\n";

    Alternativement, vous pouvez utiliser un ne() bloc avec une temporaire variable lexicale, par exemple:

    print "bla: ", do { (my $tmp = $myvar) =~ s/a/b/; $tmp }, "\n";
    InformationsquelleAutor Eugene Yarmash
  3. 2
    print "bla: ", $myvar =~ tr{a}{b},"\n";
    InformationsquelleAutor Ali Mohammadi
  4. 1
    print "bla: ", $_, "\n" if ($_ = $myvar) =~ s/a/b/g or 1;
    • Désolé, je ne comprends pas. Pourquoi le "si"?
    • Que faire si $myvar ne contient pas un a. Dans ce cas, $_ serait pas défini. C'est aussi pourquoi l' or 1 a été ajouté dans cette réponse, à force de le print d'aller de l'avant même si il n'y a rien à remplacer. Pas très lisible de l'OMI.
    • ne serait pas défini; il était juste valeur $myvar. Ce est mieux fait que ($_ = $myvar) =~ s/a/b/g, print "bla: ", $_, "\n"
    • Accusé de réception. Vous avez raison. Le or 1 m'a jeté. Alors, le or 1 juste contribuant de bruit sur la ligne?
    • non, le ou 1 permet de s'assurer de la si est vrai si l'impression se produit même - pas nécessaire à l'aide de l'opérateur virgule à la place
    • si rien ne remplace la s///g retourne 0, ce qui équivaut à false et donc, rien n'est imprimé. Le or 1 ou || 1 assure qu'il y aura toujours quelque chose d'imprimé (la chaîne d'origine avec pas de remplacement).

    InformationsquelleAutor unbeli
  5. 0

    Si vous voulez vraiment, vous pouvez faire votre propre, mais je ne le ferais pas parce que vous avez beaucoup plus de fonctionnalités avec s/// ... vous pourriez construire cette fonctionnalité dans votre fonction, mais pourquoi recréer quelque chose qui existe déjà?

    #!/usr/bin/perl -w    

use strict;     

   main();   

   sub main{    
      my $foo = "blahblahblah";          
      print '$foo: ' , replace("lah","ar",$foo) , "\n";  #$foo: barbarbar

   }        

   sub replace {
      my ($from,$to,$string) = @_;
      $string =~s/$from/$to/ig;                          #case-insensitive/global (all occurrences)

      return $string;
   }
    InformationsquelleAutor vol7ron