メールログを解析する簡易 Perl スクリプト
「あなたの作ったメール配信システムはエラーメール処理をしていますか？」 という記事が結構よく読まれています。最近は本業の方でもメール未達について調べて欲しいとかいろいろ頼まれた経緯もあり、そのときにでっちあげたスクリプトを晒しておきます。誰かの役にたちそうだなぁ〜と思いまして。 ちなみにメールログの形式は qmail のものでしか試したことがないので各メールサーバにあわせて若干の改変は必要かもしれませんがあしからず・・・。 実行結果例（※解析結果の変数がダンプされます） OK:$VAR1 = { '36224868' => { 'drk@****.jp' => '2008-03-03 19:30:20.173540500 delivery 36224868: success: 127.0.0.1_accepted_message./Remote_host_said:_250_ok_dird
404 Blog Not Found:perl - ワンライナーの書き方入門
2008年03月30日19:45 カテゴリLightweight Languages一日一行野郎 perl - ワンライナーの書き方入門 まあ、ruby のコマンドラインオプションって、Perl由来ですから。 Rubyでワンライナーを書く方法のまとめ まぁ、Perlもあるしあんまり需要が無いのかも知れませんが。 というわけで、Rubyistにも役立つPerlのワンライナー入門です。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e 'print "Hello, World!\n"' Hello, worl
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
I, newbie » Perlをこれから学ぶ人たちへ送る言葉
Perl 5.6.x以降を使え(可能なら5.8.x以降) 常に”use strict;”を使うこと 常に”use warnings;”を使うこと 信頼できないデータを扱うなら”-T”オプション(taint mode)を使うこと 警告を無視しないこと。 “use diagnostics;”と”perldoc perldiag”を参照のこと perlcriticを使うこと。Perl Best Practice嫁 perltidyを使うこと “perldoc perlfaq”を読むこと。最初のうちに感じる疑問のほとんどはそこに回答が書いてある 問題はCPANで解決されている! 他に何かありますか? One Response to “Perlをこれから学ぶ人たちへ送る言葉” H.I. Says: March 14th, 2008 at 10:03 am 1は「5.8以降を使え（不可能なら最低5
2008/03/12 - memo - unknownplace.org
ImageMagickのconvertコマンドをsystem関数でたたいてた古いプログラムを動かす必要があったのだが、そのためだけにImageMagickインストールするとか面倒すぎたので、perlでconvertコマンド的なものを書いてお茶を濁した。 ファイル形式の変換とリサイズしかできない。 #!/usr/bin/env perl use strict; use warnings; use Getopt::Long; use Imager; use Path::Class qw/file/; GetOptions( \my %options, qw/geometry=s/, ); my $in = file($ARGV[0]); my $out = file($ARGV[1]); my ($width, $height) = ($options{geometry} || '') =~
Part1 正しいPerl/CGIの書き方：ITpro
Shibuya Perl Mongers 2代目リーダーにして，ppencodeの作者。広島市立大学卒業後，大企業向けmod_perl製品の開発に従事。2005年よりサイボウズ・ラボ株式会社に入社。LL Ringに参戦。Namazu for Win32，Plagger，Ajajaのコミッターでもある。 CGIといえばPerl。そんな風にいわれていた時期もありました。レンタル・サーバーのCGIで手軽にPerlが使えたこともあり，ちょっとした掲示板のスクリプトやアクセス・カウンタなど，CGIプログラムの多くがPerlで書かれていました。このためPerlが爆発的に普及したのです。Perlは日本のインターネット黎明期を支えたプログラミング言語として，広くその名が知られています。 その半面，Perlで書かれたプログラムの保守性に悩む声も聞かれるようになりました。事実，Perlのプログラミング経験が少
I, newbie ? PerlでTCP 3way-handshake
3wayを生ソケットでやるのは基礎？ 「TCPの3wayを生ソケットでやるのは、セキュリティエンジニアの基礎である」という結論に至りました（ホントか？（笑））。ちなみに「tcp 3way raw socket」でググってみたのですが、日本語サイトは数えるほどしかヒットしませんでした（基礎なのに…）。まぁ基礎かどうかはおいといても、SYN floodというようなTCPの3wayを突く攻撃などもあるので、一度くらいはやってみても損はないかも…。 でも、raw IP socketってL4より上のレイヤしかいじれない。FreeBSDのip(4)によると”Outgoing packets automatically have an IP header prepended to them (based on the destination address and the protocol number
file-glob こと k.daibaの日記 - snmp trapをircで見る
何だかよくわからない スイッチのcpu使用率は急に落ち着いてきました．何もしてないんだけどなぁ．不気味です．だからって監視をやめてしまうと後が怖いので，継続してsyslogを見る事にしました．そんなとき普通は，syslogサーバにスイッチのlogを飛ばして/var/log/syslogを定期的に眺めるもんだと思いましたが，すぐに飽きてしまいそうなので，logをircに飛ばしてみることにしました． CISCO-SYSLOG-MIB 最初はsyslogファイルをtailして，差分をircに投げようかと思ったのですが，なんかアーキテクチャが気持ち悪い．専用のsyslogdを作ることもちょっと考えたんですが，偶然snmp trapでsyslogメッセージを送れる事に気がつきました．実際に snmp-server host loghost version 2c communityString sys
I, newbie » Perl初心者はどうやって勉強したらいいんですかね
「Perl初心者はどうやって勉強したらいいんですかね」というような質問を以前ある人から受けたのですが、ぶっちゃけ自分も大したコードは書けていないわけです。ずいぶん前に「プログラムも書けないで管理者と言えるか」みたいなことを言われて、「だったら書いてやろうじゃないの」と半ば反発しながら始めたのがきっかけで、毎日コードをガリガリ書いている本職(それ偏見)には遠く及ばない程度の実力なわけです。それでも、Perl4の頃のコードを見ると書き換えたくなるとか、「hash-basedなobjectよりinside-outですよ」と知ったかぶりしてみたりする程度にはmodernなPerlコードを書いているつもり。 で、質問に回答できるほどの経験も実力もないけれど、どうやってここまで学んできたかを振りかえってみた。 最初に手に取ったのは、「初めてのPerl」。訳文が理解を妨げるので今は原著しか読まないけど、
つくるぶ -デベロッパー応援プロジェクト
つくるぶをご利用いただきありがとうございます。 つくるぶは2008年9月30日をもって閉鎖いたしました。 誠に残念ではありますが、サイトオープン以来、多くの皆さまに支えていただきましたこと、心より御礼を申し上げます。 つくるぶをご訪問頂いた皆さま、ご自分のサイトを登録してくださった皆さま、つくるぶをご利用いただきありがとうございました。 大変申し訳ありませんが、会員情報および投稿していただいた情報は全て破棄させていただきました。 また、つくるぶの閉鎖に伴いブログパーツ「サイトスカウター」もサービスを終了させていただきます。 皆さまの今後のご活躍を応援しています。
萌えPerl｜トップページ
はじめまして パールって何？ なんでパール？ 環境作り プログラムとは 書き方の基本 変数配列ハッシュ リファレンス 演算子 条件文 繰り返し文 サブルーチン 正規表現 文字列の操作 フォーム リンク ディレクトリ ファイル操作 ロックファイル ファイル入出力 データの記録 コマンドで操作 簡単な例 簡単な例２ WWW を検索 萌えPerl を検索 更新履歴 2009.6.10 [修正] 条件文.デフォルト値設定の説明追加。 2009.3.16 [修正] 正規表現の説明追加。 2008.2.3 [修正] コマンドラインの説明追加。 2008.1.2 [修正] リファレンスの説明追加。 2007.11.19 [修正] 条件文の説明追加。 2007.11.7 [新規・削除] コマンドライン｜簡単な例２の説明追加。 夏季特別壁紙削除。 2007.8.31 [新規] コマンドラインの説明追加。 2
CentOS 5.1 の perl をリビルドする - daily dayflower
2008-12-26 追記 CentOS 5.2 の updates の perl-5.8.8-15.el5_2.1 で下記該当パッチ＋αがあたった状態になっています。もう自分でパッチをあててリビルドする必要はありません（RHEL 5(.2) の perl-5.8.8-15.el5_2.1 で例のバグが治っていた - daily dayflower）。 overload の rebless バグとパフォーマンスペナルティ問題 については下記参照。 YappoLogs: FedoraCoreやCentOS系の遅いPerlのパッチの件 overloadと再blessの問題 - Unknown::Programming overload が無効? - Practice of Programming YappoLogs: overloadのreblessとRHLのoverloadが遅いパッチ ov
[Perl] my と local と our の違いについて - 竹迫の近況報告
404 Blog Not Found:perl - myとourとscopeと みんな難しく考えすぎです。 （例外については後で考えることにして）とりあえず以下の基本をおさえておけば混乱することはないと思います。 ■ our 宣言について our はグローバル変数をスマートに使用するための宣言です。our は use vars と等価と考えてください。 our $var; は use vars qw($var); と等価。 our $var = 1; は use vars qw($var); $var = 1; と同じ動きをするもの、と覚えておけばOKです。それ以上の違いは基本的にないと考えて構いません。 ひとつ実用上の違いがあるとすれば、our は Perl 5.6 以降の built-in なのに対して、use vars は vars.pm の Perlスクリプトで実装されています。し
![[Perl] my と local と our の違いについて - 竹迫の近況報告](https://cdn-ak-scissors.b.st-hatena.com/image/square/e92af714c36668a34ee1fdf7dd8464828acfcc1d/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F8454420450103834818%2F17680117126987713958%2F1551691469)
YappoLogs: ShipItつかわなくて良いのは小学生まで
ShipItつかわなくて良いのは小学生まで 超クールな CPAN リリースツール 1 選。ShipIt がスバラシイ件 - TokuLog 改め だまってコードを書けよハゲが火種になってるけど、今ShipItが熱い！ という事でちょっと前からShipItに移行してます。 一昨日辺には、オレオレpmsetupもplaggerからコピペしてきたリリースツールを消してShipItしてます。 http://coderepos.org/share/changeset/3295 結構どうでも良いBKがあって、cpanに上げる時にShipIt::ProjectType::Perlを利用してperl Makefile.PLするフェーズがあるのですが、ShipIt::ProjectType::Perl::MakeMakerの実装を見てわかるとおり sub prepare_build { my $self =
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Template Toolkitとは コンピュータの人気・最新記事を集めました - はてな
Perlのポピュラーなテンプレートエンジンフレームワーク。略してTT、あるいはTT2とも呼ばれる。 Template Toolkitを利用することで、プログラムにおける出力の見た目に関するコードとロジックを分離することができ、結果として保守性が高まる。主にウェブアプリケーション、特にMVCアーキテクチャスタイルに則ったアプリケーションで利用すると相性が良い。 オープンソースのMVCフレームワークであるCatalystのViewのコンポーネントは、デフォルトではこのTemplate Toolkitが採用されている。また、国産のオープンソース・フレームワークのSledgeでもTemplate-Toolkitが採用されている。(なおCatalystはViewをHTML::Masonなど他のテンプレートエンジンと切り替えられる。SledgeはHTML::Templateとの選択式。) Templa
PerlでSOAPを試す - はこべにっき ♨
授業でSOAPの課題が出た．授業用のSOAPサーバのnameというメソッドに自分の名前を渡して結果を確認するというもの．サンプルコードはJavaで何行にも渡ってつらつらと書かれていたのだけれど，それPerlだと2行でできるよ． use SOAP::Lite; print SOAP::Lite->proxy(shift)->name(shift)->result, "\n";終了．これを， $ perl soap_test http://url.to.soap/ hakobeとかやって呼び出せばOK． 呼び出し結果ををXMLでみたいときは， my $client = SOAP::Lite->proxy(shift)->outputxml(1); print $client->name(shift), "\n";とやる． SOAP::LiteはSOAPのサーバも結構らくにかけて， use st
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
