📄 makefile.pl
字号:
#!perlBEGIN { use ExtUtils::MakeMaker; use File::Find; use File::stat; %opts=@ARGV; find( sub { my $file=$_; return if($file!~/\.pm$/); my $st=stat($file); my ($ss,$mm,$hh,$dd,$mn,$yy)=localtime($st->mtime); my $tstr=sprintf('%04d%02d%02d.%02d%02d%02d',1900+$yy,$mn+1,$dd,$hh,$mm,$ss); my $touch=sprintf('%04d%02d%02d%02d%02d.%02d',1900+$yy,$mn+1,$dd,$hh,$mm,$ss); open(INF,$file); @lines=<INF>; $l=join('',@lines); close(INF); $l=~/\$Revisioning:\s+([^\s]+)\s+/gm; if($1 && ($tstr ne $1)) { $l=~s/(\$Revisioning:\s+)[^\s]+(\s+)/$1$tstr$2/gm; open(INF,">$file"); print INF $l; close(INF); print `touch -m -t $touch $file`; print "fixing versioning in $file.\n"; } }, './lib/PDF'); if($opts{-version}) { open(INF,">version.p"); print INF <<"EOT";# version file, generated from Makefile.PL\$version="$opts{-version}";1;EOT close(INF); }}require 'version.p';print "Current version is: $version \n";@ver=split(/\./,$version);$tag='_'.(defined($opts{-tag}) ? $opts{-tag} : 'dev');WriteMakefile ( NAME => "PDF::API2", VERSION => "$version$tag", AUTHOR => "areibens\@cpan.org", ABSTRACT => "TNG PDF Generation API", dist => { ZIP => "zip ", ZIPFLAGS => " -v -o -r -9 ", COMPRESS => "gzip -9 -f ", }, MAN1PODS => {}, MAN3PODS => {}, PREREQ_PM => { 'Compress::Zlib' => 1.03, 'Text::PDF::File' => 0.19, 'Font::TTF::Font' => 0.28, },);sub MY::postamble{ my $self = shift; return <<'EOT';docs: install docs/pdf-api2.pm.html pod-pdfdocs/pdf-api2.pm.html: lib/PDF/API2.pm perl pod3html -i $< -o $@docs/pdf-api2.pm.pdf: lib/PDF/API2.pm perl pod3pdf -i $< -o $@pod-pdf: docs/*.pod for x in $?; do \ perl pod3pdf -i $$x -o $$x.pdf ;\ doneEOT}print "anything else ? NO.\n";exit;__END__
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -