1#!/usr/bin/perl 2# $Id: sub_src.pl,v 1.2 2003/06/18 21:04:44 hbo Exp $ 3my $file=$ARGV[0]; 4my $perlpath=$ARGV[1]; 5my $libdir=$ARGV[2]; 6open IN, $file or die $!; 7while (<IN>){ 8 s/\$\{PERLPATH\}/$perlpath/g; 9 s/\$\{SSLIBDIR\}/\"$libdir\"/g; 10 print; 11} 12