Changing Table background colour to alternate cgi script

[madaxe2]

I have preset "my $backcol = #262525; and my $colindex = 1;"
There is something wrong with my syntax but i cant work it out


MADAXE

	foreach my $i (@data) {
   	chomp($i);
   	my ($TTITLE2,$NAME,$DATE,$POST) = split(/\|/,$i);



$backcol == #262525 if ($colindex eq 1);
$backcol == #525262 if ($colindex eq 2);



print qq(<tr> 
		
	
		<th width="25%" nowrap="nowrap"><FONT COLOR=#DCD9D9" SIZE="4">$NAME</font></th>
		<th width="50%" nowrap="nowrap">-----</th>
		<th width="25%" nowrap="nowrap"><FONT COLOR=#DCD9D9" SIZE="4">$DATE</font></th>

	</tr>

	<tr>

		<th bgcolor="$backcol" colspan="100%"><FONT COLOR=#ffffff" SIZE="4">$POST</font></th>
	
	</tr>
	
\n);

$colindex += 1 if ($colindex eq 1);
$colindex -= 1 if ($colindex eq 2);

}

 

[madaxe2]

OK I added "" around the #252626 and the cgi runs now but the colours dont change in the background of the table


MADAXE

 

[madaxe2]

OK IM BEING THICK the last two if statement are fighting with each other

if $colindex = 1 the it adds 1 so now $colindex = 2


but the next line says that

if $colindex = 2 the it subtracts 1 so now $colindex = 1

so $colindex will always equal 1 thus my colour stays the same any body got a way round this


MADAXE

 

[madaxe2]

FIXED IT

	foreach my $i (@data) {
   	chomp($i);
   	my ($TTITLE2,$NAME,$DATE,$POST) = split(/\|/,$i);



$backcol = "#898181" if ($colindex eq 1);
$backcol = "#863838" if ($colindex eq 2);



print qq(<tr> 
		
	
		<th width="25%" nowrap="nowrap"><FONT COLOR=#DCD9D9" SIZE="4">$NAME</font></th>
		<th width="50%" nowrap="nowrap">-----</th>
		<th width="25%" nowrap="nowrap"><FONT COLOR=#DCD9D9" SIZE="4">$DATE</font></th>

	</tr>

	<tr>

		<th bgcolor="$backcol" colspan="100%"><FONT COLOR=#ffffff" SIZE="4">$POST</font></th>
	
	</tr>
	
\n);

		if ($colindex eq 1) {

			$colindex += 1
		}

			else {

			$colindex -= 1
		}



}

 

[stevexff]

The modulus operator % is always useful in this kind of situation.

use strict;
use warnings;
my @data = (<DATA>);
my @backcols = ("#262525", "#525262");
chomp @data;

for (my $i = 0; $i < @data; $i++) {
    my ($TTITLE2,$NAME,$DATE,$POST) = split(/\|/,$data[$i]);
    print qq(<tr>         
        <th width="25%" nowrap="nowrap"><FONT COLOR="#DCD9D9" SIZE="4">$NAME</font></th>
        <th width="50%" nowrap="nowrap">-----</th>
        <th width="25%" nowrap="nowrap"><FONT COLOR="#DCD9D9" SIZE="4">$DATE</font></th>
    </tr>
    <tr>
        <th bgcolor="$backcols[[red]$i % 2[/red]]" colspan="100%"><FONT COLOR="#ffffff" SIZE="4">$POST</font></th>
    </tr>
\n);
}
__DATA__
one|steve|today|stuff 1
two|steve|today|stuff 2
three|steve|today|stuff 3

here it returns either 0 or 1 and is used to index the $backcols array.

NB. on your original, you had the leading " missing on all the COLOR= values, which might cause you other problemms too.