39 lines
940 B
Perl
Executable File
39 lines
940 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
|
|
#------------------------------------------------------------------------------
|
|
# Read a file
|
|
#------------------------------------------------------------------------------
|
|
sub readFile($) {
|
|
my($fileName) = @_;
|
|
open FILE, $fileName;
|
|
undef $/;
|
|
my($file) = <FILE>;
|
|
close FILE;
|
|
return( $file );
|
|
}
|
|
|
|
#------------------------------------------------------------------------------
|
|
# Main
|
|
#------------------------------------------------------------------------------
|
|
|
|
# Command line arguments
|
|
my($frameFile, $contentFile) = ($ARGV[0], $ARGV[1]);
|
|
if( $contentFile eq '' ) { die "Usage: addFrame.pl frameFile contentFile\n"; }
|
|
|
|
# Read content file
|
|
my($content) = readFile($contentFile);
|
|
my($frame) = readFile($frameFile);
|
|
|
|
my(@lines) = split('\n', $frame);
|
|
my($l);
|
|
for( $l = 0 ; $l <= $#lines ; $l++ ) {
|
|
if( $lines[$l] =~ /<!-- CONTENTS -->/ ) {
|
|
print "$content\n";
|
|
} else {
|
|
print "$lines[$l]\n";
|
|
}
|
|
}
|