Perl小ネタ:サブルーチンの出力と文字列を連携する
2021/12/20 20:00
category:Perl
sub test_print {
retrun 'test';
}
があったとして。
my $value = 'moji'.&test_print;
とかするとエラーになるので、joinを使って連結します。
my $value = join('','moji',&test_print);
※第一引数は区切り文字になります。区切りは , で行います。
sub test_print {
retrun 'test';
}
があったとして。
my $value = 'moji'.&test_print;
とかするとエラーになるので、joinを使って連結します。
my $value = join('','moji',&test_print);
※第一引数は区切り文字になります。区切りは , で行います。