Perl:反转文件中的每个单词

Question

我正在尝试编写一个脚本来反转每行中文件中的每个单词

• 之前: line1 asdasdfff
• 后: 1enil fffdsadsa

使用:

@lines = split(/\s+/, reverse($old));

错误在哪里？

Answer 1

您可以使用评估替换:

s/(\S+)/reverse $1/ge for @lines;

这将捕获所有连续的非空格,并用相反的版本替换它们.输入/输出示例:

I'm a little teapot short and stout
m'I a elttil topaet trohs dna tuots    

foobar qwerty aboo
raboof ytrewq ooba