404 Blog Not Found:perl - Encode 入門
2008年04月09日01:00 カテゴリLightweight Languages perl - Encode 入門 すでにOSCONでもYAPCでも、あちこちそちこちでこの基本方針に関しては話したのですが、ここ 404 Blog Not Found でも改めて。 Perl で utf8 化けしたときにどうしたらいいか - TokuLog 改め だまってコードを書けよハゲ 入り口で decode して、内部ではすべて flagged utf8 で扱い、出口で encode する。これがすべてです！とにかくこの基本方針をまもっていれば幸せになれます。ここでは、EUC-JPでエンコードされたファイル中の「小飼弾」「こがいだん」「コガイダン」「Kogai Dan」を正規表現で書き換えて標準出力にEUC-JPで出力するプログラムを例にとって説明します。 decode() then encode(
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
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
print scalar grep /やる気/, <>; ###0
ようこそゲストさん ブログトップ 記事一覧 ログイン無料ブログ開設 print scalar grep /やる気/, <>; ###0 ブログトップ 記事一覧 ログイン 無料ブログ開設
2006-11-07
記号ゴルフって英語でなんやろって聞いたら題字の返事が mark byers 氏から帰ってきました。 さて、最近の記号ゴルフについては、 http://d.hatena.ne.jp/kikx/20061030#1162308720 にまとまっていますが、とりあえず無限ループは [*""..$/] と (""..$/).min で更新できますねーと。 あとは quine も StackError も SEGV もわからないなぁといったところです。特に quine を「安直に」作る kik さんは異常だと思いました。つまり答えキボンヌと申しておるのですが。 追記なんかこれ偉そうですね。こう答えがわからないギギギというアレが。 StackError は正規表現とかなんかなぁ…あ、あと思い出したんですが 6B StackError は察しておられる通り load$0 のつもりでした。 Perl Go
UTF8 フラグあれこれ - daily dayflower
UTF8 フラグについてわかってるつもりだったんですが，utf8::is_utf8 considered harmful - Bulknews::Subtech - subtech を読んで混乱したので，自分なりにまとめてみました。間違いがありましたらご指摘よろしく。 まとめ スカラー変数の内部表象の状態を示すものとして UTF8 フラグというものがある スカラー変数は（リファレンス等は別として）下記のものを格納できる (A) 文字列（内部表象: UTF-8） (B) 文字列（内部表象: ISO-8859-1） (C) バイナリ列 純粋なバイナリストリーム（画像ファイル等）かもしれないし， UTF-8 octet stream かもしれないし， CP932 octet stream かもしれないし，etc, etc ... Perl は（後方互換性確保などの理由から）ISO-8859-1
iTunes woes (sort-of) - Vox
So, the previous blog post started a huge discussion of what's the best way to synchronize your data, especially music, between your work laptop, home laptop and home media center. For me they're MacBook at work, ThinkPad X40 for home laptop and Mac mini for the media center.I knew there's a solution like VPN using Hamachi but i guessed there's a better technology for it since it's 2008, and viola
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
autoboxでDBIとか - Hatena::Diary::Neko::kak 500 Internal Server Error
sql->doとかできたらおもろいかなとおもってやってみた。 use strict; use warnings; use autobox; use autobox::DBI ['dbi:SQLite:/tmp/autobox_dbi.db'], {RaiseError => 1,AutoCommit =>1}; use Test::More tests => 8; 'CREATE TABLE foo(id INT, body TEXT)'->do; 'INSERT INTO foo(id,body) VALUES(1,"fooo")'->do; ['INSERT INTO foo(id,body) VALUES(?,?)','2','bar']->do; ['INSERT INTO foo(id,body) VALUES(?,?)','3','baz']->do; my @list = '
YAPC::Asia 2008 - naoyaのはてなダイアリー
YAPC::Asia 2008 に来ています。ただいま二日目、昼食休憩中です。 YAPC::Asia も今年で3回目ですが、配布されているスケジュールの冊子や会場案内の立て看板、全体の進行など...どこを見てもそのクオリティが年々上がっているように感じます。今年は昼食が無料で配られていたり、懇親会も無料だったりと、とてもボランティアベースかつ参加料数千円のカンファレンスとは思えない雰囲気です。 1990年代後半の Java ブーム、昨今の Ruby ブーム、関数型言語ブームなどの毎、Perl はその荒波に晒されることもままあるわけですが、こうして 500 人もの人が集まり最新の技術トピックについてわいわいやっていると、この言語とコミュニティの息は思ったよりずっと長そうだし、他言語の流行には相乗りすることはあってもそれによって本体が衰退するようなことはない...という力強さを感じます。 初日
OpenID Provider のセキュリティ対策 (1) - まずは SSL を導入！話はそれからだ - 日向夏特殊応援部隊
やっと下準備終わったので書いてみる。 OpenID でのプトロコルメッセージで、認証アサーション要求*1及び応答*2でのメッセージは通常、RP-OP 間で associate 時に交換した MAC キーを持って署名を行う為、期待する相手と通信している限りは改ざんは起こりにくいと考えられます。 但し最近話題に出て来ている DNS Cache Poisoning のような攻撃を受けた場合、中間者攻撃 (man-in-the-middle attack) が成立する可能性があります。 攻撃手法の例 例えば、RP の DNS が汚染されていた場合を考えます。本来 OP であるはずのホストが悪意のある第三者のサーバーに割り当てられていた場合、その第三者のサーバーが中継を行えば、DH 鍵交換を行ってもまったく無意味で、認証データが盗まれる可能性があります。つまり、 RP から見ると OP に見えて O
perl - 配列をハッシュキーとして扱う : 404 Blog Not Found
2007年10月24日20:00 カテゴリLightweight Languages perl - 配列をハッシュキーとして扱う コメント欄にも「教科書解」がなかったので。 Perl勉強中 - YoshioriのBlog #!/usr/bin/perl use strict; use warnings; my @array = qw/1 2 3/; my @array2 = qw/1 2 3/; my %hash; $hash{@array} = 'foo'; # ちょっと変更 print $hash{ @array2 }; # foo みたいなこと出来ないのかな？ 教科書解は、こちら。 $hash{ join($;, @array) } = 'foo'; これは、 $hash{1,2,3} = 'foo'; $hash{qw/1 2 3/} = 'foo'; という、配列リテラルをキーに
404 Blog Not Found:TuringとChurchの狭間で
2006年04月16日13:53 カテゴリMath書評/画評/品評 TuringとChurchの狭間で The Emperor's New Mind Roger Penrose [邦訳:皇帝の新しい心] なんでひげぽんが反復がすぐにわからなかったかを憶測すると、「変数とは代入すべきもの」、という手続き型言語の呪縛が思い立つ。ひげぽんは別にがっかりする必要はない。hyukiさんさえそれに引っかかっていたんだから。 その証拠を、以下にお見せする。 [結]2005年8月 - www.textfile.org sub fix { my $G = shift; return $G->( sub { my $x = shift; return fix($G)->($x); } ); } これはPerlで実装した不動点関数で、全く問題なく動く。しかし、hyukiさんも知らぬ間に一つ「反則」を犯しているこ
てきとうにクリックしたらてきとうにWeb::Scraperのコードを作ってくれるWebScraper IDE - bits and bytes
まえに作ったWeb::Scraperのjavascriptバージョンwebscraper.jsとXPathをてきとうに作ってくれる機能を追加したwebscraperp.jsにHTMLのドキュメントから繰り返し部分をみつけてSITEINFOをつくるAutoPagerize Iteration Detectorみたいなみためをくっつけて、取り出したい部分をクリックしたらてきとうにXPathを生成してWeb::Scraperのコードにして出してくれるFirefoxのextensionを作りました。Firefox3専用です。ごめんなさい。 ダウンロード WebScraper IDE (for Firefox3) 使い方 今回もいつもお世話になっているスターバックスさんの店舗検索結果(住所・店名・条件から探す)を例に使い方をご紹介します。 WebScraper IDEをインストールするとツールメニュ
Journal of miyagawa (1653) - ActiveSupport equivalent to Perl
UPDATE: The module was originally written using constant overloading, but it is a dangerous and gross hack, so I changed that to use autobox framework instead (wondering why I didn't try that at first!). I updated the post accordingly.Rails has ActiveSupport, something to add funky methods to Ruby core object, to do fancy things like 2.months.ago to get Time duration object etc.I found it pretty i
perl - Class vs. Closure : 404 Blog Not Found
2008年07月13日03:30 カテゴリLightweight Languages perl - Class vs. Closure PERL HACKS(日本語版) [英語版] うーん、さすがにそれはいいすぎでしょうか。 クロージャの概念をクラスとの対比でわかりやすく説明する。 - サンプルコードによる Perl 入門 ここで気づいてほしいことは、クラスとクロージャは、実は同じものだということです。たしかにオブジェクトの定義から行くと、 404 Blog Not Found:オブジェクトは難しくない。難しいのはクラス それで、オブジェクトとは何か、といえば、「自分が何が出来るのか[コード]を知っているデータ」ということになる。 であり、クロージャー(closure)は「自分が何を持っているか[データ]を知っているコード」なので、等価ではある。実際、 package Class; sub
perl - Scalar::Lazy released! : 404 Blog Not Found
2008年06月02日02:30 カテゴリLightweight Languages perl - Scalar::Lazy released! Scalar::Lazyというモジュールをこさえたのでお報せします。 /lang/perl/Scalar-Lazy/trunk - CodeRepos::Share - Trac Dan Kogai / Scalar::Lazy - search.cpan.org どんなモジュールかというと、遅延評価をより簡単に扱えるようにします。 use Scalar::Lazy; my $scalar = lazy { 1 }; print $scalar; # 1; # Y-combinator made easy my $zm = sub { my $f = shift; sub { my $x = shift; lazy { $f->($x->($x)
Devel::Caller が便利すぎる件について - IT戦記
こんなことを書いていたら Perl で JS の arguments.callee 的なことしようと思ってハマった - IT戦記 さっそく教えて貰えた＞＜ http://d.hatena.ne.jp/tokuhirom/20080501/1209625789 ありがとうございます！ さっそく使ってみた！ 以下のコードを # test.pl use strict; use warnings; use Devel::Caller qw(caller_cv); sub { my $c = shift; print "$c \n"; caller_cv(0)->($c) if ($c --); }->(10); 実行！ $ perl test.pl 10 9 8 7 6 5 4 3 2 1 0 $ おおおおおお。キタコレ！かなりシンプル！ これで無名関数の再帰ができる＞＜ id:tokuhirom
SevenLines
七行プログラムは、 任意の処理に必要なコードを無理矢理七行に詰め込んだソースまたはスクリプトです。 一行の定義は 「79 byte 以内の文字列 + LF」 としています。 ●ご注意: 当サイトにて公開されている製作物の作者は、 それら製作物の使用で生じた如何なる損害に対しても責任を負いません。 また、製作物やその利用方法に関する質問、製作物に対する要望等に、 作者は応える義務を持ちません。 ● 当サイトにて公開されている製作物は、それぞれの作者が著作権を有します。 配布パッケージのライセンス文書に従ってお取り扱い下さい。 配布パッケージが存在しない場合は、作者の許諾なしに転載・再配布等は行えません。 ● 当サイトは大塚製薬及び同社の製品とは一切関係ありません。 :-p
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perlゼミ(サンプルコードPerl入門)