Hello,
Can you guys tell me on this piece of codes? It doesn't print the small
html codes in the sub below. No warning - nothing!
N.B. Don't bother about the html; just check my perl codes to see why I
doesn't print what I want.
Thanks
Babs
=============================================================
#!/usr/bin/perl -w
use strict;
use File::Basename;
my ($filename, $dir, $ext,$picture,$images,$counter);
$images ="watches";
opendir (IMGDIR, "$images") || die "\nCouldn't open directory ($images):
$!\n";
#while (defined($picture = readdir(IMGDIR))){
my @pictures = readdir(IMGDIR);
foreach $picture (@pictures){
$counter = 0;
if (-f $picture and $picture =~ /(\.gif|\.jpe?g)$/i){
$counter++;
($filename, $dir, $ext) = fileparse($picture,
'\..*');
print "$picture,$filename";
html_file($picture,$filename );
}
}
closedir(IMGDIR);
print "\n$counter templates printed successfully.";
############################################################
# HTML Layout #
############################################################
sub html_file {
my ($filename,$picture );
($picture,$filename) = @_;
opendir (TMPLDIR, "Tmpl_out") || die "$!\n";
open (OUT, ">TMPLDIR/$filename.txt") || die "$!\n";
print OUT <<EOF;
<html><head><title>$filename</title></head>
<body><font face=" Arial, Times New Roman,Helvetica">
<p align="center">
<img src="$picture" border="1" color="#ffffff"></p>
<table><tr><td><table align="center">
<tr><td colspan="3" width="90%"
align="center"> </font></td></tr>
<tr bgcolor="#boc4de"><td colspan="3" >
</td></tr><tr><td height="200">
<img src="$picture"></td><td height="200">
<img src="$picture"></td></tr></table>
EOF
close (OUT);
closedir (TMPLDIR);
}
#=======================================================================
=
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
