如何在变量中的特定符号之前添加字符？

Question

我有一个用户定义的变量是user@domain.com

使用perl我需要在用户的结尾和@符号之前添加“sc”。

，如果：

$user = "user@domain.com" 
$string = "sc" 

我需要拿出的

$user-id = "usersc@domain.com" 

结果任何帮助，将不胜感激。

Answer 1

$user =~ s/(?=@)/sc/; 

或

$user =~ s/@/sc@/; 

或

$user =~ s/^[^@]*\K/sc/; # Assumes "@" will always be present. 

---

当然，如果$user不包含正确的字符串开始与无那些将工作。

$user = "user@domain.com"; 

相同

$user = "user" . join($", @domain) . ".com"; 

鉴于@domain不存在，这是一样的

$user = "user.com"; 

始终使用use strict; use warnings;！你想

my $user = "user\@domain.com"; 

或

my $user = 'user@domain.com'; 

建立VAR $user以字符串user@domain.com。