#!/bin/perl use strict; use Env qw($GTID); defined($GTID) or $GTID="UA-9060947-1"; my $SCRIPT = < FOO while (scalar @ARGV) { my $f=shift @ARGV; if (-f $f) { if (system("grep","-v","-q",'"'.$GTID.'"',$f)) { if (open OF,">$f.".$GTID) { if (open IF,"$f") { while () { if ($_=~m!!) { $_=~s!!$SCRIPT!; } else { # $_=~s!href="([~"]+)"!href="$1" onclick=" } print OF $_; } close(IF); close(OF); rename($f,$f.".old.".$GTID) or die("Couldn't rename $f to $f".".old.".$GTID,$@); rename($f.".$GTID",$f) or die("Couldn't rename $f.".$GTID." to $f",$@); unlink($f.".old.".$GTID) or die("Couldn't delete ".$f.".old.".$GTID,$@); } else { warn("Can't open $f for reading.",$@); } } else { warn("Couldn't open new edited file $f.$GTID",$@); } } } }