my @city = ("東京", "大阪", "名古屋");
print "配列の要素を出力します\n";
foreach my $var(@city){
  print "$var\n";
}

my @rcity = reverse(@city);
print "配列の要素を出力します\n";
foreach my $var(@rcity){
  print "$var\n";
}

my @city = ("東京", "大阪", "名古屋");
&dispArrayValue(@city);   # サブルーチン呼び出し

my @rcity = reverse(@city);
&dispArrayValue(@rcity);   # サブルーチン呼び出し

# ここから下がサブルーチンです
sub dispArrayValue{
  my @array = @_;

  print "配列の要素を出力します\n";
  foreach my $var(@array){
    print "$var\n";
  }
}

my @city = ("東京", "大阪", "名古屋");
&dispArrayValue(@city);

my @rcity = reverse(@city);
&dispArrayValue(@rcity);

my @rrcity = reverse(@rcity);
&dispArrayValue(@rrcity);

sub dispArrayValue{
  my @array = @_;

  print "配列の要素を出力します\n";
  foreach my $var(@array){
    print "$var\n";
  }
}

サンプルプログラム

# サブルーチンとは
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @city = ("東京", "大阪", "名古屋");
&dispArrayValue(@city);

my @rcity = reverse(@city);
&dispArrayValue(@rcity);

sub dispArrayValue{
  my @array = @_;

  print "配列の要素を出力します\n";
  foreach my $var(@array){
    print "$var\n";
  }
}

[xxxxxxxx@dddddddddd Sub]$ perl test1-1_u.pl | nkf -w
配列の要素を出力します
東京
大阪
名古屋
配列の要素を出力します
名古屋
大阪
東京
[xxxxxxxx@dddddddddd Sub]$ 

sub サブルーチン名{
  実行する処理;
}

サブルーチンの定義位置

print "サブルーチンのテスト\n";

sub hello{
  print "hello\n";
}

sub bye{
  print "bye\n";
}

サブルーチンはいつ実行されるか

sub hello{
  print "hello\n";
}

print "サブルーチンのテスト\n";

sub bye{
  print "bye\n";
}

print "終了\n";

サンプルプログラム

# サブルーチンの定義
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

sub hello{
  print "hello\n";
}

print "サブルーチンのテスト\n";

sub bye{
  print "bye\n";
}

print "終了\n";

[xxxxxxxx@dddddddddd Sub]$ perl test2-1_u.pl | nkf -w
サブルーチンのテスト
終了
[xxxxxxxx@dddddddddd Sub]$ 

&サブルーチン名;

sub サブルーチン名{
  実行する処理;
}

print "サブルーチンのテスト\n";
&hello;
print "終了\n";

sub hello{
  print "hello\n";
}

サブルーチンのテスト
hello
終了

サンプルプログラム

# サブルーチンの呼び出し
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

sub hello{
  print "hello\n";
}

print "サブルーチンのテスト\n";
&hello;
&bye;
print "終了\n";

sub bye{
  print "bye\n";
}

[xxxxxxxx@dddddddddd Sub]$ perl test3-1_u.pl | nkf -w
サブルーチンのテスト
hello
bye
終了
[xxxxxxxx@dddddddddd Sub]$ 

my $ave;

$ave = (10 + 8) / 2;
print "10 と 8 の平均値は $ave です\n";

$ave = (5 + 17) / 2;
print "5 と 17 の平均値は $ave です\n";

&サブルーチン名(引数1, 引数2, ...);

sub サブルーチン名{
  実行する処理;
}

サブルーチンに渡されてきた引数が格納される配列変数 $_

1番目の引数を参照する場合は $_[0]
2番目の引数を参照する場合は $_[1]
...
n番目の引数を参照する場合は $_[n-1]

&calcAverage(10, 8);
&calcAverage(5, 17);

sub calcAverage{
  my $ave;
  $ave = ($_[0] + $_[1]) / 2;
  print "$_[0] と $_[1] の平均値は $ave です\n";
}

サンプルプログラム

# 引数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

&calcAverage(10, 8);
&calcAverage(5, 17);

sub calcAverage{
  my $ave;
  $ave = ($_[0] + $_[1]) / 2;
  print "$_[0] と $_[1] の平均値は $ave です\n";
}

[xxxxxxxx@dddddddddd Sub]$ perl test4-1_u.pl | nkf -w
10 と 8 の平均値は 9 です
5 と 17 の平均値は 11 です
[xxxxxxxx@dddddddddd Sub]$ 

&personal("加藤", 25, "東京都");

sub personal{
  print "名前は $_[0] です\n";
  print "年齢は $_[1] です\n";
  print "住所は $_[2] です\n";
}

nal("加藤", 25, "東京都");

sub personal{
  my ($name, $old, $address) = @_;

  print "名前は $name です\n";
  print "年齢は $old です\n";
  print "住所は $address です\n";
}

引数が1つの場合の注意点

sub personal{
  my $name = @_;
}

sub personal{
  my $name;
  ($name) = @_;
}

sub personal{
  my ($name) = @_;
}

サンプルプログラム

# 引数を任意の変数に格納
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

&personal("加藤", 25, "東京都");

sub personal{
  my ($name, $old, $address) = @_;

  print "名前は $name です\n";
  print "年齢は $old です\n";
  print "住所は $address です\n";
}

[xxxxxxxx@dddddddddd Sub]$ perl test5-1_u.pl | nkf -w
名前は 加藤 です
年齢は 25 です
住所は 東京都 です
[xxxxxxxx@dddddddddd Sub]$ 

変数 = &サブルーチン名;

my $sum;

$sum = &calcTwoNum(10, 23);
print "$sum";

sub calcTwoNum{
  my ($num1, $num2) = @_;

  $num1 + $num2;
}

戻り値の指定方法

sub calcTwoNum{
  my ($num1, $num2) = @_;

  $num1 + $num2;
}

サンプルプログラム

# 戻り値
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my ($sum, $str);

$sum = &calcTwoNum(10, 23);
print "$sum\n";

$sum = &calcTwoNum(32, 14);
print "$sum\n";

sub calcTwoNum{
  my ($num1, $num2) = @_;

  $num1 + $num2;
}

[xxxxxxxx@dddddddddd Sub]$ perl test6-1_u.pl | nkf -w
33
46
[xxxxxxxx@dddddddddd Sub]$ 

return;

return 戻り値;

my $msg;

$msg = &hantei(72, 84);
print "$msg";

sub hantei{
  my ($kokugo, $suugaku) = @_;

  if ($kokugo < 75){
    return "不合格";
  }

  if ($suugaku < 75){
    return "不合格";
  }

  "合格";
}

return文の使い方

my $msg;

$msg = &hantei(72, 84);
print "$msg";

sub hantei{
  my ($kokugo, $suugaku) = @_;

  if ($kokugo < 75){
    return "不合格";
  }

  if ($suugaku < 75){
    return "不合格";
  }

  return "合格";
}

サンプルプログラム

# return文
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $msg;

$msg = &hantei(72, 84);
print "$msg\n";

$msg = &hantei(92, 80);
print "$msg\n";

sub hantei{
  my ($kokugo, $suugaku) = @_;

  if ($kokugo < 75){
    return "不合格";
  }

  if ($suugaku < 75){
    return "不合格";
  }

  return "合格";
}

[xxxxxxxx@dddddddddd Sub]$ perl test7-1_u.pl | nkf -w
不合格
合格
[xxxxxxxx@dddddddddd Sub]$