Question

我在Perl中有一个问题：使用替换运算符反转每个输入行的前三个单词的顺序。保持间距不变，并打印每条结果线。

如何解决这个问题？有什么想法吗？先谢谢。

Answer 1

试试这个

$line =~ s/^(\s*)(\w+)(\s+)(\w+)(\s+)(\w+)/$1$6$3$4$5$2/;

不发布完整的代码cus似乎是家庭作业或类似的东西。

Answer 2

虽然没有标记awk。可能你想知道awk解决方案：

awk '{x=$3" "$2" "$1;$3=$2=$1=""; print x,$0}' your_file