⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 makefile.pl

📁 PDF-API2-0.2.3.7_dev.tar.gz
💻 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 + -