写真を入れるとサムネイルが挿入されるURLが入るのが仕様だが（下記参照）、
最初からでかい写真をのせたいのでperlで変換メモ、最適化されてないのは全く無視でｗ



元ファイル：txt.txt（まさかのハードコーディング）
スクリプト：parseurl.pl（とりあえずつけた名前）
実行時引数：なしでよい、もしサイズわかってれば width height の順で入れる
実行例：divタグで囲むようにしている、altに元サムネイル番号を念のため入れている

$ cat txt.txt
<a href="http://blog.cnobi.jp/v1/blog/user/4c5f8f257b0774205512403911be63d0/1291563131" target="_blank"><img src="http://blog.cnobi.jp/v1/blog/user/4c5f8f257b0774205512403911be63d0/1291563131?w=200&h=150" border="0" alt="" /></a>
<a href="http://blog.cnobi.jp/v1/blog/user/4c5f8f257b0774205512403911be63d0/1291563132" target="_blank"><img src="http://blog.cnobi.jp/v1/blog/user/4c5f8f257b0774205512403911be63d0/1291563132?w=200&h=150" border="0" alt="" /></a>
<a href="http://blog.cnobi.jp/v1/blog/user/4c5f8f257b0774205512403911be63d0/1291563133" target="_blank"><img src="http://blog.cnobi.jp/v1/blog/user/4c5f8f257b0774205512403911be63d0/1291563133?w=200&h=150" border="0" alt="" /></a>


$ ./parseurl.pl 640 480
<div style="text-align:center"><img src="http://blog.cnobi.jp/v1/blog/user/4c5f8f257b0774205512403911be63d0/1291563131" border="0" alt="Img/1291563131" width="640px" height="480px" /></div>
<div style="text-align:center"><img src="http://blog.cnobi.jp/v1/blog/user/4c5f8f257b0774205512403911be63d0/1291563132" border="0" alt="Img/1291563132" width="640px" height="480px" /></div>
<div style="text-align:center"><img src="http://blog.cnobi.jp/v1/blog/user/4c5f8f257b0774205512403911be63d0/1291563133" border="0" alt="Img/1291563133" width="640px" height="480px" /></div>
Finish

ソース：

$ cat parseurl.pl
#!/usr/bin/perl

use strict;

my $txt =`cat ~/txt.txt`;
my @line = split(/<\/a>/, $txt);

my $caption = '';

if ( $ARGV[0] =~ /(\d+)/ ){
        $caption = 'width="' . $1 .'px"';
        if ( $ARGV[1] =~ /(\d+)/ ){
                $caption = $caption . ' height="' . $1 .'px"';
        }
}

my $url = 'http://file.mazeppa.blog.shinobi.jp';
my $a = '<a href="' . $url . '/';
my $target = '" target="_blank">';
my $img = '<img src="' . $url . '/';
my $end = '/" border="0" alt="" />';

my $divf = '<div style="text-align:center">';
my $dive = '</div>';


foreach (@line) {
        if ($_ =~ /$a(.*)$target$img(Img\/\d+)$end/ ) {
            print $divf . $img . $1 . '" border="0" alt="' . $2 . '" '. $caption .' />' . $dive . "\n";
        } elsif ( $_ =~ /^$/ ) {
                print "Finish \n";
        } else {
                print "!!!!!!!!!!! NG !!!!!!!!!!!!\n";
                print $_ . "\n";
        }
}

[0回]