> Cum sa il fac sa imi dea raspuns pa script.pl Aduna
> Enter Aduna -> linia 3
> Leave Enter -> linia 8
> 2 calls Enter/Leave !
Salut. Precizez de la inceput ca nu sunt programator, deci solutziile
mele in acest domeniu pot fi hilare. Cu toate astea, o rapida solutzie
ushor de intzeles ar putea fi ceva de genul:
my $c=0;
open (FILE,"< text_de_parsat") || die $!;
if (@ARGV < 1) { die "vreau argument!\n"; }
while ($_ = <FILE>){
if ($_ =~ /^(\d+).+(ENTER|LEAVE)\:.+Tester\:($ARGV[0])./){
print "Linia $1 - $2 - $ARGV[0]\n";
$c++;
}
}
print "Total $c ocurentze :)\n";
Si poate totusi nu am intzeles problema.
Bafta,
zgrim
