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

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

2013年1月22日 发表评论 阅读评论

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

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

#!/usr/bin/perl -W
use strict;
#######################################
#  批量加入字符串到文件 #
#  copyright (c) 2012-11
#  author	Qiufeng <[email protected]>
#  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.