tsukamasaki @ ウィキ

android

2010-01-26T22:00:55+09:00

*android開発環境の整備 -ノートパソコンインストール環境 --c:\android-sdk-windows --c:\eclipse -参考サイト --http://www.ez0.net/2010/01/android-21/

トップページ

2010-01-26T21:59:22+09:00

*tsukamasaki @wiki *[[コンピュータ関連]] **サーバー [[玄箱PRO]] [[Solaris]] **プログラミング [[python]] [[Perl]] [[C++]] [[android]] [[nintendoDSでpython]] [[テレビ番組録画予約スクリプト]] **資格試験 **ネットワーク **セキュリティ *[[料理関連]] **[[パン]]

infoseekからの番組取得

2010-01-23T15:10:58+09:00

*番組表の取得 wget 'http://tv.infoseek.co.jp/VHF/tv_vhf.html?pg=tv_vhf.html&sdate=20100124&shour=14&lhour=3&area=019' -最後のarea=19が地域 -日付と時間の部分をあわせればOK *wgetしたデータの解析 -'detail.html&program'も文字列で番組名の行がゲットできる -その次の行に出演者の名前一覧 -その次の次の行にepgへのリンクがある番組名出演者出演者 epg -getしたepgのフォーマットは以下のとおり Content-type: application/x-tv-program-info; charset=shift_jis version: 1 station: ＣＢＣテレビ year: 2010 month: 01 date: 24 start: 14:00 end: 15:00 program-title: ドラマアンコール　特上カバチ！！ program-subtitle: 法テクバトルの嵐▽櫻井翔　堀北真希　遠藤憲一　浅野ゆう子　吉田栄作　田口浩正　高橋克実　中村雅俊 performer: [出]櫻井翔　[出]高橋克実　[出]中村雅俊　[脚]西荻弓絵　[演]加藤新　[出]吉田栄作　[出]田口浩正　[出]堀北真希　[出]遠藤憲一　[出]渡辺いっけい　[出]田丸麻紀　[出]菊里ひかり　[出]浅野ゆう子　[出]上里亮太　[出]伊郷アクン ▽新番組　行政書士の卵・田村（櫻井翔）が弱者救済のため奮闘する。大野（中村雅俊）の事務所で行政書士を目指す田村は、果物店の中山（吉田栄作）が友人・上杉（田口浩正）との間に起こした金銭トラブルの相談に乗る。そんな中、上杉には行政書士・美寿々（堀北真希）が付く。交渉で美寿々は優位に立ち、田村は窮地に陥る。

テレビ番組録画予約スクリプト

2010-01-23T15:03:31+09:00

[[番組表の取得]] [[infoseekからの番組取得]]

perl_script

2010-01-19T11:05:04+09:00

*perl スクリプトの例 ***日付の取得 my $sec,$min,$hour,$mday,$mon,$year; ($sec,$min,$hour,$mday,$mon,$year) = (localtime(time))[0,1,2,3,4,5]; $year = $year + 1900; $mon = $mon + 1; if (length $mon == 1) {$mon = "0".$mon;} if (length $mday == 1) {$mday = "0".$mday;} if (length $hour == 1) {$hour = "0".$hour;} if (length $min == 1) {$min = "0".$min;} if (length $sec == 1) {$sec = "0".$sec;} #出力のテスト print "year = $year\n"; print "month = $mon\n"; print "day = $mday\n"; print "hour = $hour\n"; print "min = $min\n"; ***コマンドの処理結果を利用する my $file = "./data.txt"; my $command = "/bin/cat"; open(LIST, "$command < $file |") or die "can't open file : $file\n$!"; while() { chomp $_; my $data = $_; #処理結果は$_に入っている my@data = split(/:/); #データが":"で区切られてる場合はこんな風に配列に入れられる } close (LIST);

Perl

2010-01-15T09:20:32+09:00

[[perl_スクリプト例>perl_script]]

メニュー

2009-12-29T08:40:02+09:00

**メニュー -[[トップページ]] -[[コンピュータ関連]] -[[料理関連]] -[[プラグイン紹介>プラグイン]] -[[まとめサイト作成支援ツール]] -[[メニュー]] ---- **リンク -[[@wiki>>http://atwiki.jp]] -[[@wikiご利用ガイド>>http://atwiki.jp/guide/]] **他のサービス -[[無料ホームページ作成>>http://atpages.jp]] -[[無料ブログ作成>>http://atword.jp]] -[[2ch型掲示板レンタル>>http://atchs.jp]] -[[無料掲示板レンタル>>http://atbbs.jp]] -[[お絵かきレンタル>>http://atpaint.jp/]] -[[無料ソーシャルプロフ>>http://sns.atfb.jp/]] // リンクを張るには "[" 2つで文字列を括ります。 // ">" の左側に文字、右側にURLを記述するとリンクになります //**更新履歴 //#recent(20) &link_editmenu(text=ここを編集)

料理関連

2009-12-29T08:39:06+09:00

**[[パン]]

コンピュータ関連

2009-12-29T08:38:48+09:00

**サーバー [[玄箱PRO]] [[Solaris]] **プログラミング [[python]] [[Perl]] [[C++]] [[nintendoDSでpython]] [[テレビ番組録画予約スクリプト]] **資格試験 **ネットワーク **セキュリティ

番組表の取得

2009-12-25T21:29:47+09:00

use LWP::Simple; my $base_url = "http://www.tvguide.or.jp/TF1101LS.php?regionId=23&mediaId=1&packId=&stationId=73&date=20091201&time=24& dispflg=0&page=1"; my $get_data; $get_data = get($base_url); #print $get_data; my @date_line = split(/\n/,$get_data); open (TEMP,"> temp_data.txt") or die "can't open temp data file\n"; #print TEMP $get_data; foreach (@date_line){ chomp; if ($_ =~ /^\<\!\-\-\