Table-Dir

Sat Aug 1 04:36:08 EEST 1998

On Sat, 1 Aug 1998, Kostas Lialiambis wrote:

> Ama kaneis brei pio syntomo tropo gia to idio apotelesma as moy grapsei
> giati to parakatw prepei na einai h 27h prallagh poy ekana shmera...
#!/usr/bin/perl

@command=`ls -l`;
print<<HTML;
<center>
<table border=0>
HTML
foreach $i (@command)
{
        ($u,$u,$u,$u,$size,$d1,$d2,$d3,$name)=split(/\s+/, $i);
        print<<HTML
        <tr>
        <td>$name</td>
        <td>$size</td>
        <td>$d1 $d2 $d3</td>
        </tr>
HTML
}
print "</table></center>";

Jimmy Z. Stergiou aka Hermes		          
hermes at eexi.gr , hermes at mbn.gr               

--
====================================================================
Gia boithia (h na diagrafhte) e-mail sto majordomo at argos.hol.gr
Ta archives tis listas einai sto http://www.argos.hol.gr/lists :
prin steilete kapoia erothsh psakte mipos exei hdh apanththei.
Gia opoiodipote problima stilte e-mail ston owner-linux-greek-users
====================================================================