ファイルの変更を監視して、任意のコマンドを実行するスクリプト - （ひ）メモ
d:id:hirose31:20070528:1180326347 のobserve-mtimeは、ファイルのmtimeの変更を定期的に確認してイベントを発火させてたんですが、それをLinuxのinotifyで置き換えてみました。 mtime監視だと調べてスリープしての繰り返しなので、変更してからイベントが起こせるまでちょっとタイムラグがあったんですが、inotifyを使うとファイルが変更された瞬間にぴこっとイベント発火できるのでこっちのほうがいいかも。 http://www.linux.or.jp/JM/html/LDP_man-pages/man7/inotify.7.html rsync + inotify = lsyncd | スラド デベロッパー Linux::Inotify2 CPANにはLinux::Inotifyというのもあったのですが、$Config{archname}が
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
おさかなラボ
最近Perl人口が増えつつある気がするのでここでおさらい。myとは一体なにをするものか。まずは下記スクリプトの実行結果を予測してみて、実際の結果と比べてもらいたい。 #!/usr/bin/perl $foo = 111; print "$main::foo / $foo\n-----------\n"; { local $foo = 222; print "$main::foo / $foo\n-----------\n"; my $foo = 333; print "$main::foo / $foo\n-----------\n"; package Bar; $Bar::foo = 444; print "$main::foo / $foo\n-----------\n"; } { package Baz; local $foo = 555; print
おさかなラボ - PerlでXSを使ってみよう
と思う人は多いと思う。気になっている人は多いだろう。しかし、XSに関する詳細なドキュメントは、ググってみると驚愕するくらい少ない。そして読みにくい。理由は後述する。 私もXSに関するドキュメントを書きたいのだが、カバーする範囲が広大すぎてどこから手を付けたらいいのか全く分からない。本が書けそうな勢いだ。エントリを分けて書くのか、既存とは別のチュートリアル文書のようなものを書くのか、悩んでいるところである。その代わり、今回はXSって食える？って人には有用なエントリにしたいと思う。そして簡単なサンプルを書いてみたいと思う。 少々のことなら分かるしググるし大丈夫だぜ！という人は、以下のエントリ、およびリンク先を参照すると良いと思う。 XS by id:naoya まずはXSって何？ってことだが、この時点で何がなんだかさっぱり分からない人が多いと思う。それもそのはず、XSという言葉が包括的
第16回 Perl::Dist::Strawberry：何味のアイスクリームがお好きですか？ | gihyo.jp
今年のYAPC::Asia、いかがでしたか？ 先日開催されたYAPC::Asiaはいかがでしたか？ 筆者はあいにくそれほど多くのセッションに参加できたわけではないのですが、この連載ですでに取り上げたもの、まだ取り上げていないもの、そして前回原稿を書いたときにはまだ存在すらしていなかったものを含めて、有意義なセッションがたくさんありました。おかげさまで筆者も当面ネタに困ることはなさそうです。 とはいえ、あまりに旬なモジュールについては、情報の流れが速すぎて、のろまな筆者では追い切れませんので、今回と次回は、筆者が今年のYAPC::Asiaでもうひとつ発表しようかと思っていたネタをしっかりまとめておこうと思います。 ActivePerlの興隆 PerlはもともとUnixで使われていたさまざまなツールのよいところを集めて作られた言語です。だから、Perlのコマンドにはシェルやawk、Cに由来する
モダンPerl連載第16回 - Charsbar::Note
モダンPerl的なニュース価値としてはPSGI/Plackの方が高いのでしょうが、きちんとまとめるだけの余裕がなかったので、今回は次のネタへの前振りとして、Windows向けPerlの歴史を振り返ってみました。デキるWeb系Perlユーザの間ではとみに嫌われ者のWindowsですが、2007年の統計を見る限り、MSVCなりMinGWなりCygwinなりの環境を用意している人は少ないにしても、Perl使いの半数くらいは何らかの形でWindowsも使っていますし、Perl 5のあり方を決めている集団はPerl 5 Porters「Perl 5の移植チーム」と呼ばれているくらいで、少なくともPerl 5の歴史は移植の話を抜きには語れないのですよね。 http://gihyo.jp/dev/serial/01/modern-perl/0016
Perl の utf8 まわりのおまじない
Perl の utf8 まわりのおまじない 2009-09-12-4 [Programming] 自分用メモ。 最近良く使うおまじない、というかイディオム。 utf8::decode($text) unless utf8::is_utf8($text); （追記：より良いおまじない。詳細は後述。 $text = Encode::decode_utf8($text) unless utf8::is_utf8($text); ） Perl の CGI モジュールでクエリから得られるデータの文字列のutf8フラグの有無が環境によって違うことがあってイライラ。 でもこのおまじないでなんとかなった。 こんな文脈で使う： use utf8; use CGI; ... my $text = $q->param('text') || ""; utf8::decode($text) unless utf8:
MOONGIFT|オープンソース・ソフトウェア紹介を軸としたITエンジニア、Webデザイナー向けブログ
MOONGIFTはオープンソース・ソフトウェアを紹介するブログです。2021年07月16日で更新停止しました Tank Vs Zombie Game Built in Ruby - Rubyで書かれた戦車 vs ゾンビゲーム Jul 16, 2021 - 1 min read Kopia - マルチベンダー対応のバックアップソフトウェア Jul 16, 2021 - 1 min read Polyfoto - モザイク画像を作成するPythonスクリプト Jul 15, 2021 - 1 min read SwiftLaTeX - WebベースのLaTeXエディタ Jul 15, 2021 - 1 min read Div.js - divタグだけでHTMLページを作成できる？ Jul 14, 2021 - 1 min read ASCIIFlow - アスキーアート用ドローアプリ Jul
Perl開発専用のIDE·Padre MOONGIFT
PadreはPerl製のオープンソース・ソフトウェア。Javaの開発というとEclipseやNetBeanを使ったり、.NETであればVisualStudioを使うなどIDEを使うことでより手早く開発が行えるようになる言語がある。いわゆるスクリプト系のプログラミング言語ではあまりIDEを用いるという文化は浸透していないように思える。とは言えテキストエディタを素のままで使うかというとそんなことはなく、ハイライト表示すると開発しやすくなるだろう。 Perl開発に適したIDE もしあなたがPerlでシステム開発を行っているなら、Padreを使ってみよう。PadreはPerl専用のIDEで開発をやりやすくする工夫が盛り込まれているソフトウェアだ。ハイライト表示はもちろんのこと、コード補完やCPANライブラリのインストールもできるようになっている。 セッションの保存、コメントのトグル、文字コード変換
WebSiteの生存確認モジュール(DeadOrAlive.pm)を作った - 週記くらい(BTS開発記)
perl管理とか運用しているWebSiteが落ちていたりすると、良くないので、自動で生存確認するモジュールを作った。このDeadOrAlive.pmを使うスクリプトをcronで回して結果をメールするように書いておけば、もしサーバが落ちてたときにも早く対処ができるようになる。 こうゆうことは、大勢の人がやっていることだと思ったので作る前にgoogleで調べてみたけど、Webサイトの生存確認に特化したモジュールというの見付からなかった。WWW::Mechanizedを使えば簡単にできそうだったけど、機能がちょっとtoo muchに感じたのと、自由にモジュールインストールできないサーバもあるので、最小限のチェックに特化したモジュールを作成してみた。このモジュールを使うための最小のコードは以下です。http_test.pl #!/usr/bin/perl use strict; use warni
週記くらい(BTS開発記)
luaLinuxで動作していたメール送信も行なうLuaで作ったWebアプリをFreeBSD上で動かそうとしてました。なんとか、Luaのライブラリをコンパイルしながら、Webアプリの部分は、動くようになったのですが、「だいたい大丈夫かな」と思って最後にメール送信部分を試してみると、エラーが発生してました。調査してみると、require "socket.smtp" で socket/core.so を読み込むときに、下のようなエラーが出るようでした。 error loading module 'socket.smtp' from file '/usr/lib/lua/5.1/socket/smtp.lua': /usr/lib/lua/5.1/socket/smtp.lua: invalid file format stack traceback: [C]: ? [C]: in functio
perl - Encode 中級 : 404 Blog Not Found
2008年05月08日04:00 カテゴリLightweight Languages perl - Encode 中級 以前書いた 404 Blog Not Found:perl - Encode 入門 は大好評でしたが、 ウェブで利用される文字コード、UnicodeがASCIIを上回る--グーグルが明らかに:マーケティング - CNET Japan UnicodeがASCIIを追い越し、World Wide Web上で最も多く利用されている文字コード体系になったとGoogleのシニアインターナショナルソフトウェアアーキテクトMark Davis氏がブログで述べている。 という時代に完全対応するには、入門以上の知識がちょっと必要になります。 例えば、本blogをホストしてくれているlivedoor blogの文字コードはEUC-JP。「時代はUnicode」だと言っても、こうした事情もまだ
404 Blog Not Found:perl - utf8::is_utf8("\x{ff}") == 0
2008年02月18日10:00 カテゴリLightweight Languages perl - utf8::is_utf8("\x{ff}") == 0 ちょうどいい機会なので、Perl 5.8以降におけるutf8フラグの立ち方を。 unknownplace.org - 2008/02/17 - utf8::is_utf8 ということで、"\x{6751}\x{702c}\x{5927}\x{8f14}" などというData::Dumper表記でかならずしも utf-8フラグがたつわけじゃない。ということがいいたかったんだと思うのだけれど、 \x{UUUUUU}とutf8 flag まずはクイズです。以下がどう出力されるかを答えなさい。 sub pfrag{ print utf8::is_utf8($_[0]) ? 1 : 0, "\n" } pfrag "Hell\xC3, worl
utf8::is_utf8 considered harmful - Bulknews::Subtech - subtech
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
barlog » ||||« - 2005 Year-End Google Zeitgeist
天上舞鷺紅
Perlの勉強をはじめました | 天上舞鷺紅
yebo blog
yebo blog: Perl 5.11.0がリリース
Perlの難しさ - 週記くらい(BTS開発記)
今日のCPANモジュール（跡地） 目次