オープンするためのファイルを作成しておく てすとてきすと テストテキスト test.txt ファイルをオープンして内容を表示するスクリプト #ファイルtest.txtを読み込み専用でオープンした後、その内容を画面に表示してからクローズする。 #ファイルをオープン…
#utf8モジュールを使って、UTF-8文字エンコーディングで日本語変数名を指定する。 #UTF-8の変数名を使う # utf8_consumption_duty.pl #モジュール呼び出し use utf8; $消費税率 = 0.08; print "subtotal: "; $小計金額 = <STDIN>; chomp($小計金額); $消費税額 = $</stdin>…
#オブジェクト指向モジュールの一つBenchmarkを使ってベンチマークのテストを行う #ベンチマーク #benchmark.pl #モジュール呼び出し use Benchmark; #1つ目のベンチマークオブジェクト $before_time = new Benchmark; #500000カウントの計算 &recursive(500…
#File::Copyを使ってファイルをコピー #copy.pl #モジュール呼び出し #File::Copyモジュールを呼び出す use File::Copy; #引数が二つ以上の時はusageサブルーチンを呼び出してコピー命令の使い方を表示する。 if(@ARGV != 2){ #引数が2つ以上の時には使い方…
helloという名前のパッケージを定義する #パッケージ化したhelloモジュール # hello_package.pm # helloという名前でパッケージを定義 package hello; #このサブルーチンはhello::helloとして呼び出す sub hello{ my($name) = @_; print "こんにちは、$name…
#BEGINとENDのテスト #begin_end.pm #BEGINルーチン BEGIN{ print "モジュールを開始しました。\n"; } #ENDルーチン END{ print "モジュールを終了しました。\n"; } 1; モジュールを読み込むスクリプト #begin_endモジュールを読み込む #begin_end_call.pl p…
設定ファイルをを作成する #設定ファイル #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); #移動内容を表示…
#returnを使って戻り値を返す #サブルーチン呼び出し $string = &hello_return("花子"); #戻り値を表示 print "戻り値： $string"; #サブルーチンの定義 sub hello_return{ my($name) = @_; #文字列を返す return("こんにちは、わたしは$nameです。\n"); } #…
#戻り値を持つ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>…
