Perl XS メモ - typemap と MAGIC をからめて - daily dayflower
id:tokuhirom さんが http://d.hatena.ne.jp/tokuhirom/20081209/1228829454 で下地をつくってくださったので（perl-users.jp むけまとめも期待してます），ちょっとアドバンスドな話題を。 例題 http://www.sra.co.jp/people/m-kasahr/eb/ http://www.sra.co.jp/people/m-kasahr/eb/ の Perl binding を開発するとしましょう。 http://www.sra.co.jp/people/m-kasahr/eb/ の使い方は，たとえば次のような感じです。 EB_Book *book_pointer; book_pointer = (EB_Book *) malloc(sizeof(EB_Book)); eb_initialize_book(bo
CPAN Realtime Updates
bulknews.typepad.com Tatsuhiko Miyagawa's blog to discuss mostly tech and nerdy stuff. This bot periodically sends smart HTTP GET against cpan.cpantesters.org fast CPAN mirror to get semi-realtime updates. The delay is usually less than a minute (about 30 seconds) and is much faster than other bots based on search.cpan.org. via friendfeed.com CPAN is the Perl's most favorite "language feature" all
Perlでスレッド処理を行うサンプル少し - ナマアシタノム
はじめに Hatena::Bookmark::24hのHTMLデータを生成する際にはてなブックマークの個別ページRSSを複数件取得するわけですが、取得処理を勢いで作ってしまったためにスレッド化されていなかったりします。 早い話が１件目のRSS取得→完了→解析→２件目のRSS取得→…のように直列動作させてしまっている状況です。これは効率悪そうです。 並列で複数のRSSが取得できれば処理時間の短縮になりそうですね。ちなみにPerlには並列動作を行う仕組みとしてスレッドが組み込まれているようで、今日はPerlでスレッド処理を行うための処理をメモしておこうかと思います。 注意 実験した環境はWindows XP(SP3)/ActivePerl 5.8.8(Build819)です。それ以外の環境では動作確認していません。 サンプル１：スレッド生成＆実行 概要 スレッドを複数個生成・配列(@threa
第14回 Rakudo：実装する方法だってひとつではないのです | gihyo.jp
2010年4月に出るのは…… 先日、いわゆるPerl 6の実装が2010年4月をめどにRakudo *（Rakudo Star）の名前でリリースされる、という記事が紹介されました。 そのネタ元となった記事を書いたパトリック・ミショー（Patrick Michaud）氏は、2009年4月17日のNordic Perl Workshopを皮切りに、2009年6月22日のYAPC|10（YAPC::NA）、2009年7月22日のOSCON、2009年8月4日のYAPC::EUと、立て続けにRakudoの発表を行い、そのまとめとして当該記事を掲載したのですが（ちなみにRakudo *の公開時期はすでにOSCONの時点で明言されていました）、その3日後にご本人によるフォロー記事が出ているように、この短い紹介記事では意図が伝わりにくい面もあったようです。 そこで、今回はRakudoとはどのよう
GOKicker - Technology, Lifestyle, Business, Travel, & More
Get the latest creative news from FooBar about art, design and business.
コマンドラインでTwitterの表示をするPerlスクリプト - 結城浩のはてな日記
Net::Twitter::Liteモジュールを使用してコマンドラインでTwitterの表示をするPerlスクリプトです。 準備 C:\work> ppm install YAML::Syck (YAML::Syckモジュールをインストール) C:\work> ppm install Net::Twitter::Lite (Net::Twitter::Liteモジュールをインストール)スクリプト(printw.pl) #!/usr/bin/perl use strict; use warnings; use Encode; use YAML::Syck; use Net::Twitter::Lite; use Data::Dumper; my $yaml = 'printw.yaml'; my $conf = YAML::Syck::LoadFile($yaml) or die qq{$y
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
TAKENAKA's Web Page: Perl入門
「もの」を表すいくつかのデータをひとまとめにする 配列は，同じような種類のデータがたくさんあるときにそれをまとめるのに便利でした． たくさんの木の高さのデータ，連続測定している温度のデータ，たくさんの生き物の 名前のリストなど，いくらも例を考えることができます． では，たくさんの木の種名と高さと太さと位置（ x, y 座標）のデータがあったら， どんなデータ構造で表現したらよいでしょうか． あるいは，ニホンザルの群れの一頭一頭の性別，年齢，（人間がつけた）名前， 母親の名前，父親の名前，配偶者の名前，体重，群れの中での地位，子供の数の データがあったら，どう表現しましょう． はたまた，学会の大会参加申し込みデータ1140人分，それぞれ 参加者の受付け番号，名前，よみ，所属，住所，メールアドレス，懇親会参加， 発表の演題のデータがあるとしたら？ こんなのとき，種名の配列と高さの配列と太さの配
Run a tweet like Perl
bulknews.typepad.com Tatsuhiko Miyagawa's blog to discuss mostly tech and nerdy stuff. Takesako-san and other shibuya.pm folks brought up the wonderful idea on the IRC channel that any URL can be used as a valid JavaScript code, since in JS ":" is a label and "//" is the beginning of comment. Of course, we then started to figure out how to do that with Perl :) % perl -MO=Deparse -e http://goog.com
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
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
Shadowcat Systems Limited
YAPC Rocks and Perl'rs Roll Which means Perl is Alive and Well and most certainly Kicking Fri Aug 14 10:15:35 2009 There are hackers In utili-kilts, with hair down to their backside, Who will tell you that the future, Is about Enlightened Moose... There is always a good mood at a YAPC, I am not sure what the exact mix is that creates it but it is there, it pervades the schedule and penetrates the
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'; という、配列リテラルをキーに
$this->get if $you->learn(slow) - 書評 - すぐわかるオブジェクト指向Perl : 404 Blog Not Found
2008年06月20日01:00 カテゴリ書評/画評/品評Lightweight Languages $this->get if $you->learn(slow) - 書評 - すぐわかるオブジェクト指向Perl 著者より献本御礼。 すぐわかるオブジェクト指向Perl 深沢千尋 「すぐわかる」のタイトルに反して、「すぐにわからない人が、すぐではなくあくまで自分のペースでゆっくり学ぶ」のに向いた良書。ウサギタイプではなく、カメタイプの人が Perl を学ぶのであれば、本書が第一選択肢となるべきだ。 本書「すぐわかるオブジェクト指向Perl」を著者が著したのは、リャマ本およびアルパカ本では学べなかった読者がいるからだと著者は言う。 添え状より Danさんはブログに「Perlを学ぶ最短ルートはリャマ本とアルパカ本を読むこと」と書かれています。同感ですが、ぼくの同僚などはリャマ本を読ませても飽き
perl - JPEG判定をPure Perlで : 404 Blog Not Found
2009年08月18日13:45 カテゴリLightweight Languages perl - JPEG判定をPure Perlで やってみてもいいと思ったので。 JPEG かどうかを判断する C のコード - TokuLog 改めB日記 こんな感じで。 #!/usr/bin/perl use strict; use warnings; use LWP::Simple; my $url = 'http://ec2.images-amazon.com/images/P/4757215339.01.MZZZZZZZ.jpg'; my $content = get($url) or die "Couldn't get $url"; print "$url : ", isjpeg(\$content); if (0){ # test my $fn = shift; my $content; p
Kazuho@Cybozu Labs: Perl のテスト用に PostgreSQL のインスタンスを自動で構築するモジュール Test::postgresql を書いた
以前作成した Test::mysqld (参照:Perl のテスト用に MySQL 環境を自動で構築するモジュール Test::mysqld を書いた) の姉妹版、Test::postgresql を書きました。このモジュールを使えば、テストコード内で一時的にテスト専用の PostgreSQL のインスタンスを構築し、テストを実行することができます。構築されたインスタンスは、テスト終了時に自動的に削除されます。 use DBI; use Test::postgresql; use Test::More; my $pgsql = Test::postgresql->new( initdb_args => $Test::postgresql::Defaults{initdb_args} . ' --encoding=utf8', ) or plan skip_all => $Test::pos
YAPC::Europe 2009 レポート(1) 注目セッション紹介編 : Media Technology Labs (MTL) : メディアテクノロジーラボ ブログ
Ringとは、リクルートグループ会社従業員を対象にした新規事業提案制度です。 『ゼクシィ』『R25』『スタディサプリ』など数多くの事業を生み出してきた新規事業制度は、 1982年に「RING」としてスタートし、1990年「New RING」と改定、そして2018年「Ring」にリニューアルしました。 リクルートグループの従業員は誰でも自由に参加することができ、 テーマはリクルートの既存領域に限らず、ありとあらゆる領域が対象です。 リクルートにとって、Ringとは「新しい価値の創造」というグループ経営理念を体現する場であり、 従業員が自分の意思で新規事業を提案・実現できる機会です。 Ringフロー その後の事業開発手法 Ringを通過した案件は、事業化を検討する権利を得て、事業開発を行います。 さまざまな事業開発の手法がありますが、例えば既存領域での事業開発の場合は、 担当事業会社内で予算や
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl 5 internals の世界にようこそ - daisuke maki
http://perlbuzz.com/2009/08/perl-coming-to-android-phones.html
はてなブログ | 無料ブログを作成しよう