Log::Log4perl
NAME Log::Log4perl - Log4j implementation for Perl SYNOPSIS # Easy mode if you like it simple ... use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($ERROR); DEBUG "This doesn't go anywhere"; ERROR "This gets logged"; # ... or standard mode for more features: Log::Log4perl::init('/etc/log4perl.conf'); --or-- # Check config every 10 secs Log::Log4perl::init_and_watch('/etc/log4perl.conf',10); --
第11回 ログでアプリケーションの改善プロセスを回す（2） | gihyo.jp
Perlからログを出力方法 ここからは、実際にPerlでログを出力する方法をコードを交えながら説明します。 Perlのスクリプトから最も簡単にログを吐くには、組込み関数のwarnを使います。 warn "request timeout"; これを実行すると、標準出力に対して、 request timeout at log.pl line 7. のようにwarnを記したファイル名と行があわせて出力されます。 しかしこれだけでは前節で説明したログに必要な項目を満たしていないので、情報を追加していきます。 my @time = localtime(); warn sprintf "%04d-%02d-%02dT%02d:%02d:%02d [%s] %s", $time[5]+1900, $time[4]+1, @time[3,2,1,0], ―（1） "WARN", ―（2） "request
Encode 日本語などのマルチバイト文字列を適切に処理する - Perl入門〜サンプルコードによるPerl入門〜
Perl › モジュール › here 日本語などのマルチバイト文字をPerlで適切に扱うにはEncodeモジュールを使用します。次の3つのことを覚えておけば多くの場合適切に日本語を扱うことができます。 外部から入力された文字列はEncodeモジュールのdecode関数でデコードする 外部へ出力する文字列はEncodeモジュールのencode関数でエンコードする ソースコードはUTF-8で保存しutf8プラグマを有効にする この解説での用語 この解説では外部から入力された文字列のことを「バイト文字列」と呼ぶことにします。Perlの内部表現に変換された文字列を「内部文字列」と呼ぶことにします。また「バイト文字列」が特定の文字コードで記述されている場合は「UTF-8バイト文字列」「Shift_JISバイト文字列」などと呼ぶことにします。 プログラミングで日本語を扱う場合にその文字列がバイト文字
Email::Senderから外部のSMTPサーバ経由でメールを送る | UCWD-Studio
Email::Senderを利用して外部のSMTPサーバ経由でメールを送る場合、Perlによるメール送信(Email::Sender)のサンプルを以下のように書き換えて対応できます。 use strict; use warnings; use utf8; use Encode qw(encode); use Email::MIME; use Email::MIME::Creator; use Email::Sender::Simple qw(sendmail); use Email::Sender::Transport::SMTP; my $from = q("送信者の名前" <from_mail@example.jp>); my $to = q("受信者の名前" <to_mail@example.jp>); my $subject = 'メールの送信テスト'; my $body = 'ち
Perlによるメール送信(Email::Sender) | UCWD-Studio
Perlでのメール送信といえばEmail::Sendを利用する方法がスタンダードですが、メンテが終了し、後継のEmail::Senderへの移行が促されているようなのでEmail::Senderの学習テストを兼ねてみました。 今回はEmail::Senderを使った初めってことで、単純にPerlからテキストのメールを送信するだけのケースについて。 use strict; use warnings; use utf8; use Encode qw(encode); use Email::MIME; use Email::MIME::Creator; use Email::Sender::Simple qw(sendmail); my $from = q("送信者の名前" <from_mail@example.jp>); my $to = q("受信者の名前" <to_mail@example
コマンド - とほほのWWW入門
■ コマンドを実行する（system） ◆ systemによるコマンド実行 system() は、指定したコマンドを実行します。下記の例では netstat というネットワーク関連の情報を表示するコマンドを実行しています。 system("netstat -a"); 関数の戻り値として 実行ステータス を返します。実行ステータスは実行結果を示す整数値で、通常、成功すれば 0、失敗すれば 0 以外の値になります。 $retcode = system("netstat -a"); system() では、コマンドが終了するまで処理を Perl に戻しません。 ■ コマンドの実行結果を読み取る(1)（`...`, qx/.../） ◆ `...` によるコマンド実行 コマンドの実行結果を変数に読み取るには、`...` を用います。` はクォーテーションではなく、バッククォーテーションなので注意し
Perlでスレッド処理を行うサンプル少し - ナマアシタノム
はじめに Hatena::Bookmark::24hのHTMLデータを生成する際にはてなブックマークの個別ページRSSを複数件取得するわけですが、取得処理を勢いで作ってしまったためにスレッド化されていなかったりします。 早い話が１件目のRSS取得→完了→解析→２件目のRSS取得→…のように直列動作させてしまっている状況です。これは効率悪そうです。 並列で複数のRSSが取得できれば処理時間の短縮になりそうですね。ちなみにPerlには並列動作を行う仕組みとしてスレッドが組み込まれているようで、今日はPerlでスレッド処理を行うための処理をメモしておこうかと思います。 注意 実験した環境はWindows XP(SP3)/ActivePerl 5.8.8(Build819)です。それ以外の環境では動作確認していません。 サンプル１：スレッド生成＆実行 概要 スレッドを複数個生成・配列(@threa
Perlでマルチスレッド
2003年3月15日 (土) - Perl ithreads 休日なので、 Perl 5.8.0のマルチスレッドプログラミングで遊ぶ。 use v5.8.0; use strict; use threads; my $thread1 = threads->new(\&main, "One"); my $thread2 = threads->new(\&main, "Two"); $thread1->join; $thread2->join; print "done.\n"; sub main { my ($name) = @_; for (1..10) { print "I am $name ($_)\n"; threads->yield(); } } 以下が実行例。 I am One (1) I am One (2) I am Two (1) I am One (3) I am Two
Let'sプログラミング
Let'sプログラミングでは初心者の方を対象にJavaやPython、PHP、Rubyなど色々なプログラミング言語の解説を行っています。 Java Java入門 これからJavaを使ったプログラミングの習得を目指している方を対象としたチュートリアルです サーブレット(Servlet) / JSP入門 サーバサイドで動作するアプリケーションの作成方法 Androidプログラミング入門 モバイル向けプラットフォーム Android で動くアプリの作成 Swingを使ってみよう GUIを使ったJavaアプリケーションの作成で使用するSwing入門です Eclipse入門 開発環境として広く使われているEclipseのインストールと活用法 Javadocの記述 ソースコードからHTML形式の仕様書を生成します Apache POIでExcelを操作 Excelファイルの作成・操作
初めてのCatalyst入門（11） プラグイン＆モジュール大全
はじめに 前回までで、Catalystのインストールからアプリケーションの作成、そしてテスト方法について、概要レベルではありますが一通りの内容を紹介しました。 Catalystも、他のWebアプリケーションフレームワーク同様に、プラグインやモジュールを使用することでさまざまなフォーマットやデータベースなどに対応させることができます。これまでの連載でも、いくつかのプラグインやモジュールを紹介してきましたが、その中ではあまり触れることのなかったものを中心に、今回と次回の2回を使って紹介していきます。 まず前半となる本記事では、開発時に便利なプラグインやWeb API関連のビューモジュールなどを見ていきましょう。 対象読者 Perlで簡単なスクリプトを作成したことのある方 Webアプリケーションの基本的な仕組み（HTTPリクエスト、レスポンスなど）についての知識のある方 WebAPIに関する基本
[linux][perl] qmailのbare LF問題でつまづいた « 岩家ぶろぐ
はじめに 現在のお仕事で使っているサーバで Mail::Sendmail を使ったメールの送信でつまづいたので，ひとまずの解決までをメモしておきます． メール送信コード： before Mail::Sendmail は，サーバ上の任意のSMTPを経由してメールを送信するモジュールで，簡単なコードを書くだけでメールの送信が行えます． Milivoj Ivkovic / Mail-Sendmail - search.cpan.org ... use Mail::Sendmail; use Encode; ... my $subject = '...'; $subject = encode( 'MIME-Header-ISO_2022_JP', decode( 'utf-8', $subject ) ); my $body = encode( 'jis', decode( 'utf-8', '.
狐の王国 Perlでそうそう文字化けしない文字コード変換のやり方まとめ
#2 Perlでそうそう文字化けしない文字コード変換のやり方まとめ なんかチャット仲間のところで動いているPerlスクリプトなのだが、いくつかのサイトの情報を取得する代物。この日記も取得してるのだが、なぜかうちサイトだけ文字化けする。 で、コードを見せてもらったら、NKF.pmだのjcodd.plだのJcode.pmだの使ってて、それぞれのライブラリに文字コード判別任せてるみたい。ずいぶん昔のコードなんだろうなあ。 というわけで、自分のためのメモという意味もこめて、文字化けしにくい現代的な文字コード自動判別のやり方を書いておこう。 use Encode; use Encode::Guess qw/ascii utf8 euc-jp shiftjis 7bit-jis/; my $dec = Encode::Guess->guess($str); if (ref $dec) { # utf8
Devel::Cover - モダンなPerl入門 - モダンなPerl入門
テストを漫然と書いても、網羅率の高いテストは書けません。「ふう。よく書けた」とおもって も、実はまだ網羅できてないところがあるものです。そんなわけで、網羅率をはかるために Devel::Cover をつかうとよいでしょう。 使い方は簡単です。 perl Makefile.PL make test するかわりに perl Makefile.PL HARNESS_PERL_SWITCHES=-MDevel::Cover=+ignore,inc make test cover または perl Makefile.PL cover -test -ignore_re "^inc/" とするだけ。 これで、モジュールのコードとt/以下のテスト内容を調べてカバレッジ率を出してくれます。 incをよけてるのはModule::Installのカバレッジを取っても仕方ないためです。 HTML が出力されるので
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Debian(Ubuntu) で PerlモジュールをインストールしたいときはCPANを使わなくても良い | レンタルサーバー・自宅サーバー設定・構築のヒント
Cwd module - miau's blog?
perl-mongers.org
perl-mongers.org
「Perl 5.12.0」リリース 2007年12月以来の安定版メジャーバージョンアップ
Perlでの複数行コメント
初めてのCatalyst入門（8） Catalystのビュープログラミング
