縦書き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

『初めてのPerl 第6版』

ランダル・L.シュワルツ

[更新]2013-05-01 08:35:43