I was unaware of Text::Template, so I am looking into applying that instead, however, it still appears that it has a different functionality than what I need. I want to apply files (plural) to a template, not apply a template to a file. Also, what is the name of the utility that you speak of?
| [reply] |
The utility that comes with the Template::Toolkit is called
ttree. Before going farther I suggest reading
this
introduction to using the template toolkit for building
websites.
Remember this. Templating tools are one of the most often
re-invented wheels in the Perl world. We have quite a few
of them, with very good ones suited to all sorts of
different niches. Rather than roll your own I strongly
recommend figuring out what your desired feature set is,
and then go out and find one that already does that.
| [reply] |
I'm not sure exactly what your pretty-printing trouble is, but if you know your token will be at the start of the file, why not keep track of the indentation level, and prepend it to all inserted lines?
if (/(\t*)#&#(\w+)/) {
my $indent = length($1);
apply_template($2, $indent);
}
Or you could run it all through W3C tidy at the end. :)
If you use File::Find (and you should), have a look at $File::Find::dir, or $File::Find::name. If you then use File::Spec (and you should), you can turn an absolute path into a relative path -- relative to the root directory under which you're recursing.
That all said, I definitely recommend picking up the Template Toolkit. You'll learn a lot rolling your own, but you'll probably paint yourself into a corner. | [reply]
[d/l] |
You could of course rebuild the document using HTML::Parser...
Or...
sub do_file($$){
my ($file, $indent) = @_;
local *FOO;
open(FOO, $file);
while (<FOO>) {
/^(\t+)#&#(.+)/ && $indent = do_file($2, $indent + length $1);
print;
}
close FOO;
return $indent;
}
I've not tested it, and I'm not really sure what you want, but if this is what you were thinking of, you should recognize it :) | [reply]
[d/l] |
In order to finish the thread, this is what I ended up using for a solution (improvments are very welcome):
code:
#!/usr/bin/perl -w
use strict;
use Template;
use File::Copy;
use File::Basename;
#------------------------------------------------------------------------
# config
#------------------------------------------------------------------------
#directory where your library files are located (files to be imported)
my $libdir = "d:\\files\\cu\\snippits";
#directory that is to be searched (source files)
my $srcdir = "d:\\files\\cu\\html";
#destination directory
my $destdir = "d:\\files\\html";
#files that should be directly copied instead of processed
my @copy = ("\.png","\.gif","\.jpg","\.cgi");
#------------------------------------------------------------------------
# end config
#------------------------------------------------------------------------
my $ttopts = {
RELATIVE => 1,
INCLUDE_PATH => [ $srcdir, $libdir ],
OUTPUT_PATH => $destdir,
};
my $template = Template->new($ttopts);
process_tree();
sub process_tree {
my $dir = shift;
my ($file, $path, $abspath, $check);
my $target;
local *DIR;
my $absdir = join('/', $srcdir ? $srcdir : (), $dir ? $dir : ());
$absdir ||= '.';
opendir(DIR, $absdir) || do { warn "$absdir: $!\n"; return undef; };
FILE: while (defined ($file = readdir(DIR))) {
next if $file eq '.' || $file eq '..';
$path = $dir ? "$dir/$file" : $file;
$abspath = "$absdir/$file";
next unless -e $abspath;
if (-d $abspath) {
my ($uid, $gid, $mode);
(undef, undef, $mode, undef, $uid, $gid, undef, undef,
undef, undef, undef, undef, undef) = stat($abspath);
$target = "$destdir/$path";
mkdir $target, $mode || do { warn "mkdir ($target): $!\n"; next; };
process_tree($path);
}
else {
process_file($path, $abspath);
}
}
closedir(DIR);
}
sub process_file {
my ($file, $absfile) = @_;
my ($dest, $base, $check, $srctime, $desttime, $mode, $uid, $gid);
$absfile ||= $file;
$dest = $destdir ? "$destdir/$file" : $file;
$base = basename($file);
(undef, undef, $mode, undef, $uid, $gid, undef, undef, undef, $srctime,
undef, undef, undef) = stat($absfile);
foreach $check (@copy) {
if ($base =~ /$check/) {
copy($absfile, $dest);
return;
}
}
$template->process($file, "", $file) || print(" ! ", $template->error(), "\n");
}
sample source file:
[% depth="../../" %]
<html>
[% INCLUDE header title="Collectively Unconcious" %]
[% INCLUDE open_body %]
[% INCLUDE open_left_column %]
[% INCLUDE site_menu %]
[% INCLUDE cu_news %]
[% INCLUDE search %]
[% INCLUDE close_left_column %]
[% INCLUDE open_middle_column %]
[% INCLUDE who_are_we %]
<!-- comment -->
<table border="0" cellspacing="0" cellpadding="1" width="100%">
<tr>
<td background="[% depth %]images/border.gif" bgcolor="#000000">
<table bgcolor="#000000" width="100%" border="0" cellspacing="0" cellpadding="2" colspan=3>
<tr>
<td bgcolor="#9C0801" align="center" valign=middle><font size="2" class="nf"><b>What are we not?</b></font></td>
</tr>
<tr height="1">
<td bgcolor="CC3311"></td>
</tr>
<tr>
<td bgcolor="#191919">
<b>Text goes here.<br><br>
</td>
</tr>
</table>
</td>
</tr>
</table><br>
<!-- /comment-->
[% INCLUDE close_middle_column %]
[% INCLUDE open_right_column %]
[% INCLUDE cu_members %]
[% INCLUDE your_account %]
[% INCLUDE contribute %]
[% INCLUDE book_review %]
[% INCLUDE close_right_column %]
[% INCLUDE close_body %]
</html>
sample INCLUDE (header)
<head>
<title>[% title %]</title>
<script language="JavaScript">
<!-- Begin popUp
function popUp(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=500,height=525,left = 262,top = 134');");
}
// End popUp-->
</script>
</head>
| [reply] |