Hej
Jeg skriver simpelt perl script til at parse ftp log som nedenfor:
Byfortegnelse nu / home / user / test
227 Entering Passive Mode (192,254,19,34,8,228).
125 dataforbindelse allerede er åben; Transfer start.
09-25-09 02:33 25.333.629 abc.tar
09-14-09 12:50 18.015.752 xyz.zip
09-14-09 12:50 7.608.056 test.zip
226 Overførsel fuldført.
lokale: abc.tar fjernbetjening: abc.tar
227 Entering Passive Mode (192,254,19,34,8,230).

mit script nedenfor: --
#! / usr / bin /perl
$ r \u003d `/ bin / cat ftplog«;
@ linier \u003d split (/ \ n /, $ r);
foreach $ line (@ lines) (
if ($ line \u003d ~ m / abc.tar $ / i) (
$ remotefilesize \u003d $ line;
print "$ remotefilesize \ n";
)
)

output parse som nedenfor: \u003d
09-25-09 02:33 25.333.629 abc.tar
lokale: abc.tar fjernbetjening: abc.tar

SPØRGSMÅL?
Hvordan får jeg 25333629 abc.tar kun 25333629

Tak for hjælp eller vejledning

if ($line =~ m/(\d+)\s+abc.tar$/i) {
$remotefilesize=$1;
print"$remotefilesize\n";
}