pod2pdf 加书签

timeweguo

1. sub output {
   
2.   my $self = shift;
   
3.   
   
4.   my $outline_root = $self->{pdf}->outlines( );
   
5.   my @sa=();
   
6.   my $cl=0;
   
7.   
   
8.   foreach(@{$self->{outlines}}){
   
9.     if($_->[0]=~/head(\d+)/){
   
10.       $cl=scalar(@sa);
    
11.       while($cl && $sa[($cl-1)][1]+1!=$1){
    
12.         $cl--;
    
13.         last if($cl==0);
    
14.       }
    
15.       if($cl){
    
16.         push @sa, [$sa[($cl-1)][0]->outline(),$1];
    
17.         $cl=scalar(@sa);
    
18.         $sa[($cl-1)][0]->title($_->[1]);
    
19.       }
    
20.       else{
    
21.         push @sa, [$outline_root->outline(),$1];
    
22.         $sa[0][0]->title($_->[1]);
    
23.       }
    
24.     }
    
25.   }
    
26.   

复制代码

尚未完结，先记录。。。