#!/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
: 请问要如何写?
: 非常感谢

split真好用～

可以用 split(' ', $str, 5), 这样下一行不用第二个 join

可以$arr[3]=''之后直接join

好多写法唷 :p也贡献一个~ 直接用 regex 的$str =~ s/^((\S* ){3})\S+/$1/;

再请教如果是第三个空格之后全删除,变成 AAA BBB CCC 怎么写非常感激大家的指教.

to heyk1: 拿 CindyLinz 的下去改, \S 换成 . 就可以了或用 split 之后 join ' ', @arr[0..2] 也可以

To scwg: 可以用!谢谢你^^

perl -e '$_="a b c d e f";print"@{[split]}[0..2]"'一行文 XD