Help me to build this script

[lielie meimei]

Hello..

I'm still newbie.

Could u help me to see why in the script perl here can
not compiled, please help me.


==================Begin of indexsite.pl ==============

#!/usr/bin/perl

$directory='/root/tmp';

dbmopen (%final, "index", 0666);

@time=localtime(time);

$time="$time[2]:$time[1]";

print "Scan started: $time\n";

scan_files($directory);

@time=localtime(time);

$time="$time[2]:$time[1]";

print "Scan complete: $time\n";


sub  scan_files {

 my $dir=$_[0];

 my
(@dirs,@files,@results,$filename,$shortfilename,$newdir,$list,
%words);

 print "Scanning: $dir \n";

 opendir(dir,$dir);

 @dirs=grep {!(/^\./) && -d "$dir/$_"} readdir(dir);

 rewinddir(dir);

 @files=grep {!(/^\./) && /html/ && -T "$dir/$_"}
readdir(dir);

  closedir (dir);

 for $list(0..$#dirs) {

  if (!($dirs[$list])= {

   $newdir=$dir."/".$dirs[$list];

  &scan_files ($newdir);

  }

 }

 for $list(0..$#files) {

  undef(%words);

  undef(@results);

  $filename=$dir."/".$files[$list];

  $shortfilename=$filename;

  $shortfilename=s/$directory//;

  open file, $filename;

  @file=<file>;

  $file=join(" ",@file);

  $file=s/<[^>]*>/ /gs;

  $file=tr/A-Z/a-z/;

  @results=split (/[^\w-']+/,$file);

  foreach (@results){

   s/^'//;

   s/'$//;

   s/^-//;

   s/-$//;

   if (length($_) > 3) {

    $words{$_}=1;

   }

  }

  foreach (keys(%words)) {

   $final{$_} .= "#$shortfilename";

  }

 }

return 1;

}

============== End of script =========================


Thanks for your help.

Lielie





__________________________________________________
Do you Yahoo!?
Yahoo! Shopping - Send Flowers for Valentine's Day
http://shopping.yahoo.com
#!/usr/bin/perl



$directory='/root/tmp';



dbmopen (%final, "index", 0666);

@time=localtime(time);

$time="$time[2]:$time[1]";

print "Scan started: $time\n";

scan_files($directory);

@time=localtime(time);

$time="$time[2]:$time[1]";

print "Scan complete: $time\n";




sub  scan_files {

 my $dir=$_[0];

 my (@dirs,@files,@results,$filename,$shortfilename,$newdir,$list, %words);

 print "Scanning: $dir \n";

 opendir(dir,$dir);

 @dirs=grep {!(/^\./) && -d "$dir/$_"} readdir(dir);

 rewinddir(dir);

 @files=grep {!(/^\./) && /html/ && -T "$dir/$_"} readdir(dir);

  closedir (dir);

 for $list(0..$#dirs) {

  if (!($dirs[$list])= {

   $newdir=$dir."/".$dirs[$list];

  &scan_files ($newdir);

  }

 }

 for $list(0..$#files) {

  undef(%words);

  undef(@results);

  $filename=$dir."/".$files[$list];

  $shortfilename=$filename;

  $shortfilename=s/$directory//;

  open file, $filename;

  @file=<file>;

  $file=join(" ",@file);

  $file=s/<[^>]*>/ /gs;

  $file=tr/A-Z/a-z/;

  @results=split (/[^\w-']+/,$file);

  foreach (@results){

   s/^'//;

   s/'$//;

   s/^-//;

   s/-$//;

   if (length($_) > 3) {

    $words{$_}=1;

   }

  }

  foreach (keys(%words)) {

   $final{$_} .= "#$shortfilename";

  }

 }

return 1;

}




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