Perlで文字列結合しながらs///演算子で置換する方法

Perlで文字列結合しながらs///演算子で置換する方法

Posted at April 27,2015 1:23 AM
Tag:[Perl]

Perlで文字列結合しながらs///演算子で置換する方法を紹介します。

お遊びレベルの内容ですのであしからず。

1.はじめに

次のように文字列の結合を行うサンプルがあります。

#!/usr/bin/perl
use strict;
 
my $a = 'a-1';
my $b = 'b-1';
my $c = 'c-1';
my $x .= $a . $b . $c;
print $x;

実行結果

a-1b-1c-1

が、「a-1」「b-1」「c-1」の「-」を「_」に変更して出力する必要が生じました。

ただし、値を代入するときに変更できない条件とします。また、結合したあとの$xを変換することもできない条件とします。

この条件の場合、赤字のs///演算子を追加して、

#!/usr/bin/perl
use strict;
 
my $a = 'a-1';
my $b = 'b-1';
my $c = 'c-1';
$a =~ s/-/_/;
$b =~ s/-/_/;
$c =~ s/-/_/;
my $x = $a . $b . $c;
print $x;

という風にする解が考えられますが、文字列結合のときにまとめて変換できないものでしょうか。

2.文字列結合しながらs///演算子で置換する

文字列結合のときにまとめて変換するには、次のように記述することで実現できます。

#!/usr/bin/perl
use strict;
 
my $a = 'a-1';
my $b = 'b-1';
my $c = 'c-1';
(my $x = $a . $b . $c) =~ s/-/_/g;
print $x;

実行結果

a_1b_1c_1
関連記事
zenback
人気エントリー
トラックバックURL


コメントする
greeting

*必須

*必須(非表示)


ご質問のコメントの回答については、内容あるいは多忙の場合、1週間以上かかる場合があります。また、すべてのご質問にはお答えできない可能性があります。予めご了承ください。

太字イタリックアンダーラインハイパーリンク引用
[サインインしない場合はここにCAPTCHAを表示します]

コメント投稿後にScript Errorや500エラーが表示された場合は、すぐに再送信せず、ブラウザの「戻る」ボタンで一旦エントリーのページに戻り(プレビュー画面で投稿した場合は、投稿内容をマウスコピーしてからエントリーのページに戻り)、ブラウザをリロードして投稿コメントが反映されていることを確認してください。

コメント欄に(X)HTMLタグやMTタグを記述される場合、「<」は「&lt;」、「>」は「&gt;」と入力してください。例えば「<$MTBlogURL$>」は「&lt;$MTBlogURL$&gt;」となります(全て半角文字)