首页 > Perl > Perl批量实现给html文档引入外部JS

Perl批量实现给html文档引入外部JS

前段时间做项目时遇到个问题,需要给子框架视图页面的</body>上方引入一个外部JS做兼容处理,由于当时的视图页面footer并不是独立的,也就意味着有多少个视图页面就得手动去一个个添加,这并不科学。

还好捣鼓过一段时间Perl脚本,具体实现代码如下:

#!/usr/bin/perl -W
use strict;
#######################################
#  批量加入字符串到文件 #
#  copyright (c) 2012-11
#  author	Qiufeng <fengdingbo@gmail.com>
#  link		http://www.fengdingbo.com
#  version	0.1 
######################################
my %do_these;
print @ARGV;
foreach (@ARGV){
	$do_these{$_} = 1;
}
 
#delete hash if exists
while(<>){
	delete $do_these{$ARGV} if(m/\$ifreme/);
}
 
@ARGV = sort keys %do_these;
$^I = ".bak";
exit if(!@ARGV);
 
while(<>){
	if(/<\/body>/){
		print '<script src="<?php echo $iframeUrl?>"></script>',"\n";
	}
	print;
}

参考书籍:《Perl语言入门》 (第五版)

分类: Perl 标签:
  1. 2013年5月30日08:46 | #1

    PHP外行一枚,过来踩踩。

  1. 本文目前尚无任何 trackbacks 和 pingbacks.