Perl › ファイル入出力 › here Perlの出力関数であるprint関数は、バッファリングを行います。バッファリングとは「データを貯めておく」という意味です。Perlのprint関数は実際に呼び出されても、即座にファイルに内容を書き出しません。書き込み内容をバッファリングしておいて、バッファがある容量をこえると実際にファイルに書き出します。 バッファリングを無効にしたいという場合は、以下の記事をご覧ください。 バッファリングを無効にする 以下はバッファリングを実感するサンプルです。すぐにはファイルに書き込まれないことがわかると思います。 use strict; use warnings; # 書き込み用のファイル( 上書きするので注意 ) my $file = "sample20080811.txt"; open(my $fh, ">", $file) or die "Canno

FreeBSD の Dropbox-api コマンドが突然メッセージを吐き出すようになってしまった。 ******************************************************************* Using the default of SSL_verify_mode of SSL_VERIFY_NONE for client is depreciated! Please set SSL_verify_mode to SSL_VERIFY_PEER together with SSL_ca_file|SSL_ca_path for verification. If you really don’t want to verify the certificate and keep the connection open to Man-In-The-Mi

こないだハマったのでメモ。 クライアント証明書がによる認証を行うサーバにLWP::UserAgentでアクセスしたかったのだが、パット調べてもわからなかった。結局perldocをちゃんと読めって言う話なんだけど・・・ まずCPANを見る LWP::UserAgent - search.cpan.org 「cert」とかでページ内検索するとssl_optsというメソッドを発見。 ここに載ってるオプションは三つで verify_hostname SSL_ca_file SSL_ca_path どれもクライアント証明書指定のためのオプションではない。 ネットでけっこうな時間調べていても見つからない。。 その前にもっとちゃんと読むべき LWP::UserAgentのperldoc（というか上のCPAN）を見返したら、 Other options can be set and are process

WWW::Mechanizeはいろんなモジュールがベースになってて、コードを追うのが大変。LWP::UserAgentとかそれ以前の時代を知っていれば、どのモジュールが何を持ってるか分かっていいんだろうけど、いきなりWWW::Mechanizeから入ってしまうと厳しいっすね。まぁ、分からなけりゃその分コード読めばいい。 で、ふつうに$mech->submit_formで日本語を送ると、UTF-8でencodeした文字列になってしまって、SJISとかEUCのページを操作すると文字化けします。コード拾い読みして、たどり着いた解決方法がこれ。 $mech->get($target_url); my $form = $mech->form_number(1); $form->accept_charset('shiftjis'); my $req = $form->make_request; $me

こんばんは、Perl48です。 引き続き、 「アマゾンのゲーム売れ筋ランキングのゲームタイトルデータを引っこ抜きたーい」 の文字化け解消に取り組んでまいります。 まずは、前回までのソース #!/usr/bin/perl -w use lib 'C:/usr/cpan/build/Web-Scraper-0.32-VSDMOU/lib'; use Web::Scraper; use URI; # ゲームタイトル部分を gtitle という名前で取るスクレイパーを作成 my $scraper = scraper { process 'table.zg .productTitle', 'gtitle' => 'TEXT'; }; # amazon.co.jpのTVゲームベストセラーページのURLオブジェクトを、 my $uri = new URI('http://www.amazon.co.jp

今年の Advent Calendar もいよいよ中盤戦。 もういくつ寝ると、メリーク×ト×ス！ 最近、休日になると漫画を大人買いするのが趣味になってしまったいけない大人になってしまった僕ことzentoooですが、最近のお気に入りは「未来日記」です。あー由乃かわいいなーかーわいいなーーーかーーーわいーなあーーーーあーあーあーーーーーーあーーーーーーーーーーー頭おかしいけど。 ふぅ。 さて、みなさん、コード書いてますか、コード読んでますか。 短く簡潔なコードを読むと、気持ちもスッキリしますね。 でも、たまには例外処理なんてどうですか。 Perlで例外処理ができるなんて、なんか渋くないですか。 Perlにおけるベーシックな例外処理 冗談はさておき、初めてのPerlというハレンチな本を読んだりすると、多分書いてあるのは以下のような方法による例外処理です。実際に初めてのPerlに書いてあるかどうか

PSGI/Plack勉強会を開きました(ひとりで)。資料はGitHubにあげてあります。いろいろまとめ書き足りてないのですが、自分的には納得したので満足してしまいました。 http://github.com/kentaro/psgi-study 以下にもコピペ。 PSGI/Plackとは？ PSGI = Perl Web Server Gateway Interface Specification WebサーバとWebアプリケーションとの間のインタフェイス仕様 Plack = PSGIのリファレンス実装 PSGI実装のひとつ(とはいえ、やたら気合いの入った感じになってるけど) PSGI != Yet Another WAF PSGI != Plack PSGI策定の背景 各Webアプリケーションフレームワークがバラバラに実装していた、WebサーバとWebアプリケーションとのインタフェイスを

Perl › 書籍案内 Software Designで連載されていた「業務に役立つPerl」という連載に加筆修正を行い内容をまとめたものです。Perlにおける仕事で必要な幅広い話題を扱っており、巻末には、標準関数、標準モジュール、特殊変数のリファレンスがついています。一冊手元に置いておけば、とても便利だと思います。。 もっと自在にサーバを使い倒す 業務に役立つPerl (Software Design ｐlus) 作者: 木本裕紀出版社/メーカー: 技術評論社発売日: 2012/04/11メディア: 単行本（ソフトカバー）購入: 3人 クリック: 94回この商品を含むブログ (11件) を見る コラムと新しいサンプルを各章に追加しているので、連載を読んでいただいた方にも楽しめる内容になっています。 目次は以下のようになっています。 第01回 Perlを業務で活用しよう 第02回 Perl

2012年03月07日00:45 カテゴリLightweight Languages Perl+JavaScript - 勝手に添削&移植 - 全裸で学ぶMVC事始め Perlプログラミング救命病棟 Peter J. Scott 著 / 伊藤直也 監訳 原書:Perl Medic ムケてないところを見つけたので。 全裸で学ぶMVC事始め - ゆーすけべー日記 添削篇 具体的には、ここ。 sub zenrize { my ( $self, $sentence ) = @_; return unless $sentence; my $api = $self->{yahoo_ma}; my $result = $api->parse( sentence => $sentence ) or return; my $ma_result = $result->{ma_result}; my $resu

元ネタ: http://d.hatena.ne.jp/tokuhirom/20100120/1263958061 なぜ俺が $@%* を使いつづけるのか。* とか良く分かってないけど。 システムプログラミングができる 例えば低水準I/Oが標準で用意されているとか。 gccがない環境にも入っている gccがない環境にも入っている。XenServerのDom0とかにも入ってる。確かLSB 3.2で必須になったらしいので、普及度が上がることはあっても下がる可能性は低い。 インタプリタである Un*x系なら大抵どこでも動く 豊富で(かなり)安定したライブラリ群 CPANのライブラリの量はすごい。それにAPIを無闇に変更したりするとDISる文化が定着してるっぽいので、比較的安心して使える。 まとめ ウェブアプリとか管理ツールとか C/C++ じゃなくてもいいケースで生産性を上げるために使ってる。それ

2008年01月14日03:30 カテゴリLightweight Languages regexp - 全角英数字を半角に きっかけは、はてなハイク。 自分と根本的にあわない人 - fmht7 - はてなハイク PCで英数字をダブルバイトで入力する人 禿同、しかし人を憎みたくなかったので。 Perlではお茶の子さいさい。 perl - dankogai - はてなハイク perl -CIO -ple 'tr/\x{FF01}-\x{FF5e}/\x21-\x7e/' は脊髄でひねり出せた。 どうせならJavaScriptでもやってみよう、ということでひねり出したのがこちら。 ！釤＃＄％＆釻（）＊＋，−．／ ０１２３４５６７８９：；＜＝＞？＠ ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ ［＼］＾＿｀ ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ ｛｜｝〜 var fasci

本連載では第一線のPerlハッカーが回替わりで執筆していきます。今回のハッカーはJapanizeやText::MicroTemplateなどで有名な奥一穂さんで、テーマはUNIXプログラミングです。 はじめに 「正しいプログラム」を書くために必要な知識とはなんでしょうか。テストが正しく実行されることは、正しいプログラムであるための必要条件に過ぎません。プログラミングにおいてはプログラミング言語だけでなく、OSの動作やデータベース、ネットワークプロトコルなど、さまざまな知識が必要になります。 PerlはもともとUNIX系のOS（LinuxやFreeBSD、Mac OS XなどのOSを本稿では以下UNIXと総称します）の上で処理を行うためのスクリプト言語として開発され、今日でもPerlプログラムの多くはUNIX上で実行されています。しかし、「⁠Perlでプログラミング」と言った場合はともすれば

Plack─⁠─PSGIユーティリティ PSGIのおかげで、フレームワークはCGIやFastCGI、mod_perlといった環境の差異を吸収するためのコードを書く必要はなくなり、PSGIのインタフェースだけを実行すればよくなりました。実際に多くのフレームワークがすでにPSGIをサポートしていますが、さて、そうしたアプリケーションをどうやって動かせばよいのでしょうか。 Apacheなど既存のWebサーバでPSGIアプリケーションを動かすには、CGI、FastCGI、mod_perlなどのインタフェースをPSGIに変換する必要があります。また、PSGIをネイティブで実行できるPerlベースのHTTPサーバもほしいところです。 Plackはそうした要件を満たすためのユーティリティで、リファレンス実装としてのPSGIサーバやそれらへのアダプタ、周辺ライブラリや後述するミドルウェアが含まれています。

私は、つい最近まで仕事ではPerlを使っていなかったのですが、例外もありました。それがワンライナーです。 どんなときに使うのかといえば、ログ(例えばApacheのアクセスログ)の集計です。私はこの手のワンライナーを何百作ったか知れません。(そして次々と使い捨てています。) ワンライナー ファイル処理のPerlワンライナーは次のように書きます。 perl -ne 'コード' fileこれは大まかには次のような意味となります。 while (<>) { コード } つまり、標準入力やファイルからデータを読み取って、一行ずつ処理します。 基本形 ファイルの集計は基本的に次の形となります。 perl -ne 'if(/パターンマッチ/){$c{$1}++}END{for(keys %c){print "$_ $c{$_}\n"}}' fileつまりは大まかには次の意味。 while (<>) {