Eto edin Perl script koito mozhe da ti svurshi rabota:
#!/usr/bin/perl
format STDOUT =
@<<<<<<<<<< @< @<<<<<<<<<< @<<<<<<<<<< @#####.### @<<< @<<
@<<<< @<<<<<<<<<<<<<<<
$a, $b, $c, $d, $e, $f, $g, $h, $i
.
open(DAT, "ls -l |");
while ($line=<DAT>) {
($a, $b, $c, $d, $e, $f, $g, $h, $i) =
split(' ', $line);
$e = $e/1024;
if ($c ne "") {
write;
}
}
close DAT;
vmesto
/usr/bin/perl
saotvetno path-a do tvoya Perl-interpretator.
Chao
|