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

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';

使用字符串$user创建var user@domain.com。