設定ファイルをを作成する #設定ファイル #config $name = "太郎"; 1; この設定ファイルを読み込む #設定ファイルを読み込むスクリプト # config_load.pl #初期値 $name = "匿名"; #ファイルの存在チェック if(-r "config"){ require("config"); } print "こ…

ライブラリファイルを作る #helloライブラリ #hello_lib.pl #サブルーチン定義 sub hello{ my($name) = @_; print "こんにちは、$nameさん。\n"; } #戻り値 #ライブラリなのでスクリプトの最後に1;をつける。 1; これをrequire関数を使って読み込む #hello_l…

#ハッシュのリファレンスを受け取り、キーと値を逆にして返すサブルーチン #サブルーチン実行前 %hash = ( "太郎"=>"tarou", "花子"=>"hanako", "次郎"=>"jirou", ); print "実行前：\n"; print "$key => $value\n" while(($key, $value) = each(%hash)); #…

#無名サブルーチンで戻り値を直接取得する #無名サブルーチン $string = sub{ #文字列を返す return("こんにちは、私は$nameです。\n"); }; #戻り値を表示 $name = "花子"; print "戻り値：", &$string; #実行結果 # 戻り値：こんにちは、私は花子です。 初…

#配列のリファレンス @array = (1 .. 5); #サブルーチン実行前 print "実行前：",join(", ", @array), "\n"; #リファレンスを渡してサブルーチン実行 &sub_reference_array(\@array); #サブルーチン実行後 print "実行後：",join(", ", @array), "\n"; #サブ…

#スカラー変数をリファレンスで渡し、サブルーチンで内容を変更する $string = "私は太郎です。"; #サブルーチン実行前 print "実行前： $string\n"; #リファレンスを渡してサブルーチン実行 &sub_reference(\$string); #サブルーチン実行後: print "実行後…

#スカラー変数のリファレンス #\$variable #スカラー変数のリファレンスから内容を求める # $$reference # ${$reference} #配列のリファレンス # \@array #配列のリファレンスから内容を求める # @$referece # @{$reference} #配列の特定要素を求める # $$re…

#合計を調べる #初期値 $sum = 10; #サブルーチン1を呼び出し &sum1(); print "合計: $sum\n"; #サブルーチン1 sub sum1{ $sum++; { local($sum); $sum++; &sum2(); } &sum3(); } #サブルーチン2 sub sum2{ $sum++; } #サブルーチン3 sub sum3{ my($sum); $s…

#ourとmyのテスト #グローバル変数を宣言 @global_value = (1, 2, 3); &modify_my(); print "[my後] ", @global_value, "\n"; &modify_our(); print "[our後] ", @global_value, "\n"; #myによるグローバル変数の上書き sub modify_my{ my(@global_value); p…

#ブロック内でのローカル変数の定義 $variable = "グローバル"; print "サブルーチン実行前: $variable\n"; #サブルーチン呼び出し &block(); print "サブルーチン実行後: $variable\n"; #サブルーチン本体 sub block{ my($variable) = "ローカル"; print "\…

#localで定義した変数が別のサブルーチンで変更できることを確認する &modify_local(); #サブルーチン本体 sub modify_local{ #ローカルで定義 local($local_value) = "元のテキスト"; #ローカルで定義 my($my_value) = "元のテキスト"; print "[実行前]\n";…

#localとmyのテスト #localで宣言した変数の値は別のサブルーチンから参照できるが、myで宣言下変数の値は参照できない #サブルーチン呼び出し &local_my(); #サブルーチン本体 sub local_my{ #localによる定義 local($local_value) = "太郎"; #myによる定義…

#ハノイの塔 #サブルーチン呼び出し &hanoi(3, "左", "中", "右"); #サブルーチン本体 sub hanoi{ my ($disk, $bar1, $bar2, $bar3) = @_; #円盤が1つ以上残っている if($disk > 0){ #再帰呼び出し1 hanoi($disk - 1, $bar1, $bar3, $bar2); #移動内容を表示…

#戻り値を持つhello_retサブルーチンの呼び出し #サブルーチン呼び出し $string = &hello_ret("花子"); #戻り値を表示 print "戻り値： $string"; #サブルーチンの定義 sub hello_ret{ my($name) = @_; #文字列を返す "こんにちは、私は$nameです。\n"; } #…

#引数を取るサブルーチンの呼び出し #サブルーチン呼び出し &hello_arg("太郎"); #サブルーチンの定義 #サブルーチンの引数はリスト@_に入る。myを使ってローカル変数として定義する。 sub hello_arg{ my($name) = @_; print "こんにちは、私は$nameです。\n…

#helloサブルーチンの呼び出し #サブルーチンの呼び出し &hello(); #サブルーチンの定義 sub hello{ print "こんにちは、サブルーチンです。\n"; } #実行結果 # こんにちは、サブルーチンです。 初めてのPerl 第6版作者: Randal L. Schwartz,brian d foy,Tom…

#入力した文字列と数値をパックして表示した後、元の文字列に戻して再表示する。 #packとunpackのテスト #pack("format", list) #unpack("format", variable) print "文字列を入力してください＞"; $string = <STDIN>; chomp($string); $length = length($string); </stdin>…

#スペース文字で区切った数値リストを整列する print "要素をスペース文字で区切った数値のリストを入力してください＞"; $numbers = <STDIN>; chomp($numbers); #ソートして表示 print join(", ", sort{$a <=> $b} (split(/\s+/, $numbers))),"\n"; #実行結果 # 要</stdin>…

#lengthのテスト print "文字列を入力してください＞"; $string = <STDIN>; chomp($string); #長さを調べる print "文字列の長さ：", length($string), "\n"; #実行結果 # 文字列を入力してください＞perl is a practical extraction and report language # 文字列</stdin>…

#chopとchompの比較 $string1 = "perl\n"; $string2 = $string1; #chopとchompをそれぞれ２回実行する chop($string1); chop($string1); chomp($string2); chomp($string2); #表示 print "chop: $string1\n"; print "chomp: $string2\n"; #実行結果 # chop: …

#joinを使って配列の要素を合成する #配列の各要素を文字「、」で区切って表示する。 print "文字列を入力してください："; $string = <STDIN>; chomp($string); #スペース文字で区切る @words = split(/\s+/, $string); #各要素の間に,を入れて表示 print join(","</stdin>…

#split関数を使ってスペース文字の前後の文字列を取り出す print "文字列を入力してください＞"; $string = <STDIN>; chomp($string); #スペース文字で２つに区切る ($pre, $post) = split(/\s+/, $string, 2); #スペース文字の前後の文字列を表示 print "最初の文</stdin>…

#split関数を使って文字列をスペース文字で区切り、配列に代入する print "文字列を入力してください＞"; $string = <STDIN>; chomp($string); #スペース文字で区切る @words = split(/\s+/, $string); foreach(@words){ #各要素を表示 print "単語：$_\n"; } #実行</stdin>…

#printfとsprintfのテスト #文字列 #%sは文字列を表す変換文字。%sは「私は太郎です。」に置き換えられる。 printf("文字列：\t%s\n", "私は太郎です。"); #整数 #整数値を表す%dという変換文字、０はスペースの代わりに0を入れて右揃えにする効果、 #8は整…

#print関数の実験 $_ = "こんにちは。\n"; #特殊変数$_を表示 print; #ファイルprint.txtをオープン open(F, ">print.txt"); #特殊変数$_をファイルハンドルFに定義付けられているファイルprint.txtに書き出す print F; close(F); #リストを表示 print("私",…

#スペースで区切られた２つの入力文字列の順番を入れ替えるスクリプト $string = <STDIN>; chomp($string); #正規表現内で（）を使うと、マッチング変数$&,$`,$'は無効になり、代わりに（）を順番に並べた時は、マッチした内容がその順番で特殊変数$1,$2,...に入る</stdin>…

#eオプションを使って、マッチした数値を計算に使う。2つの数値をスペースで区切って入力すると、それらの数値の積を表示数r。 #スペース文字で区切った2値の積を表示 print "2つの数値をスペースで区切って入力してください。>"; $string =<STDIN>; chomp($string)</stdin>…

#簡単な置き換え $string = <

#入力された英文を単語ごとに区切り、「単語：区切られた単語」のように表示するスクリプト $ward = <STDIN>; chomp($ward); print "単語：$&\n" while($ward =~ /\w+/g); #実行結果 #There's more than one way to do it # There's more than one way to do it # </stdin>…

#oオプション #oオプションをつけると、最初のマッチ時に展開した変数の値をそれ以後のマッチでも使い続ける。 #配列と初期マッチ文字列の定義 @array = ("Perl ABC", "ABCDEF", "Perl", "ABC"); $serch = "ABC"; #途中で$serchの値を変更する print "oなし…