タグ

ブックマーク / blog.dtpwiki.jp (5)

  • URI::Titleで日本語Webページのタイトル取得

    URI::Titleで日語Webページのタイトル取得 スポンサードリンク Tweet はてなスターのパチ物みたいなのを作るミッションで、Web上のDBにAJAXで格納する情報として、該当ページのURIの他に、該当ページのタイトルを付けるということをやらなくてはいけなくて、どうせAJAX(=JavaScript)でやっとるのだからdocument.titleでタイトルをブラウザ側で用意してDBにプッシュしてやればいいと思って実装してみたものの、結構取得ミスがあるなー ていうわけで、ブラウザ側から URIだけPUSHしてもらったものを CGIで受け取って、CGI が代理でタイトルを取得しに HTMLをGETすりゃいいなーと考えて、んーHTML取ってきてもエンコーディングとかめんどくせーと思って、CPANになんかあったよなーと思って探したら、 URI::Title - get the titl

    cubick
    cubick 2009/05/25
  • ドコモケータイでGPSログ

    ドコモケータイでGPSログ スポンサードリンク Tweet この前、帰省のときに、ドコモの携帯電話のGPS機能を使って、ログとろうと思って、出かける前20分くらいでこれ設置した。 Filname: log.cgi #!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new; my $time = time; my $lat = $q->param('lat'); my $lon = $q->param('lon'); my $geo = $q->param('geo'); my $x_acc = $q->param('x-acc'); print $q->header( -type => 'text/html', -charset => 'UTF-8'); print "<p>$time<br>緯度 $lat<br

  • 日没時刻のタスクをRemember The Milkに設定することによってカーテン閉め忘れてお母さんに怒られなくて済むスクリプト

    日没時刻のタスクをRemember The Milkに設定することによってカーテン閉め忘れてお母さんに怒られなくて済むスクリプト スポンサードリンク Tweet 日没時刻にあわせて何らかの仕事をしなきゃいけないシチュエーションって無いですか?たとえば、日没と共に閉店とか。ねえか。でも、日が暮れたらカーテン閉めなさいて、お母さんや、学校の先生に言われていると思います。つうわけけで、そろそろ夏休み最後の日曜日になる地域もあると思うので、夏休みの宿題的にこれを作ってみました。 #/usr/bin/perl; use strict; use warnings; use Astro::Sunrise; my $keido = 135.750; my $ido = 35.017; my $sunset = sun_set( $keido, $ido); my $sendmail = '/usr/lib

  • HTMLのリスト要素を理解してプレーンテキストへ変換

    HTMLのリスト要素を理解してプレーンテキストへ変換 スポンサードリンク Tweet DBに入っているul要素やol要素で作られたリストのHTML文章を、プレーンテキストにして、フロント側のtextarea要素や、pre要素のところに表示する必要があったので、CPANから、HTML→プレーンテキストに変換するモジュール、HTML::FormatTextをインストールして試してみました。 Filename: html2text.pl use strict; use warnings; use HTML::TreeBuilder; use HTML::FormatText; use utf8; my $html = << 'END_OF_HTML'; <ul> <li>Adobe <ul> <li> Adobe Creative Suite CS 3.3 Design Premium <ol>

    cubick
    cubick 2009/04/21
  • TypePadのRSS書き出しがWell-Formedで無いといわれる

    TypePadのRSS書き出しがWell-Formedで無いといわれる スポンサードリンク Tweet TypePad の RSS を引っ張ってきてマッシュアップするやつ運用しているんですけれども、何らかの拍子で、解析を担当している Perl の XML::Parser がごねるんで、 not well-formed (invalid token) at line 221, column 13, byte 15013 at /usr/local/lib/perl5/site_perl/5.8.4/i686-linux/XML/Parser.pm line 187 こんなんでますので、調べたら、TypePad の RSS に 0x12 が混入していました。原稿の時点で混入しちゃっていたみたいです。 XML を書き出す時点で除去してねえといかんのじゃないかなーて思いましたけれども、 tr/\x

    cubick
    cubick 2008/10/26
    XML::Parserがエラーになった時の対処法
  • 1