Excelで管理していたデータをMysqlに移行させることにした。記録データ(html)からスクレイピングしてMysqlに送る。(後でわかったけどcsvから一発でMysqlにぶち込むことも可能。)まずテーブルをつくっておく。 record.sql create table record ( id int not n…

ユーザのプロフィール情報をデータベースに格納するだけです。普通に文字化けとかします。mixi_table.sql create table mixi ( id int not null primary key, hn varchar(21), image varchar(255), name varchar(42), sex enum('男性', '女性'), address var…

おかず編から鍋料理のみを抽出。 快適な鍋ライフを。豚とキャベツを味噌だれで（新・回鍋肉） by 花の嵐様 豚とキャベツのニンニク塩バター鍋 by Ｊきち様 豚バラと白菜の重ね鍋 スタミナ味 by 味の素株式会社様 白菜と豚のミルフィーユ鍋 お勧めの食べ方 by…

前はこんなアイコン(オリジナルキャラクターのイルカ娘です)を使ってましたが、飽きたのでアイコンを変更しました。 そこで自分で絵を書くのはたいへんなのでアイコンジェネレーターの256locksMakerというサービスを使うことにしました。しかしどうやらこの…

昨日「初めてのPerlの練習問題を全部解く」」とか言ってたけど、けっきょく途中で他のこと(Twitterbot作り)をやりたくなって6章辺りで投げました。またそのうちやる。TwitterBotの流れは、 Web::Scraperでつぶやきたい情報を抽出 logファイルを比較して更新…

ニコニコ動画から適当なキーワードの新着動画を表示させる…まあ例によってスクレイピングです。 これでいちいちログインして気になるキーワードの更新確認しなくてもいいですね。(とっても僕はあんまりニコニコ見ないですけど。) use strict; use warnings; …

http://memorva.jp/memo/linux/cron.php の一番最後の行を参考に * * * * * cd /home/username/perl; /usr/local/bin/perl ./xxx.plをcrontabにセットして、ついにPerl実行できた！鍋食いすぎた上に習慣から(義務とも言う)とんこつラーメンまで食ってしまっ…

前回は失敗に終わったが、今回サウスパークの動画を取ってくることに成功した。 前回と違う点として今回はWWW::MechanizeとWeb::Scraperを使っている。 use WWW::Mechanize; use Web::Scraper; use Encode; open(my $out, ">" , "south2.html")or die("could…

718 minutes 11.97 hours

これと chomp(my @str = <$in>); for $_ (@str) { if ($_ =~ /\[(.*?)\]/g) { print $1; } } これ while (<$in>) { if ($_ =~ /\[(.*?)\]/g) { print $1; } } どっちが良い書き方なんでしょーか。

かれこれ2時間近くcrontabと格闘してるんだけど、一向にPerlスクリプトが動いてくれない。スクリプト自体は(手動で)ちゃんと動く。 Plaggerはcronでも動いてくれたんだけど…。 # echo $PATH PATH=/home/ukie/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/…

春にあった歓迎会のBINGOでまさかの大当たりが出て司会の人に「お友達と楽しんでくださいね(ぷぷｗ見るからにお前ぼっちだしこれからもぼっちだよｗ)」と言われて以来、全く触っていなかったIHクッキングヒーターを思い出した。このIHさえあれば鍋が楽しめる…

ミッション ひまわり動画からサウスパークの動画を取得し、リンク形式で出力せよ！ use strict; use warnings; use LWP::Simple; my $url; my $html; open(my $out, ">" , "south.html") or die("could not open file."); for (my $i = 0; $i <= 10; $i++) {…

AKB48総選挙2012開票結果からメンバー名を(スペースを除いて)取得する正規表現の練習。 use strict; use warnings; use LWP::Simple; my $html = get('http://www.sponichi.co.jp/entertainment/akb48/rank/2012/0606index.html'); my @l = $html =~ m{<a.*?href="/entertainment/akb48/profile/.*?">\s(.*</a.*?href="/entertainment/akb48/profile/.*?">…

DMMのAVジャンル一覧の <li><a href="/digital/videoa/-/list/=/article=keyword/id=1014/">熟女</a></li> <li><a href="/digital/videoa/-/list/=/article=keyword/id=2001/">巨乳</a></li> <li><a href="/digital/videoa/-/list/=/article=keyword/id=1039/">人妻</a></li> … <li></li>

画像収集プログラムを見様見真似で書いたのだけどjpg画像のリンクを取得する正規表現のところが難しくてよくわからなかった。よくわからないままにしておくのは気持ち悪いから調べたので、自分用に解説を書いておく。m{

前回抽出したDUOの単語の中から接尾辞ごとに分けてみたいと思います。 指定文字列を含まない行を検索する正規表現はこちらのサイトを参考にしました。 #語尾にlyを含まない行を削除 s/^(?!.*ly$).*$//g; 接尾辞のリストを参考にそれぞれ接尾辞をもつ単語を抽…

DUOの英文一覧が載ってるサイトを見つけてきました。perlの練習がてら英文を分解して単語ごとの出現回数を見てみようと思います。 まずperlの正規表現でゴミを掃除して改行します。 ところどころ空白行が残っていたのでエクセルで消しました。（空白行だけを…