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; use warnings;！你要

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

或者

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

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