Ändern Sie die letzten beiden Zeichen einer Zeichenkette in Perl

Ich bin auf der Suche nach einer Lösung für ein problem:

Habe ich die NSAP-Adresse, die ist 20 Zeichen lang:

39250F800000000000000100011921680030081D

Habe ich jetzt ersetzen Sie die letzten zwei Zeichen des Strings mit F0 und die abschließende Zeichenfolge sollte wie folgt Aussehen:

39250F80000000000000010001192168003008F0

Meine aktuelle Umsetzung hackt die letzten zwei Zeichen und hängt F0 es:

my $nsap = "39250F800000000000000100011921680030081D";

chop($nsap);

chop($nsap);

$nsap = $nsap."F0";

Gibt es einen besseren Weg, dies zu erreichen?

InformationsquelleAutor Shree | 2010-12-07
  1. 22

    Können Sie substr:

    substr ($nsap, -2) = "F0";

    oder 

    substr ($nsap, -2, 2, "F0");

    Oder Sie können mit einem einfachen regex:

    $nsap =~ s/..$/F0/;

    Dies ist aus substr's manpage:

       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 0, or whatever you've
           set $[ to (but don't do that).  If OFFSET is nega-
           tive (or more precisely, less than $[), starts
           that far from the end of the string.  If LENGTH is
           omitted, returns everything to the end of the
           string.  If LENGTH is negative, leaves that many
           characters off the end of the string.

    Nun, der interessante Teil ist, dass das Ergebnis substr können verwendet werden, als lvalue und zugeordnet werden:

               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".

    oder verwenden Sie den Ersatz Feld:

               An alternative to using substr() as an lvalue is
           to specify the replacement string as the 4th argu-
           ment.  This allows you to replace parts of the
           EXPR and return what was there before in one oper-
           ation, just as you can with splice().
    InformationsquelleAutor Nathan Fellman
  2. 9
    $nsap =~ s/..$/F0/;

    ersetzt die letzten beiden Zeichen einer Zeichenkette mit F0.

    InformationsquelleAutor igor
  3. 5

    Verwenden Sie die substr( ) Funktion:

    substr( $nsap, -2, 2, "F0" );

    chop( ) und den zugehörigen chomp( ) sind wirklich beabsichtigte für das entfernen Zeilenende-Zeichen - Zeilenumbrüche und so weiter.

    Ich glaube, dass substr( ) wird schneller als mit einem regulären Ausdruck.

    InformationsquelleAutor martin clayton
Schreibe einen Kommentar