DocSet
view release on metacpan or search on metacpan
bin/html2ps view on Meta::CPAN
$arr{"margin-left"},$arr{"margin-right"}) {
&getval($_,0);
}
$styl=$arr{'font-style'}=~/^(i|o)/+2*($arr{'font-weight'}=~/^b/);
$col=$arr{'color'}?&col2rgb($arr{'color'}):-1;
}
sub img {
local($_,$red,$grn,$blu)=@_;
local($beg,$end);
($red,$grn,$blu)=("FF","FF","FF") if(!$opt_U || $red.$grn.$blu !~ /^\w{6}$/);
while (/<(img|fig|hr|overlay|object)\s/i) {
$imgcmd="\L$1";
$beg=$`;
$'=~/>/;
$img=" $`";
$end=$';
$img=~s/\n/ /g;
if($imgcmd ne "object" || $img=~/data\s*=\s*['"]?([\w\/\.:~%-]+\.$IM)/i
|| $img=~/type\s*=\s*['"]?(image\/|application\/postscript)/i){
if($opt_T) {
&getalt;
} else {
$al=0;
$off="";
($align)=$img=~/align\s*=\s*['"]?(\w*)/i;
if($align=~/^middle$/i) {$al=1};
if($align=~/^top$/i) {$al=2};
if($imgcmd eq "overlay") {
$al=4;
$xoff=0;
$yoff=0;
if($img=~/\s*x\s*=\s*['"]?(\d+)/i) {$xoff=$1};
if($img=~/\s*y\s*=\s*['"]?(\d+)/i) {$yoff=$1};
$off="$xoff $yoff ";
}
$url="";
if($img=~/\s(src|data)\s*=\s*($S)/i) {($url)=$+=~/([^ \n]*)/};
&dbg("Image: $url\n") if($opt_d && $url);
bin/html2ps view on Meta::CPAN
$end=$';
}
}
if($cmd{$URL}) {
$text=")".$off.$al.$text;
if($imgcmd eq "fig") {
$end=~m|</fig>|i;
$fig=$`;
$end=$';
$over="";
while($fig=~/(<overlay$R)/ig) {$over.=$1};
($dum,$cap)=$fig=~m|<caption$R([\w\W]*)</caption>|i;
($dum,$cred)=$fig=~m|<credit$R([\w\W]*)</credit>|i;
$text=")BN($text$over)BN($cap)BN($cred)BN(";
}
}
}
$_=$beg.$text.$end;
}
s|<[hH][rR]$R|)2 1 1 HR(|g;
$_[0]=$_;
( run in 0.980 second using v1.01-cache-2.11-cpan-49f99fa48dc )