perl - 如何在变量中的特定符号前添加一个字符？

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;使用警告；!你要

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

或

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

用字符串 user@domain.com 创建变量 $user。