雨が多いので、東京アメッシュHackです
雨が多いので、東京アメッシュHackです 2008-08-31-4 [Programming][Chumby] さくらの500円レンタルサーバーには 最初から ImageMagick [2008-08-15-3]が 入っているので嬉しいですね。 ということで、東京アメッシュ[2007-11-11-4]をハック！ chumby の Load Image URL widget[2008-05-20-1] で使う目的で、 東京の最新の降雨情報画像から、 東京23区の部分だけ抽出した画像を作ります。 東京アメッシュの画像を重ね合わせる 東京アメッシュの画像は三層に分かれています。 （某モ氏のハックを参考にさせて頂きました） まず、最初にトップにでる低解像度の画像： - http://tokyo-ame.jwa.or.jp/map/map000.jpg - http://tokyo-ame.jwa.
Perl の数値変換
Last Updated: 2002/03/26 Perl で、16進文字列、10進整数、2進文字列、バイナリー文字列の相互変換を行うための、スクリプトメモです。 特に断っていない限り、Perl 5.001 以上で動作します。 目次 16進文字列からの変換 10進整数からの変換 2進文字列からの変換 バイナリー文字列からの変換 16進文字列→10進整数への変換 hex() 関数は、16進文字列を整数値に、手軽に変換できます。 $num10 = hex("4A"); # $num10 には 74 が入る $num10 = hex("FFFFFF"); # $num10 には 16777215 が入る 余談ですが、数値リテラル中では 0x に続けて 16 進数で記述することで、数値を表すことができます。 $num10 = 0x4A; # 74 $num10 = 0xFFFFFF; # 1677
Perl - ワンライナー - システムエンジニア虎のWiki - livedoor Wiki（ウィキ）
[ 企業/業界 - IT業界 ] [PR] Wikiポータルがリニューアル！ ウィキをはじめる！ フレパ - ピクス - リスログ - ブログ システムエンジニア虎のWiki トラブルシューティング・インストールメモ・設定方法・プログラミングのコツなどをメモして蓄積する。 編集 履歴 添付 設定 新規ページ作成 Ads by Google トップページ 最近更新したページ ページ一覧 タグ一覧 カテゴリー 一般一般 企業/業界IT業界 ソフトウェア・ネットワーク その他 Wiki内検索 最近更新したページ 2006-10-24 ディスク容量チェックスクリプト DNS_RR生成スクリプト 2006-10-17 Perl - ワンライナー 2006-10-05 スクリプト集 2006-05-17 /etc/inittab /etc 2006-05-12 /var/log /var /e
[て] Perl独習の道 ～今まで、これから～: 大阪てきとー日記
トップページ >Perl> Perl独習の道 ～今まで、これから～ « iPhoneにはいろいろとダメなところがある、でも…… | トップページ | 天橋立 » 2008/07/24 Perl独習の道 ～今まで、これから～ 今年の初めごろからPerlの勉強をチマチマと続けています。 途中何度も挫折しそうになりましたし、今でも先はまだまだ見えていない状況ではあるのですが、それでも何となく手応えらしきものを感じられるようになりました。 そこでまだまだ道半ばではありますが、ここまでに読んだ本やら参考にしたウェブサイトなどを整理して書いておくようにします。もしかしたら誰かの役に立つかもしれませんし、あるいはもっと良いアドバイスを得られるかもしれませんし。 ということで、まずは書籍。以下、読んだ順番です。 最初に読んだのが、結城さんの「新版Perl言語プログラミングレッスン入門編」[AA] 新版P
Emacs で C とか Perl とか Ruby のデバッグをすると気持ちいい | フッ君の日常
全国のprintデバッグ愛好家の皆様、こんにちは。VSとかEclipseとかのIDE以外でデバッガを使ったことのない僕がやってきましたよ。 最近、C言語でヒーコラ言ってる真っ最中な訳ですが、C言語だとprintデバッグがやりにくい訳で、デバッガ様の力を借りてみたくなった訳です。という訳で、巷で有名な gdb をちょっと試してみました。 基本的な使い方は、以下を参考にしてます。gdb を用いたデバッグ方法GDBウノウラボ Unoh Labs: gdbの使い方 で、なんだか Emacsからも使えるみたいなんで、試してみたんですが、これが使いやすくてびっくり。"M-x gdb" で起動すると、Emacs のソース上に、現在の行が黒三角で、ブレークポイントが赤丸で表示されます。後は、コマンドラインでの操作と同じように、s とか n でステップ実行できます。 あー、もしかして、Perl とか Rub
Windows環境でCygwinを使ってPerl実行環境を整える - 日向夏特殊応援部隊
たまには初心者向けの話でもしてみます。 Windows環境でPerlの実行環境と言えば、真っ先に ActivePerl と言う選択肢がありますが、個人的には*1 Cygwin がお勧めです。 お勧めする理由は、 昔に比べてそれなりに扱いやすくなった。(昔はバッドノウハウだらけだった) Perl に限らず実行環境はそれなりに *nix 的 インストールもそんなに難しく無い とかですかね。VMWare や coLinux で本物の Linux 環境を用意する方が確実ではありますが、他にも豊富な *nix 系のツールが使えるのも強みかなと思います。 インストール まぁ google:Cygwin インストール とかして頂ければいいんですが、多少古い情報が当たりそうなので、今ググって新しそうなのを。 http://www.knatech.info/Dev-cygwin-install.html こ
ゆーすけべー日記: yourfilehostをAV女優名で探せるエロサイトを作ってみた
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
Part1 正しいPerl/CGIの書き方：ITpro
Shibuya Perl Mongers 2代目リーダーにして，ppencodeの作者。広島市立大学卒業後，大企業向けmod_perl製品の開発に従事。2005年よりサイボウズ・ラボ株式会社に入社。LL Ringに参戦。Namazu for Win32，Plagger，Ajajaのコミッターでもある。 CGIといえばPerl。そんな風にいわれていた時期もありました。レンタル・サーバーのCGIで手軽にPerlが使えたこともあり，ちょっとした掲示板のスクリプトやアクセス・カウンタなど，CGIプログラムの多くがPerlで書かれていました。このためPerlが爆発的に普及したのです。Perlは日本のインターネット黎明期を支えたプログラミング言語として，広くその名が知られています。 その半面，Perlで書かれたプログラムの保守性に悩む声も聞かれるようになりました。事実，Perlのプログラミング経験が少
PerlによるCSVファイルの高速集計 2：CodeZine
open(OUT, '>result.csv'); open(IN1, 'enquate.csv'); # アンケートデータを1行ずつ処理する while(my $line1 = <IN1>){ # 1行を4つに分ける chomp($line1); my ($id, $ans1, $ans2, $ans3) = split(/,/, $line1, 4); # この行にマッチする顧客データを検索する my $name = ''; my $address = ''; open(IN2, 'address.csv'); while(my $line2 = <IN2>){ chomp($line2); my ($tmp_id, $tmp_name, $tmp_address) = split(/,/, $line2, 3); if($tmp_id eq $id){
いやなブログ - スクリプト言語用のデバッガの使い方 - 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
perlオブジェクト指向プログラミング /lib/mailmag
Object Oriented Programming w/ Perl melma! を使って発行しているたメールマガジンです。 Perl のオブジェクト指向やテスティング、デザインパターンなどの話題を中心に、2週間に1回程度発行していますした。 Name Last modified Size Description Parent Directory 26-Aug-2005 13:02 - 15/ 09-Mar-2001 16:23 - 16/ 21-Sep-2001 03:43 - 17/ 29-Mar-2001 20:22 - 18/ 13-Apr-2001 03:30 - 19/ 02-May-2001 12:30 - 20/ 17-May-2001 00:08 - 21/ 31-May-2001 11:58 - 22/ 09-Jun-2001 14:49 - 23/ 05-Jul-
naoyaのはてなダイアリー - Perl の話をまとめた
use strict がどうのこうのという話があって、そういえば昔自分もそんなこと書いたなあと思っていろいろ自分の書いた Perl の話を見返してて、せっかくだから拙作のまとめでも作っておくかと思いました。とりあえず文章量がそれなりにあって、まとまりのあるものだけを見繕ってみます。 今見ると、当時の理解が不十分で微妙なところもあったりしますが、そのあたりはご愛嬌。 いま読んでもまだ陳腐化はしてなさそうな話 お薦めの Perl 本をいくつか紹介 : NDO::Weblog Perlおすすめの書籍や情報。今ならここにPerl救命病棟とWEB+DB PRESS総集編を入れるかな。 Perlプログラマのレベル10 - Perlプログラミング救命病棟より - naoyaのはてなダイアリー Perlプログラマのレベル10。なんか他言語にも飛び火した。 Perl の変数に関するちょっとした誤解と、動的な
IPA セキュア・プログラミング講座 「Webアプリケーション編」に「Web関連技術」を追加
本ページの情報は、2016年10月時点のものです。2023年10月に再構成をいたしました。 なお、内容に変更はありません。 2016年10月版 2002年2月に「Webプログラマコース」と「製品プログラマコース」、2007年の6月に「Webアプリケーション編」、9月に「C/C++編」と分けて公開してきた講座のうち、原則を中心として共通的なものをまとめて2016年10月に再編しました。 なお、資料内の参照先はすべてサイトリニューアル前のURLであるため、リダイレクトを設定しています。 セキュア・プログラミング講座(2016年10月版／2017年6月一部修正)(PDF:2.3 MB) 2007年版 「ソースコード検査技術の脆弱性検出能力向上のための研究」（注釈1）を実施した一環として取りまとめた内容を、2002年から公開していたセキュア・プログラミング講座（旧版）の改訂版（2007年版）として
DBマガジン4月号 - naoyaのはてなダイアリー
DBマガジン4月号の特集は「乗り遅れないための最新XMLソリューション指南」。8ページほど記事を書かせていただきました。 僕が書いた内容の方はと言いますと、Web 2.0 の話。もう 2.0 とは言わないとか言っておきながら書いてしまった、すいませんすいません。でも技術の話だから許して。 RSS や Ajax、REST あたりの話の概要、それから Web 2.0 の技術と言われるようなものがどういう背景から生まれたり発掘されたりしているかというのを前半で書きつつ、後半では Perl で RSS をいじってちょこっと DB と絡めたミニアプリケーションを作ってみる、みたいな記事です。XML::Feed と Class::DBI を使った簡単なサンプルを載せてみました。 DBマガジンの記事はカラーだったり適当にパワポで書いておくった図が超綺麗になってたりで、自分が書いたとは思えないような仕上が
WebService::LastFM
NAME WebService::LastFM - Simple interface to Last.FM Web service API SYNOPSIS use WebService::LastFM; my $lastfm = WebService::LastFM->new( username => $config{username}, password => $config{password}, ); my $stream_info = $lastfm->get_session || die "Can't get Session\n"; my $session_key = $stream_info->session; $lastfm->change_tag( 'ska+punk' ); while (1) { my $playlist = $lastfm->get_new_playl
Catalyst で Atom API テストツール
Catalyst で Atom API テストツール #0 Posted by Gosuke Miyashita Thu, 16 Feb 2006 18:46:46 GMT 2006/02/16 22:40 追記 なんかツールに名前が欲しいな、ってことで、「A2T2」と名づけました。Atom API Testing Tool の略ってことで。それに合わせて、HTML テンプレートも書き換えてます。あと、My::XML::Atom::Client の方もちょっと書き換え。ベースクラスの XML::Atom::Client の getFeed() では、 Status 200 以外の時に例外処理をしてくれてるのですが、このツールの性質上、例外処理をせずにそのまま結果を渡して欲しいので。 Atom API なサーバを実装するにあたって、以下の様なテストツールが欲しいなぁ、と思った。 ブラウザを
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
IBM Developer
Perl入門
FreeStyle Wiki
http://www.typemiss.net/blog/kounoike/20060212-64