看板 [ Perl ]
討論串[請益] print段落
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#3
Re: [請益] print段落
推噓1(1推 0噓 1→)留言2則，0人參與, 最新作者abliou (Art of Life)時間17年前 (2007/12/20 20:06), 編輯資訊
0
0
0
內容預覽:
$File = $ARGV[0];. open( FID, $File );. while(chomp($_=<FID>)){. (/^NSC (\d+)(?{ print "NSC_$1"})|<Chemical Names>(?{$flag=1})|. ^\$(?{$flag=0;print "
#2
Re: [請益] print段落
推噓1(1推 0噓 1→)留言2則，0人參與, 最新作者jjt (jet)時間17年前 (2007/12/20 18:31), 編輯資訊
0
0
0
內容預覽:
$File = $ARGV[0];. open( FID, $File );. while(<FID>). {. if(/^NSC (\d+)$/){ print "NSC_$1"; }. if(/<Chemical Names>/). {. while(chomp($_=<FID>)). {. l
#1
[請益] print段落
推噓0(0推 0噓 1→)留言1則，0人參與, 最新作者tear2001 ( Play ball !!)時間17年前 (2007/12/20 17:44), 編輯資訊
0
0
0
內容預覽:
這個好像前面有討論過 但是...... 小弟不才....看到L大寫的 但就是看不懂orz. 我是想取出檔案中NSC下的number然後把Chemical Names斷落下的每一行接上. 檔案如下:. FILE -----------------------------------> Result:.
(還有737個字)
首頁
上一頁
1
下一頁
尾頁