PTT數位生活區 / Perl

Re: [請益] perl刪除某行的特定字串

看板Perl作者 (可愛小孩子)時間11年前 (2013/10/18 09:34), 編輯推噓3(3推 0噓 10→)
留言13則, 5人參與, 最新討論串2/2 (看更多)
#!/usr/bin/perl $str = "AAA BBB CCC DDD EEE FFF"; @arr = split(' ',$str); $res = join(' ',@arr[0..2]) . ' ' . join(' ',@arr[4..$#arr]) ; print $res; ※ 引述《heyk1 (大熱天)》之銘言： : 請問板上的各位高手, : 假如有個字串如下 : : AAA BBB CCC DDD EEE FFF : 如果想用 perl 刪除第三空格與第四空格中間的字串, 變成 : AAA BBB CCC EEE FFF : 請問要如何寫? : 非常感謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 118.170.11.31
推
10/18 22:08, , 1F
split真好用～
10/18 22:08, 1F
→
10/18 22:21, , 2F
可以用 split(' ', $str, 5), 這樣下一行不用第二個 join
10/18 22:21, 2F
→
10/19 20:49, , 3F
可以$arr[3]=''之後直接join
10/19 20:49, 3F
推
10/20 03:21, , 4F
好多寫法唷 :p
10/20 03:21, 4F
→
10/20 03:24, , 5F
也貢獻一個~ 直接用 regex 的
10/20 03:24, 5F
→
10/20 03:24, , 6F
$str =~ s/^((\S* ){3})\S+/$1/;
10/20 03:24, 6F
推
10/21 10:49, , 7F
再請教如果是第三個空格之後全刪除,變成 AAA BBB CCC 怎麼寫
10/21 10:49, 7F
→
10/21 10:51, , 8F
非常感激大家的指教.
10/21 10:51, 8F
→
10/21 21:54, , 9F
to heyk1: 拿 CindyLinz 的下去改, \S 換成 . 就可以了
10/21 21:54, 9F
→
10/21 21:55, , 10F
或用 split 之後 join ' ', @arr[0..2] 也可以
10/21 21:55, 10F
→
10/22 09:55, , 11F
To scwg: 可以用!謝謝你^^
10/22 09:55, 11F
→
10/23 22:35, , 12F
perl -e '$_="a b c d e f";print"@{[split]}[0..2]"'
10/23 22:35, 12F
→
10/23 22:35, , 13F
一行文 XD
10/23 22:35, 13F
‣ 更多 cutekid 的文章
文章代碼(AID): #1IOG2Bc5 (Perl)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
排序： 最舊先 | 最新先 | 留言數
在新視窗開啟完整討論串 (共2篇)
Perl 近期熱門文章
1
1
[問題] regexp的replace？
[ Perl ]
vernc
4年前, 2020/11/02 16:13
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
6
6
[作品] 西藏&珠峰EBC&上海
[ DSLR ]
xzex1027
9小時前, 2025/06/20 17:22
2
24
[菜單] 40K遊戲機請益
[ PC_Shopping ]
yc410
10小時前, 2025/06/20 16:34
更多 即時熱門文章 >>
‣ 更多 cutekid 的文章
文章代碼(AID): #1IOG2Bc5 (Perl)