PGM->Perl/サブルーチン - プログラミングの勉強をしよう@Wiki

Top > PGM->Perl > サブルーチン

サブルーチン

サブルーチン

# サブルーチン
sub test_func{
	# 引数取得
	($var1, $var2) = @_;
 
	# 処理
	print $var1 . "\n";
	print $var2 . "\n";
 
	$count = length($var1) + length($var2);
 
	# 戻り値
	return $count;
 
}
 
 
#処理開始
my $aaa = test_func("1111", "222");
my $bbb = test_func("aaaaaaaaaa", "bbbb");
print "\n";
print $aaa . "\n";
print $bbb . "\n";
 

結果

>perl sample11.pl
1111
222
aaaaaaaaaa
bbbb
 
7
14
 
>
 

---

予約サブルーチン(BEGIN、CHECK、INIT、END)

一定の順序で処理を行う場合に記述する必要があるが、必須ではない

呼び出される順番はBEGIN、CHECK、INIT、メインスクリプト、ENDの順となる

# テスト
sub test_func{
	print "test-func-print\n";
}
 
# スクリプト
print "test-print\n";
test_func();
 
# BEGIN
BEGIN{
	print "-------------\n";
	print "begin-func\n";
	print "-------------\n";
}
 
# CHECK
CHECK{
	print "-------------\n";
	print "check-func\n";
	print "-------------\n";
}
 
# INIT
INIT{
	print "-------------\n";
	print "init-func\n";
	print "-------------\n";
}
 
 
# スクリプト
print "test-print-end\n";
 
#END
END {
	print "-------------\n";
	print "end-func\n";
	print "-------------\n";
}
 
 

結果

>perl sample.pl
-------------
begin-func
-------------
-------------
check-func
-------------
-------------
init-func
-------------
test-print
test-func-print
test-print-end
-------------
end-func
-------------
 
>
 
 

---