求perl \m 的用法

kofit

<ol class="song_box"><li ><span class="num">11</span> <span class="status ico_equal" title="不變">不變</span><span class="data" style='display:none;'>1955210124@@卑微的承諾@@0@@喬洋@@2738215774@@超級自戀男@@http://upload7.music.qzone.soso.com/12782964.wma@@212</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="卑微的承諾"href="javascript:;">卑微的承諾</a></span><span class="singer"><a title="喬洋"href="http://music.soso.com/portal/singer/0/singer_0.html" >喬洋</a></span> </li><li ><span class="num">12</span> <span class="status ico_down" title="下降">下降</span><span class="data" style='display:none;'>3261326473@@愛的供養(yǎng)@@207932239@@何晟銘@@135134275@@2011年2月新歌速遞@@http://upload3.music.qzone.soso.com/12798420.wma@@217</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="愛的供養(yǎng)"href="javascript:;">愛的供養(yǎng)</a></span><span class="singer"><a title="何晟銘"href="http://music.soso.com/portal/singer/39/singer_207932239.html" >何晟銘</a></span> </li><li ><span class="num">13</span> <span class="status ico_up" title="上升">上升</span><span class="data" style='display:none;'>3368822356@@你把我灌醉@@2250998588@@陳潔儀@@3438109847@@重譯@@http://upload10.music.qzone.soso.com/12797342.wma@@318</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="你把我灌醉"href="javascript:;">你把我灌醉</a></span><span class="singer"><a title="陳潔儀"href="http://music.soso.com/portal/singer/88/singer_2250998588.html" >陳潔儀</a></span> </li><li ><span class="num">14</span> <span class="status ico_up" title="上升">上升</span><span class="data" style='display:none;'>2918405628@@包圍@@4029084158@@張杰@@290004753@@這，就是愛@@http://upload1.music.qzone.soso.com/12751047.wma@@286</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="包圍"href="javascript:;">包圍</a></span><span class="singer"><a title="張杰"href="http://music.soso.com/portal/singer/58/singer_4029084158.html" >張杰</a></span> </li><li ><span class="num">15</span> <span class="status ico_down" title="下降">下降</span><span class="data" style='display:none;'>1751257526@@埋葬冬天@@960446865@@汪蘇瀧@@239737913@@慢慢懂@@http://upload2.music.qzone.soso.com/12751068.wma@@257</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="埋葬冬天"href="javascript:;">埋葬冬天</a></span><span class="singer"><a title="汪蘇瀧"href="http://music.soso.com/portal/singer/65/singer_960446865.html" >汪蘇瀧</a></span> </li><li ><span class="num">16</span> <span class="status ico_up" title="上升">上升</span><span class="data" style='display:none;'>1177197656@@她說@@1829410514@@林俊杰@@1177197656@@她說@@http://upload2.music.qzone.soso.com/12764252.wma@@318</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="她說"href="javascript:;">她說</a></span><span class="singer"><a title="林俊杰"href="http://music.soso.com/portal/singer/14/singer_1829410514.html" >林俊杰</a></span> </li><li ><span class="num">17</span> <span class="status ico_down" title="下降">下降</span><span class="data" style='display:none;'>792953384@@Baby@@0@@Justin Bieber@@4067823536@@My Worlds Acoustic@@http://upload6.music.qzone.soso.com/12751899.wma@@215</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="Baby"href="javascript:;">Baby</a></span><span class="singer"><a title="Justin&#32;Bieber"href="http://music.soso.com/portal/singer/0/singer_0.html" >Justin&#32;Bieber</a></span> </li><li ><span class="num">18</span> <span class="status ico_up" title="上升">上升</span><span class="data" style='display:none;'>3121294468@@UUU@@263613048@@潘瑋柏@@396638135@@808@@http://upload10.music.qzone.soso.com/12792602.wma@@229</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="UUU"href="javascript:;">UUU</a></span><span class="singer"><a title="潘瑋柏"href="http://music.soso.com/portal/singer/48/singer_263613048.html" >潘瑋柏</a></span> </li><li ><span class="num">19</span> <span class="status ico_up" title="上升">上升</span><span class="data" style='display:none;'>3407759800@@散場的擁抱@@0@@倪安東@@3604517370@@第一課@@http://upload9.music.qzone.soso.com/12749533.wma@@303</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="散場的擁抱"href="javascript:;">散場的擁抱</a></span><span class="singer"><a title="倪安東"href="http://music.soso.com/portal/singer/0/singer_0.html" >倪安東</a></span> </li><li ><span class="num">20</span> <span class="status ico_up" title="上升">上升</span><span class="data" style='display:none;'>3078967551@@Born This Way@@0@@Lady GaGa@@3078967551@@Born This Way@@http://upload6.music.qzone.soso.com/12800790.wma@@260</span><span class="song"><a onclick="player.play(this.parentNode.parentNode);" title="Born&#32;This&#32;Way"href="javascript:;">Born&#32;This&#32;Way</a></span><span class="singer"><a title="Lady&#32;GaGa"href="http://music.soso.com/portal/singer/0/singer_0.html" >Lady&#32;GaGa</a></span> </li></ol>
取上面這個記錄的2236584427@@愛笑的眼睛@@1829410514@@林俊杰@@1177197656@@她說@@http://upload2.music.qzone.soso.com/12764253.wma@@251
所有的這樣的信息。

用m的用法該怎么匹配？

kofit

+1，大家?guī)涂聪拢?/td>

justlooks

1. 
   
2. cat ufile|perl -ne '($str)=m/((\d+@@[^@]*@@){1,}[^ ]+)/;print $str,"\n";'
   
3. 2236584427@@愛笑的眼睛@@1829410514@@林俊杰 @@1177197656@@她說@@http://upload2.music.qzone.soso.com
   
4. 
   

復(fù)制代碼

kofit

回復(fù) 3# justlooks


    哥們剛才貼錯了，只貼了一個<li>，源內(nèi)容是上面那樣的，要拿所有下面的歌曲信息記錄。m的意思不是把一個記錄當成多行嗎？所以我想能不能一個正則就能都取下來

justlooks

1. 
   
2. $ cat ufile|perl -ne 'while(m/((\d+@@[^@]*@@){1,}[^<]+)/g){print [        DISCUZ_CODE_0        ],"\n";}'
   
3. 1955210124@@卑微的承諾@@0@@喬洋@@2738215774@@超級自戀男 @@http://upload7.music.qzone.soso.com/12782964.wma@@212
   
4. 3261326473@@愛的供養(yǎng)@@207932239@@何晟銘 @@135134275@@2011年2月新歌速遞@@http://upload3.music.qzone.soso.com /12798420.wma@@217
   
5. 3368822356@@你把我灌醉@@2250998588@@陳潔儀 @@3438109847@@重譯@@http://upload10.music.qzone.soso.com /12797342.wma@@318
   
6. 2918405628@@包圍@@4029084158@@張杰@@290004753@@這，就是愛@@http://upload1.music.qzone.soso.com/12751047.wma@@286
   
7. 1751257526@@埋葬冬天@@960446865@@汪蘇瀧@@239737913@@慢慢懂@@http://upload2.music.qzone.soso.com/12751068.wma@@257
   
8. 1177197656@@她說@@1829410514@@林俊杰@@1177197656@@她說 @@http://upload2.music.qzone.soso.com/12764252.wma@@318
   
9. 792953384@@Baby@@0@@Justin Bieber@@4067823536@@My Worlds Acoustic@@http://upload6.music.qzone.soso.com/12751899.wma@@215
   
10. 3121294468@@UUU@@263613048@@潘瑋柏 @@396638135@@808@@http://upload10.music.qzone.soso.com/12792602.wma@@229
    

復(fù)制代碼

kofit

回復(fù) 5# justlooks


    怎么感覺不到這個m的作用啊

工藤＊新一

1. cat test2 | perl -ne 'while(/(\d+@@.*?)\d+</g){print $1, "\n";}'
   

復(fù)制代碼

m//是匹配的意思，這m不寫也可以
//m才是你說的那個意思。
有些m在前面，有些在后面。。。