use strict;
use HTML::Template;
# use File::Find;
# use File::Find's wanted() method to gather
# all directories/files...
my $dir_list = [
{ dir => 'foo', dir_row => [
{ file_row => [
{ filename => 'foo0.pic' },
{ filename => 'foo1.pic' },
{ filename => 'foo2.pic' },
{ filename => 'foo3.pic' },
{ filename => 'foo4.pic' }
] # for file_row
}
] # for dir_row
},
{ dir => 'bar', dir_row => [
{ file_row => [
{ filename => 'bar0.pic' },
{ filename => 'bar1.pic' },
{ filename => 'bar2.pic' },
{ filename => 'bar3.pic' },
{ filename => 'bar4.pic' }
] # for file_row
}
] # for dir_row
}
];
my $tmpl = new HTML::Template(type => 'filehandle', source => *DATA);
$tmpl->param(dir_list => $dir_list);
print $tmpl->output();
print "here\n";
__DATA__
<TMPL_VAR NAME="title">
####
|
foo |
| foo0.pic |
foo1.pic |
foo2.pic |
foo3.pic |
foo4.pic |
|
bar |
| bar0.pic |
bar1.pic |
bar2.pic |
bar3.pic |
bar4.pic |
####
my $dir_list = [
{ dir => 'foo', dir_row => [
{ file_row => [
{ filename => 'foo0.pic' },
{ filename => 'foo1.pic' },
{ filename => 'foo2.pic' },
{ filename => 'foo3.pic' },
{ filename => 'foo4.pic' }
]
}, # for file_row
# second row (next batch of files of 5)
{ file_row => [
{ filename => 'foo5.pic' },
{ filename => 'foo6.pic' },
{ filename => 'foo7.pic' },
{ filename => 'foo8.pic' },
{ filename => 'foo9.pic' }
]
}, # for file_row
] # for dir_row
},
{ dir => 'bar', dir_row => [
{ file_row => [
{ filename => 'bar0.pic' },
{ filename => 'bar1.pic' },
{ filename => 'bar2.pic' },
{ filename => 'bar3.pic' },
{ filename => 'bar4.pic' }
]
} # for file_row
] # for dir_row
}
];
####
$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}