koji

#!/usr/bin/env perl
#use strict;
#use warnings;

my @array = qw ( 0123 123 XXX);
print "表示："."@array\n";

my $num = join '-' , @array;
print "電話番号的なもの："."$num\n";

koji

#!/usr/bin/env perl
use strict;
use warnings;

for my $i (1..100) {
   if ($i%15 == 0) {
      print "FizzBuzz\n";
   } elsif ($i%5 == 0 ) {
      print "Buzz\n";
   } elsif ($i%3 == 0 ) {

koji

#!/usr/bin/env perl
use strict;
use warnings;

my @array1; # 配列

# 3回入力する
for my $i (1..3) {
  print $i."番目";
	chomp($array1[$i-1] = <STDIN>);