初めてのPerl 第４章

サブルーチン

use strict;
use warnings;
use Data::Dumper;

my $n;
my $fred   = 11;
my $barney = 6;

sub marine{
  $n += 1;
  print "hello $n";
}

sub sum_of_fred_and_barney{
  print "hey!!";
  $fred + $barney;
}

my $c = &sum_of_fred_and_barney;
print "\$cは$cです \n";

$c = 3 * &sum_of_fred_and_barney;
print "\$cは$cです \n";

sub larger_of_fred_or_barney{
  if($fred < $barney){
    $fred..$barney;
  }else{
    $barney..$fred;
  }
}

上記プログラムは何も表示されないが、現在テスト並び修正中のため、明日追加や、テストを引き続き行う。