ネコ情報
ネコを各種ブログ(Blog)から一括検索します。
トップ > strict
Amazon Books 検索結果: strictの検索結果
Google ブログ(Blog) 検索: strictの検索結果
■ 本を読む mixiの足あとフィードをAPIから取る
mixiが足あと機能をいろいろ変更したのをきっかけに、そういえば足あとってAPIからAtomで取れるんだよなと思い出しました。 例として、Perlから足あとフィードを取得してみます。認証まわりは面倒なのでw3mのクッキーで。 #!/usr/bin/perl use strict; ...
■ 気まぐれ日誌 十段
ギターフリークス&ドラムマニア V3 · ポップンミュージック14 FEVER! ダンスダンスレボリューション スーパーノヴァ2 · 東方文花帖 ~ Bohemian Archive in Japanese Red · 東方求聞史紀 ?Perfect Memento in Strict Sense. ...
■ 本・書籍ベストセラー - 2009/01/09
100年に一度の金融危機から資産を守る方法~「レバレッジ」経済を生んだ金融商品を設計した元外資系金融マンが書いた!世界経済新時代の資産運用~ 諸岡 実麿 (著) · 東方求聞史紀 ~Perfect Memento in Strict Sense. ZUN (編集) ...
■ A-note. | うちあわーせ｡｡｡
Post a Comment. Name E-mail. URL Remember personal info? Comments. Trackback URL. http://7a-note4.jugem.jp/trackback/426. Trackbacks. Copyright (C) 2009 JUGEM Some Rights Reserved. JUGEM · Valid XHTML 1.0 Strict Creative Commons License.
■ BlogのBlog | 柚がたくさんあったので
RECOMMEND. ヨーガンレールの社員食堂 （MonoColle »） 高橋 みどり. RECOMMEND. ニライカナイの日々 （MonoColle »） 森岡 尚子. Copyright (C) 2009 JUGEM Some Rights Reserved. JUGEM · Valid XHTML 1.0 Strict Creative Commons License.
■ お尻にとことん愛の鞭 スパンキングひみつ倶楽部7
... Her First Punishment · Spank Camp & SIT Spanking Online · Spanking & Shame · California Star Spanking · The Spanked Cutie · Boys Boarding School · The Bad Females · Spank Christina · Strict Krista · VIP Spanking · My First Bondage ...
Yahoo! ブログ(Blog) 検索: strictの検索結果
■ mixiの足あとフィードをAPIから取る - 22時46分
... usr/bin/perl use strict; use warnings; use LWP::UserAgent; use HTTP::Cookies::w3m; my $myid = '000000'; my $cookie_file = "$ENV{'HOME'}/.w3m/cookie"; my $url = "http://mixi.jp/atom/tracks/r=2/member_id=$myid"; my $ua = LWP::UserAgent->new ...
■ [雑談][Perl] コーヒーブレイク - 19時34分
とりあえず perl で。 #!perl use strict ; use warnings ; use utf8 ; &main (); exit 0 ; sub main() { my @fibs = ( 1 , 2 ); my $sum = 2 ; while ( $fibs [ -2 ] + $fibs [ -1 ]
■ Bail out - 12時12分
... 1977 in Asia, several countries were bailed out by IMF, but the financing brought deep grudge against IMF because of strict control. After all, those countries have overcome their crises by “bailing in”. So I’m very concerned about how ...
■ shared_scalarマジックの観察 DumpとDeparseから - 2009年1月7日 23時14分
... create(\&huga); $th->join; $th2->join; print "$val\n"; print Dump(\$val); sub hoge { use strict 'refs'; $val++; } sub huga { use strict 'refs'; $val++; } $valにはattributesモジュールによって，sharedという属性が ...
■ [perl]課題への挑戦 - 2009年1月7日 22時55分
コード #!/usr/local/bin/perl -w use strict ; use warnings ; use Data::Dumper; use constant OUTPUT_FILE => "union.csv" ; my $path1 = $ARGV [ 0 ]; my $path2 = $ARGV [ 1 ]; eval { die "no argument." unless defined ( $path1 ...
■ [Perl]Net::IMG2JSONをつくってみた - 2009年1月7日 22時23分
... usr/local/bin/perl use warnings ; use strict ; use Net::IMG2JSON; use JSON; use YAML::Syck; use Data::Dumper; my $img2json = Net::IMG2JSON-> new (); my $datas = { 'imgurl' => "http://assets.flog.co.nz/favicon.png ...
■ [Perl][Linux]Linuxのプロセス毎メモリ使用量を調べてみた - 2009年1月7日 22時3分
... Created by Limit # http://d.hatena.ne.jp/limitusus/ # *** RUN WITH ROOT PERMISSION *** use strict ; use warnings ; use Linux::Smaps; # Setting my $prefix = q|/proc| ; my $pids = pid_list(); print qq|# PID ...
■ [Perl][Linux]Linuxのプロセス毎メモリ使用量を調べてみた - 2009年1月7日 21時59分
... Created by Limit # http://d.hatena.ne.jp/limitusus/ # *** RUN WITH ROOT PERMISSION *** use strict ; use warnings ; use Linux::Smaps; # Setting my $prefix = q|/proc| ; my $pids = pid_list(); print qq|# PID ...
■ MT 4.xにインストールしているPlugin - 2009年1月7日 21時7分
... XHTML1.0 Strict DTDに準拠し、SEOやレンダリング、再構築まで視野に入れたシンプルな構造と、CSSを変更すればすぐに反映されるデザインテンプレートのシンプルさ。 いろんな意味で勉強になる感じで・・・。 ...
http://www.krcube.net/blog/archives/2009/01/mt_4xplugin.html
■ 続:Catalystでマルチバイトを取り扱うときのまとめ - 2009年1月7日 18時26分
... TT package MyApp::View::TT; use strict; use base 'Catalyst::View::TT'; __PACKAGE__->config(TEMPLATE_EXTENSION => '.tt'); 1; MyApp::Controller::Root package MyApp::Controller::Root; use strict; use warnings; use parent 'Catalyst:: ...
Technorati ブログ(Blog) 検索: strictの検索結果
■ [Ruby]Text::Hatenaを活用しまくる - 2009年1月4日 18時22分
目次 はてな記法で静的コンテンツ生成のためにText::Hatenaを使うことにした わりとうまくいった なぜかTeX記法も見れた iPhone上での使いやすさが結構やばい 変換用のソースと一括変換用のソース 内容 Blogとか動的なコンテンツじゃなくて、静的なコンテンツを作りたいと思っている。MakeWebを利用しようかと思ったんだけど、はてな記法でいうリスト記法(かな?)を多用しまくる僕にはMakeWebの記法だとつらい。他のwikiの記法を学ぶコストもでかいし、何よりはてな記法になじみまくっているからはてな記法を使いたい。simple-hatena-modeとかなじみのあるやつで書けるっていうのも大きいな。で、Junya Kondo / Text-Hatena - search.cpan.orgがあるんだけど、昔cpanでインストールしようとするとこけた記憶があるし*1、Perlで3行以上もう書ける気しないというわけで探していたらRubyのやつを見つけた。 Text::Hatena README (ja) なお、はてぶコメントでid:noplansさんにhpa
■ [Perl][30分プログラム]Whitespace実装用のスタック - 2009年1月2日 16時0分
Whitespace実装用のスタック Perl, 30分プログラム | 30分プログラム、その502。最近、Whitespaceとかbrainfuckとかの難読言語が流行っているらしいので、ボクもWhitespaceを実装してみようと思う。というわけで、まずはスタックを実装してみた。 wikipedia:Whitespaceに載っていた5つのスタック操作は実装してみた。 push: 数値をスタックに積む dup: スタックの1番上を複製する dup_n: スタックのn番目をコピーして一番上に積む swap: スタックの1番目と2番目を交換する pop: スタックの1番上を物を捨てる 使い方 # stackを作る my $stack = Stack->new; # 3つほど数字をpushする $stack->push(42)->push(1)->push(0); # 先頭を複製して、pushする $stack->dup; # 先頭を削除する $stack->pop; ソースコード #! /usr/bin/perl # -*
■ [Perl]XS(とC++)入門したい - 2008年12月30日 6時3分
XS(とC++)入門したい Perl XSを使ってみたい．ついでにC++も勉強したい．とりあえず今日はShibuya.pm #9 のXSトークを何個か見てみた． PerlからXSの世界をながめてみる まずは，PerlからXSの世界をながめてみる．整数値は一度文字列化すると文字列表現がキャッシュされる．Devel::PeekでXSレベルの構造体をダンプするとわかるよ． コード #!/usr/bin/env perl use strict; use warnings; use Perl6::Say; use Devel::Peek; my $x = 100; say Dump $x; "$x\n"; # 文字列化 say Dump $x; 実行結果 SV = IV(0x80cebc) at 0x800b88 REFCNT = 1 FLAGS = (PADBUSY,PADMY,IOK,pIOK) IV = 100 SV = PVIV(0x802020) at 0x800b88 REFCNT = 1 FLAGS = (PADBUSY,PADMY,IOK,POK,pIOK,p
■ 今年のブログの振り返り(2月) - 2008年12月29日 8時48分
■今年のブログの振り返り(2月) >「Jython本の執筆が終わったら開ける」って言って買ったおもちゃがたくさんありすぎる。LaQも本当は開けるつもり無かったんだけど、あとラボに起きっぱなしの投影式万華鏡とか げ、投影式万華鏡放置したまま完全に忘れてた。 http://d.hatena.ne.jp/nishiohirokazu/20080201/1201860391 Haskellの:や[]はデータ構築子なので、じゃぁ自作してみよう、という話。 http://d.hatena.ne.jp/nishiohirokazu/20080202/1201921391 Haskellの遅延リストに関する話 http://d.hatena.ne.jp/nishiohirokazu/20080204/1202104617 最もタメになる「初心者用言語」は Python！ http://d.hatena.ne.jp/nishiohirokazu/20080207/1202376013 AS3のArrayは遅いなぁ、という話 http://d.hatena.ne.j
■ Perl入門 perlintro英文完全解説(12) - 2008年12月26日 7時27分
Perl入門 perlintro英文完全解説(12) perlintroの第12回の解説を始めます。 わからない単語があればこちらでお調べください。(翻訳の小窓)。 本日の英文 Perl has three main variable types: scalars, arrays, and hashes. Scalars A scalar represents a single value: my $animal = "camel"; my $answer = 42; Scalar values can be strings, integers or floating point numbers, and Perl will automatically convert between them as required. There is no need to pre-declare your variable types, but you have to declare them using the my keyword the first time you
■ [Perl] ’￥xf1￥xd9’ みたいな16進数文字列を変数展開？して「騙」って漢字にしたい - 2008年12月26日 5時8分
■[Perl] '\xf1\xd9' みたいな16進数文字列を変数展開？して「騙」って漢字にしたい うまく説明できないけど、 #3. のブロックが pass して欲しい。 #!/usr/local/bin/perl # $Id$ use strict; use warnings; use Test::More; plan 'no_plan'; use Encode; my $kanji = '騙'; { #1. pass my $hex = "\xf1\xd9"; is $hex, to_euc($kanji); }; { #2. fail my $hex = '\xf1\xd9'; is $hex, to_euc($kanji); }; { #3. fail... my $hex = '\xf1\xd9'; # ここでうまいこと $hex = "\xf1\xd9" 的なことをしたい is $hex, to_euc($kanji); }; sub to_euc { encode('euc-jp', decode('utf-8', shift)); } 1; __END__
■ [Emacs] eshell のパイプ - 2008年12月25日 20時12分
■[Emacs] eshell のパイプ eshell では input redirection が使えない (perl ./hoge.pl < file とかできない) のだけど、 cat file | perl ./hoge.pl で代用できるよ、というのが知られている。 けどこれも厳密にはふつうの shell とはちょっと違うようだ。 #!/usr/local/bin/perl use strict; use Test::Simple tests => 1; ok -t STDIN; 1; こんなスクリプトを用意する。 pipe か input redirection で標準入力に何か渡されてきた場合このテストは失敗するはず。でも・・・ bash bash-3.2$ cat file | perl ./pipe.pl 1..1 not ok 1 # Failed test at ./pipe.pl line 5. # Looks like you failed 1 test of 1. bash-3.2$ perl ./pipe.pl < fi
■ [Perl][30分プログラム]2行を1行にまとめる - 2008年12月25日 16時0分
2行を1行にまとめる Perl, 30分プログラム | 30分プログラム、その446。AWK Users JP :: 2 行を 1 行にして表示より。 123458.69 KK5899966 23698565.36 MM5897155998 というものを以下のようにします。 123458.69,KK5899966 23698565.36,MM5897155998 要するに 2 行を 1 行にして表示するというものです。 普通に行数を覚えておいて、カンマと改行を出力し分けるだけだとつまんないなー、と思ってmapとか使っているけど、効率が悪くなっている気がする。まあいいや。 使い方 $ perl 2to1.pl sample 123458.69, KK5899966 23698565.36, MM5897155998 ソースコード #! /usr/bin/perl # -*- mode:perl; coding:utf-8 -*- # # 2to1.pl - # # Copyright(C) 2008 by mzp # Author: MIZUNO Hiro
■ phshをPHP5.2系で使うパッチ - 2008年12月22日 5時9分
main() /home/shin/src/phsh.org:20
■ [Perl] 標準入力 STDIN にインプット・リダイレクションまたはパイプで何か渡されているかどうかを調べるには - 2008年12月22日 0時49分
■[Perl] 標準入力 STDIN にインプット・リダイレクションまたはパイプで何か渡されているかどうかを調べるには if (-t STDIN) { print 'opened'; } else { print 'piped or input redirection'; } こんなんでいいのかな。 perldoc -f -t とかでみると ‐t Filehandle is opened to a tty. と書いてあって、何のことやらよくわからない。 #!perl # $Id$ use strict; use warnings; if (-t STDIN) { print 'opened'; } else { print 'piped or input redirection'; } 1; 試してみてそうなるからそういうもんなんだろうけど、なんかむねがつかえたままのような嫌な感じ。
■ [perl]CGI::Application::DispatchとCGI::Application::Plugin::TTを使ってみた - 2008年12月20日 23時41分
■[perl]CGI::Application::DispatchとCGI::Application::Plugin::TTを使ってみた CGI.pmをベースとしたCGIアプリケーションを作成するためのフレームワークのCGI::Application::Dispatch。 ディスパッチ処理 http://example.com/app.cgi/index/ http://example.com/app.cgi/hoge/search/ など、URIによって処理を変える事ができる。 Perldocやnaoyaさんの記事などでは、http://example.com/app.cgi/モジュール名/run_mode名/などとすると良いそうです。 テンプレートの対応 HTML::Template,プラグインでTT(Template-Toolkit)にも対応しています。 プラグインも多様 CGI::Application/plugin/*が豊富にあり、フォーム作成などを助けてくれるモジュールなど。 プラグインの参考ページ CGI::Application - 再利用可
■ [Git] github の Post-Receive URL をためした - 2008年12月19日 10時15分
■[Git] github の Post-Receive URL をためした github.comでphp-users.jpを管理するまでの作業ログ | IDEA*IDEAを参考にして、こんな cgi をおいといて Post-Receive URL に設定しといた。これで pull いらず。 #!/usr/bin/perl # $Id$ use strict; use warnings; use CGI; my $cgi = CGI->new; my $ret = `cd /home/kyanny/www/rwsp.jp && export HOME=/home/kyanny && /home/kyanny/local/bin/git pull`; print $cgi->header(-type => 'text/plain'); print $ret; 1; export HOME=/home/kyanny はいらんかも。 cgi だから www とか daemon とか nobody とかなユーザー権限で実行されるんかなと
■ [perl][js] CPAN 最速検索の劣化コピー作ってみた - 2008年12月19日 0時36分
CPAN 最速検索の劣化コピー作ってみた perl, js mala さんの CPAN 最速検索を便利に使わせてもらってるんですが，操作上ちょっと不満なところがいくつかありまして。 カーソルキーのオートリピートがきかない ホイールがきかない 候補の同時表示数が固定 Firefox だからかもしれないですけど。 んで改造しようと思ったんですがわたしにはちと難しそうだったのでいっそ自分なりに書いてみようと思いました。もちろんライブラリを使わずに書く技能はないので jQuery を使いました。 jQuery: The Write Less, Do More, JavaScript Library Mouse Wheel Extension 標準機能だとマウスホイールをトラップするのがたいへんそうだったのでプラグインも使いました。 mala さんのコードをチラ見すると http://cpan.ma.la/list からパッケージ一覧を一括取得 http://cpan.ma.la/dist からディストリビューション一覧を一括取得 してる感じでした。
■ [Perl][30分プログラム]fishっぽいpwd: /usr/loacl/binが/u/l/binになるやつ - 2008年12月16日 16時0分
fishっぽいpwd: /usr/loacl/binが/u/l/binになるやつ Perl, 30分プログラム | 30分プログラム、その439。fishにあるprompt_pwd関数をPerlで再現してみる。 このprompt_pwdはわりと素敵で、/usr/local/binを/u/l/binみたいに最後のディレクトリ名以外を一文字に省略してくれる。これをscreenのステータスラインに表示するようにすると、かなり幸せになれる。 たとえば、こんな長いパスだと端が切れてしまう。。。 それが、こんなにすっきり！ というわけで、これをPerlで作っちゃおう！ 使い方 $ echo '/foo/bar/baz' | perl fish-line-pwd.pl /f/b/baz 実際はワンライナーにして、~/.zshrcに組み込んでやる。 function chpwd(){ emulate -L zsh local dir dir=$(pwd | perl -ne 's#$ENV{"HOME"}#\~#g; ($x,@xs) = reverse split "
■ [オブジェクト指向]useを使って継承を行う。 - 2008年12月16日 7時3分
useを使って継承を行う。 オブジェクト指向 Perlで継承を行うには、普通は@ISA という変数にスーパークラスのパッケージ名を追加するか、base モジュールを使用します。 ハック的なテクニックとして、use を使用して継承を行うこともできます。 サンプル 通常の継承 package Magazine; our @ISA = 'Book'; # @ISAに代入して、Bookを継承 あるいは、 package Magazine; use base 'Book'; use を使った継承 package Magazine; use Book; # use Book とすることで、Bookが継承される。 package Book; # 継承される側のクラスのimportメソッドの中で # use を行ったパッケージの@ISAに自身のパッケージを追加 sub import{ my $caller_class = caller; # Magazine が入る { no strict 'refs'; unshift @{ "${caller_class}::ISA" }
■ [Perl][30分プログラム]リズム感を測定するプログラム - 2008年12月15日 16時0分
リズム感を測定するプログラム Perl, 30分プログラム | 30分プログラム、その439。またもmixiの課題丸投げコミュより。 C/C++の課題丸投げ| 構造体についてより。 オリジナル問題-2: リズム感を測定するプログラム 経過時間の測定キーボード入力の時間間隔を測定する． 前回のリターン入力から今回のリターン入力までの経過時間(ミリ秒) を測定する 現在時刻の測定には以下の現在時刻取得関数を用いること． (Cのコードなので略) リズム感の判定interval() において測定されたデータを分析しリズム感を判定する． 関数プロトタイプ: char evaluate(int c, int pitch[], double *avg, double *sigma); 第1引数c: データ数(入力用) (int 型) 第2引数pitch: 時間間隔(入力用) (int 型の配列) 第3引数avg: 平均時間(出力用) (double 型) 第4引数sigma: 標準偏差(出力用) (double 型) 仕様pitch で与えられたc 個の
■ 「あなたのサイトは何点ですか？(/ω＼)」 - 2008年12月15日 7時14分
ども。こんばんは。 昨日の記事で、YouTubeの埋込を直したのですが、その際に参考にさせていただいたサイト様に気になるリンクがありました。 ●Another HTML-lint gateway http://openlab.ring.gr.jp/k16/htmllint/htmllint.html Webサイトの構文チェックが出来るサイト様です。 かなり細かくチェックしているようで、サイト管理者の方ならとても参考になりそうです。 試しに、今日の記事を入れた段階でうちのサイトのソースを入れてチェックしてみました。 ↓結果ｗ XHTML1.0 Strict としてチェックしました。 388個のエラーがありました。このHTMLは -17点です。タグが 40種類 1170組使われています。 orz ちなみに、100点満点でｓ、、、ごｈｇほ で、エラーメッセージを見ながら、あちこち直してみました。 うちのサイトは、XHTML1.0準拠（たぶんｗ）なので、それに沿って直しました。 目立つところは、タグのおしりを
■ [PERL][WINDOWS][プログラミング]Win32::GuiTest で Windows の GUI アプリをハックしよう - 2008年12月12日 8時35分
基本的な書き方use strict;use warnings;use utf8;# ↑ Perl ハッカーに DIS られなくなるおまじない# Win32::GuiTest を使うおまじないuse Win32::GuiTest qw(:ALL);# 日本語を使えるようにするおまじないUnicodeSemantics(1);# ここで Win32::GuiTest を使うマウスを動かすuse str... http://perl-users.jp/articles/advent-calendar/2008/13.html 以下はてなブックマークのコメントより PerlでGUIハック。 残業を減らせそうなソフトの一つ。他には「UWSC」しか知らない。 面白そう WSHでやるよりいろいろできそうな雰囲気 amachang の記事。perlでwindowsのGUI操作を自動化 http://b.hatena.ne.jp/entry/http://perl-users.jp/articles/advent-calendar/2008/13.html
■ [Perl][CPAN] URI::Template 0.14_01 は draft-03 相当 - 2008年12月11日 7時21分
■ Wicket で Component 毎に StripWicketTags の設定って出来ないのかなぁ - 2008年12月11日 3時3分
Wicket で Component 毎に StripWicketTags の設定って出来ないのかなぁ Wicket で wicket:id とか