Hi,
This is wat I'm doing... but its not working :-(
find (\&wanted,"$Root");
print OUT '
';
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 (
'."$file".'
Not Available
Not Available
'."$size".'
'."$time".'
';
Regards,
Shishir Saxena
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
ed with a .EXE
...
Please advise ...
Regards,
Shishir Saxena
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Well since you've asked for it how about doing this,
I want to make a cross-platform utility that when provided with the location
of a directory structure generates the following log,
1) Date of creation
2) Size on Disk
3) Build number of the component / executable.
4) Copyright info (if included
.
-Original Message-
From: Charles K. Clarkson [mailto:[EMAIL PROTECTED]
Sent: Friday, September 05, 2003 12:58 PM
To: 'Shishir Saxena'; [EMAIL PROTECTED]
Subject: RE: Equivalent of GetVersionInfo ()
Shishir Saxena <[EMAIL PROTECTED]> wrote:
: Is there a way to get
Hi,
Is there a way to get the information returned by the VC++ fn
GetVersionInfo( ); thru any of the perl structures / commands ?
PS : If this is too easy a question...plz pardon my ignorance but I'm really
new to perl !
Regards,
Shishir S