タグ

perlとTipsに関するfaultierのブックマーク (6)

  • HTML::Element と HTML::TreeBuilder で盆栽 - @kyanny's blog

    HTML::Element とか HTML::TreeBuilder で HTML 構文木をいじることを盆栽と呼ぶらしいですが、最近よく盆栽してていろいろ覚えたことがあるのでメモ。 as_HTML() で HTML エンティティに変換させない HTML::Element#as_HTML を呼ぶと HTML 文字列が返るのだけど、これを引数なしで呼ぶと "all unsafe characters" が HTML エンティティに変換(エンコード)される。これは普通あまり望ましくないので(変換などせずそのまま出して欲しいことのほうが多い)、それを回避するには my $html = $elem->as_HTML('');と、空文字列を渡してやる。 HTML::TreeBuilder のインスタンスに対して as_HTML() を呼ぶと タグをつけられてしまう これはサブクラスの HTML::Tr

    HTML::Element と HTML::TreeBuilder で盆栽 - @kyanny's blog
    faultier
    faultier 2009/11/09
    まさにこないだハマってた
  • Imagerで画像を傾ける - hack my life

    Imagerで画像を加工して、斜めに20℃傾けてみました。 もと画像はこちら use Imager; # 写真の読み込み my $photo = new Imager; $photo->read(file => $photo_file) or die $photo->errstr; # 写真を傾ける $photo = $photo->rotate( degrees => 20 ); # キャンバスとなるオブジェクト my $canvas = new Imager( xsize => 300, ysize => 350, channels => 4 ); # 写真のリサイズ $photo = $photo->scale( xpixels => 300, ypixels => 300, ); # キャンバスに写真を貼り付け $

  • cpanの履歴とかuninstallとか - (゚∀゚)o彡 sasata299's blog

    2009年06月07日01:51 Perl cpanの履歴とかuninstallとか 実は昨日、、、とある事情により Catalyst::Plugin::Session を update してしまったんです。。。「何か長いなー」と思っていたら、な、何と、Catalystが 5.8 に update されていました。 ○ルナレフ: 「な… 何を言っているのか わからねーと思うが(ry」 ぎゃあぁぁぁああぁヽ(゚ロ゚; ) 最初は、「まぁボチボチ Catalyst5.8 使ってもいいかなー」くらいの軽い気持ちだったんですが、エラーがたくさん出てきます。しかも全く解決できません!!Catalystサーバの起動も失敗するし...orz ってことで、元の状態に戻しました。そのときの作業ログ。 まず、このコマンドで最近の cpan install 履歴をチェックします。このコマンドは凄く便利ですね。

  • tokuhirom blog

    Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at

    faultier
    faultier 2009/06/05
    へぇ…!
  • tokuhirom blog

    Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at

  • YappoLogs: 良い子のMacなPerlユーザーに送る、あなたのPerlアプリをMacアプリにする方法 (Mac版的PAR)

    良い子のMacPerlユーザーに送る、あなたのPerlアプリをMacアプリにする方法 (Mac版的PAR) こんにちは!近頃咳と痰と鼻水と鼻づまりがすごく多い、金曜日の天使ことYappoです。 ちょっとしたツールをPerlで書いて、お友達に使ってもらいたいときってありますよね?普通は常識的にgithubとかのurlを教えれば良いのですが、それも出来ない人とかもいた場合が非常に面倒です。 そんな時の便利ツールとしてPlatypusがあるのは有名ですね。 Platyputsを使えば簡単にXSを含めたアプリが配布出来ますんです。 XSとかはアーキテクチャ等によって違うバイナリが吐かれてる事が知られますが、今回はあなたと同じMacOSのバージョンが入ってる事を前提にしちゃって問題無いです。 Macユーザ同士なんだからCPUのアーキテクチャは、殆どの場合は一緒だろうしOSのバージョンもLeopar

  • 1