замените значение переменной и сохраните его в новой переменной

Question

У меня есть код ниже, чтобы заменить значение переменной и сохранить его в новой переменной и оставить исходную переменную неповрежденной.

#!/usr/bin/perl 
$hdisk="hdisk361"; 
($newdisk) = ($hdisk =~ s/(hdisk\D*)(\d+)/(($1 eq "hdiskpower"?"prw":"dsk").$2)/ei); 
print "hdisk: $hdisk"."\n"; 
print "newdisk: $newdisk"."\n"; 

Это дает этот результат:

hdisk: dsk361 
newdisk: 1 

Я хочу выход так:

hdisk: hdisk361 
newdisk: dsk361 

Пожалуйста, помогите мне исправить этот код?

Answer 1

Или немного короче:

#!/usr/bin/perl 
$hdisk="hdisk361"; 
($newdisk = $hdisk) =~ s/(hdisk\D*)(\d+)/(($1 eq "hdiskpower"?"prw":"dsk").$2)/ei; 

В противном случае, как вы видели, вы получаете 1, что означает успешную операцию. В коде, который вы предоставили, вы взяли возвращаемое значение вместо результата.

Но не забудьте использовать use strict и use warnings;)

Answer 2

Использование

$hdisk = "hdisk361" 
$newdisk = $hdisk; 
$newdisk =~ s/(hdisk\D*)(\d+)/(($1 eq "hdiskpower"?"prw":"dsk").$2/ 

Answer 3

Замена s/// работ по побочному эффекту. Его возвращаемая стоимость вряд ли когда-нибудь будет вам нужна. Вы особенно не хотите использовать s здесь, когда вам кажется, что не нужно $hdisk изменить.

Захват кусков $hdisk с m вместо s.

use strict; 
use warnings; 
my $hdisk="hdisk361"; 
my ($word, $number) = $hdisk =~ m/(hdisk\D*)(\d+)/i; 
my $newdisk = ($word eq "hdiskpower"?"prw":"dsk").$number; 
print "hdisk: $hdisk"."\n"; 
print "newdisk: $newdisk"."\n"; 

Answer 4

Этот ответ немного superflous, но в любом случае, если вы используете достаточно современную версию Perl (5.13+), вы могли бы иметь исходный код работает, просто добавив г флаг:

use 5.013; 
($newdisk) = ($hdisk =~ s/(hdisk\D*)(\d+)/(($1 eq "hdiskpower"?"prw":"dsk").$2)/rei); 

Вы могли даже отпустить из скобок:

use 5.013; 
my $newdisk = $hdisk =~ s/(hdisk\D*)(\d+)/(($1 eq "hdiskpower"?"prw":"dsk").$2)/rei; 

Вы можете прочитать на /r флаг в Use the /r substitution flag to work on a copy.