Vlákno názorů k článku Nový Root a soutěž o ceny (4) od Pipo - Mam tie subory zo archivu a co teraz...

21. 1. 2005 21:18

Pipo (neregistrovaný)

Mam tie subory zo archivu a co teraz s nimy.
Please hint...
- Skok na další nový názor. K navigaci lze použít i klávesy N pro následující a P pro předchozí nový názor
22. 1. 2005 22:10

Milan Kvasnica (neregistrovaný)

#!/usr/bin/perl

print <<END;
<HTML>
>
<style type="text/css">
table {empty-cells:show;border-collapse:collapse;border-spacing:0}
td {padding:0;border:none;width:1px;height:1px}
col {width:1px}
</style>
</HEAD>
<BODY>
<TABLE>
END

while(<>)
{
$_=~tr [uvwxyz] [ABCDEF];
$_=~s#([a-z0-9]{6})[\s\n]#<TD BGCOLOR=\#$1> </TD>#ig;
$_=~s#X#</TR><TR>#g;
print $_;
}

print "</TABLE></BODY></HTML>";

Zprávičky