電線の画像

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) = @_;
	foreach(@$value1) {
		print $_;
	}
 
	print "\n";
 
	for(0..$#$value2) {
		print $$value2[$_];
	}
}
 
my @array1 = ('a'..'z');
my @array2 = ('A'..'Z');
 
&routine(\@array1,\@array2);
 
exit;

サンプルコードです。

abcdefghijklmnopqrstuvwxyz
ABCDEFGHIJKLMNOPQRSTUVWXYZ

出力結果です。

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