Theres a problem i cant solve

[DuMaurier69]

opendir(ETC,"/home");
while ($name = readdir(ETC)){
if ($user eq $name){

print("<font color=red><b><BR><BR>$user");
print("</b><BR><BR>");$disk=exec"du -s /home/$user");
print("</b><BR><BR>");

}
}
print ("</BODY></HTML>");
closedir(ETC);
My unix is telling me there is a problem with this but i cant find it if some one can tell me where it is my program will be finished i also want the program to print just $disk=exec"du -s" but it also comes up with the directory name too how can i remove it

[QuietDean]

I think Enigma has a lot of experience with Perl, Enigma, any thoughts?

[Enigma]

What is the error message/problem that you're getting when you try to run this?

[bresticals]

regex is your answer, something like...

use du -Sh (h will show the value in a more readable format and S shows a summary.

regex just before you print the value to screen will strip out the directory:
$user =~ s/$user//g;

and you may need at the start of the loop:
next if $user eq '.';

[bresticals]

oh iand rather than doing:

if ( $name eq $user ) {

do:

if ( $user =~ /$name/ ) {

cos it might not be exact.