Rendben akkor legalább azt mondja meg nekem valaki, hogy Perlben (TK) hogyan lehet egy táblázatnak fejlécet csinálni?

$table = $box2->Table(-rows => $r,-columns => 11,-fixedrows => 1);
while($r>0)
{
if($B_OR_KL[$r] eq 0){$minta=’sunken’;}
else{$minta=’raised’;}
@IKTSZ[$r]=@SORSZL[$r];
@IKTSZ[$r].=”/0″;
@IKTSZ[$r].=@EVL[$r];
$label=$box2->Label(-width=>”7″,-textvariable=>@IKTSZ[$r],-relief=>”$minta”);
$table->put($r,1,$label);
$label=$box2->Label(-width=>”10″,-textvariable=>@ERKDTM[$r],-relief=>”$minta”);
$table->put($r,2,$label);
$label=$box2->Label(-width=>”15″,-textvariable=>@UGYI[$r],-relief=>”$minta”);
$table->put($r,3,$label);
$label=$box2->Label(-width=>”15″,-textvariable=>@NEV[$r],-relief=>”$minta”);
$table->put($r,4,$label);
$label=$box2->Label(-width=>”20″,-textvariable=>@CIM[$r],-relief=>”$minta”);
$table->put($r,5,$label);
$label=$box2->Label(-width=>”25″,-textvariable=>@TARGY[$r],-relief=>”$minta”);
$table->put($r,6,$label);
$label=$box2->Label(-width=>”4″,-textvariable=>@MELL[$r],-relief=>”$minta”);
$table->put($r,7,$label);
$label=$box2->Label(-width=>”10″,-textvariable=>@KEZHELY[$r],-relief=>”$minta”);
$table->put($r,8,$label);
if(@HATDTM[$r] ne „1900.01.01”){$label=$box2->Label(-width=>”10″,-textvariable=>@HATDTM[$r],-relief=>”$minta”);}
else{$label=$box2->Label(-width=>”10″,-text=>”Ismeretlen”,-relief=>”$minta”);}
$table->put($r,9,$label);
if(@INTNAP[$r] ne „1900.01.01”){$label=$box2->Label(-width=>”10″,-textvariable=>@INTNAP[$r],-relief=>”$minta”);}
else{$label=$box2->Label(-width=>”10″,-text=>”Ismeretlen”,-relief=>”$minta”);}
$table->put($r,10,$label);
if(@IRDTM[$r] ne „1900.01.01”){$label=$box2->Label(-width=>”10″,-textvariable=>@IRDTM[$r],-relief=>”$minta”);}
else{$label=$box2->Label(-width=>”10″,-text=>”Ismeretlen”,-relief=>”$minta”);}
$table->put($r,11,$label);
}

Mondjuk ennek?

Csibu

Na úgy látom itt senki se ért a perl/TK-hoz rendesen!
Használja ezt egyáltalán valaki?

Csibu