初めてのPerl 第4章 ~4.5 引数~

サンプル：２つの数値をサブルーチンに引数として渡し、大小比較。
　　　　　大きい数値を返り値とする。

　#! /usr/bin/perl -w

　&main;
　sub main
　{
　　　print "input num_1 : ";
　　　chomp($num1=);

　　　print "input num_2 : ";
　　　chomp($num2=);

　　　$max = &sub_max($num1,$num2);

　　　print "$max is larger";
　}

　sub sub_max
　{
　　　if($_[0]>$_[1]){
　　　　　$_[0];
　　　}else{
　　　　　$_[1];
　　　}
　}