看板 [ Perl ]
討論串[問題] 請問刪除問題
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#3
Re: [問題] 請問刪除問題
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者tony0924 (北京烤鴨)時間20年前 (2005/09/15 18:27), 編輯資訊
0
0
0
內容預覽:
local($/) = undef;. $text = <file1>; # 一次讀完整個檔案. $text =~ s/delete_delete.*//; # 刪除 delete_delete 之後的所有文字. print file2 $text; # 印出結果. --. ※ 發信站: 批踢踢實業
#2
Re: [問題] 請問刪除問題
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者IIR (XML schema)時間20年前 (2005/09/15 11:22), 編輯資訊
0
0
0
內容預覽:
while(<file1>){. last if ($_ =~ m/delete_delete/);. print file2 $_;. }. 這樣是所要的嗎?!. 另外上面 open 後面要 ;. --. ※ 發信站: 批踢踢實業坊(ptt.cc). ◆ From: 221.169.88.150.
#1
[問題] 請問刪除問題
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者deitel (nothing)時間20年前 (2005/09/14 23:34), 編輯資訊
0
0
0
內容預覽:
一個A.txt檔內容為. ~~~~~~~~~~~~~~~~~~~. ~~~~~~~~~~~~~~~~~~~~. ~~~~~~~~~~~~~~~~~~~~. delete_delete. ~~~~~~~~~~~~~~~~~~~~~. ~~~~~~~~~~~~~~~~~~~~~. 若要把 delete_
(還有9個字)
首頁
上一頁
1
下一頁
尾頁