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

$userstring でvar を作成しますuser@domain.com。