Fonction substr() en Perl

Dans le langage de programmation Perl, il ya une fonction intégrée substr(). Cette fonction est utilisée lors de la manipulation de chaînes. Avec l'aide de cette fonction, vous pouvez obtenir une partie de la ligne, ou de remplacer une partie d'une chaîne par une autre chaîne.

Voici un exemple d'obtenir une partie d'une chaîne:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';

print "'" . substr($str, 7, 5) . "'";

Ce programme affiche le texte 'world'. L'appel de la fonction substr($str, 7, 5) dit que besoin d'obtenir à partir d'une chaîne $str les cinq caractères, à partir de la septième position. Lors de cette utilisation la valeur $str ne change pas.

Lors de l'utilisation de la fonction substr() avec quatre arguments, il se produit un changement de la valeur de la variable. Voici un exemple d'utilisation substr() pour le remplacement:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';

print "'" . substr($str, 7, 5, 'you') . "'\n";
print $str;

La sortie du programme:

'world'
Hello, you!

La valeur de retour lors de l'appel de substr($str, 7, 5, 'you') , c'est exactement le même que lors de l'appel substr($str, 7, 5), mais l'appel avec quatre arguments encore et a changé la valeur de la variable. Le mot world a été remplacé par le you. Veuillez noter que le remplacement est correctement même en dépit du fait que dans l'ancien mot dans le nouveau mot d'un nombre différent de des lettres.

Les arguments

my $str1 = substr($str, $offset);
my $str2 = substr($str, $offset, $length);
my $str3 = substr($str, $offset, $replacement);

La fonction substr() , vous devez spécifier deux, trois ou quatre arguments.

Dans ce cas, si vous essayez d'utiliser la fonctionnalité substr() sans arguments, ou avec un l'argument, ce serait une erreur:

Not enough arguments for substr at script.pl line 3, near "substr()"
Execution of script.pl aborted due to compilation errors.

Lors de l'utilisation de deux arguments substr($str, $offset) , la fonction renvoie tous les caractères de la chaîne de $str à partir de caractère à la position $offset et jusqu'à la fin de la ligne.

Lors de l'utilisation de trois arguments substr($str, $offset, $length) , la fonction renvoie $length caractères de la chaîne $str à partir de caractère à la position $offset.

Lors de l'utilisation de substr() avec deux ou trois arguments, la valeur initiale de la chaîne ne change pas.

Lors de l'utilisation de quatre arguments substr($str, $offset, $replacement)fonction renvoie la même chose que dans le cas de trois arguments, mais encore remplace dans la chaîne de la valeur obtenue sur $replacement.

La valeur de retour

La fonction substr() peut retourner une undef, ligne.

undef revient dans ce cas, si vous essayez de mettre la main sur un élément de la chaîne selon l'indice qui est plus que la longueur de la chaîne. Voici un exemple de programme qui renvoie undef:

▶ Run
#!/usr/bin/perl

use Data::Dumper;

my $str = 'Hello, world!';
my $str1 = substr($str, 10000);

warn Dumper $str1;

Dans ce cas, si dans le code du programme serait use warnings;, le programme serait encore avancé lancé sur un écran d'avertissement:

substr outside of string at script.pl line 8.

Les valeurs négatives $offset

La fonction substr() vous permet de spécifier des valeurs négatives pour le deuxième argument. Exemple de programme:

▶ Run
#!/usr/bin/perl

my $str = 'Hello, world!';
print substr($str, -3);

Sur l'écran apparaîtra le texte ld! — ce sont les trois derniers caractères de la chaîne de Hello, world!.

Négatif le deuxième argument indique que la position à la fin de la ligne.

Entrée substr($str, -3) tout à fait similaire à substr($str, -3, 3).

Les valeurs négatives $length

La valeur de la troisième argument peut être négatif. Voici un exemple de travail:

▶ Run
#!/usr/bin/perl

use feature qw(say);

my $str = 'Hello, world!';

say substr($str, 7, -1); # world
say substr($str, 7, -2); # worl
say substr($str, 7, -3); # wor

La documentation officielle

Voici la sortie de la commande perldoc -f substr:

    substr EXPR,OFFSET,LENGTH,REPLACEMENT
    substr EXPR,OFFSET,LENGTH
    substr EXPR,OFFSET
            Extracts a substring out of EXPR and returns it. First character
            is at offset zero. If OFFSET is negative, starts that far back
            from the end of the string. If LENGTH is omitted, returns
            everything through the end of the string. If LENGTH is negative,
            leaves that many characters off the end of the string.

                my $s = "The black cat climbed the green tree";
                my $color  = substr $s, 4, 5;      # black
                my $middle = substr $s, 4, -11;    # black cat climbed the
                my $end    = substr $s, 14;        # climbed the green tree
                my $tail   = substr $s, -4;        # tree
                my $z      = substr $s, -4, 2;     # tr

            You can use the "substr" function as an lvalue, in which case
            EXPR must itself be an lvalue. If you assign something shorter
            than LENGTH, the string will shrink, and if you assign something
            longer than LENGTH, the string will grow to accommodate it. To
            keep the string the same length, you may need to pad or chop
            your value using "sprintf".

            If OFFSET and LENGTH specify a substring that is partly outside
            the string, only the part within the string is returned. If the
            substring is beyond either end of the string, "substr" returns
            the undefined value and produces a warning. When used as an
            lvalue, specifying a substring that is entirely outside the
            string raises an exception. Here's an example showing the
            behavior for boundary cases:

                my $name = 'fred';
                substr($name, 4) = 'dy';         # $name is now 'freddy'
                my $null = substr $name, 6, 2;   # returns "" (no warning)
                my $oops = substr $name, 7;      # returns undef, with warning
                substr($name, 7) = 'gap';        # raises an exception

            An alternative to using "substr" as an lvalue is to specify the
            replacement string as the 4th argument. This allows you to
            replace parts of the EXPR and return what was there before in
            one operation, just as you can with "splice".

                my $s = "The black cat climbed the green tree";
                my $z = substr $s, 14, 7, "jumped from";    # climbed
                # $s is now "The black cat jumped from the green tree"

            Note that the lvalue returned by the three-argument version of
            "substr" acts as a 'magic bullet'; each time it is assigned to,
            it remembers which part of the original string is being
            modified; for example:

                my $x = '1234';
                for (substr($x,1,2)) {
                    $_ = 'a';   print $x,"\n";    # prints 1a4
                    $_ = 'xyz'; print $x,"\n";    # prints 1xyz4
                    $x = '56789';
                    $_ = 'pq';  print $x,"\n";    # prints 5pq9
                }

            With negative offsets, it remembers its position from the end of
            the string when the target string is modified:

                my $x = '1234';
                for (substr($x, -3, 2)) {
                    $_ = 'a';   print $x,"\n";    # prints 1a4, as above
                    $x = 'abcdefg';
                    print $_,"\n";                # prints f
                }

            Prior to Perl version 5.10, the result of using an lvalue
            multiple times was unspecified. Prior to 5.16, the result with
            negative offsets was unspecified.

Thèmes connexes

Autres articles