On Tue, 2 Aug 2005, Tarhon-Onu Victor wrote:
Am observat mai apoi niste diferente in ceea ce vrei tu (si
anume ai o fila pentru care ai valori cu in si a doua cu valori de out)
si in ce ti-am trimis eu, ar trebui ca scriptul de mai jos (cel initial
putin rescris) sa te ajute.
#!/usr/bin/perl
use strict;
my $pattern=shift(@ARGV);
my ($fila, $line, $FILA, $tmp);
if (!open(FILA, "$ARGV[0]")) {
print STDERR "Nu pot deschide fisier $ARGV[0]: $!\n";
exit;
}
while ($line=<FILA>) {
if ($line=~/$pattern/) {
$tmp=(split(/\|/, $line))[10];
$tmp=~s/\s+//;
print "in:$tmp\n";
}
}
close (FILA);
print "\n";
if (!open(FILA, "$ARGV[1]")) {
print STDERR "Nu pot deschide fisier $ARGV[1]: $!\n";
exit;
}
while ($line=<FILA>) {
if ($line=~/$pattern/) {
$tmp=(split(/\|/, $line))[10];
$tmp=~s/\s+//;
print "out:$tmp\n";
}
}
close (FILA);
Ma rog, cu un identificator de pozitie in array si o variabila
care sa ia valoarea "in" sau "out" se poate modifica scriptul initial sa
ia ca argumente un numar par de fisiere, cle cu numar de ordineimpar sa
fie in iar celelalte out.
--
Any views or opinions presented within this e-mail are solely those of
the author and do not necessarily represent those of any company, unless
otherwise expressly stated.
---
Detalii despre listele noastre de mail: http://www.lug.ro/
