Perl 関数 スクリプトの書き方

バイオインフォ道場、くまぞうです。

今回は、プログラムの基本構成となる「関数」を作ってみます。

関数を利用したプログラム

メッセージの表示や、メッセージの長さを取得する関数を作成します。関数は、「sub 関数名{}」で書きます。関数呼び出しは「&関数名」などで呼び出します。関数の戻り値は、最後に行われた計算の結果が自動的に戻り値になります。引数は$_[0]、$_[1]というようにアクセスします。

プログラム

test_function.pl

#! /usr/bin/perl

sub my_msg {
    print $_[0], "\n";
    
}

$msg = "Hello World!";
&my_msg($msg);

test_function2.py

#! /usr/bin/perl

sub my_msg {
    print $_[0], "\n";
    
}

sub my_msg_length {
    length $_[0];
    
}

$msg = "Hello World!";
&my_msg($msg);
print "my_msg_length : ", &my_msg_length($msg), "\n";

スクリプト実行

perl test_function.pl
Hello World!

perl test_function2.pl
Hello World!
my_msg_length : 12

プログラムについて

test_function.plでは、「my_msg」関数を作成しました。引数でメッセージを受取って、そのメッセージを関数内でprint表示します。

test_function2.plでは、「my_msg_length」関数を追加しました。メッセージ長さを整数型の戻り値を呼び出し元に返しています。呼び出し元は文字の長さを受取り、文字列情報としてprintで表示しています。