perl パズル

2009/12/21 [23:27:40] (月)

縦書きtwitterを眺めると、全角にしてタテに並べるURLがうっとーしー。除去するのは簡単だけど、twitterの性格上、リンクは必需品なので、どうにかできないものか、と。
記入されているのがURLだったら、それを削除して別エリアにリンクを表示させたい。
my @buf; $text =~ s!(http.+)!sprintf qq{}, push(@buf, $1)!eg;
最初、push だけで、イケんじゃないかと思ったら甘かった。pushの返り値、配列の要素の数が入ってしまう。なので、無意味な sprintf を噛ませてみた。なんか不恰好だけど、欲しい結果が得られるので良しとするか。…うううむ、やっぱかっちょわりいなあ。

て、まわりくどい阿呆だった。
$text =~ s!(http.+)!push(@buf, $1),''!eg;
これだけでOK

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール 「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら