電線の画像

Pointgets.net

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

複数の配列を引数に渡して生成

Perlを使用して、複数の配列を引数に渡して出力しました。

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

サンプルコードです。

35
-1

出力結果です。

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