忍者ブログ
シフラ,超絶技巧練習曲,ピアノ,ロマン派のエチュード,かっこいい曲,PC便利系,音楽系,動画系,youtube,blog系など
Blog Infomation





Today / Yesterday
/



 フィードメーター - The J.Mazeppa


 
Monthly
Recent Comment
Infomation
Circle Chat
Access Rank
KeyWord Rank
Weather & \\ vs $

-天気予報コム-

購入時2005/11は106.1
2017/12/17 (Sun) 05:35 / /
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。


2010/12/06 (Mon) 01:38 / /
写真を入れるとサムネイルが挿入されるURLが入るのが仕様だが(下記参照)、
最初からでかい写真をのせたいのでperlで変換メモ、最適化されてないのは全く無視でw



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


$ cat txt.txt
<a href="http://file.mazeppa.blog.shinobi.jp/PEOPSSOFT001.png" target="_blank"><img src="http://file.mazeppa.blog.shinobi.jp/Img/1291563131/" border="0" alt="" /></a>
<a href="http://file.mazeppa.blog.shinobi.jp/PEOPSSOFT002.png" target="_blank"><img src="http://file.mazeppa.blog.shinobi.jp/Img/1291563132/" border="0" alt="" /></a>
<a href="http://file.mazeppa.blog.shinobi.jp/PEOPSSOFT003.png" target="_blank"><img src="http://file.mazeppa.blog.shinobi.jp/Img/1291563133/" border="0" alt="" /></a>


$ ./parseurl.pl 640 480
<div style="text-align:center"><img src="http://file.mazeppa.blog.shinobi.jp/PEOPSSOFT001.png" border="0" alt="Img/1291563131" width="640px" height="480px" /></div>
<div style="text-align:center"><img src="http://file.mazeppa.blog.shinobi.jp/PEOPSSOFT002.png" border="0" alt="Img/1291563132" width="640px" height="480px" /></div>
<div style="text-align:center"><img src="http://file.mazeppa.blog.shinobi.jp/PEOPSSOFT003.png" 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回]

PR



▼Comment
   NAME:  TITLE:  COLOR:
   PASS:   URL:  EMAIL:
 COMMENT!: Vodafone絵文字 i-mode絵文字 Ezweb絵文字
     
△▲最上部へ戻る▲△ △▲プラグインへ▲△