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
とある言語の例外処理 またはTry::Tinyの落とし穴 - Articles Advent Calendar 2010 Casual
今年の Advent Calendar もいよいよ中盤戦。 もういくつ寝ると、メリーク×ト×ス！ 最近、休日になると漫画を大人買いするのが趣味になってしまったいけない大人になってしまった僕ことzentoooですが、最近のお気に入りは「未来日記」です。あー由乃かわいいなーかーわいいなーーーかーーーわいーなあーーーーあーあーあーーーーーーあーーーーーーーーーーー頭おかしいけど。 ふぅ。 さて、みなさん、コード書いてますか、コード読んでますか。 短く簡潔なコードを読むと、気持ちもスッキリしますね。 でも、たまには例外処理なんてどうですか。 Perlで例外処理ができるなんて、なんか渋くないですか。 Perlにおけるベーシックな例外処理 冗談はさておき、初めてのPerlというハレンチな本を読んだりすると、多分書いてあるのは以下のような方法による例外処理です。実際に初めてのPerlに書いてあるかどうか
Perlのswitch文とif/else文のベンチマークを取ってみた - $web->{note};
ちょっとしたスクリプトをPerlで書いてて、 $hogeが文字列aのときは文字列a'を返す $hogeが文字列bのときは文字列b'を返す <略> $hogeがどれにもマッチしない場合はhogeを返すみたいなよくある処理をする必要が出てきて、見やすいからという理由で use Switch してswitch文を使ってたんだけど、if/else で書くのとどっちが早いのか気になったのでベンチマークを取ってみた。 別件でperldoc眺めてたら5.10.0から use feature "switch" でPerl6ライクなswitch文が使えることがわかったので、それも比較対象に。 テストコード #!/usr/bin/env perl use strict; use warnings; use Switch; use feature "switch"; use Benchmark qw( cmpt
どさにっき - #!/usr/bin/env
2006年6月21日(水) ■ DomainKeys _ えーと、DomainKeys ってのは要するに電子署名なので、署名された後でヘッダや本文が改変されると検証に失敗する。DomainKeys はメーリングリストに弱いと言われる理由のひとつですな。 _ 自宅 postfix に milter を導入したので、DomainKeys を検証できるようにしてこのあたりの動作を注意深く観察してるのだが、このまえはじまった DNSOPS.JPのメーリングリストからのメール。 Authentication-Results: mx.maya.st sender=ロボットによる収集回避@dnsops.jp; domainkeys=pass なんで pass しとんねん。ML が Subject をいじってるんだから fail になるはずなんだが。Subject をいじらないメーリングリストとか、いじっ
本当は怖いstrptimeと%Y%m%dの関係 | Nekoya press
「%Y%m%d」をstrptimeで処理すると曖昧になることを今更ながらに知りました。 社内で「201312」を渡すとキモいという話が出て、 Pythonでdatetime.datetime.strptime('201312', '%Y%m%d')がエラーにならず1月2日として成立するの具合悪いと思うの — nekoya (@nekoya) June 7, 2013 ってPostしたら@hirataraさんが「2013129と2013130もキモいぞ」と教えてくれました。 普段は%Y-%-%dを使うんだけど、URLに日付を埋め込む場合はデリミタ無しの方が自然だなーと思ったらご覧の有様だよ。 Python2.7.1 >> datetime.strptime('201312', '%Y%m%d') datetime.datetime(2013, 1, 2, 0, 0) >> datetime.
スタックトレースを表示してくれる、diagnosticsプラグマ - 日々量産
dieすると、そのdieした場所の行しか教えてくれないので、 何から呼ばれたのか、とかそういった情報がなかったので、今までprintデバッグでトレースしてました。 diagnosticsプラグマを指定しておくと、dieしたときとかにスタックトレースを出してくれます。知らなかった。 http://perldoc.jp/docs/modules/diagnostics-1.17/diagnostics.pod
perl -de 1 : 404 Blog Not Found
2004年11月22日17:05 カテゴリ一日一行野郎 perl -de 1 「perlをrubyやpythonのようにインタラクティブに使うにはどうしたらよいか？」という質問の答えがこれ。perldoc -q "use Perl interactively"でその原理を見る事ができる。実行すると、こんな画面になる。 Loading DB routines from perl5db.pl version 1.27 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(-e:1): 1 DB<1> ここから任意のコードを実行できる上、よく使うものに関してはdebuggerのコマンドとして省略形で実行できる。 私がよく使うのが計算機がわり。こんな感じだ。 DB<
デバッグ - とほほのWWW入門
■ 文法ミスをチェックする（-wc） ◆ -wc オプション perl を -wc オプションで実行することにより、スクリプトファイルの文法チェックを行うことができます。-w は警告（ワーニング）メッセージまで表示することを、-c はスクリプトの構文チェックのみを行って実行せずに終了することを意味します。-w により、通常はエラーにはならない、警告レベルの指摘もチェックすることができます。 ◆ チェックの実例 例えば、下記のようなスクリプトがあるとします。 $num = 26; $msg = num; print "$msg\n"; $msg = $num; とするつもりが、$ を書き忘れて $msg = num; となっています。Perl では、無理にダブルクォーテーションで囲まなくても、それが文字列としてしか解釈できないものであれば文字列として解釈してしまうので、26 と表示して欲しい
TimePiece - オブジェクト指向な時間オブジェクト
名前¶ Time::Piece - オブジェクト指向な時間オブジェクト 概要¶ use Time::Piece; my $t = localtime; print "Time is $t\n"; print "Year is ", $t->year, "\n"; 説明¶ This module replaces the standard localtime and gmtime functions with implementations that return objects. It does so in a backwards compatible manner, so that using localtime/gmtime in the way documented in perlfunc will still return what you expect. このモジュールは、標準の
Time::Piece - 日付・時刻を扱う新しい方法 - Perl入門ゼミ
Perl › モジュール › here Perlの5.10からTime::Pieceと呼ばれる時刻を便利に扱うためのモジュールが標準モジュールに加わりました。Perlの5.10以上を使用している場合はTime::Pieceモジュールを日付と時刻を扱いたい場合に利用すると便利です。 従来のPerlでは日付や時刻を直感的に扱う手段が標準モジュールにはありませんでした。日付や時刻を扱うためには少し面倒な作業が必要でした。Time::Pieceは日付と時刻の直感的な操作を提供します。また日付・時刻の書式化の機能や解析する機能も備えます。 Perlには実質的に日付を扱うモジュールのスタンダードといえるDateTimeというモジュールがあります。ただしこのモジュールは標準モジュールではなくCPANからインストールする必要があります。また巨大なモジュールですのでモジュールを読み込む時間が非常にかかります
Perlで日付・時間を操作 - DateTime モジュールの使い方 (iandeth.)
Perlには、日時の加・減算を扱うモジュールが標準でついてきません。僕の仕事場ではずっと、同僚が作ったオリジナルモジュールを皆で使いまわしていたのですが、今になって、世間的 (CPAN) にはどんなものがあるのか気になって調べてみました。※参考になったのは miyagawa 氏のメールマガジンの過去記事と、perl.com の The Many Dates and Times of Perl なるエントリでした。 今回は数ある日付関連モジュールの中から、Dave Rolsky氏の DateTime モジュールについて、その基本的な使い方について簡単にまとめたので共有してみます。 同氏は上記 perl.com 記事の執筆者であり、この前の YAPC::Asia で DateTime project について講演してくれていた人です。気合の入ったモジュールを作ってくれた事に感謝。 目次 基本
誰もが一度は陥る日付処理。各種プログラミング言語におけるDateTime型/TimeStamp型の変換方法のまとめ - Y's note
日付型の変換処理 Date/Timestamp変換のまとめ - Yuta.Kikuchiの日記 10言語のプログラミング言語に対してそこそこの知識を保有している@yutakikucです。いろんなプログラミング言語を使用していると文法を覚えるのは大変ですよね。PHP書いている途中からJavaScriptの文法を誤って書き始めたり... それぞれの言語の文法の違いを事細かく覚える事は無理に近いです。今日はそんな各種言語仕様の記述で難解なDateTime/TimeStampについて紹介したいと思います。扱うのはWeb系のメジャープログラミング言語のSQL/C++/Java/JavaScript/Perl/PHP/Python/Rubyになります。Mysqlからデータを取り出した後や、WebAPIから取得したデータを表示用の日付フォーマットに変換する事があると思うのでそこで利用できる知識になるかと
SQLiteのTIMESTAMP型のフィールド値をPerlのDateTimeモジュールで日本時間に変換 - CLの日記
ログ格納をSQLiteでやろうとするとctimeをTIMESTAMP型にして勝手に格納されるようにすると便利なんですけれどもこれはMySQLのTIMESTAMPと同じ書式で格納されて、当然ながらタイムゾーンがUTCになっています。 つうわけで、これを日本時間にして取り扱う戦略としては、DateTime::Format::MySQLを使うといいなーていうのが１点目。 次に、DateTime::Formatでは、生成したオブジェクトにタイムゾーン指定しないと、勝手に'UTC'になるなんてことはなく、曖昧なままのよう。だから、一度明示的に $dt->set_time_zone ( 'UTC' ); でタイムゾーンをUTCに指定してあげないと、時刻を正確に示しているオブジェクトにはならないっていう点が２点目。 use DateTime::Format::MySQL; my $timestamp =
CPAN DateTime::Formatまとめメモ « ku
こないだ MechanizedSeleniumでtwitterからnowaに投稿 を作ったときにメモったままそのままにしてたのを投稿。 perlだと DateTime::Format::* を使って my $str = "Tue, 01 May 2007 03:08:27 +0000"; my $dt = DateTime::Format::HTTP->parse_datetime($str); $dt->>epoch; で全部解決だけど日付フォーマットの名前がわからないとどのモジュールを使えばいいのかわからない。というわけでメモ。 DateTime::Format::HTTPのドキュメントにいくつかのフォーマットとその名前がリストされていてわかりやすかったです。 ISO8601 2006-11-22T18:37:34+0000こんなやつ。XMLRPCで日付を渡すときに使います。 My
warn関数 - 警告を出力する - Perl入門ゼミ
Perl › 関数 › here 警告を出力するにはwarn関数を使用します。メッセージの末尾には警告が出力された行番号が自動的に追加されます。行番号を表示させないようにするには末尾を改行で終えます。 # 警告を出力する # 行番号あり warn $message; # 行番号なし warn "$message\n"; 実際にwarnが行っていることは標準エラー出力にメッセージを出力することです。行番号が含まれていることと「__WANR__」シグナルを発生させることを除いて次のprint文と同じです。警告を意味しない場合でも標準エラー出力にメッセージを出力したい場合にはwarnが利用されることがあります。 # warnの意味は標準エラー出力への出力とほぼ同じ perl STDERR $message; 警告をキャッチする 警告をキャッチすることができます。warnが実行されると__WARN
unless文を使った条件分岐
if 文では条件式を評価した結果が真だった場合に、そのあとに記述されたブロック内の処理を実行しますが、 unless 文では条件式を評価した結果が偽だったばあに、そのあとに記述されたブロック内の処理を実行します。ここでは Perl で unless 文を使った条件分岐を行う方法について解説します。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://argrath.ub32.org/perldocjp/5.10.0/perlfunc.html
移転しました
初めて Perl でコードを書く時に知っておきたかったこと - あらびき日記
http://www.ubuntu-gui.com/ubuntu/mechanize_install/