Perlでバイナリファイルをいじる場合にいろいろと同じ問題に遭遇するので、忘れないようにメモ。 バイナリファイルの読み込み 読み込む場合に”getc”使うと、ファイルが終わってないのに終了してしまうことがある。 正しくは”read”を使う。 my $filename = $ARGV[0]; open my $file,'<',$filename or die; binmode $file; my $val; while(read($file, $val, 1)){ } これで1byteづつ処理できる。実際はバイナリの構造にあわせてreadするバイト数を変える。 読んだバイナリの処理 バイナリを数値として処理するためには、その構造にあわせてunpackする。 unpack("C",$val); #unsigned byte unpack("S",$val); #unsigned short
運営元のロゴ Copyright © 2007-2025 All Rights Reserved by Gijutsu-Hyoron Co., Ltd. ページ内容の全部あるいは一部を無断で利用することを禁止します。個別にライセンスが設定されている記事等はそのライセンスに従います。
勉強のためにPerlでモナドを実装してみました。 免責 圏論のモナドの概念をPerlでシミュレートしようと言うエントリであって、モナドを開発にどう利用するかなどについてはびっくりするくらい言及しませんので悪しからず。 1. 圏を考える Perlのスカラ値の任意の集合を対象として、引数も戻り値も一つで副作用がないサブルーチンを射とします*1。domとcodについては、関数が正常に動作する範囲で適当にとりましょう。 * 例: 対象「文字列」から対象「整数」への射 length 2. 自己関手の表現 自己関手は、二つの写像からなります。 対象を対象に移す写像 T_object モノとしては考えますけど今回は実装しません*2。 射を射に移す写像 T_arrow 『サブルーチンを受け取ってサブルーチンを返すサブルーチン』として実装できます。 3. 自然変換の表現 関手Tから関手Sの自然変換は、対象A
2009年03月20日05:00 カテゴリLightweight Languages regexp - 'test@[127.0.0.1' . "\\\x1f]" はRFC2822準拠 私自身驚いたのだが、'test@[127.0.0.1' . "\\\x1f]"はRFC2822に準拠している。 へぼへぼCTO日記 - 「danコガいはもう正規表現をblogに書くな」と言わせないでくれ おかげで上記のコードもvalidだ。なんてこったなぜそうなのか、というのは、RFC2822のdomain-literalの仕様による。 domain-literal = [CFWS] "[" *([FWS] dcontent) [FWS] "]" [CFWS] 「[]で囲まれたdcontent」っていったいなんだ？ dcontent = dtext / quoted-pair 「dtextまたはquoted
![regexp - 'test@[127.0.0.1' . "\\\x1f]" はRFC2822準拠 : 404 Blog Not Found](https://cdn-ak-scissors.b.st-hatena.com/image/square/da78a05937633f7a2b4b2219826151c370cd607b/height=288;version=1;width=512/https%3A%2F%2F2.zoppoz.workers.dev%3A443%2Fhttps%2Fparts.blog.livedoor.jp%2Fimg%2Fusr%2Fcmn%2Fogp_image%2Flivedoor.png)
能書き 前エントリを書いてからいろいろと調べていて驚いたんだけど、日本語のwebsiteで、それなりにまともにRFC822(RFC2822,RFC5322)に準拠した(もしくはきちんと意図的に準拠していない部分を選択している)正規表現はPerlだろうがPHPだろうがRubyだろうが軽くぐぐった程度では見当たらない。PerlのモジュールのEmail::AddressもEmail::Validも程度の差はあれ問題を抱えている。そこらへんの既存の出回ってる正規表現にどういった問題があるかなんてことは次回エントリにて。 というわけで、Perl、PHP、RubyでRFC5322準拠なメールアドレス(addr-spec)の正規表現を以下に示します。尚、addr-specの最終的な正規表現のみならずそれを作成するに至る部分も併記してあります。これは、最終的な正規表現だけでは難解すぎてとても理解できないか
2009年04月03日10:30 カテゴリLightweight Languages perl - tnek-cgi@CodeRepos - nms-cgi 再び これを見ていたたまれなくなったので。 perlでアップローダを作ったのですが、クラックを受けている様なんです。 ./up の配下にしかアップロード出来ない様にしたつもりが、その上のディレクトリに.htaccessやらi.. - 人力検索はてな /lang/perl/tnek-cgi/trunk ? CodeRepos::Share ? Trac これはいったい何かというと、 nms - web programs written by experts の日本版みたいなものです。nms-cgiにもファイルアップローダーがなかったので作りました。その他の「よく使うCGI」なども、ここを起点にみんなで添削してそれを配布、という形にすれば
Powered by Trac 0.11 By Edgewall Software. Visit the Trac open source project at http://trac.edgewall.org/
2009年02月10日01:00 カテゴリLightweight Languages perl - open my $fh, "comand |"; # はモダンじゃない モダンPerl入門 牧大輔 「モダンPerl入門」発売記念ということで、同書を補足するentryを。 同書でちょっと残念だったのが、[5.2 外部コマンドの実行]。あまりモダンではないのだ。 P. 141 system("/sbin/wget", "http://example.com"); これはいいのだが、以下がちょっとまずい。 my $output = `/bin/ls tmp`; open(my $fh, '| cat -v'); これ、何がまずいか、というと、コマンド実行の際に/bin/shを使ってしまうのだ。そのおかげでcommand < from > to 2&>1のようなリダイレクトも使えるなどの利点もあ
CPAN modules that you can use in lolipop rental serverAlgorithm::C3 Alien::Base Alien::Base::PkgConfig Alien::Base::Wrapper Alien::Build Alien::Build::CommandSequence Alien::Build::Interpolate Alien::Build::Interpolate::Default Alien::Build::Log Alien::Build::Log::Abbreviate Alien::Build::Log::Default Alien::Build::MM Alien::Build::Plugin Alien::Build::Plugin::Build::Autoconf Alien::Build::Plugin:
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
perldelta - perl v5.8.9 の新機能 perldelta - what is new for perl v5.8.9 名前 NAME perldelta - perl v5.8.9 の新機能 perldelta - what is new for perl v5.8.9 説明 DESCRIPTION このドキュメントでは 5.8.8 リリースと 5.8.9 リリースとでの相異点を 説明します. This document describes differences between the 5.8.8 release and the 5.8.9 release. Notice 5.8.9 リリースは 5.8.x シリーズにおける最後の大きなリリースと なるでしょう. 5.8.x の今後のリリースは恐らくセキュリティに関する物か プラットフォームにおけるビルド不具合のみの
基本的な書き方 use strict; use warnings; use utf8; # ↑ Perl ハッカーに DIS られなくなるおまじない # Win32::GuiTest を使うおまじない use Win32::GuiTest qw(:ALL); # 日本語を使えるようにするおまじない UnicodeSemantics(1); # ここで Win32::GuiTest を使う マウスを動かす use strict; use warnings; use utf8; use Win32::GuiTest qw(:ALL); # 小数点もいけちゃう sleep 関数 use Time::HiRes qw(sleep); UnicodeSemantics(1); for (my $i = 0; $i < 500; $i++) { # 10 ms 待つ sleep(0.01); # マウ
言語によっていろいろ違うなぁと実感。 Perl use Encode; binmode STDOUT, ":encoding(shiftjis)"; my @str = qw(00110000 01000010); my $final = join('',map{pack('B8',$_)} @str); $final = decode('UTF-16BE',$final); print $final; Perlのmap関数の使い勝手は最強ですね。 java import java.io.*; public class BinaryDecode{ public static void main(String[] args) { String[] strArray = {"00110000","01000010"}; byte[] bytes = new byte[2]; int i = 0
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
Perl 初心者が、初心者にも優しいとウワサの MENTA を使ってみるよ。 ちなみに自分の Perl のレベルは以下の本での 6 〜 6.5 くらい。 あ、やっぱり2くらい。永遠の Perl 初心者です＞＜ Perlプログラミング救命病棟 (Programmer’s foundations) 作者: ピーター・J・スコット,トップスタジオ,伊藤直也出版社/メーカー: 翔泳社発売日: 2005/09/06メディア: 大型本購入: 10人 クリック: 274回この商品を含むブログ (71件) を見る 各レベルの詳細は本を買うか、以下のサイトを見ると分かるよ。 naoyaのはてなダイアリー - Perlプログラマのレベル10 http://d.hatena.ne.jp/naoya/20050809/1123563794 今回も要約を先に 今回は MENTA をチェックアウトして、サンプルを動か
Yacafi という軽量CGIフレームワーク書いたよ MENTA というウェブアプリケーションフレームワークをかいてみた - TokuLog 改めB日記やらNanoA というウェブアプリケーションフレームワークをかいてみた - id:kazuhookuのメモ置き場やらと軽量CGIフレームワーク作りが流行ってるようなので昼飯食った後に20分くらいで書いたよ。 Yacafi(Yet another CGI application framework interface)と言います。 http://svn.coderepos.org/share/lang/perl/Yacafi/trunkからsvn coできるけど、Yacafiはモジュール一個だけあれば動くようにしてあるのでhttp://svn.coderepos.org/share/lang/perl/Yacafi/trunk/lib/Yac
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
