The data is retrieved from a tab-separated text file. You can visit the results at this address: http://www.1604.ca/cgi-bin/spanish.pl
You'll notice that if I check for the existence of the image file, Perl does not see it. But the image is in fact there by looking at the next column where I don't check for its existence.
Here's more of my code:for $i ( 0 .. 23 ) { $tit=$info[$i]{'TIT'}; $mfr=$info[$i]{'MFR'}; $mes=$info[$i]{'MES'}; $c="$dpmg/$mes.$epng"; if (-e $c) { $c2="<IMG src='$c'>"; } else { $c2="<IMG src='$dimg/_x2.png'>"; } $d="$dpmg/$mes.$epng"; $d2="<IMG src='$d'>"; $e="$dpud/$mes.$eaud"; if (-e $e) { $e="$daud/$mes.$eaud"; $e2="<IMG src=\"$dimg/_v1.png\" onclick=\"au.src='$e'; au.play() +;\" >"; } else { $e2="<IMG src='$dimg/_v0.png'>"; } print "<DIV>$tit</DIV> <DIV>$mfr</DIV> <DIV>$mes</DIV> <DIV cla +ss='fn'>$c</DIV> $c2 <DIV class='fn'>$d</DIV> $d2 $e2 <BR>\n"; }
In reply to Re^2: -e not working Perl 5.008008
by GLJSD
in thread -e not working Perl 5.008008
by GLJSD
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |