【perl】配列〜配列の連結〜

#! /usr/bin/perl

use strict;
use warnings;

my $x = 567;
my $y =75651;

#値を交換する
print "\$x=$x, \$y=$y\n";
($x, $y) = ($y, $x);
print "\$x=$x, \$y=$y\n";

#配列を連結
my @array1 = qw(a b c);
my @array2 = qw(d e f);
my @array = (@array1, @array2); #連結するには、並べて書くだけ

print "@array1\n"; #出力結果 => a b c
print "@array2\n"; #出力結果 => d e f
print "@array\n";  #出力結果 => a b c d e f

$array1[3] = @array2;
print "@array1\n"; #出力結果 => a b c 3 =>$array[3]にarray2の要素数が代入されている

print "$array2[2]\n"; #出力結果 => f

print "$array2[$#array2]\n"; #出力結果 => f =>array2の最後の要素をprint
print "$#array1\n";          #出力結果 => 3 =>array2の一番最後の要素の添え字をprint