◎お題 無名サブルーチンを、引数のいらないものといるものの2パターン作り、それぞれを実行して実行結果を出力する。 #! /usr/bin/perl use strict; use warnings; my $studyB=sub{ my ($katei, $takasa, $jyoutei) = @_; my $menseki = ( $katei + $jyoutei…

◎お題 引数のいらないサブルーチンを作り、そのリファレンスを使用してサブルーチンを実行する。 #! /usr/bin/perl use strict; use warnings; #通常のやり方でサブルーチンを実行してみる &print; my $ref_sub = \&print; #二通りのやり方で、サブルーチン…