Comment tronquer une chaîne d'une longueur spécifique en perl?

Je suis juste incapable de trouver "tronquer une chaîne d'une longueur spécifique" en Perl.
Est-il construit en chemin?

Mise à JOUR:

d'entrée: $str = "abcd";

de sortie (truncate pour 3 caractères): $str est abc

  • Pouvez-vous fournir un échantillon d'ENTRÉE/de SORTIE pour plus de clarté ?
InformationsquelleAutor SS Hegde | 2013-01-21
  1. 37

    Vous souhaitez utiliser le substr() fonction.

    $shortened = substr( $long, 0, 50 ); # 50 characters long, starting at the beginning.

    De plus, l'utilisation perldoc

    perldoc -f substr

    Dans votre cas, il serait:

    $str = 'abcd';
$short = substr( $str, 0, 3 );
    • Merci pour la réponse 🙂
    InformationsquelleAutor Andy Lester
  2. 9

    Pour une chaîne de longueur arbitraire, où tronquer durée peut être plus longue que la longueur de la chaîne, j'opterais pour une substitution

    $str =~ s/.{3}\K.*//s;

    Pour des chaînes plus courtes, la substitution ne correspond pas et la chaîne ne sera pas modifié. La pratique \K d'échappement peut être remplacé par un lookbehind affirmation, ou une simple capture:

    s/(?<=.{3}).*//s   # lookbehind
s/(.{3}).*/$1/s    # capture
    • Note pour ceux qui sont intéressés: en perl v5.20 (au moins), la longueur de l'assertion arrière est ici limité à 255.
    InformationsquelleAutor TLP
  3. 3

    Tant que votre chaîne d'origine est au moins de 3 caractères, vous pouvez utiliser un appel à substr comme une lvalue.

    my $str = "abcd";
substr($str, 3) = "";
print "$str\n";   # prints "abc"

    La longueur initiale de la chaîne doivent être vérifiées, comme si il est plus court de 3 caractères, la valeur de retour de cet appel à substr ne peut pas être assigné (voir perldoc -f substr pour plus d'informations) et d'essayer de le faire causer une erreur.

    InformationsquelleAutor chepner
  4. 3

    Il est probablement utile de mentionner également que, au lieu de substr() ou des expressions régulières, vous pouvez utiliser printf ou sprintf.

    Voir perldoc -f sprintf :

    Pour les conversions de chaînes, la spécification d'une précision tronque la chaîne d'
    ajustement de la largeur spécifiée:

      printf '<%.5s>', "truncated";   # prints "<trunc>"
  printf '<%10.5s>', "truncated"; # prints "<     trunc>"
    InformationsquelleAutor mivk
  5. 1

    Si je comprends bien, vous devez faire comme php wordwrap() une chaîne de caractères, donc :

    use Text::Format;
print Text::Format->new({columns => 50})->format($string);

    Si vous avez juste besoin de les N premiers caractères :

    print substr $string, 0, 50;
    InformationsquelleAutor Gilles Quenot
  6. 1

    Ou vous pouvez utiliser regexp à faire de même.

    #!/usr/bin/perl -w

use strict;

my $str = "abcd";

$str =~ /(\w{0,3})/;
print $1;
    InformationsquelleAutor Krishnachandra Sharma
  7. 1

    La façon la plus naturelle est d'utiliser substr pour extraire la partie que vous voulez:

    $first_n = substr($string, 0, $n);

    Si vous souhaitez uniquement modifier la chaîne et que vous êtes certain qu'il est au moins à la longueur souhaitée:

    substr($string, $n) = '';

    Si vous n'êtes pas certain, vous pouvez faire:

    use List::Util "min";
substr($string, min($n, length($string))) = '';

    ou intercepter l'exception:

    eval { substr($string, $n) = '' };
    InformationsquelleAutor ysth