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

質問

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

回答No.4

my9uest

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

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_

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

回答No.2

SexyAkeko

Perl は、ここ５，６年触ってませんが
（だってPHPの方が便利なんだもん。）
spliteって使えませんか？

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

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

回答No.1

osamuy

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