Perlで苗字と名前の入れ替えしたいです。

Yamamoto TaroをTaro Yamamotoにしたいです。ただし間のスペースの個数は維持したいんですが・・・
Perlで簡単にやる方法ありますか・・・

No.4 回答者： my9uest 回答日時： 2012/09/21 01:58

手っ取り早いのは、正規表現の置換を使うことです。

my $string = 'Yamamoto Taro';

$string =~ s/^(\S*)(\s+)(\S*)$/$3$2$1/;

print $string, "\n"; # Taro Yamamoto

########################################

$_ = 'Yamamoto Taro';

s/^(\S*)(\s+)(\S*)$/$3$2$1/;

print $_, "\n"; # Taro Yamamoto

No.3 回答者： _--_1l1_1_ 回答日時： 2012/08/12 15:09

my $string = 'Yamamoto Taro';

if ($string =~ m/(\S+)(\s+)(\S+)/) {
$string = $3 . $2 . $1;
}
print $string, "\n"; # Taro Yamamoto

No.2 回答者： SexyAkeko 回答日時： 2012/08/12 08:14

Perl は、ここ５，６年触ってませんが

（だってPHPの方が便利なんだもん。）
spliteって使えませんか？

http://www.perlplus.jp/func/string/index3.html

配列を用意して、空白で区切り、
配列の１番目と２番目を空白を挟めばよいかと。

No.1 回答者： osamuy 回答日時： 2012/08/12 07:38

最初に登場する単語と末尾の単語を入れ替える、正規表現を使った置換を行うとか。