а не работает скрипт то... 
вот скрипт:
#!/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 "}"
Execution of ./frag.pl aborted due to compilation errors.
я не кодер, я понимаю в какой строке ошибки, но не знаю как исправить.
не будет ли кто столь любезен, чтобы поправить скрипт?
заранее благодарю...
ПатреГ не любит Gnome...
:rolleyes:
это как?