タイトルは釣りですw*1 とあるテキストファイルを加工してCSVファイルを出力する Perl スクリプトがあり、ディレクトリ内のファイルをリストアップしてCSVファイルに出力しているのだが、なぜファイル名でソートされていないのか聞かれたので調べてみた。 その Perl スクリプトは File::DosGlob::glob でファイルリストを取得していたので、 yazekats% mkdir tmp yazekats% cd tmp yazekats% ls yazekats% touch 3 yazekats% touch 2 yazekats% touch 1 yazekats% ls 1 2 3 yazekats% perl -MFile::DosGlob -e 'map{print qq/$_\n/} File::DosGlob::glob(q/*/)'; 1 3 2 試してみると確
Perlは本当にｵﾜｺﾝなのか調べてみた
Perlは、日本国内では私と同年代（30代後半）の人を中心に、相変わらず人気があると思う。 しかし、私がよく見ているStackOverflow/DZone/InfoQ辺りでは、確かにこの数年はあまりPerlを見かけないという感覚があった。 そこで、Googleで『Perl site:stackoverflow.com』『1年以内の記事』のような感じで、いくつかのプログラミング言語の検索結果の件数を調べ、グラフ化してみた。 (;´Д`)…
まとめ 世界最大級のPerlの祭典「YAPC::Asia 2013」に参加＆トークして来ました。 そして参加者の投票で決まるBest Talk Awardsにて第2位をいただきました！ 60個近いトークの中での2位です！ありがとうございます＞＜ 第2位賞品は「国内技術カンファレンス(Perlに限らない)への参加費用補助」ということで、Perlに限らない国内のカンファレンスへの参加が出来るそうです。 他の言語カンファレンスあまり詳しくないので、おすすめがあれば id:myfinder 宛にメンション飛ばしていただけるとありがたいです＞＜ 昨今仕事はOpsを主軸としていますが、蒙古タンメン中本にハマったせいでだいぶDevってしまったので、来年までにまた巻き返したいと思っております。 今回の YAPC を振り返って「もっとこうしておけば」と思った点として、BOFにもっと行っとけばよかった!!とい
第三回 ISUCONの本選に、参加しました。予選から引き続き、@kazeburoさん、@tagomorisさんとの「LINE選抜チーム」。 #isucon 2013予選に参加した - すぎゃーんメモ 第三回 #isucon 本選リアルタイムフォトレポート【更新終了】 : ISUCON公式Blog 結果はなんと、優勝！！ おや、優勝2回目だ。→第1回のとき タイムライン 予選のとき同様に、自分の手元にある記録と記憶を辿ってどんな雰囲気だったか書き残してみます。間違っていたらゴメンナサイ。 使用言語はPerlです。 〜10:00 出社…じゃなくて会場入り。ちゃんと前日に早寝したので寝坊せずに済みました。 〜11:00 開会待ち。早くきすぎた、でも他の参加者さんたちも早くからしっかり集まってる。 ルール説明。ストーリー仕立てで緊張感が走る。画像系サービスか〜。 11:00〜 開始。用意されたのは
はい、というわけで自分のトークです： 昨年12月頃から関わってるlivedoorBlogのコードを触っていた時の憤りをスライドにぶつけてみました。 追記：スライドに「ログにマーカーをつける」というのは、（コード読んでないけど）多分こちらのエントリにあるLog::Minimal::Indentとだいたい同じ感じのヤツです ところでWeb上で見かける感想の中でこんなのがありました： 今年個人的に一番衝撃的だったのはやっぱ、livedoor blogのPlack化です。技術的な側面もさることながら、ああいう近視眼的には何のメリットもないし、逆にデメリットの方が大きそうな案件にリソースを割くジャッジができる会社としての姿勢が本当に凄いなと。 実はビジネス的にも意味はあるんだなー。 なかなか書くことができなかったんだけど、その内容というのがこちらと→ ブログのお引っ越し機能を大幅に強化しました！ （
PhantomJS といえば、WebKit を headless でうごかせて便利なやつですが、PhantomJS 1.8 から Ghost Driver がくみこまれるようになりました。 わかる人むけにかくと「JSONWire Protocol をサポートする httpd が phantomjs にくみこまれた」ということです。 GhostDriver は WebDriver Wire Protocol の1実装です。で、そのクライアントライブラリとして Selenium::Remote::Driver が CPAN にあがっていますから、これをつかって簡単に phantomjs とやりとりができます。 Selenium::Remote::Driver という名前のとおり、Selenium もつかえますんで、selenium をつかって、対応しているブラウザでのテストもできるのがいいかん
注：本稿はまだ書きかけです！書きかけです！まだ一般に知らしめようとする前にブクマされました！ｗ 間違いの指摘やコメント等は lestrrat @twitter にください！ Perl環境の設定方法はここ数年で大きく進化し、変わってきました。ここではアプリケーションのデプロイも見据えた、モダンなperl環境の整え方を紹介していきます。具体的にはperl本体や外部モジュールのインストール方法を解説したのち、Perlを使ったアプリケーションを管理・運用していく際に依存関係等はアプリケーション毎に管理できるようにしてグローバル環境に可能な限り干渉しない方法を紹介します。 目次 1.1 Perl本体のインストール 1.2 依存モジュールの管理・インストール 1.3 Cartonによるアプリケーションの実行環境の構築 tl;dr 本稿を読む前にポイントだけ知りたい！という方向けのまとめです： OSに同
先週金曜日にPerlCasual #5(http://atnd.org/events/37158)が開催されました。 どう考えても発表者の中で俺だけレベルが浮いて（沈んで）いますが、まあ発表してきました（LT軍は、半数が「なんで俺がPerlの会で発表してるの？」と言っていたことを付け加えておきます）。 感想として、とてもたのしかったので、詳細は他の人のブログとか見ましょう。 スライドはこちら Perlcasual #5 発表資料 from Junichi Ishida ※1，2ページ目は当日のネタなのですが、素材を活かす為に削除しないでおきます（めんどくさい） すみませんでした 今は @uzulla による、からみ酒トーク #perlcasual— nipotan (谷口公一) (@nipotan) 2013年3月29日 ものすごい酔いどれ発表だったと思います。テンパっていたというわけでは
Rebuild A Podcast by Tatsuhiko Miyagawa. Talking about Tech, Software Development and Gadgets. 00:00 miyagawa: naoyaさん、最近は結構ブログが活発になってきている感じですね。 naoya: はいはい、そうですよね。 miyagawa: なんか、心境の変化があったんですか。 naoya: 心境の変化(笑) miyagawa: (笑) naoya: いやずっとドラクエしかしてなかったんですけど(笑) miyagawa: (笑) naoya: いやそれで、最近ちょっと、なんか作ったりしてるので。結構一人で作ってるんで、あんまり「こういうことやった」みたいなことを、他人に共有する機会が無いんですよ。 miyagawa: うんうん。 naoya: そうすると、なんかブログに書いてみようか
JSONPath というのがあって、いわゆる XPath の JSON 版です。 仕様は以下 JSONPath - XPath for JSON XPath すべての機能が使えるわけではありませんが、巨大な JSON から目的の key を探す場合にはなかなか便利です。 たとえば、Dailymotion の JSON なんかはダンプすると 900行ぐらいあったりして、しかも超絶階層が深い。更にいうと配列が多くて、順番が変わる可能性も高い (というか実際に昔作ったスクリプトがうごかなくなっていた)。 そういう場合にサクッと指定してモリっと取ってきてくれると便利ですね。 例えば Dailymotion の動画のタイトルが欲しい場合は、JSONPath を使わないと以下のようになります。 my $title = $json->{sequence}[0]{layerList}[0]{sequenc
型は書かないだけでそれなりに意識しなくちゃいけないわけで，そこら辺が文脈を読むというか，空気を読むというか，そういうお作法と重なるところがあるんじゃないかと思ったり。 で，どういうわけだか，この話を読んだ知人から「具体例を示さんとわからん」といったご指摘を頂戴。少し凝った話なんですけれど，具体例を挙げてみます。 OOP にはデザインパターンつのがあって，その中に Strategy というパターンがあります。どういうもんかというと，C++ で書くとこういうもん（あまり厳密ではないけれど）。 #include <iostream> class Calculator { protected: Calculator() throw () {} public: virtual ~Calculator() throw () {} public: virtual int calc(int rhs, in
本連載では第一線のPerlハッカーが回替わりで執筆していきます。今回は創刊11周年記念号ということで特別編です。「小飼弾のAlpha Geekに逢いたい♥」（WEB+DB PRESS Vol.32～55）の1号限りの復活版として、「小飼弾のPerlハッカーに逢いたい♥」をお送りします。 2011年10月13日～15日、東京・東京工業大学にてYAPC（Yet Another Perl Conferences）::Asia 2011 Tokyoが開催されました。国内外から多くのPerlハッカーが参加しましたが、今回はその中から海外エンジニア5人、日本人エンジニア2人にお越しいただき、それにホストの小飼弾さん、連載監修として立ち会った牧大輔さんを加えた9人で座談会を行いました。 なお、文中の話者表記は、CPAN[1]ディレクトリの表記に合わせています。 自己紹介 DANKOGAI：DANK
next http://www.youtube.com/watch?v=vqfUgPl-URg YAPC::Asia Tokyo 2010 (c)mala CC-BY-NC
swatmac.info Buy this domain. 2020 Copyright. All Rights Reserved. The Sponsored Listings displayed above are served automatically by a third party. Neither the service provider nor the domain owner maintain any relationship with the advertisers. In case of trademark issues please contact the domain owner directly (contact information can be found in whois). Privacy Policy
某サイトのHTMLを落として差分（更新情報）を取り、発言させるというもの。 作成時の記憶を辿ってつらつらと記事にしてみる。OSはUbuntuです。 大まかな流れ。 1．Net::Twitterモジュールのインストール 2．Perlでごりごり書く Net::Twitter #!/usr/bin/perl #sample code use Net::Twitter my $twitter = Net::Twitter->new( username => $username, password => $password ); my $result => $twitter->update("hogehoge"); } Net::Twitterモジュールが使えるとこんな感じで書き込みが行えます。 CPANを使ってNet::Tiwtterをインストールするので、まずCPANを導入します。 関連アプリケ
Twitter ボットの作り方解説第 1 弾。前提条件と、下準備までを解説します。 前書き Twitter をある程度使っていると、突然見ず知らずのアカウントから reply をもらったりして、それがボットだという事は良くあります。 そんなとき、自分だったらこういうボットを作るのに！っていう思いがあっても、なかなか作れない人も多いのではないでしょうか？ ここでは、そのまま動作するサンプルを提示する事で、Twitter のボットを作る方法を解説します。 Perl とか詳しくなくても、Linux の知識がある程度あれば、自由にボットを作れるようになるはずです。 目標 だんだんとレベルを上げながら、以下のようなボットを作る事を目標にします。 あらかじめ用意された定型文の中からランダムでつぶやくボット 特定のワードに反応して、reply するボット 特定の RSS の内容をつぶやき続けるボット ボ
文字列 数値をASCII(アスキー)コードに対応する文字に変換するには、chr関数を使用します。 #!/usr/bin/perl use strict; use warnings; # ASCII文字コードでは65,66,67はそれぞれ 'A','B','C'に対応する。 my $a_num = 65; my $b_num = 66; my $c_num = 67; print chr( $a_num ), "\n"; print chr( $b_num ), "\n"; print chr( $c_num ), "\n"; __END__ 続きを読む
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
