recursively finding file size/timestamp on a Mac / Solaris

[Shishir Saxena]

Hi,

This is wat I'm doing... but its not working :-(

find (\&wanted,"$Root");
  
print OUT '  </table>
<p>&nbsp;</p>

</body>

</html>';

sub wanted()
{
   if (-d $File::Find::name)
   {
    return;
    }
   $file = $File::Find::name;
   $file =~ s/\//\\/g;
   $st = stat($file);
   $size = $st->size;
   $size = ($size/1024)."KB ($size bytes)";
   $time = scalar localtime $st->mtime;
   

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]