如何在變量中的特定符號之前添加字符？

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。