printf(”Going to call another script... \n”);
system(”/my_dir/B.pl”); # call another perl script B.pl
exit;

��。使用�る必���り��（ ） 。

����り��自身B.pl�ックグラウンドモード�実行�る���（��りデーモン�よ���例��）�� perl� B.pl���プロセス�完了�る���スクリプトを呼�出����れゆ��（ ）���システム（ ）��を実行�る（注返������んシステム終了�����を perl� 他�プロセス���方法�処�） 。場���出�（ ）システム��後�発生�る（ ） ������れ���実行�れる�仮定�る�������B.pl�何ら���由�終了���。

��������る����を確��よ�������？

B.plを�ックグラウンドモード�����スクリプトを通常�ユーザ���り��ん。

�qoute perldocシステム"�ら...幹部リスト����全����������親プロセスを実行�れ��る以外��フォーク���プロセス�完了�る�を待��...."��ら�����最��スクリプトを終了�る��終了�る�を待�B.pl ��れを�る�������。

実行"実行機能..������ perldoc�エントリを返�����システム�コマンドを実行�る�- " 。�仮定�る������������後��呼�出���スクリプトを終了���B.pl�呼ん��る。

���図B.pl�完了�る� （����� B.pl��呼�出�元�スクリプト自体�終了）�������待��実行を使用������実行�れ����ん�？任��背中を���？

次����必��応���れら�ルー�ンを呼�出��メインスクリプト�先頭�任��ファイルを�求�るよ��好���。�れ�最善�方法��れ���能性��り������������り���動作���。�������記憶�正��れ�������を呼�出���るファイル�必��も必�����考���る標準 perl� スクリプト�ヘッダ� " pl " ����終了�る必���り��ん"�CGI " ��よ�実行�能ファイル�アクセス許�を必�����ん。

（ ） main_file.pl

＃ � / usr / bin�/perl�
" other_file.pl "�必���。
＆ do_something ;
＆ do_something_else ;
出�;

（ ） other_file.pl

サブdo_something （
�刷"�content - type ：テキスト/ HTML�\ Ñ \ Ñ " ;
�刷"分���" ;
）
サブdo_something_else （
�刷"�content - type ：テキスト/ HTML�\ Ñ \ Ñ " ;
�刷" [ OK ]をも�一度" ;
）
1 ; trueを返�＃



���スクリプトをテスト����������何を����知���る�れ�近�ん�よ。

����karlsworld �
��コードを実行��������引数を渡�必���る������サブルー�ン����純���よ��（動作���）を追加�る。�れ����体験�� perl���無�味�障害�も�������

申�訳�り��ん-�����も見��アプロー���試�����功を������。任��助�����れ�幸��

を狩り Perl� �ロ�ート� Perl� �ュートリアル。オンライン書��両方�言語�newbs����トピック��常�充実��内容��。

実際��"を拾� Perl�"他�通話�も言������ん perl� スクリプト�� "ロ�ート� Perl� �ュートリアル"�� Windows用�モジュール������言����る。������一緒�何�を作��karlsworld�スクリプトを使用�るよ��管���動作���。

�����システムを使用���場���も��ん忘れ�����（ ）�����格��複数�ファイル�を測る���頭痛を��入れる�����る空間を作����ターゲットメソッド内�一緒�行�必���り��。

����。将�的��読ん����������作�：

（ ） main_file.pl

#!/usr/bin/perl
use strict;
use warnings;
require "other_file.pl";

my $string = "Hello";
my $string2 = "Hello again";

do_something($string);
my ($s1, $s2) = do_something_else($string2);
print "Received: $s1 $s2\n";

exit;

sub do_something($){
        my $string = $_[0];
        print "Printing: $string\n";
}

sub do_something_else($){
        my $string = $_[0];
        print "Now printing: $string\n";
        my $yyyy = 2009;
        return ($string, $yyyy);
}

1; # return true