Numerele acelea le-am pus ..eu , din vim ! Din 19MB ..se duce la numere
mari !
Sorry acolo am gresit la raspuns :
Enter Aduna -> linia 3
Leave Aduna -> linia 8
Faza mai ciudata este ca exista metode de genul :
~~~~~~~~
100 ENTER: 04 System.AppDomain:DoAssemblyLoad
(object,intptr,intptr)([System.AppDomain:0x8069fc0], 0xbffff390, (nil),
)
101 . ENTER: 00 System.AppDomain:DoAssemblyLoad
(System.Reflection.Assembly)(this:0x8069fc0[System.AppDomain],
[System.Reflection.Assembly:0x80c5ff0], )
102 . . ENTER: 00 System.MulticastDelegate:op_Equality
(System.MulticastDelegate,System.MulticastDelegate)((nil), (nil), )
103 . . . LEAVE: 00 System.MulticastDelegate:op_Equality
(System.MulticastDelegate,System.MulticastDelegate)TRUE:1
104 . . LEAVE: 00 System.AppDomain:DoAssemblyLoad
(System.Reflection.Assembly)
.105 LEAVE: 04 System.AppDomain:DoAssemblyLoad
(object,intptr,intptr)[OBJECT:(nil)]
~~~~~~~~
in care prima metoda DoAssemblyLoad are anumiti parametri ( difera
semnatura de celei de-a doua !! ) si deci pt aceasta cerere
script.pl DoAssemblyLoad
raspunsul ar trebui sa fie :
Enter DoAssemblyLoad : linia 100
Leave DoAssemblyLoad : linia 105
cea cu parametrii = (object,intptr,intptr)
apeluri fc imbricate :2!
Multumesc mult !
-----Original Message---
--
From: zgrim<[EMAIL PROTECTED]>
To: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
Subject: [rlug] Re: Perl
> 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
