はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
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
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のプログラミング経験が少
YappoLogs: twitter2ircd.pl - POEで書いたperlのTwitter IRC Gateway
twitter2ircd.pl - POEで書いたperlのTwitter IRC Gateway Twitterは、どことなくチャット的な利用もされていてiChat使っていたのですが，WindowsのTwitter IRC GatewayがあってIRCでやるのが楽しそうだったので、Macで動くようにPerlでIRC Gateway書きました。 miyagawaさんにPoCo::Server::IRCのサンプルコードとしてLingrのIRC Gatewayを教えてもらったので、参考にしてPOE::Component::Client::Twitterを作ってCPANにうpしました。 パッケージ中にはtwitter2ircd.plというTwitterのIRC Gatewayとなるサンプルコードを同梱しています。 コードの下にサンプルの設定ファイルがあるので参考にして下さい。 こんな感じで 普通
メールを読んでパイプに出力 - Scrapcode@はてなダイアリー
エラー処理をしていませんが、とりあえず。 メールボックスにたまっているメールを、一通ずつパイプで外部コマンドに渡して処理します。処理の終わったメールは削除します。 Perl (Net::POP3) 最近はレンタルサーバーでもlibnetのモジュール群がインストールされていることが多いと思うので、多分モジュールの追加無しで使えると思います。 POP over SSL対応するには、Net::POP3オブジェクト生成時に、ホスト名ではなくIO::Socket::SSLオブジェクトを渡せばいい、らしいです。この場合、IO::Socket::SSLのインストールが必要です。内部で使っているNet::SSLeayはコンパイルが必要なので、レンタルサーバーだとサーバーで用意されていなければSSL対応は諦めるしかないかな？ #!/usr/local/bin/perl use strict; use war
Web::Scraper ? SlideShare
1. Practical Web Scraping with Web::Scraper Tatsuhiko Miyagawa [email_address] Six Apart, Ltd. / Shibuya Perl Mongers YAPC::Europe 2007 Vienna 4. abbreviation Acme::Module::Authors Acme::Sneeze Acme::Sneeze::JP Apache::ACEProxy Apache::AntiSpam Apache::Clickable Apache::CustomKeywords Apache::DefaultCharset Apache::GuessCharset Apache::JavaScript::DocumentWrite Apache::No404Proxy Apache::Profiler
TokuLog 改め だまってコードを書けよハゲ - 近代的なメールの添付ファイルをとりだすライブラリ for Perl といえば Email::MIME::Attachment::Stripper
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
Web::Scraper - naoyaのはてなダイアリー
Today I've been thinking about what to talk in YAPC::EU (and OSCON if they're short of Perl talks, I'm not sure), and came up with a few hours of hacking with web-content scraping module using Domain Specific Languages. 使ってみたよ! #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use URI; use Web::Scraper; use Encode; use List::MoreUtils qw/uniq/; my $links = scraper { process 'a.key
Web::Scraper
NAME Web::Scraper - Web Scraping Toolkit using HTML and CSS Selectors or XPath expressions SYNOPSIS use URI; use Web::Scraper; use Encode; # First, create your scraper block my $authors = scraper { # Parse all TDs inside 'table[width="100%]"', store them into # an array 'authors'. We embed other scrapers for each TD. process 'table[width="100%"] td', "authors[]" => scraper { # And, in each TD, # g
お金を使わない日 - ふしはらかんのらーめん話
家計簿をつけはじめてから半月。GMailの「account book」ラベルには結構な数のメールがたまってきた。 で、半分経過したと言うことで途中経過を出してみることに。こんな感じのスクリプトで集計。 #!/usr/bin/perl use strict; use warnings; use Jcode; use Mail::Webmail::Gmail; my $gmail = Mail::Webmail::Gmail->new( username => 'kan.fushihara', password => 'xxxxxxxxxxxxx', ); my $messages = $gmail->get_messages( label => 'account book' ); my $total = 0; my $days = 0; foreach ( @{$messages} ) {
404 Blog Not Found:CPAN - HTTP::Response::Encoding Released!
2007年04月17日22:30 カテゴリLightweight Languages CPAN - HTTP::Response::Encoding Released! HTTP-Response-Encoding を Release したのでお知らせします。 on CPAN (coming soon) http://www.dan.co.jp/~dankogai/cpan/HTTP-Response-Encoding-0.03.tar.gz どういうものかというと、こういうものです。 use LWP::UserAgent; use HTTP::Response::Encoding; my $ua = LWP::UserAgent->new(); my $res = $ua->get("http://www.example.com/"); warn $res->encoding; prin
404 Blog Not Found:perl - mail to twitter gateway
2007年04月16日16:00 カテゴリLightweight LanguagesiTech perl - mail to twitter gateway English Version is also available as: http://dankogai.vox.com/library/post/mail2twitter-gateway.html そろそろfriendsが増えすぎて収拾がつかなくなりつつあるtwitterなのだけど、それはさておきmail gatewayを作ってみた。 使い方 以下のscriptをmail serverの適当な場所において、chmod +xしておく twitter-mgw .forward, .qmail, .procmailrc などで、上記のscriptにpipeするよう指定。私の場合、.qmail-secretというファイルを作成して、そこに
HyperEstraier の Perl Binding を使ってみた。
Hyper Estraier になって、色々外部のプログラムからも扱いやすくなっているようなので、いまさらながら試してみました。 プログラミングガイド だけでは良くわからなかったのと、Perl でやってる人が見付からなかったので、ここにサンプルを載せておきます。 単純にデータベースを開いて、検索を実行し、パスの一覧を表示するだけのスクリプトです。 以下のスクリプトを作成するにあたって、HyperEstraier の Python Binding できた が参考になりました。 #!/usr/bin/perl -w use strict; use HyperEstraier; my $word = shift||die "$0 [keyword]\n"; # データベースを開く my $db = new HyperEstraier::Database; $db->open('casket',
estraier perl binding
NAME SYNOPSYS INTRODUCTION Setting DESCRIPTION Class Document Class Condition Class Result Class Database EXAMPLE Gatherer Searcher LICENSE NAME Perl Binding of Hyper Estraier SYNOPSYS use Estraier; INTRODUCTION Hyper Estraier is a full-text search system for communities. This is a package implementing the core API of Hyper Estraier ( http://hyperestraier.sourceforge.net/ ), including native codes
HTML::TreeBuilder::Selectがウマーな件 - 日向夏特殊応援部隊
以前、id:naoyaさんのd:id:naoya:20061006:1160134639にて「HTML::TreeBuilder + CSSセレクタがいい感じな件」ってエントリがあったんですが、まさにそのコンボとなるモジュールがリリースされてました。 HTML::TreeBuilder::Select 例えばtext-vimcolorの出力の中でsynIdentifier扱いされるブロックで変数と思しき物だけvar要素に置換して、出力するなら下記みたいなソースになる。 #!/usr/bin/perl use strict; use warnings; use HTML::TreeBuilder::Select; my $html; read(STDIN, $html, -s *STDIN); my $tree = HTML::TreeBuilder::Select->new; $tree-
Elementary, ... それ、Imager で
ドラクエふうで swf がやっていること、そういや Imager でもできるんじゃないか？ と思いやってみた。 これが Flash バージョン これが Imager で合成して一枚の画像にしたもの かんぺきですな。さすが Imager。 作ったスクリプトは http://e8y.net/repos/DQmaker/trunk/misc/ の dq-imager.pl。同じディレクトリにドラクエフォントと元ネタ写真を置いて perl dq-imager.pl。 あっという間にできた。Imager 大好き。 Imager::Font::Wrap を始めて使って、ちょっとくせがあってどうかと思ったけど、基本 Imager は API がきれいでわかりやすいし、やりたいことはほとんどがメソッドになってる。Imager まだ使ったことない人はぜひ。先ほどのソースも日本語でコメントを入れてあります。
Six Apart - Tech Talk Blog: Perl モジュールの作り方
こんにちは。TypePad Engineer の重田です。 今年も YAPC::Asia Tokyo の季節がやってきました。今回も豪華メンバが参加するのでとても楽しみですね。 さて今回はYAPCにちなんでPerlモジュールの作成方法をご紹介します。 準備 Perl プログラマのバイブルである Perl Best Practices の Chapter17: Modules の Refactoring の冒頭で Damian Conway が言っています。 Place original code inline. Place duplicated code in a subroutine. Place duplicated subroutines in a module. さあ皆さんもそろそろ車輪の再発明に別れを告げてモジュール作りをはじめてみませんか？ h2xs 少し前の書籍などでは h2
スピーカーとスポンサーが決定 - YAPC::Asia 2007 Tokyo - April 4-5 2007 (Japanese)
by miyagawa YAPC::Asia 2007 Tokyo のスピーカーおよびスポンサーが決定しましたので、改めてイベント概要とともに告知します。 日時2007/04/04-05 (水-木) 9:30-18:00 会場津田ホール （東京、千駄ヶ谷） 料金4000円 (2日通し、Tシャツ込み) 主催YAPC::Asia 2007 委員会 / Shibuya Perl Mongers チケット販売ローソンチケット (2/16 10:00 AM より) 協賛いただいたスポンサーさまのリストは、本サイトのサイドバーにてご確認ください。 Audrey Tang Mark Jason Dominus Jesse Vincent Ben Trott Brad Fitzpatrick Chia-liang Kao Ingy döt Net Dave Rolsky Jeff Kim Jonathan
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://svn.coderepos.org/share/lang/perl/Skype4IRC/trunk/lib/Skype4IRC/SkypeBridge.pm
CSS Study Meeting Digest & Perl/CSS