Скрипт на Perl - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Скрипт на Perl (http://forum.oszone.net/showthread.php?t=176058)

Скрипт на Perl

а кто perl знает?
поправьте, пожалуйста, синтаксис.

Код:

#!/usr/bin/perl -w



#this script search for frag on a fs

use strict;



#number of files

my $files = 0;

#number of fragment

my $fragments = 0;

#number of fragmented files

my $fragfiles = 0;



#search fs for all file

open (FILES, "find " . $ARGV[0] . " -xdev -type f -print0 |");



$/ = "\0";



while (defined (my $file = )) {

   open (FRAG, "-|", "filefrag", $file);

   my $res = ;

   if ($res =~ m/.*:\s+(\d+) extents? found/) {

           my $fragment = $1;

           $fragments += $fragment;

           if ($fragment > 1) {

                   $fragfiles++;

           }

           $files++;

   } else {

           print ("$res : not understand for $file.\n");

   }

   close (FRAG);

}

close (FILES);



print ( $fragfiles / $files * 100 . "% non contiguous files, " . $fragments / $files . " average fragments.\n");

ошибки при исполнении:
syntax error at ./frag.pl line 18, near "= )"
Global symbol "$file" requires explicit package name at ./frag.pl line 19.
syntax error at ./frag.pl line 20, near "= ;"
Global symbol "$file" requires explicit package name at ./frag.pl line 29.
syntax error at ./frag.pl line 32, near "}"

Termo27,

1) Образец файла, который скрипт должен обработать приведите, что бы можно было проверить.
2) Опишите, что вообще делает данный скрипт.

это и есть сам файл.
он проверяет разделы и выводит количество фрагментированных файлов.
я разобрался, можно закрывать...