電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

複数の配列をリファレンスで引数に渡して生成

Perlを使用して、複数の配列をリファレンスで引数に渡して出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
sub subroutine {
	my ($value1, $value2) = @_;
	print "@$value1"."\n";
	print "@$value2";
}
 
my @array1 = (0..9);
my @array2 = ("A".."Z");
 
&subroutine(\@array1,\@array2);
 
exit;

サンプルコードです。

0 1 2 3 4 5 6 7 8 9
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

出力結果です。

スポンサードリンク
スポンサードリンク