作者cutekid (可爱小孩子)
看板Perl
标题Re: [请益] perl删除某行的特定字串
时间Fri Oct 18 17:34:01 2013
#!/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
1F：推 AmaiN:split真好用～ 10/18 22:08
2F：→ scwg:可以用 split(' ', $str, 5), 这样下一行不用第二个 join 10/18 22:21
3F：→ AntaresStar:可以$arr[3]=''之後直接join 10/19 20:49
4F：推 CindyLinz:好多写法唷 :p 10/20 03:21
5F：→ CindyLinz:也贡献一个~ 直接用 regex 的 10/20 03:24
6F：→ CindyLinz:$str =~ s/^((\S* ){3})\S+/$1/; 10/20 03:24
7F：推 heyk1:再请教如果是第三个空格之後全删除,变成 AAA BBB CCC 怎麽写 10/21 10:49
8F：→ heyk1:非常感激大家的指教. 10/21 10:51
9F：→ scwg:to heyk1: 拿 CindyLinz 的下去改, \S 换成 . 就可以了 10/21 21:54
10F：→ scwg:或用 split 之後 join ' ', @arr[0..2] 也可以 10/21 21:55
11F：→ heyk1:To scwg: 可以用!谢谢你^^ 10/22 09:55
12F：→ AntaresStar:perl -e '$_="a b c d e f";print"@{[split]}[0..2]"' 10/23 22:35
13F：→ AntaresStar:一行文 XD 10/23 22:35