GitHub - drumsoft/Traktor-SongNameServer: Traktor-SongNameServer makes song names played by Traktor PCDJ available for many applications like CamTwist, VJ Softwares, Twitter.You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session. Dismiss alert
4億個・70TB保存実績ありの分散オブジェクトストレージシステム「STF」無料のオープンソースとして公開
livedoor Blogなどのサービスで実際に大量の画像データ管理・保存に使用され、「高価な専用ストレージを使用することなく安全、高速に大量のデータを保存・参照することが可能になります。またSTFは既存のオープンソース技術で作られているため専用ストレージに比べ運用に際して新たなノウハウを学習する必要がありませんので、運用にかかるコストが低くなります」というなかなかよさそうなストレージシステム「STF」が公開されました。ライセンスは「Artistic License2.0」です。 livedoor ラボ「EDGE」 開発日誌 : 分散オブジェクトストレージシステム「STF」公開のお知らせ - livedoor Blog（ブログ） http://blog.livedoor.jp/edge_labs/archives/1609981.html 開発までの経緯は以下のようになっています。 以前
Modern Perl | Onyx Neon Press
A word from our authors… “Aliens!” The Dread Pirate Jack Spartan spit the word carelessly across the beach. He sat just shy of the water’s edge and watched the ship—his ship!—soar ever smaller to the lee of the sun, where a shadowy hulk menaced the otherwise blue sky. There would be no third hijacking, he resolved. The tropical sun bore down. Jack found shade under a palm tree and resumed his read
YAPC::Asia 2010 Twitter解析サービス
This document describes the architecture of a Twitter scraping application. It uses Gearman for asynchronous job processing to fetch Twitter data from the API or stream. Workers register fetch jobs and process the requests. The application includes modules for the CLI, reader, and streaming components and uses JSON and LWP libraries. It retrieves tweets and stores them in a database for analysis.R
Big Sky :: MacでもLinuxでもWindowsでもTwitterのhome_timelineをGrowl
PerlのGrowlライブラリって色々ある訳ですが、誰かが書いたGrowlするアプリのコードを実行しようとした際にWindowsやLinuxで動かないと少し悲しくなります。 そこでGrowl::Anyってのがあればいいんじゃね？って事で書いてみました。 Mac::Growl、notify-send、Desktop::Notify、Net::GrowlClient、Growl::GNTPのどれかがインストールされていれば使えます。 mattn's p5-Growl-Any at master - GitHub perl module that provide any growl application http://github.com/mattn/p5-Growl-Any 今日はこれを使って、twitterのhome_timelineをGrowlするスクリプトを書いてみました。 #!per
インフラエンジニア勉強会 #qpstudy 03 で Perl の話をしてきました - 酒日記 はてな支店
キユーピー3分インフラクッキング-初心者にも優しいインフラ勉強会- #qpstudy にて「Perl とうまく付き合う」というお題で発表させていただきました。 最初は「インフラエンジニアのための……」という仮題だったのですが、資料を作ってみたらそんなかんじでもなくなってしまったので改称しましたすみません。 発表資料はこちらです 内容は「プログラミングはできるけど Perl の作法がよく分からない」というかた向けに、 マニュアルの読みかた CPAN モジュールの扱いかた レガシーコードに立ち向かう方法、デバッグ技法 などをまとめてあります。 ustream の録画は以下の動画です。自分の発表は56分過ぎから約30分間です。 ということで、qpstudy に参加された皆様お疲れさまでした。 発表を聞いてくださった皆様、会場を提供していただいた @nifty 様、ありがとうございました！
Disk I/Oの使用率を監視するワンライナー - kazuhoのメモ置き場
iostat -x の %util を監視してしきい値を超えたらアラートメール飛ばしたいなぁと思って crontab 書いた。こんな感じ。 */5 * * * * perl -wle 'my $s = `/usr/bin/iostat -xk /dev/sd[abc] 270 2 | tail -4`; print $s if $s =~ m{\s(?:[0-9]{3}|[5-9][0-9])\.[0-9]+$}m'ポイントは、 iostat の後ろから２つ目の引数がサンプリングを行う秒数 tail で デバイス数+1 することで、最後のサンプルを取り出す 正規表現で50%以上だった場合に標準出力に iostat の結果を出す＝メール送信
いやなブログ - スクリプト言語用のデバッガの使い方 - Ruby, Python, Perl
スクリプト言語用のデバッガの使い方 - Ruby, Python, Perl スクリプト言語用の CUIのデバッガの使い方を簡単にまとめました。対象言語は Ruby, Python, Perl です。 私は C, C++ でプログラムを書いているときはデバッガ (主に GNU/Linux 上の gdb) を頻繁に利用します。しかし、スクリプト言語ではそれほどでもありません。これはおそらく次のような理由によります。 ビルドが不要なので printf デバッグが容易 (ある程度大きい C++ のプログラムではビルド時間が長いので printf の挿入はしんどい) 異常終了時にスタックトレースが表示される (Ruby, Python なら自動、Perl の場合は use Carp; $SIG{__DIE__} = \&Carp::confess; など) オブジェクトのインスペクトが簡単 (Ru
Twitter ボットの作り方 Perl 編 (目次)
一通りの連載が終了したので、最後になりますが、各エントリに簡単な説明を付けた目次を別エントリとしてあげておきます。 Twitter ボットの作り方 Perl 編 (1) ボット作成の前提となる基本的な機能の動作確認を行います。この部分がうまくいかない場合、そもそもボットを作成する環境が整っていない事になるので重要です。 前書き 目標 用意するもの 方針 下準備 Twitter ボットの作り方 Perl 編 (2) 単にランダムにつぶやくだけの簡単なボットを作ります。cron に登録することで本当の意味でボットとして活動可能になります。 状態ファイルの準備 データの準備 実際のスクリプト cron への登録 Twitter ボットの作り方 Perl 編 (3) Twitter 検索を組み合わせて、ボット宛のつぶやきを処理する方法を解説します。このテクニックは様々なタイプのボットで応用出来ます
関数をラップする
ウェブサービス等のAPI とやり取りするモジュールを使って開発している際、デバッグのためAPI からのレスポンスをのぞき見たいときがあると思います(自分はさっきありました)。 そんなとき、関数をラップすると便利です。 型グロブ my $orig_request = LWP::UserAgent->can('request'); *LWP::UserAgent::request = sub { use Data::Dumper; my $response = $orig_request->(@_); print Dumper($response); return $response; }; Hook::LexWrap use Hook::LexWrap; wrap 'LWP::UserAgent::request', post => sub { use Data::Dumper; my $r
CNET Japan
人気の記事 1「Files by Google」、文書を簡単にスキャンできる新機能を追加 2024年03月08日 2「Nothing Phone (2a)」--スタイルよりスペック重視の新型スマホを写真で確認 2024年03月08日 3三重交通キャラ炎上に学ぶ、「萌え絵」の扱いの難しさ--批判だけでなく擁護の声も 2024年03月09日 4AIスマホのデモで実感した「スマホアプリが消える」未来 2024年03月09日 5アップル、スマートリングを開発か 2024年02月26日 6イーロン・マスク氏「日本は消えてなくなる」X投稿再び--過去最低の出生数を受け 2024年03月01日 7注目を集めるスマートリング--新たな定番フィットネストラッカーとなるか 2024年03月08日 8「Nothing Phone (2a)」正式発表--ライトを減らし安価に 2024年03月06日 9「Pixel
ライブドア、レコメンドエンジンをオープンソースで公開
ライブドアは12月24日、開発者向けに汎用レコメンデーションエンジン「Cicindela」をオープンソースとして公開した。ソースコードはGoogle Code上でMIT Licenseにて配布している。 Cicindelaは、「このウェブページを見た人はこんなページも見ています」といったおすすめ機能を既存のサービスに追加できるように、ライブドアで独自開発したレコメンデーションエンジン。 Perl＋MySQLで作成する際のアプリケーションに適し、id値のみをやり取りするhttpベースの簡潔なAPI、数種類のフィルタを自由に組み合わせることができる高いカスタマイズ性が特徴だ。 ライブドアが提供する下記のサービスで稼動実績がある。 livedoor ニュース livedoor グルメ livedoor クリップ youbride DLsite 今後はCicindelaをサイトで導入したいという開
キャッシュしよう
京都観光で散財しすぎて貯金がないmalaです。こんにちは。キャッシュの話を書きます。 色んなキャッシュがあります データベースから引く前にmemcachedから取得したり テンプレートエンジンのレンダリング結果をキャッシュしたり 各種ウェブサービスのリクエスト結果をキャッシュしたり その他諸々CPUを食ったり時間のかかる処理をキャッシュしたり 簡単に思いつくのはこの程度ですが、スケーラブルなウェブサイトを構築するには常識的に考えてそんなのキャッシュしねーだろうというようなものをキャッシュする必要があります。 DateTimeをキャッシュしよう 同じ時刻に対するDateTimeオブジェクトをキャッシュします。 package MyDateTime; use strict; use base qw(DateTime); my %CACHE; sub now { my $class = shif
一行野郎(one-liner)はperlにおまかせ
序文 もしもプログラミング言語が宗教だったら……（全訳版）［絵文録ことのは］2008/12/21 によると、ブードゥー教徒らしい dankogai です。 ブードゥー教徒らしく、「上司があなたに金曜夜21時に緊急の仕事を命ずるときにしばしば使われる」呪文をここでまとめておくことにします。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e'print "Hello, World!\n"' Hello, world! % ちなみに、perlとコマンド名だけで起動すると、標準入力をスクリプトとして返します。 %
perl - JPerl Advent Calendar 2008 : 404 Blog Not Found
2008年12月22日12:30 カテゴリLightweight Languages perl - JPerl Advent Calendar 2008 perl-users.jpで、 JPerl Advent Calendar 2008 という「駅伝エッセイ」が進行中です。 これの22日目を私が担当しました。 一行野郎(one-liner)はperlにおまかせ 実はこれ、書き下ろしではなくて 404 Blog Not Found:perl - ワンライナーの書き方入門 を追補したものになっています。追補にあたっては もしもプログラミング言語が宗教だったら……（全訳版）［絵文録ことのは］2008/12/21 を枕につかわせていただきました。ありがとうございます。 次はid:malaにてお願いします。「なかったことにしよう」はご勘弁を。 Dan the Perl Monger 「Lightw
複数ファイルを使った中規模 XS の開発 - daily dayflower
複数ファイルをビルド対象とした XS の開発について，あまり手間をかけないシンプルで効果的な方法を書いていきます。自分の経験をもとに書きますのでベストプラクティスではありませんが。 余談（SV*() マクロの sideeffect にやられた話） state_stack という配列に state を整数値でスタックとして格納していて，スタックから過去の state を取り出そうとしたんです。 んで（わりと素直に） state = SvIV(av_pop(state_stack)); と書いたら，2つずつスタックから pop されてしまいました*1。 XS hacker なら当たり前な話ですけど，SV*() というのは一見関数然としてますがマクロなんです。 #define SvIV(sv) (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv)) こんな形で，いずれのケースに
reduce だいすき
基本 デミグラスソース使った料理が食べたい cho45 です。Perl といえば某MMOゲームと同時に起動できないプログラムとして有名ですが今回はそれとは関係ない話です。 Ruby 厨の多くが inject 厨である気がします (てきとーです) が、 Perl で List::Util::reduce を使っているところをあんまり見たことがないのでいくつか便利な例を紹介します。 reduce は何かというとリストを1つの値に纏めるものです。例えばリストの要素の合計は use Perl6::Say; use List::Util qw/reduce/; my $list = [1, 2, 3, 4, 5]; say reduce { say "$a,$b"; $a + $b } @$list; 1,2 3,3 6,4 10,5 15 前回のループの返り値が $a に入り、$b には残りの要素
ファイルのすべてを飲み込む方法
原稿を落としたら，すしをおごりにアメリカに行かないといけないとの噂にgkbrしているid:hakobe932です． 932は草津の932です．こんにちは． ファイルの中身をすべて読み込む処理というのは，非常によくある処理です．TIMTOWTDIが信条のPerlでは，ファイルの中身をすべて読み込む方法もたくさんあります．ここでは，どんな方法があるのか見てみましょう． 行単位で読み込む もっともシンプルなのは行入力演算子(<>)を使って行毎にデータを読み込み，それを連結する方法です． open my $fh, '<', './inputfile' or die "failed to open: $!"; my $content = ''; while (my $line = <$fh>) { $content .= $line; } print $content; もう少し工夫して後置whil
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
cicindela2 - Google Code
GitHub - livedoor/cicindela2: a highly customizable recommendation engine written in perl + MySQL
