Hello again
could someone please help me?
$ZZZZZZZZZZ on line 38 is a single letter output from $string
(in this case "f")
I would like to get this value pushed to $ZZZZZZZZZZ on line 11
as it stands, the error I get at the browser is that it can't find
c:/apache2/htdocs/testing/testing123/$ZZZZZZZZZZ.html
instead of finding (or not as the case may be)
c:/apache2/htdocs/testing/testing123/f.html
I assume that it is doing line 11 and failing before doing the calcs
further on.
I have tried moving lines about, but always get the same error.
as always, your help greatly appreciated
regards
Brian
#! c:\perl\bin\perl.exe
use CGI qw/:all/;
use CGI::Carp qw/fatalsToBrowser/;
use HTMLTMPL;
my $t = HTMLTMPL->new();
$t->src( 'c:/apache2/htdocs/testing/testing123/$ZZZZZZZZZZ.html' );
my $parent = "c:/apache2/htdocs" . $ENV{ 'REQUEST_URI' };
$parent =~ m!c:/apache2/htdocs/testing/testing123!;
$t->number_in( $number_in );
$number_in = 6;
$string1 = abcdef;
$string2 = ghijkl;
$string3 = mnopqr;
$string4 = stuvwx;
$number_out = $number_in;
while ($number_out > 24) {$number_out -= 24;}
if (($number_out > 0) && ($number_out <= 6)) {$string = $string1;}
if (($number_out > 6) && ($number_out <= 12)) {$number_out -= 6;$string
= $string2;}
if (($number_out > 12) && ($number_out <= 18)) {$number_out -=
12;$string = $string3;}
if (($number_out > 18) && ($number_out <= 24)) {$number_out -=
18;$string = $string4;}
$ZZZZZZZZZZ = substr $string, $number_out-1, 1;
$t->output( CGI::header );
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
