#!/usr/bin/perl while(<*.ppf>){ open(FP,"$_"); while(){ if(/^Name/){ @zz=split(/=/); } if(/^HiResPicture/){ @zzz=split(/=/); } } close(FP); $zz[1]=~ s/\s//eg; @bb=split(/\./,$zzz[1]); $map{$zz[1]}=$bb[0]; } while(<*.ppf>){ open(FP,"$_"); @zz=; close(FP); foreach (@zz){ if(/^Name/){ @zzz=split(/=/); $name=$zzz[1]; $name=~ s/\s//eg; } } if($name ne "专题图"){ $b="../html/".$map{$name}.".html"; open(SP,"> $b"); } else { open(SP,"> ../html/h0.html"); } print SP "$name\n"; print SP "

$name

\n"; $inx=0; print SP "\n"; foreach (@zz){ if(/^Page/){ @zzz=split(/=/); $zzz[1]=~ s/\s//eg; if($zzz[1] eq "渤海湾"){ $zzz[1]="京津唐地区"; } if($zzz[1] ne "无"){ $b="../html/".$map{$zzz[1]}.".html"; print SP "$zzz[1] "; $inx=1; } } } print SP "\n"; if($inx){ print SP "

\n"; } $inx=0; print SP "

\n"; if($name ne "专题图"){ $b="../jpg/".$map{$name}.".jpg"; $b1=$map{$name}; $b1=~ s/h/l/; $b2="../jpg/".$b1.".jpg"; print SP "

\n"; $inx=1; } foreach (@zz){ if(/^NoteFile/){ @zzz=split(/=/); $zzz[1]=~ s/\s//eg; if($zzz[1] ne "无"){ $b="../not/".$zzz[1]; open(FP,"$b"); while(){ if(/\S/){ if(/^\s+/){ print SP "
\n"; } print SP; } } close(FP); $inx=1; } } } print SP "

\n"; if($inx){ print SP "

\n"; } $inx=0; print SP "\n"; foreach (@zz){ if(/^SM.*Name/){ @zzz=split(/=/); $zzz[1]=~ s/\s//eg; if($zzz[1] eq "渤海湾"){ $zzz[1]="京津唐地区"; } $b="../html/".$map{$zzz[1]}.".html"; print SP "$zzz[1] "; $inx=1; } } if($inx){ print SP "\n

\n"; } $inx=0; foreach (@zz){ if(/^OBSM.*Name/){ @zzz=split(/=/); $zzz[1]=~ s/\s//eg; if($zzz[1] eq "渤海湾"){ $zzz[1]="京津唐地区"; } $b="../html/".$map{$zzz[1]}.".html"; print SP "$zzz[1] "; $inx=1; } } print SP "\n\n"; if($inx){ print SP "

\n"; } print SP "\n"; close(SP); }