使用正則表達式進行Perl字符串解析

Question

我有一個格式為"501h-1-c2950-0a1 blah blah blah 501h-1-c2950-01.yahoo.com 501h-1-c2950-01.blog.com %%%501h-1-c2950-0a1 blah blah _____501h-1-c2950-01 501h-1-c2950-01" 。

我想從中分別提取501h-1-c2950-01和501h-1-c2950-01.yahoo.com部分。

這意味着，如果我在字母數字詞后加上“-”，則將其提取出來。 如果還跟着[DOT][anything][DOT][anything]則將其提取出來。

所以我的最終輸出將有

501h-1-c2950-0a1,501h-1-c2950-01.yahoo.com,501h-1-c2950-01.blog.com,501h-1-c2950-0a1,501h-1-c2950-01,501h-1-c2950-01 。

我嘗試了很多正則表達式，但都失敗了。 有什么幫助嗎？

Answer 1

試試看，其中$s是您的輸入字符串：

my @arr = $s =~ /([a-zA-Z0-9.-]+-[a-zA-Z0-9.-]+)/g;

此處，正則表達式檢查強制性連字符-位於字母數字，點，連字符之間。