広告
広告
即座にコアダンプを行なう関数です。プログラムの先頭ですべての変数を初期化したあとのコアダンプをundump プログラムを使って実行ファイルに返すことができます。この新しいバイナリが実行されると、goto LABEL から始めます。コアダンプをはさんで再生する goto と考えたらよいでしょう。LABEL が省略されるとプログラムを先頭から再開します。dump 時点でオープンされていたファイルはプログラムが再生されたときには既にオープンされていません。Perl を部分的に混乱させる可能性がありますので注意が必要です。
#!/usr/bin/perl require 'getopt.pl'; require 'stat.pl'; %days = ( 'Sun' => 1, 'Mon' => 2, 'Tue' => 3, 'Wed' => 4, 'Thu' => 5, 'Fri' => 6, 'Sat' => 7, ); dump QUICKSTART if $ARGV[0] eq '-d'; QUICKSTART: Getopt('f');
広告