使用perl提取電子郵件的一部分

Question

我有一個像這樣的電子郵件地址flavius.david@yahoo.com。 我想提取「大衛」。我已經試過這個

`"m[^([^.]*)-([^+]*)\@.*$];"` 
print " $&\n"; 

但是，resulte只是「。」

Answer 1

你可以使用這個表達式：

/[^.]+(?=@)/ 

RegEx Demo

Answer 2

如果你需要兩個部分，你原來的正則表達式是接近，但應改爲：

^([^.]*)\.([^@]*)@.*$ 

RegEx Playground

Answer 3

這取決於你在做什麼，但我會寫som就像

my @names = $email =~ /\w+/g; 
my $sname = $names[1];