Измените последние два символа строки в Perl

Я ищу решение проблемы:

у меня есть адрес NSAP, который составляет 20 символов:

39250F800000000000000100011921680030081D

теперь я должен заменить последние два символа этой строки на F0 и последняя строка должна выглядеть так:

39250F80000000000000010001192168003008F0

моя текущая реализация отбивает последние два символа и добавляет F0 для этого:

my $nsap = "39250F800000000000000100011921680030081D";

chop($nsap);

chop($nsap);

$nsap = $nsap."F0";

есть ли лучший способ сделать это?

9
perl string

3 ответов

можно использовать substr:

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

или 

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

или вы можете использовать простое регулярное выражение:

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

это 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 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.

теперь, интересная часть заключается в том, что результат substr может использоваться как lvalue, и назначается:

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

или вы можете использовать замена

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

заменяет последние два символа строки на F0.

9

использовать substr ():

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

chop () и связанный chomp () действительно предназначены для удаления символов окончания строки - новые строки и так далее.

Я считаю, что substr () будет быстрее, чем использование регулярного выражения.

5