[7497] in Perl-Users-Digest
Perl-Users Digest, Issue: 1123 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 3 20:07:24 1997
Date: Fri, 3 Oct 97 17:00:20 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 3 Oct 1997 Volume: 8 Number: 1123
Today's topics:
E-card script error <mgranath@algonet.se>
foreach my $elem (@elements) - doesn't work! <jwillia@medicode.com>
Re: foreach my $elem (@elements) - doesn't work! (Matthew Cravit)
Re: How to telnet from perl using cron? (Mark Newman)
IPC question on listen() Gerben_Wierda@RnA.nl
Re: IPC question on listen() (Matthew Cravit)
Re: New Perl syntax idea (Gurusamy Sarathy)
Re: PERL and serial port <jeep@rahul.net>
Problems with CGI::* Module example <irogers@biggun.com>
Re: PROOF: VB FASTER THAN PERL, C, C++ (Brian Wheeler)
Re: PROOF: VB FASTER THAN PERL, C, C++ <xrcc0494@dcaca037.ca.boeing.com>
Re: STDERR capture <westxga@ptsc.slg.eds.com>
Re: Test for alphabetic character? <westxga@ptsc.slg.eds.com>
Re: Using Perl Format <IggieBee@worldnet.att.net>
Win32::OLE, SQL Server Question <mwilso@sapient.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Oct 1997 22:50:24 GMT
From: "Mikael Granath" <mgranath@algonet.se>
Subject: E-card script error
Message-Id: <01bcd04f$1d453580$799364c3@komjotr>
I have a problem....
I'm trying to run a e-card script but when I'm pressing the submit-button
(Skicka kortet) I'm having "Server error". Can anyone tell me why??? The
page is http://www.algonet.se/~mgranath/postcard.html I'm also attach the
pl file
*************************************
Titta in i bageriet och baka en kaka!
http://www.algonet.se/~mgranath
*************************************
begin 600 postcard.pl
M(R$O=7-R+VQO8V%L+V)I;B]P97)L(" -"B,C(R,C(R,C(R,C(R,C(R,C(R,C
M(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C
M(R,C(R,C(R,C(R,C(PT*(R!0;W-T8V%R9"YC9VD@1G)E92!V97)S:6]N(2!"
M97=L97D@26YT97)N970@4V]L=71I;VYS(#QD86QE0&)E=VQE>2YN970^#0IM
M>2 D5D524TE/3CTG4&]S=&-A<F0N8V=I('8Q+C!B-B<[(",P,RTQ,2TY-R @
M#0HC+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T-"B,@5&AI<R!S
M8W)I<'0@86YD(&]T:&5R<R!F;W5N9"!A="!H='1P.B\O=W=W+F)E=VQE>2YN
M970O<&5R;"\-"B,-"B,@0D5402!615)324].( T*(R!9970@=&\@8F4@8VQE
M86YE9"!U<"!I;G1O(&9I;F%L(&9O<FTL(&)U="!S965M<R!T;R!W;W)K('=E
M;&PN#0HC#0HC("!4:&ES(&ES(&$@9G)E92!V97)S:6]N(&]F('1H92!"25,@
M4&]S=&-A<F0N8V=I+B!)="!U<V5S(&$@9FQA="!F:6QE#0HC("!P<V5U9&\@
M9&%T86)A<V4@=&\@<W1O<F4@=&AE(&-A<F1S+B!!('!A>2!V97)S:6]N(&ES
M(&9O<G1H8V]M:6YG#0HC("!W:&EC:"!W:6QL(&AA=F4@;6]R92!F96%T=7)E
M<R!A;F0@82!D871A8F%S92!B86-K96YD+B!%:71H97(@9&)M(&]R(&UY<W%L
M+@T*(PT*(R!)3E-404Q,051)3TX@24Y35%)50U1)3TY3+@T*(PT*(R Q+B!4
M:&ES('!R;V=R86T@<F5Q=6ER97,@>6]U('1O(&AA=F4@0T=)+G!M(&EN<W1A
M;&QE9"!O;B!Y;W5R('-Y<W1E;2X@#0HC( E3964Z(&AT=' Z+R]W=W<M9V5N
M;VUE+G=I+FUI="YE9'4O9G1P+W!U8B]S;V9T=V%R92]75U<O(VEN<W1A;&QA
M=&EO;@T*(PT*(R R+B!-86ME('-U<F4@=&AE(&QI;F4@870@=&AE('1O<"!P
M;VEN=',@=&\@<&5R;"!O;B!Y;W5R('-Y<W1E;2X@#0HC(" @(%EO=2!M:6=H
M="!F:6YD(&]U="!I9B!Y;W4@='EP92 B=VAI8V@@<&5R;"(@;VX@=&AE(%5.
M25@@8V]M;6%N9"!L:6YE+@T*(PT*(R S+B!%9&ET('1H92!U<V5R(&-O;F9I
M9W5R86)L92!V87)I86)L97,@;F5A<B!T:&4@=&]P(&]F('1H92!S8W)I<'0N
M#0HC#0HC(#0N($%S:R!Y;W5R($E34"!W:&5R92!Y;W4@8V%N(')U;B!#1TD@
M9G)O;2X@4V]M971I;65S('EO=2!M=7-T(&-A;&P@:70@#0HC(" @('1H<F]U
M9V@@82!W<F%P<&5R(&%N9"!L;V-A=&4@:70@:6X@82!C9VDM8FEN(&1I<F5C
M=&]R>2X@4V]M971I;65S(&ET#0HC(" @(&ES('-U9F9I8VEE;G0@=&\@9VEV
M92!I="!A(&YA;64@96YD:6YG(&EN("YC9VDN(%1H:7,@:7,@=&AE(&-A<V4@
M;VX@#0HC(" @(&)E=VQE>2YN970N($EN<W1A;&P@87,@=&AE>2!D:7)E8W0N
M#0HC#0HC(#4N($UA:V4@<W5R92!T:&4@0T=)(&AA<R!W<FET92!P97)M:7-S
M:6]N('1O("1$051!7T9)3$4N($EF('EO=2!U<V4@80T*(R @("!W<F%P<&5R
M(&ET('=I;&PN($EF(&YO="!Y;W4@;6%Y(&AA=F4@=&\@;6%K92!T:&4@9FEL
M92!A;F0@9&ER96-T;W)Y#0HC(" @(&-O;G1A:6YI;F<@:70@=&\@=V]R;&0@
M=W)I=&%B;&4N($%S:R!Y;W5R($E34"!F;W(@:&5L<"X-"B,-"B,@-BX@0W)E
M871E('EO=7(@:6YD97@@<&%G92X@4V%M<&QE(&%T.@T*(R @("!H='1P.B\O
M=W=W+F)E=VQE>2YN970O<&]S=&-A<F0O( T*(PT*(R!4;V1O.@T*(R @(" @
M;R!!9&0@;W!T:6]N('1O(')E;6]V92!C87)D('=H96X@=FEE=V5D+"!O=F5R
M<FED:6YG("1#05)$7TQ)1D4N#0HC#0HC(" @("!O($%D9"!A(&9E871U<F4@
M=&AA="!W:6QL(&%U=&]M871I8V%L;'D@8W)E871E('1H92!T:'5M8FUA:6P@
M:6YD97@-"B,)<V\@>6]U(&-A;B!J=7-T(&1R;W @<&]S=&-A<F0N8V=I(&EN
M=&\@82!D:7(@;V8@9W)A<&AI8W,@86YD(&9L>2X-"B,-"B,@(" @(&\@0W)E
M871E(&$@9&)M('9E<G-I;VXN#0HC#0HC(" @("!O($%D9"!T96UP;&%T92!S
M=7!P;W)T(&9O<B!P;W-T8V%R9"!O=71P=70N#0HC#0HC(" @("!O($-L96%N
M('5P+@T*(PT*(PT*(R!#;W!Y<FEG:'0@*$,I(#$Y.3<@1&%L92!"97=L97DL
M($)E=VQE>2!);G1E<FYE="!3;VQU=&EO;G,@/&1A;&5 8F5W;&5Y+FYE=#X-
M"B,-"B,@5&AI<R!P<F]G<F%M(&ES(&9R964@<V]F='=A<F4[('EO=2!C86X@
M<F5D:7-T<FEB=71E(&ET(&%N9"]O<@T*(R!M;V1I9GD@:70@=6YD97(@=&AE
M('1E<FUS(&]F('1H92!'3E4@1V5N97)A;"!0=6)L:6,@3&EC96YS90T*(R!A
M<R!P=6)L:7-H960@8GD@=&AE($9R964@4V]F='=A<F4@1F]U;F1A=&EO;CL@
M96ET:&5R('9E<G-I;VX@,@T*(R!O9B!T:&4@3&EC96YS92P@;W(@*&%T('EO
M=7(@;W!T:6]N*2!A;GD@;&%T97(@=F5R<VEO;BX-"B,-"B,@5&AI<R!P<F]G
M<F%M(&ES(&1I<W1R:6)U=&5D(&EN('1H92!H;W!E('1H870@:70@=VEL;"!B
M92!U<V5F=6PL#0HC(&)U="!7251(3U54($%.62!705)204Y463L@=VET:&]U
M="!E=F5N('1H92!I;7!L:65D('=A<G)A;G1Y(&]F#0HC($U%4D-(04Y404))
M3$E462!O<B!&251.15-3($9/4B!!(%!!4E1)0U5,05(@4%524$]312X@(%-E
M92!T:&4-"B,@1TY5($=E;F5R86P@4'5B;&EC($QI8V5N<V4@9F]R(&UO<F4@
M9&5T86EL<RX-"B,-"B,@66]U('-H;W5L9"!H879E(')E8V5I=F5D(&$@8V]P
M>2!O9B!T:&4@1TY5($=E;F5R86P@4'5B;&EC($QI8V5N<V4-"B,@86QO;F<@
M=VET:"!T:&ES('!R;V=R86T[(&EF(&YO="P@=W)I=&4@=&\@=&AE($9R964@
M4V]F='=A<F4-"B,@1F]U;F1A=&EO;BP@26YC+BP@-C<U($UA<W,@079E+"!#
M86UB<FED9V4L($U!(# R,3,Y+"!54T$N#0HC#0HC(R,C(R,C(R,C(R,C(R,C
M(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C
M(R,C(R,C(R,C(R,C(R,C(R,-"@T*(RT@57-E<B!#;VYF:6=U<F%B;&4@5F%R
M:6%B;&5S("TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TC#0HC(&5X<&5R:6UE;G1I;F<@<FEG:'0@;F]W+B!B<F]K96XN
M+BX@(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(",-
M"B,@0VAA;F=E('1H97-E('9A;'5E<R!T;R!F:70@>6]U<B!S:71E+B @(" @
M(" @(" @(" @(" @(" @(",-"B -"B,@9G5L;"!54DP@=&\@<&]S=&-A<F0@
M:&]M97!A9V4-"FUY("1"05-%7U)%1B @/2 G:'1T<#HO+W=W=RYA;&=O;F5T
M+G-E+WYM9W)A;F%T:"]P;W-T8V%R9"YH=&UL)SL-"B -"B,@3G5M8F5R(&]F
M(&1A>7,@=&\@:V5E<"!C87)D(&%R;W5N9"!B969O<F4@<F5M;W9I;F<@:70N
M#0IM>2 D0T%21%],249%(" ](#<[#0H-"B,@9G5L;"!P871H('1O('!O<W1C
M87)D(&1A=&$@9FEL92X@5&AE('!R;V=R86T@=VEL;"!C<F5A=&4@=&AI<R!F
M:6QE+@T*;7D@)$1!5$%?1DE,12 ]("<O:6UP;W)T+W5S97(Q+VUG<F%N871H
M+W!U8FQI8U]H=&UL+W!O<W1C87)D+W!O<W1C87)D+F1A="<[( T*( T*(R!F
M=6QL(&]R(')E;&%T:79E(%523"!L;V-A=&EO;B!O9B!I;6%G97,@#0IM>2 D
M24U'7U523" @(#T@)VAT=' Z+R]W=W<N86QG;VYE="YS92]^;6=R86YA=&@O
M8FEL9&5R+R<["0T*( T*(R!T:&ES(&ES('1H92!R971U<FX@861D<F5S<R!U
M<V5R<R!G970@=&AE:7(@<&]S=&-A<F0@;F]T:6-E(&9R;VTN#0IM>2 D34%)
M3%]&4D]-(#T@)VUG<F%N871H0&%L9V]N970N<V4G.PT*#0HC(&UO<W0@;&EK
M96QY('1H:7,@:7,@8V]R<F5C= T*;7D@)$U!24Q?4%)/1R @/2 G+W5S<B]L
M:6(O<V5N9&UA:6P@+6D@+70G.PT*#0HC(&9U;&P@55),('1O('!I8VMU<"!P
M;W-T8V%R9"X@(C]C;V1E/5]?7U\B('=I;&P@8F4@861D960@875T;VUA=&EC
M86QL>2X-"FUY("1024-+55!?55),(" ]("=H='1P.B\O8V=I+F%L9V]N970N
M<V4O:'1B:6XO8V=I=W)A<"]M9W)A;F%T:"]P;W-T8V%R9"YP;"<[#0H-"B,@
M<W5B:F5C="!O9B!E;6%I;"!N;W1I9FEC871I;VYS#0IM>2 D4U5"2D5#5" ]
M("="86=A<FMO<G0A)SL-"@T*(R!L;V-A=&EO;B!O9B!T:'5M8FYA:6QS(')E
M;&%T:79E('1O(&EM86=E<RX@5&AI<R!I<R!U;G5S960@<FEG:'0@;F]W+@T*
M;7D@)%1(54U"7T1)4B @/2 G:'1T<#HO+W=W=RYA;&=O;F5T+G-E+WYM9W)A
M;F%T:"]B:6QD97(G.PD-"B -"B,@5&AA="=S(&ET(2 @(" @(" @(" @(" @
M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
M(" @(" @(PT*(R @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" C#0HC
M+2!%;F0@57-E<B!#;VYF:6<@+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2,-"@T*#0HC+2!-86EN
M(%!R;V=R86T@+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2,-"B,@=6YC;VUE;G0@9F]L;&]W
M:6YG(&1I<W!L87D@97)R;W)S('1O('1H92!B<F]W<V5R(&9O<B!D96)U9V=I
M;F<@:&5L< T*(R @($)%1TE.('L-"B,@(" @('5S92!#1TDZ.D-A<G @<7<H
M8V%R<&]U="D[#0HC(" @("!C87)P;W5T*%-41$]55"D[#0HC(" @?0T*#0IU
M<V4@0T=).PT*(R!4:&ES('=I;&P@<'5T(&UO<F4@=7-E9G5L(&EN9F]R;6%T
M:6]N(&EN('EO=7(@97)R;W)?;&]G#0IU<V4@0T=).CI#87)P.R -"@T*;7D@
M)&-R96%T95]T:6UE(#T@=&EM92@I.PT*#0HD1D]232 ](&YE=R!#1TD[#0H-
M"FEF("@D1D]232T^<&%R86TH)V-O9&4G*2D@>PT*"7!R:6YT("1&3U)-+3YH
M96%D97([#0H)*"9S96QE8W1#87)D*"1&3U)-+3YP87)A;2@G8V]D92<I*2 F
M)B F9&ES<&QA>4-A<F0I('Q\("9C;VYS;VQE.PT*"7!R:6YT("(\<#X\82!H
M<F5F/21"05-%7U)%1CY396YD('EO=7(@;W=N('!O<W1C87)D('1O('-O;65O
M;F4A/"]A/CPO<#XB.PT*?2!E;'-I9B H(2 D1D]232T^<&%R86TH)W)C<'0G
M*2D@>PT*"7!R:6YT("1&3U)-+3YH96%D97([#0H))G-O;&EC:71-<V<[#0I]
M(&5L<V4@>PT*"29M86ME0V%R9#L-"@DF;F]T:69Y4F-P=#L-"@EP<FEN=" D
M1D]232T^<F5D:7)E8W0H)%!)0TM54%]54DP@+B B/V-O9&4])&-R96%T95]T
M:6UE(B N( T*"0DD1D]232T^<&%R86TH)W)C<'0G*2D[#0I]#0H-"B,@<&QE
M87-E(&QE879E('1H97-E(#,@;&EN97,@:6YT86-T(0T*<')I;G0@(CQF;VYT
M('-I>F4]+3$^7&X@/&$@:')E9CU<(FAT=' Z+R]W=W<N8F5W;&5Y+FYE="]P
M97)L+W!O<W1C87)D+FAT;6Q<(CXB.PT*<')I;G0@(B1615)324]./"]A/EQN
M(&)Y(#QA(&AR968]7")H='1P.B\O=W=W+F)E=VQE>2YN970O7"(^0F5W;&5Y
M($EN=&5R;F5T("([#0IP<FEN=" B4V]L=71I;VYS/"]A/BY<;CPO9F]N=#XB
M.PT*#0IP<FEN=" D1D]232T^96YD7VAT;6P[#0H-"B,@:68@<W5B('-E;&5C
M=$-A<F0@9&ES8V]V97)S(&%N(&5X<&ER960@8V%R9"!I="!G971S('!U="!O
M;B! 9&5A=&A?<F]W#0II9B H0&1E871H7W)O=RD@>PT*"29E>&5C=71E0V%R
M9',H0&1E871H7W)O=RD[#0I]#0H-"B,M($5N9"!-86EN(%!R;V=R86T@+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2,-"@T*#0H-"G-U8B!S;VQI8VET37-G('L-"@DC($%S:R!W
M:&%T('1H97D@=V%N="!O;B!T:&5I<B!T;VUB<W1O;F4N+BX@22!M96%N('!O
M<W1C87)D(0T*"7!R:6YT("1&3U)-+3YS=&%R=%]H=&UL*"UT:71L93T^)U-K
M<FEV(&5T="!V>6MO<G0A)RP-"@D)+6%U=&AO<CT^)V1A;&5 8F5W;&5Y+FYE
M="<L#0H)"2U"1T-/3$]2/3XB(V9F9F9F9B(L#0H)"2U"04-+1U)/54Y$/3XB
M:'1T<#HO+W=W=RYA;&=O;F5T+G-E+WYM9W)A;F%T:"]B:6QD97(O=FEN:F5T
M="YJ<&<B*3L-"@T*"2,@=&AI<R!W:6QL(&)E(&9I;&QE9"!I9B!U<V5R(&9O
M<F=E=',@=&\@<W5P<&QY(&$@5&\Z(&5M86EL#0H))'!H;W1O(#T@)$9/4DTM
M/G!A<F%M*"=I;6<G*3L-"@DC(&]T:&5R=VES92XN+@T*"6EF("@A("1P:&]T
M;RD@>PT*"0DC(&9I;&5N86UE(&-O;65S(&EN(&QI:V4@=&AI<PT*"0DC(&)I
M9RYJ<&<N>#TR,R9B:6<N:G!G+GD],3(R('-O('!U;&P@:70@9G)O;2!I;G!U
M= T*"0DC('-I;F-E('=E(&1O;B=T(&MN;W<@=&AE(&EM86=E(&9I;&5N86UE
M+"!W92!D;VXG="!K;F]W#0H)"2,@=&AE(&9I96QD(&YA;64L('-O('-E87)C
M:"!T:&5M(&%L; T*"0E 9FEE;&1S(#T@)$9/4DTM/G!A<F%M*"D[#0H)"69O
M<F5A8V@@)&9I96QD("A 9FEE;&1S*2![#0H)"0EI9B H)&9I96QD(#U^(',O
M7"YX)"\O*2![#0H)"0D))'!H;W1O(#T@)&9I96QD.R -"@D)"7T-"@D)?0T*
M"7T-"@T*"7!R:6YT("(\:#(^4VMR:78@:6X@9&ET="!M961D96QA;F1E(&D@
M=GEK;W)T970\+V@R/EQN7&XB.PT*"7!R:6YT("1&3U)-+3YS=&%R=&9O<FTH
M+6UE=&AO9#T^)U!/4U0G*3L-"@EP<FEN=" B/&-E;G1E<CY<;CQT86)L92!B
M;W)D97(]-3Y<;B([#0H)<')I;G0@(CQT<CX\=&0^7&XB.PT*"7!R:6YT("(\
M9&P^7&XB.PT*"7!R:6YT("(\9'0^/&(^36]T=&%G87)E;G,@92UM86EL861R
M97-S.CPO8CY<;CQD9#XB.PT*"7!R:6YT("1&3U)-+3YT97AT9FEE;&0H+6YA
M;64]/B=R8W!T)RD[#0H)<')I;G0@(EQN/&1T/CQB/D1I;B!E+6UA:6QA9')E
M<W,Z/"]B/EQN/&1D/B([#0H)<')I;G0@)$9/4DTM/G1E>'1F:65L9"@M;F%M
M93T^)V9R;VTG*2P@(CQP/EQN(CL-"@EP<FEN=" B/&1T/CQB/DUE9&1E;&%N
M9&4Z/"]B/EQN/&1D/B([#0H)<')I;G0@)$9/4DTM/G1E>'1A<F5A*"UN86UE
M/3XG;7-G)RP-"@D)+7)O=W,]/C$P+ T*"0DM8V]L<ST^,S I.PT*#0H)<')I
M;G0@(CQB<CY<;B(L("1&3U)-+3YS=6)M:70H+6YA;64]/B=3:VEC:V$@:V]R
M=&5T(2<I+" B/"]D;#Y<;B([#0H)<')I;G0@(CPO=&0^7&X\=&0^7&XB.PT*
M"7!R:6YT("(\=&%B;&4@8F]R9&5R/3$^/'1R/CQT9#XB.PT*"7!R:6YT("(\
M:6UG('-R8STB+" D24U'7U523"P@)'!H;W1O+" B/B([#0H)<')I;G0@)$9/
M4DTM/FAI9&1E;B@M;F%M93T^)VEM9R<L#0H)"0DM=F%L=64]/B1P:&]T;RDL
M("(\8G(^7&XB.PT*"7!R:6YT("(\+W1D/CPO='(^/"]T86)L93Y<;B([#0H)
M<')I;G0@(CPO=&0^/"]T<CY<;CPO=&%B;&4^7&X\+V-E;G1E<CXB.PT*"7!R
M:6YT("1&3U)-+3YE;F1F;W)M.PT*"7!R:6YT("(\+V-E;G1E<CY<;EQN(CL-
M"GT-"@T*<W5B(&UA:V5#87)D('L-"@DC(%=R:71E(&-A<F0@=&\@1$%405]&
M24Q%#0H);7D@)&US9R ]("1&3U)-+3YP87)A;2@G;7-G)RD[#0H)(R!54DP@
M96YC;V1E('1H92!M97-S86=E#0H))&US9R ]?B!S+RA<5RDO('-P<FEN=&8H
M(B4E)3 R>"(L;W)D*"0Q*2DO96<[#0H))$9/4DTM/G!A<F%M*"=M<V<G+"1M
M<V<I.R -"@T*"6]P96X@*$9(+" B/CXD1$%405]&24Q%(BD@?'P@9&EE(")#
M86XG="!O<&5N("1$051!7T9)3$4@9F]R('=R:71E+B D(2([#0H)(R!C;V1E
M+"!R96-I<&EE;G0L('-E;F1E<BP@:6UA9V4L(&UE<W-A9V4N( T*"7!R:6YT
M($9(("1C<F5A=&5?=&EM92P@(EPP(CL-"@EP<FEN="!&2" D1D]232T^<&%R
M86TH)W)C<'0G*2P@(EPP(CL-"@EP<FEN="!&2" D1D]232T^<&%R86TH)V9R
M;VTG*2P@(EPP(CL-"@EP<FEN="!&2" D1D]232T^<&%R86TH)VEM9R<I+" B
M7# B.PT*"7!R:6YT($9(("1&3U)-+3YP87)A;2@G;7-G)RDL(")<;B([#0H)
M8VQO<V4@1D@[#0I]#0H-"G-U8B!N;W1I9GE28W!T('L-"B @(" @(" @(R!,
M970@=&AE(')E8VEP:65N="!K;F]W('1H97D@:&%V92!A('!O<W1C87)D('=A
M:71I;F<N#0H);W!E;BA-04E,+" B?"1-04E,7U!23T<B*2!\?"!D:64@(D-A
M;B=T(&]P96X@)$U!24Q?4%)/1RX@)"$B.PT*"7!R:6YT($U!24P@(D9R;VTZ
M("(L("1-04E,7T923TTL(")<;B([#0H)<')I;G0@34%)3" B5&\Z("(L("1&
M3U)-+3YP87)A;2@G<F-P="<I+" B7&XB.PT*"7!R:6YT($U!24P@(E-U8FIE
M8W0Z("1354)*14-47&Y<;B([#0H)<')I;G0@34%)3" B1W)E971I;F=S(5QN
M7&Y3;VUE;VYE(&AA<R!F:6QL960@;W5T(&$@<&]S=&-A<F0@:6X@>6]U<B B
M.PT*"7!R:6YT($U!24P@(FYA;64A7&Y<;EEO=2!H879E("1#05)$7TQ)1D4@
M9&%Y<R!T;R!P:6-K(&ET('5P(&9R;VTZ7&XB.PT*"7!R:6YT($U!24P@(B D
M4$E#2U507U523#]C;V1E/21C<F5A=&5?=&EM92(@+B D1D]232T^<&%R86TH
M)W)C<'0G*3L-"@EP<FEN="!-04E,(")<;EQN66]U<B!P;W-T8V%R9"!P86PL
M7&X@)$U!24Q?1E)/35QN7&XB.PT*"6-L;W-E($U!24P[#0I]#0H-"G-U8B!S
M96QE8W1#87)D('L-"@DC(&=I=F5N(&$@8V]D92P@9FEN9"!T:&4@<F5A;&-O
M9&4@:6X@1$%405]&24Q%#0H@(" @(" @(",@<F5A;"!P:6-K=7 @8V]D92!I
M<R D8W)E871E7W1I;64@+B!R8W!T#0H@(" @(" @(&UY("1C:&5C:U]C;V1E
M(#T@<VAI9G0[(",@<V]M971H:6YG(&QI:V4@.#<U,S$Q,C)D86QE0&)E=VQE
M>2YN970-"@EM>2 D87!O8V]L>7!S92 ]("1C<F5A=&5?=&EM92 M("@X-C0P
M," J("1#05)$7TQ)1D4I.R -"@T*"6]P96X@*$9(+" B/"1$051!7T9)3$4B
M*2!\?"!D:64@)"$[#0H)=VAI;&4@*#Q&2#XI('L-"@D)(R!C:&5C:R!F;W(@
M97AP:7)E9"!C87)D<R!H97)E#0H)"2@D<F5A;&-O9&4L)')C<'0I(#T@<W!L
M:70H+UPP+RPD7RPR*3L-"@D):68@*"1R96%L8V]D92 \("1A<&]C;VQY<'-E
M*2![('!U<V@H0&1E871H7W)O=RP@)')E86QC;V1E*3L@?0T*#0H)"2,@;6EG
M:'0@=&AI<R!B92!A(&UA=&-H/R!-;W-T(&QI:V5L>2X-"@D):68@*"1C:&5C
M:U]C;V1E(#U^("]>)')E86QC;V1E+RD@>PT*"0D)*"1R96%L8V]D92PD<F-P
M="PD9G)O;2PD:6UG+"1M<V<I(#T@<W!L:70H+UPP+RD[#0H)"0DH)'-E8RP@
M)&UI;BP@)&AO=7(L("1M9&%Y+" D;6]N+" D>65A<BD@/2 -"@D)"0EL;V-A
M;'1I;64H)&-H96-K7V-O9&4I.PT*"0D))&1A=&4@/2!S<')I;G1F("@B)3 R
M<R\E,#)D+R4P,F0@)3 R9#HE,#)D.B4P,F0B+" -"@D)(" @(" @(" @(" @
M(" @("LK)&UO;BP@)&UD87DL("1Y96%R+" D:&]U<BP@)&UI;BP@)'-E8RD[
M#0H)"0DC)&1A=&4@/2 K*R1M;VX@+B(O)&UD87DO)'EE87(@)&AO=7(Z)&UI
M;CHD<V5C(CL-"@D)"21M<V<@/7X@<R\E*%LP+3EA+69!+49=>S)]*2]P86-K
M*")C(BQH97@H)#$I*2]G93L-"@D)"21R96%L8V]D92 N/2 D<F-P=#L-"@D)
M"6EF("@D8VAE8VM?8V]D92!E<2 D<F5A;&-O9&4I('L@<F5T=7)N(#$[('T@
M(R!B:6YG;R$-"@D)?0T*"7T-"@ER971U<FX@,#L-"GT-"@T*<W5B(&1I<W!L
M87E#87)D('L-"@DC(&QA=&5R(&%D9"!S=7!P;W)T('1O('!U;&P@:6X@82!T
M96UP;&%T92!H97)E(&EN<W1E860@;V8@:&%R9"!C;V1E#0H@(" @(" @('!R
M:6YT("1&3U)-+3YS=&%R=%]H=&UL*"UT:71L93T^)TAE<F4@:7,@>6]U<B!P
M;W-T8V%R9"X@5&AA;FL@>6]U(2<L#0H@(" @(" @(" @(" @(" M875T:&]R
M/3XG9&%L94!B97=L97DN;F5T)RP-"B @(" @(" @(" @(" @("U"1T-/3$]2
M/3XB(V9F9F9F9B(L#0H)"0D@(" M0D%#2T=23U5.1#T^(FAT=' Z+R]W=W<N
M86QG;VYE="YS92]^;6=R86YA=&@O8FEL9&5R+W9I;FIE='0N:G!G(BD[#0H)
M<')I;G0@(CQH,3Y9;W5R(%!O<W1C87)D.CPO:#$^7&Y<;B([#0H)<')I;G0@
M(CQC96YT97(^7&X\=&%B;&4@8F]R9&5R/34^7&XB.PT*"7!R:6YT("(\='(^
M/'1D('9A;&EG;CUT;W @8V5L;'!A9&1I;F<],SY<;B([#0H)<')I;G0@(CQB
M/D9R;VTZ/"]B/B \82!H<F5F/6UA:6QT;SHD9G)O;3XD9G)O;3PO83X\8G(^
M7&XB.PT*"7!R:6YT("(\8CY4;SH\+V(^("1R8W!T/&)R/EQN(CL-"@EP<FEN
M=" B/&(^1&%T93H\+V(^("1D871E/' ^7&XB.PT*"7!R:6YT("(\<#X\8CY-
M97-S86=E.CPO8CX\+W ^7&XB.PT*"7!R:6YT("(\8FQO8VMQ=6]T93XD;7-G
M/"]B;&]C:W%U;W1E/EQN(CL-"@EP<FEN=" B/"]T9#Y<;CQT9#Y<;B([#0H)
M<')I;G0@(CQT86)L92!B;W)D97(],3X\='(^/'1D/CQI;6<@<W)C/2([#0H)
M<')I;G0@)$E-1U]54DPL("1I;6<L("(^/"]T9#X\+W1R/CPO=&%B;&4^7&XB
M.PT*"7!R:6YT("(\+W1D/CPO='(^7&X\+W1A8FQE/EQN/"]C96YT97(^(CL-
M"GT-"@T*<W5B(&-O;G-O;&4@>PT*(" @(" @("!P<FEN=" D1D]232T^<W1A
M<G1?:'1M;"@M=&ET;&4]/B=3;W)R>2$G+ T*(" @(" @(" @(" @(" @+6%U
M=&AO<CT^)V1A;&5 8F5W;&5Y+FYE="<L#0H@(" @(" @(" @(" @(" M0D=#
M3TQ/4CT^(B-F9F9F9F8B*3L-"@EP<FEN=" B/&@Q/E-O<G)Y(3PO:#$^($5I
M=&AE<B!Y;W5R(&-O9&4@:7,@:6YV86QI9" B.PT*"7!R:6YT(")O<B!Y;W5R
M(&-A<F0@:&%S(&5X<&ER960N/' ^7&XB.PT*?0T*#0IS=6(@97AE8W5T94-A
M<F1S('L-"@DC(')E;6]V92!E>'!I<F5D(&-A<F1S(&9R;VT@9&%T82!F:6QE
M#0H);7D@0&1E871H7W)O=R ]($!?.PT*#0H);W!E;BA/3$0L("(\)$1!5$%?
M1DE,12(I('Q\( T*"0ED:64@(D-A;B=T(&]P96X@)$1!5$%?1DE,12!I;G!U
M="X@)"$B.PT*"29L;V-K1FEL92A/3$0I.PT*#0H);W!E;BA.15<L("(^)$1!
M5$%?1DE,12YT;7 B*2!\?" -"@D)9&EE(")#86XG="!O<&5N("1$051!7T9)
M3$4N=&UP(&]U<'5T+B D(2([#0H))FQO8VM&:6QE*$Y%5RD[#0H-"@EM>2 D
M9V]O9%]A<U]D96%D(#T@:F]I;B@G?"<L0&1E871H7W)O=RD[#0H);7D@)'-O
M=6P[#0H)=VAI;&4@*"1S;W5L(#T@/$],1#XI('L-"@D)<')I;G0@3D57("1S
M;W5L('5N;&5S<R H)'-O=6P@/7X@+UXD9V]O9%]A<U]D96%D+V\I.PT*"7T-
M"@T*"6-L;W-E($],1#L-"@EC;&]S92!.15<[#0H))G5N;&]C:T9I;&4H3D57
M*3L-"@ER96YA;64H(B1$051!7T9)3$4N=&UP(BPB)$1!5$%?1DE,12(I('Q\
M( T*"0ED:64@(D-A;B=T(')E;F%M92 D1$%405]&24Q%+G1M<"!T;R D1$%4
M05]&24Q%+B D(2([#0H))G5N;&]C:T9I;&4H3TQ$*3L-"GT-"@T*<W5B(&QO
M8VM&:6QE('L-"@EL;V-A;"@D1D@I(#T@0%\[#0H);&]C86PH)'1R>2D@/2 P
M.PT*"6QO8V%L*"1S=&%T=7,I(#T@,#L-"@T*"7=H:6QE("@D<W1A='5S("$]
M(# I('L-"@D))'-T871U<R ](&9L;V-K*"1&2"P@,BD[#0H)"2@D=')Y(#T]
M(#0I("8F(&QA<W0[#0H)"21S=&%T=7,@)B8@<VQE97 H,2D[#0H)"21T<GDK
M*SL-"@E]#0I]#0H-"G-U8B!U;FQO8VM&:6QE('L-"@EL;V-A;"@D1D@I(#T@
;0%\[#0H)9FQO8VLH)$9(+" X*3L-"GT-"@T*
`
end
------------------------------
Date: Fri, 03 Oct 1997 16:35:44 -0600
From: Jerry Williams <jwillia@medicode.com>
Subject: foreach my $elem (@elements) - doesn't work!
Message-Id: <3435733F.73E30D52@medicode.com>
#!/usr/bin/perl -w
use strict;
use diagnostics;
my @elements;
##my $elem;
@elements=(1,2,3,4);
foreach my $elem (@elements) {
print "$elem\n";
}
returns:
Missing $ on loop variable at ./tp line 7.
This is right out of the perlsyn manual page. It would appear that you
can't use my
to declare the variable in the foreach loop. Is this a bug? Or are the
docs wrong?
Or is this a version thing. I am running perl5.003. Or is there
something that I am missing? Thanks for any help!
------------------------------
Date: 3 Oct 1997 15:57:50 -0700
From: mcravit@best.com (Matthew Cravit)
Subject: Re: foreach my $elem (@elements) - doesn't work!
Message-Id: <613t9e$9p1$1@shell3.ba.best.com>
In article <3435733F.73E30D52@medicode.com>,
Jerry Williams <jwillia@medicode.com> wrote:
>foreach my $elem (@elements) {
[ Snip ]
>Missing $ on loop variable at ./tp line 7.
>[...] is this a version thing. I am running perl5.003. Or is there
This is apparently a version thing. The perldelta manpage for 5.004
(which lists the things which have changed since 5.003) has this
to say:
Also, you can declare a foreach loop control variable
as lexical by preceding it with the word "my". For
example, in:
foreach my $i (1, 2, 3) {
some_function();
}
$i is a lexical variable, and the scope of $i extends
to the end of the loop, but not beyond it.
I'm not sure how it was documented in earlier versions of perl, but
this suggests strongly that you need to upgrade to 5.004 to get this
capability.
/MC
--
Matthew Cravit, N9VWG | Experience is what allows you to
E-mail: mcravit@best.com (home) | recognize a mistake the second
mcravit@taos.com (work) | time you make it.
------------------------------
Date: Fri, 3 Oct 1997 16:54:12 -0500
From: newmanmb@cig.mot.com (Mark Newman)
Subject: Re: How to telnet from perl using cron?
Message-Id: <MPG.e9f257fd0d354ce989680@news.cig.mot.com>
In article <01bcc8f1$fd057c80$b5910a9f@aurora.cna.com>, aaron@soltec.net
says...
> How about letting us take a look at that code......
>
> Don <defike@ilstu.edu_nospam> wrote in article
> <34286124.2839678@news.alt.net>...
> > I have been struggling with setting up a cron that runs a perl script
> > which executes a telnet. The script runs the way it should via the
> > command line. When trying to run it from a cron it always fails at
> > the telnet portion. I have tried this using a shell script and Expect
> > and everything will work via command line but fails when trying to
> > cron. I tried declaring the term env but that wasn't enough.
> > Suggestions are welcomed.
> >
> > Thanks,
> > Don
> > defike@ilstu.edu
> >
>
I had a similar problem. What I found was that from the command line, my
enviroment (especially the TCL_LIBRARY env) was setup properly. However
the enviroment for the cron job was not setup properly. Without
TCL_LIBRARY being set to the path of my tcl libraries, expect will not
run.
Add a line similar to:
$ENV{"TCL_LIBRARY"}=______________ <--- location of tcl
libraries.
------------------------------
Date: Fri, 3 Oct 1997 21:15:51 GMT
From: Gerben_Wierda@RnA.nl
Subject: IPC question on listen()
Message-Id: <EHHv2F.HqI@RnA.NL>
When I write a server and I let that server listen wit a call like
listen( S, 2);
I do expect that maximum three process may connect to that server process
simultaneously, one being handled and two waiting.
But when I do that, and I try to connect to that server process with telnet,
I can get 5 processes to connect. One actively handled, 4 waiting but able to
provide input. Only the sixth telnet gets a 'connection timed out'. I do not
understand this behaviour. Is there a minimum queue on listen()?
I am running:
This is perl, version 5.003 [+ TipTop patch 2] with EMBED MULTIPLICITY
built under next at Sun Sep 08 1996 14:32:59 EDT
+ suidperl security patch
under NEXTSTEP 3.3.
--
Gerben_Wierda@RnA.nl (Gerben Wierda)
"If you don't know where you're going, any road will take you there"
Paraphrased in Alice in Wonderland, originally from the Talmud.
Renee: "Met veel koper maakt men hoempa." (After hearing Brahms'
Festouverture)
------------------------------
Date: 3 Oct 1997 15:41:31 -0700
From: mcravit@best.com (Matthew Cravit)
Subject: Re: IPC question on listen()
Message-Id: <613sar$2f6$1@shell3.ba.best.com>
In article <EHHv2F.HqI@RnA.NL>, <Gerben_Wierda@RnA.nl> wrote:
>When I write a server and I let that server listen wit a call like
>
> listen( S, 2);
>
>provide input. Only the sixth telnet gets a 'connection timed out'. I do not
>understand this behaviour. Is there a minimum queue on listen()?
Not per se, no. However, some implementations of the BSD socket library
ignore the parameter passed to listen, and just use the system default
listen queue size regardless of what you specify. This may be the problem
you're experiencing here.
/MC
--
Matthew Cravit, N9VWG | Experience is what allows you to
E-mail: mcravit@best.com (home) | recognize a mistake the second
mcravit@taos.com (work) | time you make it.
------------------------------
Date: 3 Oct 1997 22:46:18 GMT
From: gsar@engin.umich.edu (Gurusamy Sarathy)
Subject: Re: New Perl syntax idea
Message-Id: <613sjq$ct1@srvr1.engin.umich.edu>
In article <613npp$8ue@srvr1.engin.umich.edu>,
Gurusamy Sarathy <gsar@engin.umich.edu> wrote:
>Of course, 5.005 will contain enough new syntax to allow my
>longstanding plans to merge in the functionality of the Alias
>module. Automagic lexical variables inside methods that can then
>refer to the object attributes as simple variables:
>
> package Foo;
> use Fields qw(foo bar);
> sub new { bless { foo => 1, bar => ['a','b','c'] }, shift }
> sub amethod : method {
> print $foo, @bar; # lexical $foo, @bar object attributes
> }
> __END__
> 1abc
>
>,in 5.005-speak.
Of course, that hypothetical example would need something like:
package main;
Foo->new->amethod;
just before the __END__ to print what I was pretending it would
print.
- Sarathy.
gsar@umich.edu
------------------------------
Date: 3 Oct 1997 22:03:00 GMT
From: California Man <jeep@rahul.net>
Subject: Re: PERL and serial port
Message-Id: <613q2k$ge9$1@samba.rahul.net>
ALl I can say is this. I worked for a brief time at a company who
used modems and perl. They had someone com in and write a patch
using C++ commands for the com port stuff and somehow integrated
it into the perl compiler.
Check out the com port stuff in C++...but then again, this may
have already been obvious
HOpe that helps a little
--
------------------------------------------------------------------
http://www.rahul.net/jeep
------------------------------------------------------------------
------------------------------
Date: Fri, 03 Oct 1997 15:58:11 -0700
From: ian c rogers <irogers@biggun.com>
Subject: Problems with CGI::* Module example
Message-Id: <34357882.3C28836@biggun.com>
I'm trying to run the following example from
http://www-genome.wi.mit.edu/ftp/pub/software/WWW/CGIperl/docs/Request.pm.html
#!/usr/local/bin/perl # add -T to test tainted behaviour
use CGI::Base;
use CGI::Request;
GetRequest('R'); # get and import request into R::...
# Just to make life more interesting add an ISINDEX.
# Try entering: "aa bb+cc dd=ee ff&gg hh<P>ii"
print "<ISINDEX>\r\n";
print "<B>You entered:</B> ", # print results safely
join(', ', CGI::Base::html_escape(@R::KEYWORDS))."\r\n";
print FmtRequest(); # show formatted version of request
The CGI::Base::html_escape(@R::KEYWORDS) returns absolutely nothing for
me. Any idea why this might be?
ian
--
<a href="http://www.biggun.com/~irogers">ian c rogers</a>
<a href="http://www.biggun.com/">Big Gun Project, SMC</a>
------------------------------
Date: 3 Oct 1997 21:57:17 GMT
From: bdwheele@indiana.edu (Brian Wheeler)
Subject: Re: PROOF: VB FASTER THAN PERL, C, C++
Message-Id: <613pnt$rf0$3@dismay.ucs.indiana.edu>
You are quite an idiot. All you've managed to prove is that vb doing
some math function is faster than vb calling a dll function to do some trivial
math. Did you bother to "optimize" the C version? did you try to run a
test where the benchmark was done in C, instead of being called from VB? Since
we can assume you didn't, try it, and tell us the results. Also, since you
didn't tell us what kind of machine you were on, we have no way of really
telling how "good" these numbers are.
by the way, how does telling us how fast vb vs C is tell us how fast
vb is to Perl and C++. Trivial benchmarks tell *NOTHING*.
loser.
Brian Wheeler
bdwheele@Indiana.edu
In article <613e81$lu1@dfw-ixnews12.ix.netcom.com>,
SpamProofSeal@none.com (SpamProofSeal@none.com) writes:
> About the only thing C does faster than VB these days is string
> manipulation, and that will be all over with VB6. Below are
> the results. Below that is the source code incase you are
> still a disbeliever.
>
>
> My results:
>
> Inside the VB environment (interpreted VB mode):
> =================================================
> Visual C++ - 7 seconds
> Visual Basic - 49 seconds (not surprising, huh? READ ON!)
>
>
> Optimized for speed VB executable:
> =================================================
> Visual C++ - 8 seconds
> Visual Basic - 3 seconds (In your face C bigots! hehe!)
>
>
> VB Executable, not optimized for maximum speed:
> ==================================================
> Visual C++ - 8 seconds
> Visual Basic - 12 seconds (A little slower, but still good)
>
> ===========================================================================================
>
> For those who want to try this yourself, novice level knowledge of VB
> is required, and enough C
> knowledge to create a .DLL is required. All tests were done using VB
> 5.0 and VC 5.0.
>
> The test to a C function was done by calling a .DLL containing a C
> function that performed 1000
> runs through a loop. The C function call is called "TestMath".
>
> The test to the VB function was done by calling a VB function that
> mirrors the functionality of
> the C function, 1000 runs through a loop. The VB function call is
> called "VBMath".
>
>
>
> ' CODE STARTS HERE
> '==========================================================================================
> 'put this in a module
>
> Option Explicit
>
> 'here is the dll declaration.. The C code is at the bottom of this
> file
> Declare Function TestMath Lib "JunkDLL2.dll" (ByVal a As Double, b As
> Double) As Double
>
> Public Function VBMath(ByVal a As Double, ByVal b As Double)
>
> Dim i As Long
> Dim x As Double
> Dim y As Double
> Dim z As Double
> x = a
>
> For i = 0 To 999
> x = x * 1.02
> y = x * 1.02
> z = b * y
> Next i
>
> VBMath = z
>
> End Function
> '============================================================================================
>
> '============================================================================================
> ' Put the following in a VB form, with two command buttons (command1
> and command2),
> ' four labels (label1,label2, etc.). Put label1 & label2 next to
> command1, and label3 & label4
> ' next to command2. Make the labels long enough to hold many digits
> so u can see the result.
> '============================================================================================
>
> Option Explicit
>
> '============================================
> Const ITERATIONS = 32000
>
> ' mess with this as you like. Keep in mind the result will not change.
> ITERATIONS only affects
> ' the number of times the function is called (thus affecting the total
> time).
>
>
> Public AVAL As Double
> Public BVAL As Double
> Public CVAL As Double
>
> Private Sub Command1_Click()
>
> '=================================================================
> ' Don't harass me about the general ugliness and sloppiness
> ' of this code and the unnecessary variables. I was doing several
> ' experiments and did not bother to clean it up.
> '=================================================================
>
> Dim z As Double
> Dim xx As Integer
> Dim d As Date
> Dim vTotalTime
>
> Dim a#, b#, c#
> Screen.MousePointer = vbHourglass
>
> a = AVAL
> b = BVAL
> c = CVAL
>
> Label1 = ""
> Label2 = ""
>
> d = Now()
>
> For xx = 1 To ITERATIONS
> a = AVAL
> b = BVAL
> c = CVAL
>
> z = TestMath(a, b)
>
> Next xx
> vTotalTime = DateDiff("s", d, Now)
> Beep
>
> Debug.Print "DONE - Value = " & z
> Debug.Print "total Time = " & vTotalTime
>
> Label1 = "RESULT = " & Format(z, "####################.#############")
> Label2 = "TIME = " & vTotalTime & " SECONDS"
> Screen.MousePointer = vbDefault
>
> End Sub
>
> Private Sub Command2_Click()
>
> '=================================================================
> ' Don't harass me about the general ugliness and sloppiness
> ' of this code and the unnecessary variables. I was doing several
> ' experiments and did not bother to clean it up.
> '=================================================================
>
> Dim z As Double
> Dim xx As Integer
> Dim d As Date
> Dim vTotalTime
>
> Dim a#, b#, c#
>
> Screen.MousePointer = vbHourglass
> a = AVAL
> b = BVAL
> c = CVAL
>
> Label3 = ""
> Label4 = ""
>
> d = Now()
>
> For xx = 1 To ITERATIONS
> a = AVAL
> b = BVAL
> c = CVAL
>
> z = VBMath(a, b)
> Next xx
>
> vTotalTime = DateDiff("s", d, Now)
> Beep
> Debug.Print "DONE - Value = " & z
> Debug.Print "total Time = " & vTotalTime
>
> Label3 = "RESULT = " & Format(z, "####################.#############")
> Label4 = "TIME = " & vTotalTime & " SECONDS"
>
> Screen.MousePointer = vbDefault
>
> End Sub
>
> Private Sub Form_Load()
>
> AVAL = 44
> BVAL = 4
> CVAL = 6
>
> End Sub
>
> '=========================================
> 'Here comes the C code
> '=========================================
>
>
> //===========================================
> // This stuff just goes in a .DLL.. You may need to
> // make a .DEF file as well
> // All tests were done with VB5.0 and VC++5.0,
> // Windows 95, P166 without service packs
> // The VB declaration is in the module code above
> //============================================
>
> double __stdcall TestMath(double a, double far * b)
>
> {
> long i;
> double x;
> double y;
> double z;
>
> x = a;
>
> for (i = 0; i < 1000; ++i)
> {
>
> x = x * 1.02;
> y = x * 1.02;
> z = *b * y;
> }
>
> return(z);
>
> }
>
------------------------------
Date: Fri, 3 Oct 1997 23:12:47 GMT
From: "robert c. combs" <xrcc0494@dcaca037.ca.boeing.com>
Subject: Re: PROOF: VB FASTER THAN PERL, C, C++
Message-Id: <34357BEF.78F@dcaca037.ca.boeing.com>
All this test _MAY_ have proved (there are an awful lot of mitigating
factors here) is that Microsoft has produced an extremely ineffecient
C++ compiler (which should surprise noone).
This code is simple enough that the object code (barring library
inclusions) should be nearly identical.
"Better to remain silent and be thought a fool, than to speak and
remove all doubt."
-bob combs
Brian Wheeler wrote:
>
> You are quite an idiot. All you've managed to prove is that vb doing
> some math function is faster than vb calling a dll function to do some trivial
> math. Did you bother to "optimize" the C version? did you try to run a
> test where the benchmark was done in C, instead of being called from VB? Since
> we can assume you didn't, try it, and tell us the results. Also, since you
> didn't tell us what kind of machine you were on, we have no way of really
> telling how "good" these numbers are.
>
> by the way, how does telling us how fast vb vs C is tell us how fast
> vb is to Perl and C++. Trivial benchmarks tell *NOTHING*.
>
> loser.
>
> Brian Wheeler
> bdwheele@Indiana.edu
>
> In article <613e81$lu1@dfw-ixnews12.ix.netcom.com>,
> SpamProofSeal@none.com (SpamProofSeal@none.com) writes:
> > About the only thing C does faster than VB these days is string
> > manipulation, and that will be all over with VB6. Below are
> > the results. Below that is the source code incase you are
> > still a disbeliever.
> >
> >
> > My results:
> >
> > Inside the VB environment (interpreted VB mode):
> > =================================================
> > Visual C++ - 7 seconds
> > Visual Basic - 49 seconds (not surprising, huh? READ ON!)
> >
> >
> > Optimized for speed VB executable:
> > =================================================
> > Visual C++ - 8 seconds
> > Visual Basic - 3 seconds (In your face C bigots! hehe!)
> >
> >
> > VB Executable, not optimized for maximum speed:
> > ==================================================
> > Visual C++ - 8 seconds
> > Visual Basic - 12 seconds (A little slower, but still good)
> >
> > ===========================================================================================
> >
> > For those who want to try this yourself, novice level knowledge of VB
> > is required, and enough C
> > knowledge to create a .DLL is required. All tests were done using VB
> > 5.0 and VC 5.0.
> >
> > The test to a C function was done by calling a .DLL containing a C
> > function that performed 1000
> > runs through a loop. The C function call is called "TestMath".
> >
> > The test to the VB function was done by calling a VB function that
> > mirrors the functionality of
> > the C function, 1000 runs through a loop. The VB function call is
> > called "VBMath".
> >
> >
> >
> > ' CODE STARTS HERE
> > '==========================================================================================
> > 'put this in a module
> >
> > Option Explicit
> >
> > 'here is the dll declaration.. The C code is at the bottom of this
> > file
> > Declare Function TestMath Lib "JunkDLL2.dll" (ByVal a As Double, b As
> > Double) As Double
> >
> > Public Function VBMath(ByVal a As Double, ByVal b As Double)
> >
> > Dim i As Long
> > Dim x As Double
> > Dim y As Double
> > Dim z As Double
> > x = a
> >
> > For i = 0 To 999
> > x = x * 1.02
> > y = x * 1.02
> > z = b * y
> > Next i
> >
> > VBMath = z
> >
> > End Function
> > '============================================================================================
> >
> > '============================================================================================
> > ' Put the following in a VB form, with two command buttons (command1
> > and command2),
> > ' four labels (label1,label2, etc.). Put label1 & label2 next to
> > command1, and label3 & label4
> > ' next to command2. Make the labels long enough to hold many digits
> > so u can see the result.
> > '============================================================================================
> >
> > Option Explicit
> >
> > '============================================
> > Const ITERATIONS = 32000
> >
> > ' mess with this as you like. Keep in mind the result will not change.
> > ITERATIONS only affects
> > ' the number of times the function is called (thus affecting the total
> > time).
> >
> >
> > Public AVAL As Double
> > Public BVAL As Double
> > Public CVAL As Double
> >
> > Private Sub Command1_Click()
> >
> > '=================================================================
> > ' Don't harass me about the general ugliness and sloppiness
> > ' of this code and the unnecessary variables. I was doing several
> > ' experiments and did not bother to clean it up.
> > '=================================================================
> >
> > Dim z As Double
> > Dim xx As Integer
> > Dim d As Date
> > Dim vTotalTime
> >
> > Dim a#, b#, c#
> > Screen.MousePointer = vbHourglass
> >
> > a = AVAL
> > b = BVAL
> > c = CVAL
> >
> > Label1 = ""
> > Label2 = ""
> >
> > d = Now()
> >
> > For xx = 1 To ITERATIONS
> > a = AVAL
> > b = BVAL
> > c = CVAL
> >
> > z = TestMath(a, b)
> >
> > Next xx
> > vTotalTime = DateDiff("s", d, Now)
> > Beep
> >
> > Debug.Print "DONE - Value = " & z
> > Debug.Print "total Time = " & vTotalTime
> >
> > Label1 = "RESULT = " & Format(z, "####################.#############")
> > Label2 = "TIME = " & vTotalTime & " SECONDS"
> > Screen.MousePointer = vbDefault
> >
> > End Sub
> >
> > Private Sub Command2_Click()
> >
> > '=================================================================
> > ' Don't harass me about the general ugliness and sloppiness
> > ' of this code and the unnecessary variables. I was doing several
> > ' experiments and did not bother to clean it up.
> > '=================================================================
> >
> > Dim z As Double
> > Dim xx As Integer
> > Dim d As Date
> > Dim vTotalTime
> >
> > Dim a#, b#, c#
> >
> > Screen.MousePointer = vbHourglass
> > a = AVAL
> > b = BVAL
> > c = CVAL
> >
> > Label3 = ""
> > Label4 = ""
> >
> > d = Now()
> >
> > For xx = 1 To ITERATIONS
> > a = AVAL
> > b = BVAL
> > c = CVAL
> >
> > z = VBMath(a, b)
> > Next xx
> >
> > vTotalTime = DateDiff("s", d, Now)
> > Beep
> > Debug.Print "DONE - Value = " & z
> > Debug.Print "total Time = " & vTotalTime
> >
> > Label3 = "RESULT = " & Format(z, "####################.#############")
> > Label4 = "TIME = " & vTotalTime & " SECONDS"
> >
> > Screen.MousePointer = vbDefault
> >
> > End Sub
> >
> > Private Sub Form_Load()
> >
> > AVAL = 44
> > BVAL = 4
> > CVAL = 6
> >
> > End Sub
> >
> > '=========================================
> > 'Here comes the C code
> > '=========================================
> >
> >
> > //===========================================
> > // This stuff just goes in a .DLL.. You may need to
> > // make a .DEF file as well
> > // All tests were done with VB5.0 and VC++5.0,
> > // Windows 95, P166 without service packs
> > // The VB declaration is in the module code above
> > //============================================
> >
> > double __stdcall TestMath(double a, double far * b)
> >
> > {
> > long i;
> > double x;
> > double y;
> > double z;
> >
> > x = a;
> >
> > for (i = 0; i < 1000; ++i)
> > {
> >
> > x = x * 1.02;
> > y = x * 1.02;
> > z = *b * y;
> > }
> >
> > return(z);
> >
> > }
> >
------------------------------
Date: Fri, 03 Oct 1997 12:25:29 +0000
From: Glenn West <westxga@ptsc.slg.eds.com>
Subject: Re: STDERR capture
Message-Id: <3434E439.4999@ptsc.slg.eds.com>
Pascal Delmoitie wrote:
>
> Hi,
>
> Newbie to perl, I try to capture the output of STDERR
>
> ex:
>
> $var = `UNIX COMMAND`; (Back quotes)
>
> With success of the UNIX COMMAND I get sthng in $var
>
> With failure I would like to get the result sent to STDERR
> in a varaiable in order to analyze it.
>
> How should I do it ?
I would try something like:
$var=`UNIX COMMAND 2>&1`;
if ($? != 0) {
chomp($var);
print "Error $var on UNIX COMMAND\n";
}
>
> Thanx
>
> Pascal
>
> ------------------------------------------------------
> Pascal Delmoitie
> <pascal@belnet.be>
>
> BELNET Service Support Team
>
> Rue de la Science, 4 Tel. : +32.2.238-3685
> B-1000 BRUSSELS Fax. : +32.2.513-5730
> BELGIUM
> ------------------------------------------------------
------------------------------
Date: Fri, 03 Oct 1997 12:40:00 +0000
From: Glenn West <westxga@ptsc.slg.eds.com>
Subject: Re: Test for alphabetic character?
Message-Id: <3434E7A0.6B94@ptsc.slg.eds.com>
Ramon Rodriguez wrote:
>
> How can I test to see if some user input in a cgi script is text or
> numeric(what I'll accept) in Perl5? Thanks in advance.
>
if ($user_input=~/\D/) {
print "$user_input has non-numeric data\n";
}
> Ramon Rodriguez
------------------------------
Date: Fri, 03 Oct 1997 19:39:09 -0400
From: Ignacio Bustamante <IggieBee@worldnet.att.net>
Subject: Re: Using Perl Format
Message-Id: <3435821D.7631@worldnet.att.net>
Tom,
Thanks for your reply,
>
> If I have to guess, I think your problems are with the here-document
> syntax. Make sure there's no superfluous whitespace (such as
> indentation, trailing ^Ms etc on the line with the terminator.
>
Yes, yes.. it now works, thanks!. I simply flushed veryting against the
left margin, and got both examples working.
> Take it easy. You've stumbled upon the intersection of two somewhat
> obscure features of Perl, and features authors of books seem to ignore.
>
Are there any other sources of information (books, articles, etc.) on
this subject, that you could point me to? (anyone?)
> Unfortunately, the section on here-documents has been hidden in the
> perldata manpage, with no crossrefs from the other quoting mechanisms,
> but fortunately there's the entry in perlfaq4 on here-documents
> describing the problems people usually run into using them.
>
On perlfaq4, the only thing I found was:
Why don't my <
Check for these three things:
1.There must be no space after the << part.
2.There (probably) should be a semicolon at the end.
3.You can't (easily) have any space between in front of the tag.
Am I missing something?
> You see, we don't want people to stop asking, we just want them to see
> if the answers have already been provided for their (and our)
> convenience by looking in the FAQs before posting their questions to
> USENET.
>
Thanks for your words encouragement.
Regards,
Ignacio
------------------------------------------------------------
Know this my son..The only thing your boss will ever remember, is that
last bad thing you did!.
------------------------------
Date: Fri, 3 Oct 1997 19:17:22 -0400
From: Matt Wilson <mwilso@sapient.com>
Subject: Win32::OLE, SQL Server Question
Message-Id: <0685A427A719D11197BB00A024D39945CDF8CF@delphi.sapient.com>
I am currently working on a project where it would be helpful to
directly connect
to Microsoft SQL Server 6.5 through Perl. Luckily, SQL Server supports
automation
so the creation of an object that can query and manipulate the database
is no problem.
There is a problem when it comes to getting rich error information back
when a query
fails. The SQL help assumes that the automation is acheived through VB,
where the
'Err.Description' variable is automatically filled with the error
message; in C++ a call
must be made to an API function GetErrorInfo() which returns a pointer
to a pointer
to a IErrorInfo structure, using this interface pointer (
p->GetDescription() ) returns a
text buffer describing the error.
>From the documentation:
HRESULT GetErrorInfo(DWORD dwReserved, IErrorInfo **pperrinfo);
Using the module Win32::API, I can call this function but I'm not
getting anything
back for **pperrinfo. How do you refer to an OLE interface in Perl? Is
there a better
way to do this?
Any help is greatly appreciated,
Matthew Wilson
Sapient Corp.
(312) 458-1814
mwilso@sapient.com
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 1123
**************************************
