Perl Regex: swap words

来源:互联网 发布:msn软件下载 编辑:程序博客网 时间:2024/05/30 04:31
#!perl -w
$/ = "/n";

$_ = "one two remainder ... ";
s/([^ ]*) *([^ ]*)/$2 $1/;
print;