1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/env perl use strict; use warnings; # Perl入学式 2018 第2回 練習問題 # https://github.com/perl-entrance-org/workshop-2018/blob/master/2nd/slide.md # 練習問題(join.pl) # 次の処理をする join.pl を作りましょう。 # ("0120", "123", "XXX") という配列を作ってください。 # 1の配列をjoin関数で連結してください。 電話番号っぽいので、ハイフン ('-') でくっつけてみましょう。 my @array = qw(0120 123 XXX); my $tel_number = join "-" , @array; print "$tel_number\n"
You can clone a snippet to your computer for local editing. Learn more.