Thank you for your help.
That is what I expect.
I have done some benchmarking on smaller files but I
did not see any time difference between the 2 coding
styles.
I am just wondering if these 2 codes are interpreted
in the same way by perl when it uilts its bytecode.
Selim.
--- [EMAIL PROTECTED] a �crit�: >
>
> Hello,
>
> Although I'm not an expert I suspect you will be
> faster doing
>
> $SIGNALS{$SIGNALNAME}= {isINPUTof=>[$1],
> isOUTPUTof=>[$2]};
>
> instead of predeclaring memory & pushing onto
> arrays. The above line should
> do all of that in one.
> Also, no need to test for existence of the key if
> you are happy that the
> key values are overwritten if the key already
> exists.
>
> Joe
>
>
>
>
>
>
> Tonuzi Selim
> <[EMAIL PROTECTED]>@listserv.ActiveState.com on
> 10/09/2002
> 13:23:51
>
>
>
> Sent by: [EMAIL PROTECTED]
>
>
> To: [EMAIL PROTECTED]
> cc:
> Subject: Is there a perl Guru that can help me ?
>
> Hi,
>
> I am sorry but I am not a programmer and I have no
> knowledge in C.
>
> I use Perl but every time, people get interest in my
> program and want it. I am trying to make it fast.
>
> I am parsing a text file that contains instances and
> wires linking these instances.
>
> I have millions of signals and I have some questions
> that might sounds stupid to programmes like you.
>
> first point :
>
> I have a hash with millions of keys.
>
> $SIGNALS{$SIGNALNAME}->{INPUTS} = [];
> $SIGNALS{$SIGNALNAME}->{OUTPUT} = [];
> $SIGNALS{$SIGNALNAME}->{LEVEL} = [];
>
> every time a get a txt portion describing a signal:
> I do the following thing :
>
> unless (exists $SIGNALS{$SIGNALNAME}) {
> $SIGNALS{$SIGNALNAME}={};
> $SIGNALS{$SIGNALNAME}->{isINPUTof}=[];
>
> }
> push(@{$SIGNALS{$SIGNALNAME}->{isINPUTof}},$1);
> push(@{$SIGNALS{$SIGNALNAME}->{isOUTPUTof}},$2);
> ...
>
> As I have millions of signals, I am trying to
> optimize
> some things.
>
> the keys are about 50 letters.
>
> is it better to do the following thing ?
>
> $tmp = $SIGNALS{$SIGNALSNAME}
> push(@{$tmp->{isINPUTof}},$1);
> push(@{$tmp->{isOUTPUTof}},$2);
>
> Would it be faster to replace 'isINPUTof' by 'I' and
> isOUTPUTof by 'O' ?
>
> I can't benchmark it because it will take days.
>
> Can somebody help me ?
>
>
___________________________________________________________
> Do You Yahoo!? -- Une adresse @yahoo.fr gratuite et
> en fran�ais !
> Yahoo! Mail : http://fr.mail.yahoo.com
> _______________________________________________
> ActivePerl mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
> http://listserv.ActiveState.com/mailman/mysubs
>
>
>
>
> _______________________________________________
> ActivePerl mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
___________________________________________________________
Do You Yahoo!? -- Une adresse @yahoo.fr gratuite et en fran�ais !
Yahoo! Mail : http://fr.mail.yahoo.com
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
