Този скрипт ти решава проблема:
Код:
#!/usr/bin/perl
use strict;
my $urls = <<END;
http://www.esnips.com/nsdoc/7c652154-f4d8-4d36-a714-3e63845bf85
http://www.esnips.com/nsdoc/1
http://www.esnips.com/nsdoc/2
http://www.esnips.com/nsdoc/3
http://www.esnips.com/nsdoc/4
END
my @urlsarray = split(/\n/, $urls);
my $url;
foreach $url (@urlsarray) {
print <<END;
<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="$url"><img style="cursor: pointer; width: 400px; height: 320px;" src="$url" alt="" id="BLOGGER_PHOTO_ID_5370533758257320530" border="0" /></a>
END
}
Ето какво се получава при стартиране на скрипта:
Код:
valentin@darkstar:~/perl-demo$ ./perldemo.pl
<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://www.esnips.com/nsdoc/7c652154-f4d8-4d36-a714-3e63845bf85"><img style="cursor: pointer; width: 400px; height: 320px;" src="http://www.esnips.com/nsdoc/7c652154-f4d8-4d36-a714-3e63845bf85" alt="" id="BLOGGER_PHOTO_ID_5370533758257320530" border="0" /></a>
<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://www.esnips.com/nsdoc/1"><img style="cursor: pointer; width: 400px; height: 320px;" src="http://www.esnips.com/nsdoc/1" alt="" id="BLOGGER_PHOTO_ID_5370533758257320530" border="0" /></a>
<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://www.esnips.com/nsdoc/2"><img style="cursor: pointer; width: 400px; height: 320px;" src="http://www.esnips.com/nsdoc/2" alt="" id="BLOGGER_PHOTO_ID_5370533758257320530" border="0" /></a>
<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://www.esnips.com/nsdoc/3"><img style="cursor: pointer; width: 400px; height: 320px;" src="http://www.esnips.com/nsdoc/3" alt="" id="BLOGGER_PHOTO_ID_5370533758257320530" border="0" /></a>
<a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="http://www.esnips.com/nsdoc/4"><img style="cursor: pointer; width: 400px; height: 320px;" src="http://www.esnips.com/nsdoc/4" alt="" id="BLOGGER_PHOTO_ID_5370533758257320530" border="0" /></a>
valentin@darkstar:~/perl-demo$
За да го ползваш трябва само да редактираш тази част:
Код:
my $urls = <<END;
http://www.esnips.com/nsdoc/7c652154-f4d8-4d36-a714-3e63845bf85
http://www.esnips.com/nsdoc/1
http://www.esnips.com/nsdoc/2
http://www.esnips.com/nsdoc/3
http://www.esnips.com/nsdoc/4
END
Това е списък с адресите (по един на ред).