Simple Disk Usage Question HELLLPP>.

[karimj]

hello...I wrote the following script...

#!/usr/bin/perl -w

$d = det_dir_name();

$size = 0;
DIR = opendir $d

While (readdir DIR) {
next if /^\.\.?$/ ;
next if -d$_;
$size == -s $_;
}

print $size
print $d

..All I need to do is where ever the script is...I need for it to tell me the diskusage of that and subsequent directories....
Currently I am getting a BAREWORD error..on the DIR = line


PLEAASE>>HELP...

THANKS
Karim

I am supposed to make it do the same as this ASP Script...

<%

'Response.ContentType = &quot;text/plain&quot;



vpath = Request(&quot;vpath&quot



IF vpath = &quot;&quot; then

vpath = &quot;/&quot;

END IF



realPath = server.mappath(vpath)





Set fs = CreateObject(&quot;Scripting.FileSystemObject&quot

Set f = fs.GetFolder(realPath)



response.write f.Size & vbcrlf

response.write realPath & vbcrlf

response.write vpath & vbcrlf

%>

 

[TomThumbKOP]

What does the code for det_dir_name() look like?

 

[karimj]

ugg..sorry..it should be determining the directory...but all I care about now..is::::...well
where ever the script resides..is where I am concerned about the directory usage..for example..

the final output I need it to be:::

1403032 d:\

http://www-roots\www.example.com.80\wwwwroot/

so that det_dir_name is irrelevant....

Any IDEAS PLEASE>>>

 

[nfaber]

Well one thing. Check each line for a ; at the end.

 

[sulfericacid]

#!/usr/bin/perl -w

$d = det_dir_name();

$size = 0;
DIR = opendir $d;

While (readdir DIR) {
next if /^\.\.?$/ ;
next if -d$_;
$size == -s $_;
}

print $size;
print $d;

&quot;Age is nothing more than an inaccurate number bestowed upon each of us at birth as just another means for others to judge and classify us- sulfericacid