MovableTypedeのエントリをPerlで操作その2

2007年2月23日 06:14
かなりドツボにはまったのでメモ。






この3つを見れば大体のスクリプトは書ける。問題はUTF-8文字列を送信しようとしたらエラーになったこと。XMLRPC::Liteを使ってたんだけど、内部的にUTF-8文字列をMIME::Base64::encode_base64に突込んでいるようでそこでエラーに。



で、結局見つけたのが「 XMLRPC::Lite (SOAP::Lite) で base64 エンコーディングさせない: blog.bulknews.net 」。



これでとりあえず解決、したと思ったら別の部分の思わぬミス(エントリ本文をファイルから undef $/ 使って一気読み後、 $/ を再設定し忘れ)で変なタイトルのエントリが大量発生・・・



やはりPerlは恐ろしい。


IE6をMacで動かす

2007年2月21日 21:49
といっても、Intel MacでWINEを使って動かす話。


Zope3 lab developers portal: How to install IE6 on Mac OS X (Intel)



いま、Web関連の仕事をしているんですがFirefoxとかSafariだとキレイに見えるのに、IEだと崩れる、というレイアウトが結構あって、Macでデザインしていると気付かずにやばいというお話。



これ使えるとかなり解決できるんだけど、導入が非常に面倒臭そうなのねーーー。


「ハス合成画像」

2007年2月19日 14:48
なんかGoogleイメージ検索で「蓮画像」を検索すると、まっさきに蓮を人間に合成した画像がでてくるわけですが。


確かに気持ち悪いんだけど、個人的には大して精神ダメージは受けなかったわけですよ。まぁ理由はアトピー性皮膚炎で全身がひどいことになっている写真を幼少のころ皮膚科で見せられてたから(汗)



こっちは実際にそうなる可能性があるわけだから恐ろしさもひとしおですよ。



ということで、蓮コラを見るならアトピー画像を見ろ、と。ネットにあるかどうかは知らんけど。

あと、グロ画像掲示板を見たら糞画像(駄目画像、という意味じゃなくて本当に便器+糞の画像ね)ばかりで吹いた(笑)。



でも、どっちも耐性ない人は駄目なんだろうな。恐ろしい時代になったもんだー(棒読み)



#ちなみに別にそういう趣味があるわけではなく、 ネットで探し物をしていたらたどり着いただけ 、と強調しておく。


OpenOffice.orgで選択した文字列orセルをハイパーリンク化

14:42
OpenOffice.orgで選択したURL文字列orURL文字列が入った表計算セルを、ハイパーリンク化するマクロを個人的にメモ。
元ネタはこちら「 小泉守義のPHPソースコードウォッチ
Sub AddLink


    dim documentFrame as Object

    dim documentView as Object

    dim dispatcher as Object

 

    documentView = ThisComponent.CurrentController

    documentFrame  = documentView.Frame

    dispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)

 

    dim setHyperLinkArgs(1) as new com.sun.star.beans.PropertyValue

 

    dim cell as Object

    dim cellRange as Object

    dim cellRangeAddr as Object

 

    cellRange = documentView.Selection

    cellRangeAddr = cellRange.getRangeAddress()

 

    for i = cellRangeAddr.StartColumn To cellRangeAddr.EndColumn

        for j = cellRangeAddr.StartRow To cellRangeAddr.EndRow

            cell = cellRange.getCellByPosition(i – cellRangeAddr.StartColumn, _

                    j – cellRangeAddr.StartRow)

 

            setHyperLinkArgs(0).Name = “Hyperlink.Text”

            setHyperLinkArgs(0).Value = cell.Formula

            setHyperLinkArgs(1).Name = “Hyperlink.URL”

            setHyperLinkArgs(1).Value = cell.Formula

            documentView.Select cell

            cell.Formula = “”

            dispatcher.executeDispatch(documentFrame, “.uno:SetHyperlink”, “”, 0, _

                    setHyperLinkArgs())

        next

    next

End Sub

EmacsでPerlコーディングをするときに[Tab]キーでスペースを入力する

2007年2月15日 21:10
Perlでコードを書くとき、Emacsのデフォルトだとなぜかスペースとタブを混同してインデントしてくれる(気がする)。


ということで、Emacs 21.4.11 での解決方法。以下を.emacs.elに書く。
(add-hook 'perl-mode-hook


          ‘(lambda ()

             (setq indent-tabs-mode nil))) 個人的にはインデントはタブだろうがスペースだろうがどっちでもいいんだけど、とりあえず混在はヤメテください。



#育ったプログラミング環境がVC使いだとタブで、Emacs(or vi)使いだとスペースになる気がする。