remplacer la valeur de la variable et le stocker dans la nouvelle variable

Question

J'ai ci-dessous le code pour remplacer la valeur de la variable et le stocker dans une nouvelle variable et laisser la variable d'origine intacte.

#!/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"; 

Il donne cette sortie:

hdisk: dsk361 
newdisk: 1 

Je veux la sortie comme ceci:

hdisk: hdisk361 
newdisk: dsk361 

S'il vous plaît aidez-moi à résoudre ce code?

Answer 1

Ou un peu plus court:

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

Sinon, comme vous l'avez vu, vous obtenez 1, ce qui signifie une opération réussie. Dans le code que vous avez fourni, vous avez capturé la valeur de retour au lieu du résultat.

Mais ne pas oublier d'utiliser use strict et use warnings;)

Answer 2

Utilisez

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

Answer 3

La substitution s/// œuvres de côté effet. Sa valeur de retour est rarement ce que vous voulez. Vous ne voulez surtout pas utiliser s ici, quand vous ne voulez pas que $hdisk change.

Capturez les pièces de $hdisk avec m au lieu de 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

Cette réponse est un peu superflu, mais de toute façon, si vous utilisez une assez version moderne de Perl (5.13+), vous pourriez avoir le code d'origine de travail en ajoutant simplement le drapeau r:

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

Vous pouvez même laisser aller des parens:

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

Vous pouvez en savoir plus sur le drapeau /r à Use the /r substitution flag to work on a copy.