Question

perl语言删除某特定位置字符串

例如
AAA BBB CCC DDD
EEE FFF GGG HHH
输出的结果为
>AAA
BBB
>EEE
FFF
(既把每行第二个空格后面的字符串删除，然后第一个空格前后两个字符串分行表示)

Answer 1

用正则表达式吧：
s/(^(S+)\s(\S+).*$/$1\n$2/
上面的正则表达式通过通过括号捕获两个字符串$1和$2

Answer 2

perl -le '$_=$ARGV[0]; s/^(\S+)\s+(\S+).*$/$1\n$2/; print' "aaa 12 ccccc dd"
# aaa
#12

Answer 3

/(^(.*?)\s+(.*?)\s+)/;
print "$2\n$3";