コンテンツ
MovableTypedeのエントリをPerlで操作その2
かなりドツボにはまったのでメモ。
- 「旅行びと日記」日記: はてブのブックマークを自動的にBlogへ投稿するスクリプト
- Movable Type 3.2 マニュアル – プログラミングインターフェイス
- MovableType で使える XML-RPC API
この3つを見れば大体のスクリプトは書ける。問題はUTF-8文字列を送信しようとしたらエラーになったこと。XMLRPC::Liteを使ってたんだけど、内部的にUTF-8文字列をMIME::Base64::encode_base64に突込んでいるようでそこでエラーに。
で、結局見つけたのが「 XMLRPC::Lite (SOAP::Lite) で base64 エンコーディングさせない: blog.bulknews.net 」。
これでとりあえず解決、したと思ったら別の部分の思わぬミス(エントリ本文をファイルから undef $/ 使って一気読み後、 $/ を再設定し忘れ)で変なタイトルのエントリが大量発生・・・
やはりPerlは恐ろしい。
IE6をMacで動かす
といっても、Intel MacでWINEを使って動かす話。
Zope3 lab developers portal: How to install IE6 on Mac OS X (Intel)
いま、Web関連の仕事をしているんですがFirefoxとかSafariだとキレイに見えるのに、IEだと崩れる、というレイアウトが結構あって、Macでデザインしていると気付かずにやばいというお話。
これ使えるとかなり解決できるんだけど、導入が非常に面倒臭そうなのねーーー。
「ハス合成画像」
なんかGoogleイメージ検索で「蓮画像」を検索すると、まっさきに蓮を人間に合成した画像がでてくるわけですが。
確かに気持ち悪いんだけど、個人的には大して精神ダメージは受けなかったわけですよ。まぁ理由はアトピー性皮膚炎で全身がひどいことになっている写真を幼少のころ皮膚科で見せられてたから(汗)
こっちは実際にそうなる可能性があるわけだから恐ろしさもひとしおですよ。
ということで、蓮コラを見るならアトピー画像を見ろ、と。ネットにあるかどうかは知らんけど。
あと、グロ画像掲示板を見たら糞画像(駄目画像、という意味じゃなくて本当に便器+糞の画像ね)ばかりで吹いた(笑)。
でも、どっちも耐性ない人は駄目なんだろうな。恐ろしい時代になったもんだー(棒読み)
#ちなみに別にそういう趣味があるわけではなく、 ネットで探し物をしていたらたどり着いただけ 、と強調しておく。
OpenOffice.orgで選択した文字列orセルをハイパーリンク化
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]キーでスペースを入力する
Perlでコードを書くとき、Emacsのデフォルトだとなぜかスペースとタブを混同してインデントしてくれる(気がする)。
ということで、Emacs 21.4.11 での解決方法。以下を.emacs.elに書く。
(add-hook 'perl-mode-hook
‘(lambda ()
(setq indent-tabs-mode nil))) 個人的にはインデントはタブだろうがスペースだろうがどっちでもいいんだけど、とりあえず混在はヤメテください。
#育ったプログラミング環境がVC使いだとタブで、Emacs(or vi)使いだとスペースになる気がする。