自分のための日記: Catalystのインストール（その３）
昨日のつづき。 インストールログに以下のようなログがあったので、 HTTP::Message content not bytes at lib/Test/WWW/Mechanize/Catalyst.pm line 88 # Looks like your test died before it could output anything. Dubious, test returned 255 (wstat 65280, 0xff00) Failed 5/5 subtests t/multi_content_type......# ################################################################### # Starting an external Catalyst HTTP server on port 7357 # To c
KCatch.pm / Perl CGI エラーメッセージをブラウザに表示
KCatch.pm は Perl CGI で発生する Internal Server Error を補足して、 エラー内容を HTML としてブラウザ画面に表示してくれるモジュールです。 エラーの発生した行番号なども表示されるので、サーバ上での開発に最適です。 安定版ダウンロード: KCatch-1.13.tar.gz TAR.GZ （2002/07/01版） 開発版ダウンロード: KCatch.pm SVN （CodeRepos） CodeRepos にソースを移動しました！（2007/12/23） KCatch.pm のもっとも簡単な使い方 KCatch.pm のより適切な使い方【オススメ】 KCatch.pm の主なオプション 頻出エラーメッセージ マニュアル 英語版 （Ver.1.13対応） マニュアル 日本語版 （Ver.1.10対応） KCatch ニュース KCatch.pm
perldiag - さまざまな Perl 診断メッセージ - perldoc.jp
These messages are classified as follows (listed in increasing order of desperation): (W) A warning (optional). (D) A deprecation (optional). (S) A severe warning (default). (F) A fatal error (trappable). (P) An internal error you should never see (trappable). (X) A very fatal error (nontrappable). (A) An alien error message (not generated by Perl). (W) 警告 (オプション) (D) 非推奨 (オプション) (S) 重大な警告 (デフォルト)
perlメモ - tomimemo
#contents *split関数 「1234567890,hogehoge」というカンマ区切り文字列をスプリットする。split_test.plというファイル名で作成。 #!/usr/bin/perl $mojiretu = '1234567890,hogehoge'; @ret = split(/,/ , $mojiretu); print $ret[0]."と".$ret[1]."に分割されました\n"; 上記スクリプトを実行してみる。 # perl split_test.pl 1234567890とhogehogeに分割されました 「1234567890｜hogehoge」という「｜」で分割されている場合は、エスケープしなくてはならない。 #!/usr/bin/perl $mojiretu = '1234567890|hogehoge'; @ret = split(/\|/ ,
Error
NAME Error - Error/exception handling in an OO-ish way VERSION version 0.17029 SYNOPSIS use Error qw(:try); throw Error::Simple( "A simple error"); sub xyz { ... record Error::Simple("A simple error") and return; } unlink($file) or throw Error::Simple("$file: $!",$!); try { do_some_stuff(); die "error!" if $condition; throw Error::Simple "Oops!" if $other_condition; } catch Error::IO with { my $E
cat1/perldiag.1
perldiag - Perl の診断メッセージ（Ｃ後半） 説明ページ Can't goto subroutine outside a subroutine (F) 結構マジカルな "goto subroutine" の呼び出しは、あるサブルーティン呼び出しを別のもので置き換えるだけです。反物の状態から作り上げることはできません。一般に、これを行なうのは、AUTOLOAD ルーティンから抜け出すときだけにしておくべきです。perlfunc manpage の goto の項を参照してください。 Can't locate %s in @INC (F) ファイルを do (または、require、use) するように指示されましたが、@INC で示されるライブラリの中に見つかりませんでした。おそらく、追加ライブラリの場所を示すために、PERL5LIB 環境変数を指定する必要が
Perl の多言語処理 -- Perl ヒント集 (ja)
エンコードの処理の基本 Perl 5.8 以降，テキストの処理が UTF-8 (Unicode の変換形式のひとつ) を軸におこなわれるようになりました。Shift JIS や EUC-JP での処理が一般的な日本語を Perl で扱う場合，エンコードを意識したプログラミングをおこなうことが必要になります。具体的には，Perl でエンコードを意識する必要のあるのは以下の箇所です。 スクリプト自体のエンコード ファイルの入出力 標準入出力 標準エラー出力 データベース，CGIなどプロセス間のインターフェース Perl 5.8 では内部処理が UTF-8 で行われますが，特にエンコードの指定がされない場合，テキストは文字単位ではなく，バイト単位で処理されます。バイト単位で Shift JIS などのテキストを処理することもある程度可能ですが，2バイトの文字が文字として認識されていませんから，正
Wide character in print at ...
[Perl] Wide character in print atというエラーはUTF-8フラグが付いた文字列をprintしようとしているからである。なのでUTF-8フラグを取り外してからprintすればエラーがでなくなります。UTF-8フラグが付いているかどうかはutf8::is_utf8を使用すればよい。 #UTF8フラグが付いているかの確認 utf8::is_utf8では実際の文字列がUTF-8かどうかではなく、あくまでフラグがついているかどうかを確認します。そのため、UTF-8の文字列もフラグが付いていなければ上記の出力はno flagとなります。またutf8::is_utf8はuseしなくても使用できる。useすると全然違う意味あいになるので注意。 UTF-8フラグが付いていたら、encodeを使用してフラグをはずします。以下の例では$stringをutf-8に変換して出力します
SBP：結城浩の「Perlクイズ」
sub A() { 'A' } sub B() { 'B' } sub C() { 'C' } our $reg = { A => 0, B => 0, C => 0, }; sub _get { my ($s) = @_; return $reg->{$s} if $s =~ /\D/; return $s; } sub get { my @result; foreach (@_) { my $value = $_; push(@result, (/\D/) ? \$reg->{$_} : \$value); } return @result; } sub mov { my ($dest,$src) = get(@_); $$dest = $$src; } sub out { my ($src) = get(@_); print "$_[0]=$$src\n"; } sub add {
Use of uninitialized value の傾向と対策 - bonar note
テストスクリプトで Use of uninitialized value の valuewarning を出しまくってみました。 #!/usr/bin/perl use strict; use warnings; my $str; # undifined string my %hash; # undifined hash # Use of uninitialized value in pattern match # Use of uninitialized value in substitution $str =~ /a/; $str =~ s/a/b/g; my $foo = 'hello'; $foo =~ s/hell/$str/; # Use of uninitialized value in string eq # (numeric eq, ==, lt, gt, ...) if
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
