tips - モバイルには高画質すぎるH.264動画を劣化ゼロで再生可能に : 404 Blog Not Found
2012年09月01日07:45 カテゴリTipsiTech tips - モバイルには高画質すぎるH.264動画を劣化ゼロで再生可能に 右の「このデバイスではこの動画は再生できません」状態を、たった一バイト変更するだけで直します。 以下のPerl Scriptで、こうするだけです # デフォルトではlevel 4.1 に変更 % ch264level leveltoohigh.mp4 # level 3.1 に変更 % ch264level -l31 leveltoohigh.mp4 ch264level.pl #!/usr/bin/env perl # # $Id: ch264level.pl,v 0.1 2012/08/31 18:13:16 dankogai Exp dankogai $ # use strict; use warnings; use Getopt::Std; ge
オレオレ検索窓を設置しよう - mixi engineer blog
まだピクミン2をクリアしてないのでケジメ的に新作ゲームを買えないmikioです。今回は、Tokyo Cabinetを使って激烈簡単に特定サイトの専用の検索機能を設置する方法について説明します。クローリングから検索までを10分くらいの作業で可能にします。 特定サイトの検索エンジン Web全体の検索機能を作るのは、途方もない技術力と設備を持っているGoogleやMicrosoftなどのビッグプレーヤでないと難しいのが現実です。でも、自分が気に入っているいくつかのサイトを対象とした検索エンジンを作るのであれば個人だってできます。また、インターネットから手が届かないイントラネットのコンテンツの検索機能は自分達で手がけないと構築できません。 ということで、企業用の検索システムが数多く売られていますし、LuceneやGroongaやHyper Estraierなどのオープンソース製品も世に多数存在しま
regexp - ^$でなくて\A\zを使おう : 404 Blog Not Found
2009年03月09日00:30 カテゴリLightweight LanguagesTips regexp - ^$でなくて\A\zを使おう まずは回答から。 正規表現で「制御文字以外」のチェック - ockeghem(徳丸浩)の日記 文字エンコーディングの妥当姓 制御文字(\x00〜\x1f, \x7f)のチェック 文字列長のチェック このうち後ろ二つを正規表現として書くにはどうすればいいかを考えていました。 こういう時には、「全文字がOKならOK」と考えるのではなく、「一文字でもNGならNG」と考えると楽になります。それは「スペースと非制御文字以外」なのですから、/[^ \S]/が求めていた正規表現で、=~ではなく!~が使うべき演算子ということになります。全角スペースもOKにしたければ、/[^ \x{3000}\S]/。[追記参照] [Run via Codepad] #!perl -
perl - open my $fh, "comand |"; # はモダンじゃない : 404 Blog Not Found
2009年02月10日01:00 カテゴリLightweight Languages perl - open my $fh, "comand |"; # はモダンじゃない モダンPerl入門 牧大輔 「モダンPerl入門」発売記念ということで、同書を補足するentryを。 同書でちょっと残念だったのが、[5.2 外部コマンドの実行]。あまりモダンではないのだ。 P. 141 system("/sbin/wget", "http://example.com"); これはいいのだが、以下がちょっとまずい。 my $output = `/bin/ls tmp`; open(my $fh, '| cat -v'); これ、何がまずいか、というと、コマンド実行の際に/bin/shを使ってしまうのだ。そのおかげでcommand < from > to 2&>1のようなリダイレクトも使えるなどの利点もあ
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
twitterにIRCを通じてアクセスする·tircd MOONGIFT
オンラインで人とメッセージを交換する方法は幾つか存在している。メール、IM、掲示板、最近ではtwitterなども加わっている。その中でも通信の軽快さを重視するならIRCが便利だ。多人数で話すのも簡単だ。 twitterとIRCの架け橋に！ 時間をとても消費する可能性があるが、IRCにはまっている人はついでにtwitterも操作できるようにしてみてはどうだろう。 今回紹介するオープンソース・ソフトウェアはtircd、Perl製のtwitter用IRCサーバだ。 tircdを起動するとローカルサーバ上に（もちろんリモートで立てればリモート上に）IRCサーバが立ち上がる。接続する際にユーザ名とパスワードとtwitterのものを設定するのがポイントだ。 もちろんポストも可能 そして#twitterというチャンネルに接続すると定期的にメッセージが更新されて送られてくる。メッセージはUTF-8で送られ
UbuntuでPlaggerやるならこれでいけ！〜VirtualBoxからcronまで〜 - As a Futurist...
インストールがむずかしいことで評判の「Plagger」ですが，その評判通り 使える様になるまでが大変です．一般的には，CPAN から Plagger を入れれば いいのですが，依存関係が複雑なのと make しながらになるのでやたらと 時間もかかり，一発で入らなかったりと，面倒なことだらけです． この度，さくっと入れる方法が確立できたのでここにメモしておきます． Ubuntu 環境ないよという人のために，Virtualbox という仮想環境に Ubuntu を 入れるところからスタートします．Ubuntu 持ってる人は飛ばして下さい． そして，何よりパッケージを作ってくれた半袖さんには ちょー感謝＞＜！ VirtualBox に Ubuntu 入れる VirtualBox とは Sun が提供してるフリーの仮想環境ソフト．これで仮想マシン （こちらをゲストと呼びます）を作ってそこに Ubu
バイナリファイルを解析する
Perlといえばテキスト処理や正規表現が得意で、バイナリを扱うような話についてはあまり聞かない印象があります。Perlが持つ関数pack/unpack等でもバイナリ処理は可能ですが、今回はData::ParseBinaryを使ってバイナリファイルを気軽に解析してみましょう。 基本 ファイルからストリームを作る 解析したいファイルをData::ParseBinaryで扱えるストリームに変換します。 use Data::ParseBinary; my $stream = CreateStreamReader(File => $file_handle); 解析したい構造を定義する Struct関数で解析したい構造を定義します。Struct以下には基本データ型やコンテナ型、ビット/バイトパディング型、制御構文型等を使用できます。各型に指定したラベルが解析結果として得られるハッシュのキーとなります。
一行野郎(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とコマンド名だけで起動すると、標準入力をスクリプトとして返します。 %
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
