[24273] in Perl-Users-Digest
Perl-Users Digest, Issue: 6464 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 26 03:05:53 2004
Date: Mon, 26 Apr 2004 00:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 26 Apr 2004 Volume: 10 Number: 6464
Today's topics:
Re: blogger problem, printing too much <tassilo.parseval@rwth-aachen.de>
Re: blogger problem, printing too much <robin @ infusedlight.net>
free source blogger (works) <robin @ infusedlight.net>
Help! How to find memory leak? <aman_DO_da345@al_THE_ter_OBVIOUS_n.org>
How can I create a PDF page with only Images (EPS & TIF (Aqua)
Re: is there a way ..... any way <tadmc@augustmail.com>
Re: is there a way ..... any way <me@privacy.net>
Re: is there a way ..... any way <jtc@shell.dimensional.com>
Re: is there a way ..... any way <jtc@shell.dimensional.com>
Re: is there a way ..... any way <jtc@shell.dimensional.com>
Re: is there a way ..... any way (Randal L. Schwartz)
Re: is there a way ..... any way <xxala_qumsiehxx@xxyahooxx.com>
Re: noob question: Trying to extract part of a string i <robin @ infusedlight.net>
Re: noob question: Trying to extract part of a string i <spamtrap@dot-app.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 26 Apr 2004 07:07:01 +0200
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: blogger problem, printing too much
Message-Id: <c6i5do$c427p$1@ID-231055.news.uni-berlin.de>
Also sprach Robin:
> Ok, here's the thing, when it prints the comments for the blog, it prints
> each one twice, it's under sub view after if (url_param ('action2') eq
> "showcomment")... I was thinking it was a problem with my getcomments sub,
> but that returns the right ammount of comments... the posts in the blog are
> put into blog.txt as the same format as the comments except the first string
> before $splitstring is a incrementing number, starting at zero, and going
> up, the counter is contained in count or counter (I forget) .txt. I dunno
> what other information to give.
>
> Why is it printing the comments twice, underneath the posts?
>
> If you need more of this code, let me know.
Heaven forbid, we need less. Trim your code to those parts that are
really relevant to your problem. Your code contains if-branches that are
very probably not relevant so scratch those.
Also, you still have this lousy indentation in your code. You have been
told to fix this often enough. Don't you think it's time to eventually
do that?
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Mon, 26 Apr 2004 00:32:08 -0800
From: "Robin" <robin @ infusedlight.net>
Subject: Re: blogger problem, printing too much
Message-Id: <c6ibk1$ong$1@reader2.nmix.net>
"Robin" <robin @ infusedlight.net> wrote in message
news:c6hhuk$haq$2@reader2.nmix.net...
> Ok, here's the thing, when it prints the comments for the blog, it prints
> each one twice, it's under sub view after if (url_param ('action2') eq
> "showcomment")... I was thinking it was a problem with my getcomments sub,
> but that returns the right ammount of comments... the posts in the blog
are
> put into blog.txt as the same format as the comments except the first
string
> before $splitstring is a incrementing number, starting at zero, and going
> up, the counter is contained in count or counter (I forget) .txt. I dunno
> what other information to give.
>
> Why is it printing the comments twice, underneath the posts?
>
> If you need more of this code, let me know.
>
> Thanks.
I got this working, don't need anything, thanks.
-Robin
'
------------------------------
Date: Mon, 26 Apr 2004 00:29:51 -0800
From: "Robin" <robin @ infusedlight.net>
Subject: free source blogger (works)
Message-Id: <c6ibfr$ond$1@reader2.nmix.net>
There is no configuration needed for this script, and I admit it needs work.
Have fun.
--
Regards,
-Robin
--
[ webmaster @ infusedlight.net ]
www.infusedlight.net
begin 666 blogger.pl
M(R$O=7-R+V)I;B]P97)L#0H-"G5S92!S=')I8W0[#0IU<V4@=V%R;FEN9W,[
M#0H-"G5S92!&8VYT;"!Q=R H.F9L;V-K*3L-"G5S92!#1TD@<7<@*#IA;&PI
M.PT*#0HD0T=).CI03U-47TU!6#TQ,#(T("H@,3 P.PT*)$-'23HZ1$E304),
M15]54$Q/0413(#T@,3L-"@T*)"(@/2 G)SL-"@T*)$5.5GLG4$%42"=](#T@
M)R]B:6XZ+W5S<B]B:6XZ+W5S<B]L;V-A;"]B:6XG.PT*#0HC8V]N<W1A;G1S
M#0H-"FUY("1V97)S:6]N(#T@)S$N,"XP)SL-"FUY("1R;V]T9FEL92 ]("0P
M.PT*)')O;W1F:6QE(#U^(',O+BM<+R\O.PT*(R1R;V]T9FEL92 ]?B!S+UM!
M+5HM82UZ73I<+R\N*UPO?%Q<+SL-"FUY("1B;&]G9FEL92 ](")B;&]G+G1X
M="([#0IM>2 D8V]U;G1F:6QE(#T@(F-O=6YT+G1X="([#0IM>2 D<W!L:71S
M=')I;F<@/2 B/"TM+3XB.PT*;7D@0&AE860@/2!G971H96%D*")H96%D97(N
M='AT(BD[#0IM>2! 9F]O=" ](&=E=&9O;W0H(F9O;W1E<BYT>'0B*3L-"FUY
M("1A8W1I;VX[#0HD86-T:6]N(#T@=7)L7W!A<F%M("@G86-T:6]N)RD[#0IM
M>2 D9&%T92 ](&=E=&1A=&4@*"D[#0H-"B,@(2!C;VYS=&%N=',-"@T*:68@
M*"$@+64@)&)L;V=F:6QE*0T*"7L-"@EO<&5N("A"3$]'+" B/B1B;&]G9FEL
M92(I.PT*(" @(&9L;V-K("A"3$]'+"!,3T-+7T58*3L-"B @("!P<FEN="!"
M3$]'("(B.PT*(" @(&-L;W-E("A"3$]'*3L-"@E]#0H-"FEF("@D86-T:6]N
M(&5Q(")P<FEN=&YE=W!O<W0B*0T*"7L-"@EP<FEN="!R961I<F5C=" H)V%U
M=&@N<&PG*3L-"@E]#0IE;'-I9B H)&%C=&EO;B!E<2 B;F5W<&]S="(I#0H)
M>PT*"7!R:6YT8FQO9W!O<W0H*3L-"@E]#0IE;'-I9B H)&%C=&EO;B!E<2 B
M8FQO9W!O<W0B*0T*"7L-"@EB;&]G<&]S=" H*3L-"@E]#0IE;'-I9B H)&%C
M=&EO;B!E<2 B=FEE=R(I#0H)>PT*"6EF("AU<FQ?<&%R86T@*"=O=71P=70G
M*2D-"@D)>PT*"0EM>2 D=&5M<&]U='!U=#L-"@D))'1E;7!O=71P=70@/2!Q
M=65R>7-T<FEN9W!A<G-E,2 H=7)L7W!A<F%M("@G;W5T<'5T)RDI.PT*"0EV
M:65W("@D=&5M<&]U='!U="D[#0H)"7T-"@EE;'-E#0H)"7L-"@D))G9I97<@
M*")796QC;VUE('1O($)L;V=G97(@)'9E<G-I;VXN(BD[#0H)"7T-"@E]#0IE
M;'-I9B H)&%C=&EO;B!E<2 B;F5W8V]M;65N="(I#0H)>PT*"7!R:6YT;F5W
M8V]M;65N=" H*3L-"@E]#0IE;'-I9B H)&%C=&EO;B!E<2 B8V]M;65N="(I
M#0H)>PT*"79I97<H*3L-"@E]#0IE;'-E#0H)>PT*"79I97<@*")796QC;VUE
M('1O($)L;V=G97(@)'9E<G-I;VXN(BD[#0H)?0T*#0IS=6(@=FEE=PT*"7L-
M"@EM>2 H)&]U='!U="P@)&UO9&-O;6UE;G1P;W-T*2 ]($!?.PT*(" @(&EF
M("@D86-T:6]N(&5Q(")C;VUM96YT(BD-"B @(" )>PT*"0EI9B H<&%R86T@
M*"=C;VUM96YT=&5X="<I(&%N9"!P87)A;2 H)V-O;6UE;G1T97AT)RD@(7X@
M+SPN*CXO(&%N9"!P87)A;2 H)V-O;6UE;G1T97AT)RD@(7X@+UY<<RHD+R!A
M;F0@<&%R86T@*"=C;VUM96YT=&5X="<I("%^("\D<W!L:71S=')I;F<O(&%N
M9"!P87)A;2 H)V-O;6UE;G1T97AT)RD@;F4@(E!O<W0B(&%N9"!P87)A;2 H
M)V-O;6UE;G1T97AT)RD@;F4@(D-O;6UE;G0B*0T*"2 @(" @(" @>PT*"2 @
M(" @(" @;W!E;B H0DQ/1RP@(CX^)&)L;V=F:6QE(BD@;W(@<')I;G0@:&5A
M9&5R(&%N9"!P<FEN=" B06X@97)R;W(@;V-C=7)E9"!D=7)I;F<@=&AI<R!O
M<&5R871I;VXZ(#QB/B0A/"]B/BX@4&QE87-E('!R97-S('1H92!B86-K(&)U
M='1O;B!O;B!Y;W5R(&)R;W=S97(@86YD('1R>2!A9V%I;BX\:'(^(B!A;F0@
M97AI=#L-"@D@(" @(" @(&9L;V-K("A"3$]'+"!,3T-+7T58*3L-"@D@(" @
M(" @('!R:6YT($),3T<@*'5R;%]P87)A;2@G8V]U;G0G*2P@)'-P;&ET<W1R
M:6YG+" B0V]M;65N="(L("1S<&QI='-T<FEN9RP@(CQS=')O;F<^0V]M;65N
M=#H\+W-T<F]N9SX\8G(^(BP@<&%R86T@*"=C;VUM96YT=&5X="<I*3L-"@D@
M(" @(" @('!R:6YT($),3T<@*")<;B(I.PT*"2 @(" @(" @8VQO<V4@*$),
M3T<I.PT*"2 @(" @(" @<')I;G0@<F5D:7)E8W0@*"(D<F]O=&9I;&4_86-T
M:6]N/79I97<F86-T:6]N,CUS:&]W8V]M;65N="9O=71P=70]66]U<BMC;VUM
M96YT*VAA<RMB965N*W!O<W1E9"MA;F0K:7,K8F5I;F<K=FEE=V5D)F-O=6YT
M/2(@+B!U<FQ?<&%R86T@*"=C;W5N="<I*3L-"@D@(" @(" @(&5X:70[#0H)
M(" @(" @("!]#0H)(" @(&5L<V4-"@D@(" @(" @('L-"@D@(" @(" @('!R
M:6YT(')E9&ER96-T("@B)')O;W1F:6QE/V%C=&EO;CUV:65W)F]U='!U=#U9
M;W4K9&ED*VYO="MS=7!P;'DK=&AE*W!O<W0K;W(K>6]U*W5S960K2%1-3"MT
M86=S*W=H:6-H*V%R92MN;W0K86QL;W=E9"MO;BMT:&ES*W-Y<W1E;2XB*3L-
M"@D@(" @(" @(&5X:70[#0H)(" @(" @("!]#0H)(" @('T-"@EI9B H=7)L
M7W!A<F%M("@G86-T:6]N,B<I(&5Q(")H:61E8V]M;65N="(I#0H)"7L-"B @
M(" @(" @<')I;G0@<F5D:7)E8W0@*"(D<F]O=&9I;&4_86-T:6]N/79I97<F
M;W5T<'5T/4-O;6UE;G1S*VAA=F4K8F5E;BMH:61D96XB*3L-"B @(" )97AI
M=#L-"@D)?0T*"6UY($!P;W-T<SL-"@E <&]S=',@/2!G971P;W-T<R@I.PT*
M"6UY("1P;W-T=&]T86P[#0H))'!O<W1T;W1A;" ](&=E='!O<W1T;W0H*3L-
M"B @("!P<FEN="!H96%D97([#0H@(" @<')I;G0@0&AE860[#0H@(" @:68@
M*'5R;%]P87)A;2 H)V%C=&EO;C(G*2!E<2 B<VAO=V-O;6UE;G0B*0T*(" @
M( E[#0H@(" @"21O=71P=70@/2 G0V]M;65N=',@87)E(&)E:6YG('-H;W=N
M)SL-"B @(" )?0T*(" @('!R:6YT(#P\14Y$.PT*/&1I=B!A;&EG;CTB8V5N
M=&5R(CX-"B @/' ^0FQO9V=E<B D=F5R<VEO;B M("1O=71P=70@/"]P/@T*
M(" \:'(^#0H@(#QT86)L92!W:61T:#TB,3 P)2(@(&)O<F1E<CTB,"(@8V5L
M;'-P86-I;F<](C B(&-E;&QP861D:6YG/2(S(CX-"B \='(^(#QT9"!W:61T
M:#TB-C E(B!A;&EG;CTB;&5F="(@=F%L:6=N/2)T;W B(&)G8V]L;W(](B-&
M1D9&,# B/CQP/CQS=')O;F<^5&]T86P@<&]S=',@+2 D<&]S='1O=&%L/"]S
M=')O;F<^/"]P/@T*14Y$#0H);7D@*"1P;W-T+" D<&]S=#$I.PT*"6UY("A
M<&]S='-P;&ET,2P@0'!O<W1S<&QI="D[#0H);7D@0&-O;6UE;G1S.PT*"6UY
M($!C;VUM96YT<W!L:70[#0H);7D@)&-O;6UE;G0[#0H):68@*$!P;W-T<RD-
M"@D)>PT*"0EI9B H=7)L7W!A<F%M("@G86-T:6]N,B<I(&5Q(")S:&]W8V]M
M;65N="(I#0H)"0E[#0H)"0E 8V]M;65N=',@/2!G971C;VUM96YT<R H=7)L
M7W!A<F%M("@G8V]U;G0G*2D[#0H@(" @(" @(" @("!I9B H0&-O;6UE;G1S
M*0T*"2 @(" @(" @(" @('L-"@D@(" @(" @(" @("!F;W)E86-H("1C;VUM
M96YT("AR979E<G-E($!C;VUM96YT<RD-"@D@(" @(" @(" @(" @(" @>PT*
M"2 @(" @(" @(" @(" @("! 8V]M;65N='-P;&ET(#T@<W!L:70@*"\D<W!L
M:71S=')I;F<O+" D8V]M;65N="D[#0H)(" @(" @(" @(" @(" @('!R:6YT
M("(\8FQO8VMQ=6]T93XB+" D8V]M;65N='-P;&ET6S)=+" B/&)R/EL@/&$@
M:')E9CU<(B1R;V]T9FEL93]A8W1I;VX]=FEE=R9A8W1I;VXR/6AI9&5C;VUM
M96YT7"(^2&ED92!C;VUM96YT<SPO83X@72!;(#QA(&AR968]7"(D<F]O=&9I
M;&4_86-T:6]N/7!R:6YT;F5W<&]S=%PB/DYE=R!P;W-T/"]A/B!=/"]B;&]C
M:W%U;W1E/B(@:68@*"1C;VUM96YT<W!L:71;,5T@97$@(D-O;6UE;G0B(&%N
M9" D8V]M;65N='-P;&ET6S!=(&5Q('5R;%]P87)A;2 H)V-O=6YT)RDI#0H)
M(" @(" @(" @(" @(" @('T-"@D@(" @(" @(" @("!]#0H)(" @(" @( EE
M;'-E#0H)(" @(" @( D)>PT*"2 @(" @(" )"7!R:6YT("=.;R!C;VUM96YT
M<R<[#0H)(" @(" @( D)?0T*(" @(" @(" @(" @?0T*"2 @( EE;'-E#0H)
M(" @"0E[#0H)(" @(" @("!F;W)E86-H("1P;W-T("AR979E<G-E($!P;W-T
M<RD-"@D@(" @(" @(" @("![#0H)(" @(" @(" @(" @0'!O<W1S<&QI=" ]
M('-P;&ET("@O)'-P;&ET<W1R:6YG+RP@)'!O<W0I.PT*"2 @(" @(" @(" @
M('!R:6YT("1P;W-T<W!L:71;,ETL("(\8G(^(BP@(EL@/&$@:')E9CU<(B1R
M;V]T9FEL93]A8W1I;VX]=FEE=R9A8W1I;VXR/7-H;W=C;VUM96YT)F-O=6YT
M/21P;W-T<W!L:71;,%U<(CY3:&]W(&-O;6UE;G1S/"]A/B!=(%L@/&$@:')E
M9CU<(B1R;V]T9FEL93]A8W1I;VX]=FEE=R9A8W1I;VXR/6AI9&5C;VUM96YT
M7"(^2&ED92!C;VUM96YT<SPO83X@72!;(#QA(&AR968]7"(D<F]O=&9I;&4_
M86-T:6]N/6YE=V-O;6UE;G0F8V]U;G0])'!O<W1S<&QI=%LP75PB/DYE=R!C
M;VUM96YT/"]A/B!=(%L@/&$@:')E9CU<(B1R;V]T9FEL93]A8W1I;VX]<')I
M;G1N97=P;W-T7"(^3F5W('!O<W0\+V$^(%T\8G(^/&)R/B(@:68@*"1P;W-T
M<W!L:71;,5T@97$@(E!O<W0B*3L-"@D@(" @(" @(" @("!]#0H)(" @(" @
M("!]#0H@(" @"7T-"B @("!E;'-E#0H@(" @"7L-"B @(" )<')I;G0@(DYO
M('!O<W1S(CL-"B @(" )?0T*(" @"7!R:6YT(#P\14Y$.PT*/'1D('=I9'1H
M/2(T,"4B(&%L:6=N/2)L969T(B!V86QI9VX](G1O<"(^)&UO9&-O;6UE;G1P
M;W-T/"]T9#X-"B @(" \+W1R/@T*(" \+W1A8FQE/@T*(" \:'(^/&-E;G1E
M<CY;(#QA(&AR968](B1R;V]T9FEL93]A8W1I;VX]<')I;G1N97=P;W-T(CY.
M97<@<&]S=#PO83X@73PO8V5N=&5R/@T*/"]D:78^#0I%3D0-"B )<')I;G0@
M0&9O;W0[#0H@"65X:70[#0H)?0T*#0IS=6(@<')I;G1N97=C;VUM96YT#0H)
M>PT*"6UY("@D8V]M;65N=&-O=6YT*2 ]('5R;%]P87)A;2 H)V-O=6YT)RD[
M#0H);7D@)&-O;6UE;G1O=71P=70[#0H))&-O;6UE;G1O=71P=70@/2 \/$5.
M1#L-"B @/'1A8FQE('=I9'1H/2(Q,# E(B @8F]R9&5R/2(Q(B!C96QL<&%D
M9&EN9STB,R(@8V5L;'-P86-I;F<](C B(&)O<F1E<F-O;&]R/2(C,# P,$9&
M(CX-"B @(" \='(^#0H@(" @(" \=&0^/' @86QI9VX](F-E;G1E<B(^/'-T
M<F]N9SY";&]G9V5R("1V97)S:6]N("T@4&]S="!#;VUM96YT/"]S=')O;F<^
M/"]P/@T*(" @(" @(" @(#QF;W)M(&YA;64](F9O<FTQ(B!M971H;V0](G!O
M<W0B(&%C=&EO;CTB8FQO9V=E<BYP;#]A8W1I;VX]8V]M;65N="9C;W5N=#TD
M8V]M;65N=&-O=6YT)F%C=&EO;C(]<VAO=V-O;6UE;G0B/@T*(" @(" @(" @
M(" @/' @86QI9VX](F-E;G1E<B(^66]U<B!C;VUM96YT.B \+W ^#0H@(" @
M(" @(" @(" \9&EV(&%L:6=N/2)C96YT97(B/@T*(" @(" @(" @(" @(" \
M=&5X=&%R96$@;F%M93TB8V]M;65N='1E>'0B(&-O;',](C,P(B!R;W=S/2(T
M(B!I9#TB8V]M;65N='1E>'0B/CPO=&5X=&%R96$^#0H@(" @(" @(" @(" @
M(#QB<CX-"B @(" @(" @(" @(" @/&)R/@T*(" @(" @(" @(" @(" \:6YP
M=70@;F%M93TB8V]M;65N='-U8B(@='EP93TB<W5B;6ET(B!I9#TB8V]M;65N
M='-U8B(@=F%L=64](E-U8FUI="(^#0H\+V1I=CX-"B @(" @(" @/"]F;W)M
M/CPO=&0^#0H@(" @/"]T<CX-"B @/"]T86)L93X-"D5.1 T*"79I97<@*")0
M;W-T(&-O;6UE;G0B+" D8V]M;65N=&]U='!U="D[#0H)?0T*#0IS=6(@<')I
M;G1B;&]G<&]S= T*"7L-"@EL;V=I;B H)V%U=&@N<&PG*3L-"B @("!P<FEN
M="!H96%D97([#0H@(" @<')I;G0@0&AE860[#0H)<')I;G0@/#Q%3D0[#0H@
M(#QT86)L92!W:61T:#TB,3 P)2(@(&)O<F1E<CTB,2(@8V5L;'!A9&1I;F<]
M(C,B(&-E;&QS<&%C:6YG/2(P(B!B;W)D97)C;VQO<CTB(S P,#!&1B(^#0H@
M(" @/'1R/@T*(" @(" @/'1D/CQP(&%L:6=N/2)C96YT97(B/CQS=')O;F<^
M0FQO9V=E<B D=F5R<VEO;B M(%!O<W0@0V]M;65N=#PO<W1R;VYG/CPO<#X-
M"B @(" @(" @(" \9F]R;2!N86UE/2)F;W)M,2(@;65T:&]D/2)P;W-T(B!A
M8W1I;VX](F)L;V=G97(N<&P_86-T:6]N/6)L;V=P;W-T(CX-"B @(" @(" @
M(" @(#QP(&%L:6=N/2)C96YT97(B/EEO=7(@<&]S=#H@/"]P/@T*(" @(" @
M(" @(" @/&1I=B!A;&EG;CTB8V5N=&5R(CX-"B @(" @(" @(" @(" @/'1E
M>'1A<F5A(&YA;64](G!O<W1T97AT(B!C;VQS/2(S,"(@<F]W<STB-"(@:60]
M(G!O<W1T97AT(CX\+W1E>'1A<F5A/@T*(" @(" @(" @(" @(" \8G(^#0H@
M(" @(" @(" @(" @(#QB<CX-"B @(" @(" @(" @(" @/&EN<'5T(&YA;64]
M(G!O<W1I="(@='EP93TB<W5B;6ET(B!I9#TB<&]S=&ET(B!V86QU93TB4W5B
M;6ET(CX-"B @(" @(" @(" @(" @/&EN<'5T(&YA;64](FQO9V]U="(@='EP
M93TB<W5B;6ET(B!I9#TB<&]S=&ET(B!V86QU93TB3&]G;W5T(CX-"CPO9&EV
M/@T*(" @(" @(" \+V9O<FT^/"]T9#X-"B @(" \+W1R/@T*(" \+W1A8FQE
M/@T*14Y$#0H@(" @<')I;G0@0&9O;W0[#0H)?0T*#0IS=6(@8FQO9W!O<W0-
M"@E[#0H);7D@*"1P;W-T=&5X="P@)&)L;V=C;W5N="D[#0H):68@*'!A<F%M
M("@G<&]S='1E>'0G*2!A;F0@<&%R86T@*"=P;W-T=&5X="<I("%^("\\+BH^
M+R!A;F0@<&%R86T@*"=P;W-T=&5X="<I("%^("]>7',J)"\@86YD('!A<F%M
M("@G<&]S='1E>'0G*2 A?B O)'-P;&ET<W1R:6YG+R!A;F0@<&%R86T@*"=P
M;W-T=&5X="<I(&YE(")0;W-T(B!A;F0@<&%R86T@*"=P;W-T=&5X="<I(&YE
M(")#;VUM96YT(BD-"@D)>PT*"0EI9B H+64@)&-O=6YT9FEL92D-"@D)"7L-
M"@D)"6]P96X@*$-/54Y4+" D8V]U;G1F:6QE*2!O<B!P<FEN="!H96%D97(@
M86YD('!R:6YT(")!;B!E<G)O<B!O8V-U<F5D(&1U<FEN9R!T:&ES(&]P97)A
M=&EO;CH@/&(^)"$\+V(^+B!0;&5A<V4@<')E<W,@=&AE(&)A8VL@8G5T=&]N
M(&]N('EO=7(@8G)O=W-E<B!A;F0@=')Y(&%G86EN+CQH<CXB(&%N9"!E>&ET
M.PT*"0D)9FQO8VL@*$-/54Y4+"!,3T-+7U-(*3L-"@D)"21B;&]G8V]U;G0@
M/2 \0T]53E0^.PT*"0D)8VQO<V4@*$-/54Y4*3L-"@D)"7T-"@D)96QS90T*
M"0D)>PT*"0D))&)L;V=C;W5N=" ](# [#0H)"0EO<&5N("A#3U5.5"P@(CXD
M8V]U;G1F:6QE(BD@;W(@<')I;G0@:&5A9&5R(&%N9"!P<FEN=" B06X@97)R
M;W(@;V-C=7)E9"!D=7)I;F<@=&AI<R!O<&5R871I;VXZ(#QB/B0A/"]B/BX@
M4&QE87-E('!R97-S('1H92!B86-K(&)U='1O;B!O;B!Y;W5R(&)R;W=S97(@
M86YD('1R>2!A9V%I;BX\:'(^(B!A;F0@97AI=#L-"@D)"69L;V-K("A#3U5.
M5"P@3$]#2U]%6"D[#0H)"0EP<FEN="!#3U5.5" D8FQO9V-O=6YT.PT*"0D)
M8VQO<V4@*$-/54Y4*3L-"@D)"7T-"@D))'!O<W1T97AT(#T@<&%R86T@*"=P
M;W-T=&5X="<I.PT*(" @(" @("!O<&5N("A"3$]'1DE,12P@(CX^)&)L;V=F
M:6QE(BD@;W(@<')I;G0@:&5A9&5R(&%N9"!P<FEN=" B06X@97)R;W(@;V-C
M=7)E9"!D=7)I;F<@=&AI<R!O<&5R871I;VXZ(#QB/B0A/"]B/BX@4&QE87-E
M('!R97-S('1H92!B86-K(&)U='1O;B!O;B!Y;W5R(&)R;W=S97(@86YD('1R
M>2!A9V%I;BX\:'(^(B!A;F0@97AI=#L-"B @(" @(" @9FQO8VL@*$),3T=&
M24Q%+"!,3T-+7T58*3L-"B )"7!R:6YT($),3T=&24Q%("@D8FQO9V-O=6YT
M+" D<W!L:71S=')I;F<L(")0;W-T(BP@)'-P;&ET<W1R:6YG+" B/'-T<F]N
M9SY0;W-T(",@(BP@*"1B;&]G8V]U;G0@*R Q*2P@(CH@/"]S=')O;F<^/&)R
M/B1P;W-T=&5X="(I.PT*( D)<')I;G0@0DQ/1T9)3$4@(EQN(CL-"B )"6-L
M;W-E("A"3$]'1DE,12D[#0H@"0DD8FQO9V-O=6YT("L](#$[#0H)"6]P96X@
M*$-/54Y4+" B/B1C;W5N=&9I;&4B*2 @;W(@<')I;G0@:&5A9&5R(&%N9"!P
M<FEN=" B06X@97)R;W(@;V-C=7)E9"!D=7)I;F<@=&AI<R!O<&5R871I;VXZ
M(#QB/B0A/"]B/BX@4&QE87-E('!R97-S('1H92!B86-K(&)U='1O;B!O;B!Y
M;W5R(&)R;W=S97(@86YD('1R>2!A9V%I;BX\:'(^(B!A;F0@97AI=#L-"@D)
M9FQO8VL@*$-/54Y4+"!,3T-+7T58*3L-"@D)<')I;G0@0T]53E0@)&)L;V=C
M;W5N=#L-"@D)8VQO<V4@*$-/54Y4*3L-"@D)?0T*"65L<V4-"@D)>PT*(" @
M(" @("!P<FEN="!H96%D97([#0H@(" @(" @('!R:6YT($!H96%D.PT*(" @
M(" @("!P<FEN=" B/&-E;G1E<CY9;W4@9&ED(&YO="!S=7!P;'D@=&AE('!O
M<W0@;W(@>6]U('5S960@2%1-3"!T86=S('=H:6-H(&%R92!N;W0@86QL;W=E
M9"!O;B!T:&ES('-Y<W1E;2X\+V-E;G1E<CX\:'(^(CL-"B @(" @(" @<')I
M;G0@0&9O;W0[#0H@(" @(" @(&5X:70[#0H)"7T-"FEF("AP87)A;2 H)W!O
M<W1I="<I(&]R('!A<F%M("@G;&]G;W5T)RDI#0H)"7L-"@D);&]G;W5T("@B
M)')O;W1F:6QE/V%C=&EO;CUV:65W)F]U='!U=#U9;W4K:&%V92MP;W-T960K
M=&\K=&AE*V)L;V<K86YD*V%R92ML;V=G960K;W5T+B(I.PT*"0E]#0H)?0T*
M#0IS=6(@<75E<GES=')I;F=P87)S93$-"B @("![#0H@(" @;7D@*"1Q=65R
M>3$I(#T@0%\[("-T:&4@<75E<GD@<W1R:6YG#0H@(" @;7D@*$!S<&QI='%U
M97)Y+" D<W!L:71Q=65R>7)E="D[#0H@(" @0'-P;&ET<75E<GD@/2!S<&QI
M=" H+UPK+RP@)'%U97)Y,2D[#0H@(" @)'-P;&ET<75E<GER970@/2!J;VEN
M("@G("<L($!S<&QI='%U97)Y*3L-"B @("!R971U<FX@)'-P;&ET<75E<GER
M970[#0H@(" @?0T*#0IS=6(@9V5T<&]S=',-"@E[#0H);7D@0'!O<W1S=&]R
M971U<FX[#0H@(" @:68@*"UE("1B;&]G9FEL92D-"B @(" @(" @>PT*"2 @
M("!O<&5N("A"3$]'+" D8FQO9V9I;&4I(&]R('!R:6YT(&AE861E<B!A;F0@
M<')I;G0@(D%N(&5R<F]R(&]C8W5R960@9'5R:6YG('1H:7,@;W!E<F%T:6]N
M.B \8CXD(3PO8CXN(%!L96%S92!P<F5S<R!T:&4@8F%C:R!B=71T;VX@;VX@
M>6]U<B!B<F]W<V5R(&%N9"!T<GD@86=A:6XN/&AR/B(@86YD(&5X:70[#0H)
M(" @(&9L;V-K("A"3$]'+"!,3T-+7U-(*3L-"@D@(" @=VAI;&4@*#Q"3$]'
M/BD-"@D@(" @(" @('L-"@D@(" @(" @(&-H;VUP("@D7RD[#0H)(" @(" @
M("!I9B H)%\@97$@(B(I#0H)(" @(" @(" )>PT*"2 @(" @(" @"6YE>'0[
M#0H)(" @(" @(" )?0T*"2 @(" @(" @96QS90T*"2 @(" @(" @"7L-"@D@
M(" @(" @( EP=7-H("A <&]S='-T;W)E='5R;BP@)%\I.PT*"2 @(" @(" @
M"7T-"@D@(" @(" @('T-"@D@(" @8VQO<V4@*$),3T<I.PT*"2 @("!R971U
M<FX@0'!O<W1S=&]R971U<FX[#0H)(" @('T-"@EE;'-E#0H)"7L-"@D)<F5T
M=7)N('5N9&5F.PT*"0E]#0H)?0T*#0IS=6(@9V5T8V]M;65N=',-"@E[#0H)
M;7D@*"1C;VUM96YT8V]U;G0Q*2 ]($!?.PT*"6UY("A 8V]M;65N=',R+" D
M8V]M;2P@0&-O;6US<&QI="P@0&-O;6UT;W)E="D[#0H)0&-O;6UE;G1S,B ]
M(&=E='!O<W1S("@I.PT*"69O<F5A8V@@)&-O;6T@*$!C;VUM96YT<S(I#0H)
M"7L-"@D)0&-O;6US<&QI=" ]('-P;&ET("@O)'-P;&ET<W1R:6YG+RP@)&-O
M;6TI.PT*"0EI9B H)&-O;6US<&QI=%LP72!E<2 D8V]M;65N=&-O=6YT,2!A
M;F0@)&-O;6US<&QI=%LQ72!E<2 B0V]M;65N="(I#0H)"0E[#0H@(" @(" @
M(" @("!P=7-H("A 8V]M;71O<F5T+" D8V]M;2D[#0H@(" @(" @(" @("!]
M#0H@(" @(" @('T-"B @("!R971U<FX@*$!C;VUM=&]R970I.PT*"7T-"G-U
M8B!G971P;W-T=&]T#0H)>PT*"6UY($!P;W-T<W1O9V5T(#T@9V5T<&]S=',H
M*3L-"B @("!M>2 D<&]S='1O9V5T.PT*(" @(&UY("1T;V=E=&-O=6YT97([
M#0H@(" @;7D@0'!O<W1S<&QI=&9O<G1O=#L-"B @(" D=&]G971C;W5N=&5R
M(#T@,#L-"B @("!F;W)E86-H("1P;W-T=&]G970@*$!P;W-T<W1O9V5T*0T*
M(" @( E[#0H@(" @"6EF("@D<&]S='1O9V5T*0T*(" @( D)>PT*(" @( D)
M0'!O<W1S<&QI=&9O<G1O=" ]('-P;&ET("@O)'-P;&ET<W1R:6YG+RP@)'!O
M<W1T;V=E="D[#0H@(" @"0EI9B H)'!O<W1S<&QI=&9O<G1O=%LQ72!E<2 B
M4&]S="(I#0H@(" @"0D)>PT*"2 @(" )"21T;V=E=&-O=6YT97(@*ST@,3L-
M"@D@(" @"0E]#0H)(" @( E]#0H@(" @"7T-"B @("!R971U<FX@)'1O9V5T
M8V]U;G1E<CL-"@E]#0H-"G-U8B!G971H96%D#0H)>PT*"6UY("@D:&5A9&5R
M*2 ]($!?.PT*"6UY($!H96%D97([#0H):68@*"UE("1H96%D97(I#0H)"7L-
M"@D);W!E;B H2$5!1$52+" B)&AE861E<B(I(&]R('!R:6YT(&AE861E<B!A
M;F0@<')I;G0@(D%N(&5R<F]R(&]C8W5R960@9'5R:6YG('1H:7,@;W!E<F%T
M:6]N.B \8CXD(3PO8CXN(%!L96%S92!P<F5S<R!T:&4@8F%C:R!B=71T;VX@
M;VX@>6]U<B!B<F]W<V5R(&%N9"!T<GD@86=A:6XN/&AR/B(@86YD(&5X:70[
M#0H)"69L;V-K("A(14%$15(L($Q/0TM?4T@I.PT*"0E :&5A9&5R(#T@/$A%
M041%4CX[#0H)"6-L;W-E("A(14%$15(I.PT*"0E]#0H)96QS90T*"0E[#0H)
M"6]P96X@*$A%041%4BP@(CXD:&5A9&5R(BD@;W(@<')I;G0@:&5A9&5R(&%N
M9"!P<FEN=" B06X@97)R;W(@;V-C=7)E9"!D=7)I;F<@=&AI<R!O<&5R871I
M;VXZ(#QB/B0A/"]B/BX@4&QE87-E('!R97-S('1H92!B86-K(&)U='1O;B!O
M;B!Y;W5R(&)R;W=S97(@86YD('1R>2!A9V%I;BX\:'(^(B!A;F0@97AI=#L-
M"@D)9FQO8VL@*$A%041%4BP@3$]#2U]%6"D[#0H)"7!R:6YT($A%041%4B \
M/$5.1#L-"B @/"%$3T-465!%($A434P@4%5"3$E#("(M+R]7,T,O+T141"!(
M5$U,(#0N,#$@5')A;G-I=&EO;F%L+R]%3B(-"B)H='1P.B\O=W=W+G<S+F]R
M9R]44B]H=&UL-"]L;V]S92YD=&0B/@T*/&AT;6P^#0H\:&5A9#X-"CQT:71L
M93Y";&]G9V5R("1V97)S:6]N/"]T:71L93X-"CQM971A(&AT=' M97%U:78]
M(D-O;G1E;G0M5'EP92(@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/6ES
M;RTX.#4Y+3$B/@T*/'-T>6QE('1Y<&4](G1E>'0O8W-S(CX-"CPA+2T-"F)O
M9'D@>PT*"6)A8VMG<F]U;F0M8V]L;W(Z("-&1D9&0T,[#0I]#0HM+3X-"CPO
M<W1Y;&4^/"]H96%D/@T*#0H\8F]D>3X-"D5.1 T*"2 @("!C;&]S92 H2$5!
M1$52*3L-"B @(" @(" @0&AE861E<B ](#P\14Y$.PT*/"%$3T-465!%($A4
M34P@4%5"3$E#("(M+R]7,T,O+T141"!(5$U,(#0N,#$@5')A;G-I=&EO;F%L
M+R]%3B(-"B)H='1P.B\O=W=W+G<S+F]R9R]44B]H=&UL-"]L;V]S92YD=&0B
M/@T*/&AT;6P^#0H\:&5A9#X-"CQT:71L93Y";&]G9V5R("1V97)S:6]N/"]T
M:71L93X-"CQM971A(&AT=' M97%U:78](D-O;G1E;G0M5'EP92(@8V]N=&5N
M=#TB=&5X="]H=&UL.R!C:&%R<V5T/6ES;RTX.#4Y+3$B/@T*/'-T>6QE('1Y
M<&4](G1E>'0O8W-S(CX-"CPA+2T-"F)O9'D@>PT*"6)A8VMG<F]U;F0M8V]L
M;W(Z("-&1D9&0T,[#0I]#0HM+3X-"CPO<W1Y;&4^/"]H96%D/@T*/&)O9'D^
M#0I%3D0-"@D)?0T*"6-H;6]D("@P-S<P+" D:&5A9&5R*2!I9B H+64@)&AE
M861E<BD[#0H)<F5T=7)N($!H96%D97([#0H)?0T*#0IS=6(@9V5T9F]O= T*
M"7L-"@EM>2 H)&9O;W1E<BD@/2! 7SL-"@EM>2! 9F]O=&5R.PT*"6EF("@M
M92 D9F]O=&5R*0T*"0E[#0H)"6]P96X@*$9/3U1%4BP@(B1F;V]T97(B*2!O
M<B!P<FEN="!H96%D97(@86YD('!R:6YT(")!;B!E<G)O<B!O8V-U<F5D(&1U
M<FEN9R!T:&ES(&]P97)A=&EO;CH@/&(^)"$\+V(^+B!0;&5A<V4@<')E<W,@
M=&AE(&)A8VL@8G5T=&]N(&]N('EO=7(@8G)O=W-E<B!A;F0@=')Y(&%G86EN
M+CQH<CXB(&%N9"!E>&ET.PT*"0EF;&]C:R H1D]/5$52+"!,3T-+7U-(*3L-
M"@D)0&9O;W1E<B ](#Q&3T]415(^.PT*"0EC;&]S92 H1D]/5$52*3L-"@D)
M?0T*"65L<V4-"@D)>PT*"0EO<&5N("A&3T]415(L("(^)&9O;W1E<B(I(&]R
M('!R:6YT(&AE861E<B!A;F0@<')I;G0@(D%N(&5R<F]R(&]C8W5R960@9'5R
M:6YG('1H:7,@;W!E<F%T:6]N.B \8CXD(3PO8CXN(%!L96%S92!P<F5S<R!T
M:&4@8F%C:R!B=71T;VX@;VX@>6]U<B!B<F]W<V5R(&%N9"!T<GD@86=A:6XN
M/&AR/B(@86YD(&5X:70[#0H)"69L;V-K("A&3T]415(L($Q/0TM?15@I.PT*
M"0EP<FEN="!&3T]415(@(CPO8F]D>3X\+VAT;6P^(CL-"@D)8VQO<V4@*$9/
M3U1%4BD[#0H@(" @"4!F;V]T97(@/2 H)SPO8F]D>3X\+VAT;6P^)RD[#0H)
M"7T-"@EC:&UO9" H,#<W,"P@)&9O;W1E<BD@:68@*"UE("1F;V]T97(I.PT*
M"7)E='5R;B! 9F]O=&5R.PT*"7T-"@T*<W5B(&=E=&1A=&4-"@E[#0H@(" @
M;7D@*"1D87DL("1M;VXL("1Y96%R*3TH;&]C86QT:6UE*5LS+#0L-5T[#0H@
M(" @)&UO;BLK.PT*(" @("1Y96%R("L],3DP,#L-"B @("!M>2 D9&%T92 ]
M("1M;VX@+B B+R(@+B D9&%Y("X@(B\B("X@)'EE87([#0H@(" @<F5T=7)N
M("1D871E.PT*"7T-"@T*<W5B(&QO9VEN#0H)>PT*"6UY("@D:&]M97!A9V4I
M(#T@0%\[("-54DP@=&\@=&AE(&QO9VEN('!A9V4-"@EI9B H(2 H+64@(DQO
M9V=E9&EN9FEL92YL;V<B*2 I#0H)"7L-"@D)<')I;G0@*"),;V-A=&EO;CHD
M:&]M97!A9V5<;EQN(BD[("-G;V5S('1O('1H92!H;VUE<&%G90T*"0EE>&ET
M.PT*"0E]#0H)?0T*#0IS=6(@;&]G;W5T#0H)>PT*"6UY("@D<&%G92D@/2!
M7SL@(W1O('1H92!L;V=I;B!P86=E#0H)=6YL:6YK("@B3&]G9V5D:6YF:6QE
M+FQO9R(I.PT*"7!R:6YT(')E9&ER96-T("@B)'!A9V4B*3L-"@EE>&ET.PT*
&"7T-"@T*
`
end
begin 666 auth.pl
M(R$O=7-R+V)I;B]P97)L("U4#0HC(&$@<W1A;F1A<F0@<&5R;"!P87-S=V]R
M9"!A=71H('-C<FEP= T*#0IU<V4@0T=)('%W+SIA;&PO.PT*)$5.5GLG4$%4
M2"=](#T@)R]B:6XZ+W5S<B]B:6XZ+W5S<B]L;V-A;"]B:6XG.PT*)&QO8V%T
M:6]N(#T@(F)L;V=G97(N<&P_86-T:6]N/6YE=W!O<W0B.R C(&QO8V%T:6]N
M('!A9V4L('=H97)E(&ET(&=O97,@869T97(@875T:&5N=&EC871I;VX-"@T*
M:68@*"UE(")05T0N<'=D(BD-"@E[#0H)8VAM;V0@*# W-S L(")05T0N<'=D
M(BD[#0H))F)E9VEN.PT*"7T-"@EE;'-E#0H)>PT*"6EF("AP87)A;2@G;F5W
M<&%S<R<I*0T*"0E[#0H)"75N;&EN:R H(E!71"YP=V0B*3L-"@D);W!E;B H
M3D57+" B/E!71"YP=V0B*3L-"@D)<')I;G0@3D57('!A<F%M*"=N97=P87-S
M)RD[#0H)"6-L;W-E("A.15<I.PT*"0EC:&UO9" H,#<W,"P@(E!71"YP=V0B
M*3L-"@D))F)E9VEN.PT*"0E]#0H)96QS90T*"0E[#0H)"7!R:6YT(&AE861E
M<CL-"@D)<')I;G0@*"(\:'1M;#X\8F]D>3Y087-S=V]R9"!F:6QE(&1O97,@
M;F]T(&5X:7-T(3QB<CX\8G(^/&AR/B(I.PT*"0EP<FEN=" \/$5.1#L-"D5.
M5$52($$@3D57(%!!4U-73U)$("T@5$A)4R!724Q,($)%(%E/55(@4$%34U=/
M4D0Z/$9/4DT@;65T:&]D/2)P;W-T(B!A8W1I;VX](F%U=&@N<&PB/CQ);G!U
M="!T>7!E/2)P87-S=V]R9"(@;F%M93TB;F5W<&%S<R(^/&)R/CQB<CX\:6YP
M=70@='EP92 ](")S=6)M:70B(&YA;64@/2 B<W5B;6ET(B!V86QU92 ](")3
M=6)M:70@;F5W('!A<W-W;W)D(2(^/&)R/CQB<CX\:'(^#0H\+V9O<FT^/"]B
M;V1Y/CPO:'1M;#X-"@T*14Y$#0H-"@D)?0T*#0H)?0T*<W5B(&)E9VEN#0H)
M>PT*"6UY("1F;&%G(#T@,#L-"@EI9B H('!A<F%M*"=P=V0G*2 I#0H)"7L-
M"@D))'!W9#$@/2!P87)A;2 H)W!W9"<I.PT*"0EO<&5N("A05T0L(")05T0N
M<'=D(BD[#0H)"21P=V0R(#T@/%!71#X[#0H)"6-H;VUP("@D<'=D,BD[#0H)
M"6-L;W-E("A05T0I.PT*"0EI9B H(B1P=V0Q(B!E<2 B)'!W9#(B*0T*"0D)
M>PT*"0D);W!E;B H3$]'24XL("(^4%=$+FEN(BD[#0H)"0EP<FEN="!,3T=)
M3B B;&]G9V5D(&EN(2([#0H)"0EC;&]S92 H3$]'24XI.PT*"0D);W!E;B H
M3$]'24XR+" B/DQO9V=E9&EN9FEL92YL;V<B*3L-"@D)"7!R:6YT($Q/1TE.
M,B H(BXN+B(I.PT*"0D)8VQO<V4@*$Q/1TE.,BD[#0H)"0EU;FQI;FL@*"=0
M5T0N:6XG*3L-"@D)"29G;VQO8SL-"@D)"65X:70[#0H)"0E]#0H)"65L<V4-
M"@D)"7L-"@D)"21F;&%G(#T@,3L-"@D)"7!R:6YT(&AE861E<CL-"@D)"7!R
M:6YT("@B/$A434P^/$)/1%D^4&%S<W=O<F0@:7,@:6YC;W)R96-T+CQH<CX\
M8G(^/&)R/B(I.PT*"0D)?0T*"0E]#0II9B H)&9L86<@/3T@,"D-"@E[#0H)
M<')I;G0@:&5A9&5R.PT*"7!R:6YT("@B/$A434P^/$)/1%D^(BD[#0H)?0T*
M<')I;G0@*")%;G1E<B!P87-S=V]R9"!T;R!L;V=I;CH@/$9/4DT@34542$]$
M/5PB4$]35%PB($%#5$E/3CU<(F%U=&@N<&Q<(CXB*3L-"G!R:6YT("@B/$E.
M4%54(%194$4@/2!<(G!A<W-W;W)D7"(@3D%-12 ](%PB<'=D7"(^/$)2/CQH
M<CXB*3L-"G!R:6YT("@B/$E.4%54(%194$4@/2!<(E-U8FUI=%PB(%9A;'5E
M(#T@7")3=6)M:70@<&%S<W=O<F1<(CX\:'(^/&)R/B(I.PT*<')I;G0@*"(\
M+T9/4DT^/"]"3T19/CPO2%1-3#XB*3L-"@E]#0H-"G-U8B!G;VQO8PT*"7L-
I"@EP<FEN=" H(DQO8V%T:6]N.B1L;V-A=&EO;EQN7&XB*3L-"@E]#0H`
`
end
------------------------------
Date: Mon, 26 Apr 2004 02:21:24 +0000 (UTC)
From: Amanda <aman_DO_da345@al_THE_ter_OBVIOUS_n.org>
Subject: Help! How to find memory leak?
Message-Id: <c6hrn4$c1n$1@reader2.panix.com>
I am using a Perl program that must process a large number (10**7)
of items. As the program runs, I've noticed that it becomes less
and less efficient in its processing, and at the same time, it
consumes more and more memory. Reading over the program's voluminous
code (not written by me), I can't find what causes this growth in
memory consumption. Are there any tools that could help figure
out where/how this is coming about?
Thanks!
Amanda
--
------------------------------
Date: 25 Apr 2004 22:31:52 -0700
From: junk@dlink.org (Aqua)
Subject: How can I create a PDF page with only Images (EPS & TIFF)
Message-Id: <55d7995c.0404252131.7cfec5bd@posting.google.com>
Hello Group,
I have lot of EPS and TIFF images that needs to be manually verified.
So I wanted to create a PDF with those images.
I appreciate any help in this regard.
Regards
Dominic
System: Windows 2000
Packages available: Perl 5.8, Image magick and Ghost Script.
------------------------------
Date: Sun, 25 Apr 2004 20:42:51 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: is there a way ..... any way
Message-Id: <slrnc8oq8r.n5u.tadmc@magna.augustmail.com>
Andries <andries@zilz.nl> wrote:
> Is there a way that simple mortals can ask questions how to do things
> with perl/ work with perl. Is there a newsgroup?
Yes, and you are in it.
> ok ok RTFM you'll say.
Well of course.
Spend ten minutes trying to find the answer to your question yourself.
If that doesn't work, then post away!
Have you seen the Posting Guidelines that are posted here frequently?
> Obviously you don't understand my question and despair.
Perhaps you have been looking at reference docs when what you
need it a tutorial?
If you have programmed in any other language, I recommend "Learning Perl".
If not, I recommend "Elements of Programming with Perl".
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 26 Apr 2004 01:46:57 +0000 (UTC)
From: anon <me@privacy.net>
Subject: Re: is there a way ..... any way
Message-Id: <c6hpmh$42k$1@hercules.btinternet.com>
Andries wrote...
> Hello folks,
>
> I tried lurking on but it stays jibberish to me.
> Questions asked are responded with a jargon that is beyond my
> comprehension and often in a tone you'll think twice to ask the next
> question. So this is too heavy for me (yet?).
> Is there a way that simple mortals can ask questions how to do things
> with perl/ work with perl. Is there a newsgroup?
> ok ok RTFM you'll say.
> Obviously you don't understand my question and despair.
>
> Andries Meijer
Hi Andries,
I see you've already received some very comprehensive (and patient and
courteous) replies to your questions. Every reply you get is intended to
be helpful in some way. If it's not then explain why not or ask for
clarification (after you've RTM). If it is then say thank you. You
should get more involved in your own threads. The key to a good answer
is a good question.
guide here:
http://catb.org/~esr/faqs/smart-questions.html
------------------------------
Date: 25 Apr 2004 19:54:09 -0600
From: Jim Cochrane <jtc@shell.dimensional.com>
Subject: Re: is there a way ..... any way
Message-Id: <slrnc8oqu1.in8.jtc@shell.dimensional.com>
In article <c6hi6t$cci8s$1@ID-184292.news.uni-berlin.de>, Gunnar Hjalmarsson wrote:
> Andries wrote:
>> I tried lurking on but it stays jibberish to me. Questions asked
>> are responded with a jargon that is beyond my comprehension and
>> often in a tone you'll think twice to ask the next question. So
>> this is too heavy for me (yet?).
>
> ...
>
>> Obviously you don't understand my question and despair.
>
> If you know no Perl, and are in such a hurry, the natural thing to do
> is to *hire* somebody who helps you.
Alternatively, you might realize that if you really want to learn how to do
something substantial (even if not particularly advanced), you will be
greatly rewarded if you let go of your impatience, slow down, relax
and enjoy the learning process. Buy a good perl book with some good
examples and have fun with it. ("Learning Perl" may be a good place to
start.)
Just a suggestion.
--
Jim Cochrane; jtc@dimensional.com
[When responding by email, include the term non-spam in the subject line to
get through my spam filter.]
------------------------------
Date: 25 Apr 2004 19:55:34 -0600
From: Jim Cochrane <jtc@shell.dimensional.com>
Subject: Re: is there a way ..... any way
Message-Id: <slrnc8or0m.in8.jtc@shell.dimensional.com>
In article <c6hjas$c832u$1@ID-184292.news.uni-berlin.de>, Gunnar Hjalmarsson wrote:
> Robert wrote:
>> Andries wrote:
>>> Is there a way that simple mortals can ask questions how to do
>>> things with perl/ work with perl. Is there a newsgroup?
>>
>> There is a Perl beginnings list. That would probably be good for
>> you.
>>
>> http://learn.perl.org/
>
> Even if I have never tried that list, I take for granted that you
> cannot expect anybody to write your programs for you there either.
Unless you pay them appropriately for it :-)
--
Jim Cochrane; jtc@dimensional.com
[When responding by email, include the term non-spam in the subject line to
get through my spam filter.]
------------------------------
Date: 25 Apr 2004 20:01:47 -0600
From: Jim Cochrane <jtc@shell.dimensional.com>
Subject: Re: is there a way ..... any way
Message-Id: <slrnc8orcb.in8.jtc@shell.dimensional.com>
In article <c6hlfp$612$1@canopus.cc.umanitoba.ca>, Walter Roberson wrote:
> In article <4hgo801hm3nrsce0ttakksqd3s4lnnn6hb@4ax.com>,
> Andries <andries@zilz.nl> wrote:
>:I tried lurking on but it stays jibberish to me.
>:Questions asked are responded with a jargon that is beyond my
>:comprehension and often in a tone you'll think twice to ask the next
>:question. So this is too heavy for me (yet?).
>
> There is certainly some truth in what you say, Andries. In my
> experience, some of the people who post here (even some of the regulars)
> often seem very harsh unless you ask your questions exactly the "right"
> way. The "experience" of clpm is a lot different than in most of
> the other technical newsgroups that I frequent, but I understand that
> there are some newsgroups that are *much* worse.
>
> ...
>:Is there a way that simple mortals can ask questions how to do things
>:with perl/ work with perl.
>
> In practice, you can get away with a fair bit in clpm, if you know
> a few key points:
>
> - Do not post just asking whether something will work. The answer
> you get back will be some variation on "Well, what happened when you
> tried it?"
Also, if you run a program you've been working on and find it doesn't do
what you expect it should, don't just post saying "It doesn't work."
Instead, give some information, such as what you expect the program to do
and what it actually does, including output, error messages, and any other
relevant behavior.
--
Jim Cochrane; jtc@dimensional.com
[When responding by email, include the term non-spam in the subject line to
get through my spam filter.]
------------------------------
Date: Mon, 26 Apr 2004 05:41:48 GMT
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: is there a way ..... any way
Message-Id: <28ced4fb1ea82f83080303c3a68e0e89@news.teranews.com>
>>>>> "Walter" == Walter Roberson <roberson@ibd.nrc-cnrc.gc.ca> writes:
Walter> As I understand, one part of the reason that people can seem so harsh
Walter> is that clpm is not really considered to be a newsgroup about how to
Walter> program in perl, or about how to install perl, and especially not a
Walter> newsgroup about how to program in general (happening to use perl as the
Walter> language): clpm is, I understand, considered to be a newsgroup about
Walter> the perl language itself. For example, one can ask about a particular
Walter> obscure feature of perl, or talk about the future of perl, but to be
Walter> "in", you are expected to be talking abstractly. Asking about basic
Walter> features and how to fix simple programs is, unfortunately, often
Walter> responded to with what many would think of as hostility.
I think you're missing some of the history of this group.
The biggest problem that CLPM has faced historically is the rise of
Perl as the CGI language of choice, being a bright shiny object for
tens of thousands of web-squatter-wannabes. The problem is that all
the Perl resources got slammed pretty heavily in the late 90s, and
we're still feeling the sting of that.
I really want to answer every question here. I answer as many as I
can. I know many of the other experts here (and the experts who have
already left) feel the same. But when I have to keep answering the
same questions week after week, I get a bit bored, and wonder why
people don't type "perldoc" or "www.google.com" or "groups.google.com"
often enough. And then there's the group of lazy bas**rds who want me
to debug their program for them, a job better done by someone for
hire, not a free resource.
This group is as much about learning Perl from day one as you can get.
We're just a bit gun shy.
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 26 Apr 2004 06:11:18 GMT
From: Ala Qumsieh <xxala_qumsiehxx@xxyahooxx.com>
Subject: Re: is there a way ..... any way
Message-Id: <aK1jc.1496$tC5.1270@newssvr27.news.prodigy.com>
Andries wrote:
> Hello folks,
>
> I tried lurking on but it stays jibberish to me.
> Questions asked are responded with a jargon that is beyond my
> comprehension and often in a tone you'll think twice to ask the next
> question. So this is too heavy for me (yet?).
IMHO, yes. You are still not ready to post to this newsgroup. Please
don't take this personally as I don't mean to single you out in
particular, but I do see an increasing number of posters who say
something to the effect of:
"I just started learning Perl last week and I'm stumped.
Now fix my program for me."
People are getting more and more impatient. Many people think that
reading a couple of tutorials on Perl will make them master the
language. And even more people take clpm for granted, and expect others
to spend their time and energy debugging their buggy code.
> Is there a way that simple mortals can ask questions how to do things
> with perl/ work with perl. Is there a newsgroup?
> ok ok RTFM you'll say.
> Obviously you don't understand my question and despair.
RTFM is the correct answer, and I do understand you 100%. But, what most
newbies fail to understand is that Perl has been around for so long, and
that someone before them must have had the exact same question, and that
Ring TFM is the quick and easy answer. I would say that more than 90% of
clpm posts can be avoided by reading the online perlfaqs that come with
the Perl installation. That number grows to 99% if we add reading OOPerl
and the Ram.
If newbies learn to read more before posting questions (and I don't want
to generalize, since a lot of them do), then clpm regulars won't have to
answer the same questions over and over and over and over again, and
will become less grumpy, making clpm a much more pleasant newsgroup.
Personally, I read 4 Perl books, and lurked on the newsgroup for a few
months before I mustered enough courage to post. Even then, there were
instances when I was grilled by the (then) regulars for giving
sub-optimal advice.
Many people have put lots of effort into TFM. Use it.
--Ala
------------------------------
Date: Sun, 25 Apr 2004 23:17:47 -0800
From: "Robin" <robin @ infusedlight.net>
Subject: Re: noob question: Trying to extract part of a string in a variable to another variable
Message-Id: <c6ia60$oc9$1@reader2.nmix.net>
"cayenne" <chilecayenne@yahoo.com> wrote in message
news:2deb3d1.0404250759.7676bbb5@posting.google.com...
> Hello all,
> I'm a perl noob...and just can't quite figure out how to do something
> that should be pretty simple.
>
> Here's an example.
>
> I have $mail_address = 'fred jones <fred_jones@somewhere.com>'
>
> I want to use regular expressions to just parse out the userid here of
> fred_jones
>
> I'm trying things like this:
>
> $mail_address =~ /\w+@/;
>
> But, doesn't seem to work. I'm a little hazy on exactly how the =~
> works...through examples I've successfully used it for substitutions
> like x =~ s/tom/joe/g; but, I'm just wanting to match a regular
> expression and extract it to the variable...or even to another
> variable leaving $mail_address unchanged.
>
> I've looked in books at the substr() function, but, I don't know how
> to use regular expressions to find the offset point, etc.
>
> Can someone give me an example...or pointers to a good reference on
> this type of thing?
>
> Thanks in advance,
>
> chilecayenne
Regular expressions are not the right way to find the offset unless you want
to use $1 an $2 and $3...etc, and then use index, it still isn't an optimal
way to find the offset point. Just change up your regular expression looks
like the other code, man I'm so tired.
-Robin
------------------------------
Date: Mon, 26 Apr 2004 02:46:40 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: noob question: Trying to extract part of a string in a variable to another variable
Message-Id: <jbGdnVcH9czMLRHdRVn-iQ@adelphia.com>
Robin wrote:
> Regular expressions are not the right way to find the offset unless you
> want to use $1 an $2 and $3...etc, and then use index, it still isn't an
> optimal way to find the offset point.
Darn right it's not. If your pattern has subexpressions, then on a match the
offset of each subexpression appears in the @- array. That is, the offset
of $1 is in $-[0], $2 is in $-[1], and so forth.
Note that offsets, no matter how they're found, are irrelevant to the
original question anyway. All he wanted was the value of the matched
substring, not its position. He was thinking he might need to offset to get
the substring, but he was barking in the wrong forest with that idea.
So tell me Robin, when are you going to stop posting nonsense answers to
questions you don't understand?
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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.
#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 V10 Issue 6464
***************************************
