list.ini.sample

# 他のポート番号を指定する際につけてください
#port  = 3128
# デバッグオプションを有効にしたいときにつけてください
#debug = 1
# プロキシサーバへつなぐ為のパラメータ。ホスト名かIPを指定してください
#domain = hogehoge.local
 
[www.example.com]
/path/to/remote.js = /path/to/local.js

pac_manager.pl

#!/usr/bin/env perl
 
# このファイルは３つともダウンロードしてください。
# $ perl pac_manager.pl list.ini
# でproxy.pacが出力されます。
 
use strict;
use warnings;
 
use FindBin;
use Text::MicroTemplate;
use Config::Tiny;
 
my $conf_file = shift(@ARGV);
die('no conf file') unless ($conf_file);
die("Config file passed on command line ($conf_file) could not be read.¥n") unless (-r $conf_file);
 
my %config = %{ Config::Tiny->read( $conf_file ) };
 
my $root_config = delete $config{_};
$root_config->{port} ||= 3128;
$root_config->{domain} ||= 'localhost';
 
my $mt = Text::MicroTemplate->new(
    template => do {
        open my $fh, '<:utf8', "$FindBin::Bin/proxy.pac.mt";
        my $data = do { local $/; <$fh> };
        close $fh;
        $data;
    },
);
 
my $code = $mt->code;
my $renderer = eval << "..." or die $@;
sub {
    my ¥$root_config = shift;
    my ¥$hosts = shift;
    $code->();
}
...
 
my $rendered = $renderer->($root_config, ¥%config);
 
print $rendered;

proxy.pac.mt

function FindProxyForURL(url, host) {
	var proxy = 'PROXY <?= $root_config->{domain} ?>:<?= $root_config->{port} ?>';
 
? for my $h (keys %{$hosts}) {
? (my $_h = $h) =‾ s#¥.#¥¥.#g;
	if (dnsDomainIs(host, '<?= $_h ?>')) {
<? my @p = map {
	   s{¥.}{¥¥.}g;
	   s{¥/}{¥¥/}g;
	   s{¥?}{¥¥?}g;
	   $_
   } keys %{$hosts->{$h}};
?>
		if(/(<?= join( '|', @p) ?>)/.test(url)) {
			return proxy;
		}
	}
? }
	return 'DIRECT';
}