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

[cutekid (可愛小孩子)]

#!/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
推 AmaiN:split真好用～
→ scwg:可以用 split(' ', $str, 5), 這樣下一行不用第二個 join
→ AntaresStar:可以$arr[3]=''之後直接join
推 CindyLinz:好多寫法唷 :p
→ CindyLinz:也貢獻一個~ 直接用 regex 的
→ CindyLinz:$str =~ s/^((\S* ){3})\S+/$1/;
推 heyk1:再請教如果是第三個空格之後全刪除,變成 AAA BBB CCC 怎麼寫
→ heyk1:非常感激大家的指教.
→ scwg:to heyk1: 拿 CindyLinz 的下去改, \S 換成 . 就可以了
→ scwg:或用 split 之後 join ' ', @arr[0..2] 也可以
→ heyk1:To scwg: 可以用!謝謝你^^
→ AntaresStar:perl -e '$_="a b c d e f";print"@{[split]}[0..2]"'
→ AntaresStar:一行文 XD