[7009] in Perl-Users-Digest
Perl-Users Digest, Issue: 634 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 19 05:47:09 1997
Date: Thu, 19 Jun 97 02:00:24 -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 Thu, 19 Jun 1997 Volume: 8 Number: 634
Today's topics:
(chat.cgi <zombie>) <perlprogrammer@hotmail.com>
Re: a perl mode in emacs that does a better job with qu (Ilya Zakharevich)
Re: appending two files into one? (Blake Winton)
Can't find *** in @INC ....Help Please (Shelle)
CLib module for calling dynamic library functions (John Tobey)
Re: file date in perl ? (Tim Gim Yee)
help needed with DB_File (Yuan-fang Wang)
Re: HELP: How to limit the length of contents in guestb <perlprogrammer@hotmail.com>
Re: How do i convert a (float) to (integer) ? (Gorazd Bozic)
Julian Date Function Needed (Frank Fisher)
Re: Linux,glibc-2,perl-5.004_1: make test fails <aj@arthur.rhein-neckar.de>
Re: Perl and Tcl which is suitable for automatic testin <joop@polder.ubc.kun.nl>
scalar vs array (Mats Larsson)
Single proccess network server... <cmason@ros.res.cmu.edu>
Re: Sorting Associative Array? (Urgent) <wesley@woais.com>
WANTED: perl script for base64 MIME decoding <josin@dimensional.com>
Re: WANTED: perl script for base64 MIME decoding (Nathan V. Patwardhan)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 18 Jun 1997 22:43:36 -0700
From: perl guy <perlprogrammer@hotmail.com>
Subject: (chat.cgi <zombie>)
Message-Id: <33A8C707.6602@hotmail.com>
I know what zombie is.. (pretty much), but haven't had the pleasure of
encountering it untill now. and can someone offer me some advice,.. I
have a chat script in perl that
was working fine on our server, *untill* my serevr tech upgraded. We
*were* running apache 1.1.1 with Rad Hat 4, now we are running Apache
1.2, and now I'm getting strange looking errors in the error log, which
I assume is the "upgraded" way of telling you about an error, in a
different way.. (i.e., send script lost connection, is now send body,
etc.).. anyway.. my problem is, that my chat.cgi keeps going zombie on
my! And NOW, *not* untill now.. about 3 people every 20 seconds lose
their messages!.. it worked fine before, other then the errors I
mentioned, whch aren't anything to
worry about.
I know what to do.. Anyway, he (my server tech) changed
it to where it calls the httpd with a force command before it..
(i.e, httpd -f /etc/httpd/blah..blah...), and for when it calls the perl
as
well.. so.. how can I fix this to not go zombie on me (or as much)?. or
at
least so people might not miss their messages?. I know about how it
works,
and how it's they usually appear when a process has been killed while it
was
waiting for some i/o connection. many times they go away when the parent
dies..
And this is a problem from the slowness of all the people chatting, but
it's not
any worse then it was before, yet now it's going zombie and people are
missing messages? I just wonder what I can change to have it work better
with the new set up
perhaps?
BTW, he also changed the keepalive and maxclients, etc.. Also, we are
going to be
installing mod_perl, etc. so will this fix the problem?. It's slow
already, but now people are actually missing files.. even when it's
writing to the disk.. 10% or so of the people's chat.cgi is going zombie
on them, and is a zero byte file in RAM and CPU.. what can I do?.
------------------------------
Date: 19 Jun 1997 06:43:18 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: a perl mode in emacs that does a better job with quotes?
Message-Id: <5oake6$7si@agate.berkeley.edu>
In article <5o731j$n9@gap.cco.caltech.edu>,
Shimpei Yamashita <shimpei@socrates.caltech.edu> wrote:
> Both the perl-mode that comes with emacs 19.34b and cperl-mode included
> in perl 5.004 are not terribly smart about syntax-highlighting lines with
> unbalanced quotes, like, say,
>
> s/'/'"'"'/g;
First of all, you can backwack bad guys. Second, if you have fresh
enough emacs (starting from Apr 15 1997 RMS Emacs), cperl will do it.
Ilya
------------------------------
Date: 18 Jun 97 21:30:45 GMT
From: bwinton+spam@incontext.ca (Blake Winton)
Subject: Re: appending two files into one?
Message-Id: <1997Jun18.173045.3445@jarvis.cs.toronto.edu>
In article <5o9fgv$4k@news-central.tiac.net>, mike@stok.co.uk (Mike Stok) wrote:
>In article <5o8phc$gc@fridge-nf0.shore.net>,
>Nathan V. Patwardhan <nvp@shore.net> wrote:
>>Magnus Bodin (Magnus.Bodin@tychonides.se) wrote:
>>
>>: foreach $appfile (@ARGV) {
>>: open(TMP,$appfile);
>>
>>Ouch.
>>
>>perl -e 'while(<>) { print; }' filename filename >> out.txt
>
>Ouch ;-)
>
>perl -pe '' filename filename >> out.txt
>
>Mike
Ouch.
< filename < filename > out.txt
(hey, works in my shell... ;)
Sorry, just had to.
Later,
Blake.
------------------------------
Date: Thu, 19 Jun 1997 06:06:25 GMT
From: shelle@interaccess.com (Shelle)
Subject: Can't find *** in @INC ....Help Please
Message-Id: <5oai91$21k_004@interaccess.interaccess.com>
Having been through all of the manuals, FAQs, and online documents regarding
Perl on Windows95, I have yet to find a suitable answer for why I get errors
such as:
Can't locate XXXXX/XXXX.pm in @INC at filename.pl line ##.
Actually I thought I found a couple of solutions but none seemed to solved
this problem. Suggestions appreciated.
P.S. Yes, I've "R" so many versions "OTFM" in the past week or so I need an
eye exam; I am not asking you do what I have not already attempted to great
extents. Flames not necessary...I have relatives I can phone if I want abuse.
Michelle ----,-'-(@
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Michelle Feigen ----,-'-(@ shelle@interaccess.com
MEAN PEOPLE SUCK!
http://homepage.interaccess.com/~shelle/
http://homepage.interaccess.com/~shelle/grafx/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: 19 Jun 1997 00:58:15 +0000
From: jtobey@user1.channel1.com (John Tobey)
Subject: CLib module for calling dynamic library functions
Message-Id: <m3n2onmms7.fsf@localhost.user1.channel1.com>
This module allows one to load and call native library functions on
the fly from perl. It has been tested successfully on PC Linux and
FreeBSD, but it contains architecture-specific code which may not work
on all platforms.
Please report bugs, successes, and ports to this newsgroup and the
author.
begin 644 CLib-0.10.tar.gz
M'XL(")ECJ#,``T-,:6(M,"XQ,"YT87(`[#MM=]K&TOUJ_8HQ)D&X(",P=@)Y
M(S9-_=2Q?0Q)W&.[5(C%Z%I(BB0<4Y?[VY^9V940X*3)N4GNAQN=!(M]F9F=
MF9VW7?8.G7ZY8IB5K9^^V0/;E=UZ'7X"@-V=;?X+9E7^E4\%8*=6KU9VS)T:
MOIN5:KWZ$]2_'4GS9Q+%5@CPT[]$_,EQ'T9"N-^#H._[[*7R?VU=BZ'C"N/D
M\"OC,"N5G>WMC\G?K.Q6S43^E5JE2IVU6OTGJ'QE.NY]_L?E/XD$M&_C-['C
M1HT&Z0#]#YN:1CU1'#IVW-1"\7[BA`+J1J52:P)LP-B:]@4X<<%UX8,?7L,'
M)QYQ?[4$(^M&>(48<+88&`QIS_>&SI4">V.%$;S_H.>MT!YYUEC`"]OW<$[L
M^![DY^_%IC8?\Q3R$LI=TC1#>$D;PAVX,Q#OH3!`/?9$02/M\D,8.`*>/.D>
M'[]L[3>U3FS%C@V!"-UU3?L%^^.1$\'8'TQ<`;'/JRG!"?;#&)4#<)FV%5A]
M[/6'X/K6P/&N8#!%`AQ;<YU^:.$R(YA$U!Z/!.QCWR&.$Z$":P`<#.$`)AZV
MH;YY`YCZDU`QQ0C&FNV'H;!C=UJ2/40>#'P1$1L'/M.(4'[W)\1Y9C#1VI\X
M[@`L\,0'C:<,D_6HA1B:)A>N:5J6QT]!1]Z.K0#N8.N/_?;>X5/=V"SFMX"(
M"R;1*"N2$D2!Z\1ZKI0K0=XLP@Q>M$Y?O47V;^"R;(NHE*@%N,Z0.842P\5-
M4&O\20RI9N$JWHVF8$6H,J/I<XT!(3U7H2!BUA4U6QD<$\\5401ZAJ(BW+%X
M":FNK<$Y%/YPSFOEQY>/=HQ-U_$FM_E""<X+]D#8;N$2+DLKH_K1X/XQU*B^
M$9ZU1<:]N,OWRL_.S<M9"5P+%<090D9)_PU;W%^YW&HRB3-MMLC[5"4[QZ>G
MOS>U=Z&/BD,0G!AU`#F&BMFR4258TU"2J9XH[8BF42S&"U,`99Y+R<@96C>C
MU;@WHH71Y8$(!"JC%X/M#P1*PK%'K%F>'\O]['M:!A?I$<J6!SL>O)^(B-<2
M"M>*!:M;8(6(.19A.;`BW@OS-4<D*,W#G7<CRK8_#M#/#&`X\6SN19W8F^`&
M\'@#Q!_\A:D6KBZ:!($?QF+0T/Z4XF)%_7-DV=>U2@')PPV&]!9P+"TA]EG_
MR?Z`U2<%#$+_"@F,P`ZM:(3D,2]YS7$X)<V-A$8#^U,()YY'"_B3]U3&,0+K
MIB(`Y;@R0.,!BBK0D57QR(IQ*!D#W!1!*(8"%VJ+(B[ZV..=PKB9$N8\L6J1
M]2^1K)=M>-<Z/6KOKZ^O`W1_;9^VX:`#1\?PZDWKM'74;;>QM=6%@RZ\.S@\
MA'?'I[_AR#;R$554^W.,5`+**BZ@U(B9$7+5MG%GE7C?9C24&&./?%]110P5
MMQ:9)S09,6H*DS>V4*$\,FZD&J&()B[JCH,.P7+'/FZ,"#7-G9(!5<R7O!>1
M-IBP^1J+L8^\MY@*N'%\5";6!TT[]I@H'S]"-'?>H$3[C`B[]OP/V6U00)%:
MKKND<"Q=C7EJ>:0/:+G]:T!9$%B2%DXC.1HV:Y(4&7[!D9$0"3(T;1J:W[Z(
M8S9=4LMP/DYAR6:=!TD/$:->I'2.\'_L:\Q[)U:^)7"%A:QU14Q&4O]7[/?%
M].(%[M+0-&Q<K"=<?/''10:"W&!+@28\"!U<3.Z-W%ZKJVYDK?:%EVLF,_;%
MT"+QK,YI9/TM6BV>A6;]78C&`B@\-&XC3?/17L!9IP2Y9ZHME_6ON3WV`1]X
M$G$7+G)JW$4.4:QGB2'01$0R@#'*OK,.N^J3IK;A#-&/0Z]G!^XDHO^:N$4A
M>(@KAU9Y`^T7JO6&X]GN!*U2KGW6;9\>&:-<IHVVYV++6>?-2]FR`GZ6P$27
M>:)IY%HRK+G7_:1$YU(,%[G\W7S@S+`O<KS`V7R%V'#AO3[>?W/81G]"7``X
M:>W]UGJ5?)<L^2(*GCPYZ^"<&]\9:`L4]*BI1X+O!:CD8J!'TS&:H1(8AE'4
MUJ@;-M?69*NV=G)ZW#WN_G[2;L!%_N*%MK9WO-]N:&OH"`$(V6F[^[9UB%'@
MUB8,)N/Q%#:WJ&\1ZU[K\##%A-,PW%A#1XAO2^1AR]>B3E)&@>)GD+)V_*9[
M\J;;4+,TW.<3#/*6J).-WY-`B?$C-*)U"&%SB4:*TKVK[TFC).,C-$IL2S0&
M<?@]"90`[R?PK$,1V0;:N)/0OW%PSUHP^*A]-'#D\B9[>7S<;6A)\0*#[[,.
M>KC8U]GF-1HK6P[#YK-.CSI[B]9V962)K2>:V?R+7+'Y*1Q+^^;C*)8&?CZ&
M5=W_.)+5L9^/9U5_/XYG=>SGXUG2P8\C61JXA`'UQW8I-F)=8#^91(`ZHR\<
MM5ZW"VM/GT&!H!=*LO5M^[1S<'S4^^7T^'4!DEZ,ZC'?V."0(H*\&B1G[+=_
M.3A2D'`0/1L@C"NC!(7R_J^MM^U>Y_AUN_OKP=&K`L@Y!T=[<D+YP%B9<[`U
MB<(MY:JV.+C">;@F\OBMP2!QR10%R5P.PSB,4`<"@Q5.@3ERPGP086#`(^!*
M>"+$%&"`X8U!4#!P\CV,^C`M]">8G`ZM>.2/,_F?@3N*HXG7K=]P?8=MBBF>
MY<?C\K.[I&F&#GHUNK"00"0L878:5FBKX)(Q]P4I5D"Y#T&ZR"7C,D&*VNT)
M./+6-@9L7J.!;CL.QU`>+D0NJ\-5;R.;&/#0SW?H*^#\!BS'%3*JD*J8C&]J
M7UC_F=?_]C#PO!+1-Z@Q?;K^!Z99J:GZ7]VL;N]0RTYM]T?][WL\I^+&B4@7
M,8^)*1DC'>7B%T7;'G>Q`FI:Q:B8E.M-X/\F'@FP8C;,W<:V">;CQ[O:6AGW
MF7/E>)8+-R*DF4U,^`0;!TRJ1U6T*Z9A/F)(58`.ID\,:1L!-*K51HU$SZ!^
M<4(T/)@]4J)4D@8EQ^E:+INGIE4!21UJ40?A,<PZ(,#Z3J.:@7F+A*!'0#,V
MEN5*7B?[B'@:B$A"V<8U8GK*4':ALMTPZXWZ;@+E%=L[U_E+#-A"?CQP:-([
MNJN)C7S5*,<-,.4F<T`5FB;0:JQ0]*))'])>51&!P$<K(,(FV3S$]&=2Z"AH
MJXB(:K,"\`X',M6/P*PU:F:CL@OM_6Y".";Q"12R?:&()YA,(1I,A)/J(Q!3
M`RNTMR+,Q4,'6?+:&E!M8!Q@:DX.@!G'90\N!B//_MLJ_./Y#YZY_:?2D!%\
M"Q/W#^<_9J6Z8O]W*]4?]O][/!OP4J#)%R#K@PY:+#0P!2HGXR;'GC$;.OP:
MV:$3Q!"-.*SK"ZZ26HE)P'@M4V$TH#5$\[4"-)W.A4XK4@54I7H%C!\_]J!U
M`Y)4+`U0Y(\%]%TT9S"VKAPNV\G("2W8T'+<22@X')51#?H=PT2:72['T3>J
MW/<(;R_V>W(FQJ6@'\1<\NP+FS!,(C&<N!33DJVGX<#EOAO!\:.Q147._L`A
MZXG.$U-9[67[U<$1W$'^;\Q0S::B*H<H=RAB@YG6/MJ'.]5,I57_&DSL`G7,
MD:<C)C%HSN2Y&>[/IJ;:&&)215/3FI]B6AOC7`S?,XQBIAQXD4!.<A&5%\5U
M?<D>7=8Z:<U.+*F/)+(:!>4Z^XHH\#TZG""WG"RAEBN"/%8@]^3+^JVJ,!,1
M]FCBT3`$XF?X2:B+#4T3-Q@WR!!X@PO*:3#!YRH\)5-J1=W)[4_&P1[J;HYR
M"CD1WZB:2Z56'(%AR!2N?']`=5_,3])AA'WLHQ_'1<M3.QP0B:LQ>E0N00-[
M]2BC[>(V0"&+@8*`YL!+C_R<B)<AH><[!Z_N.NU7;V<H+G+N=S+Y.'!=<848
M5=$;<Y:04>5@AG$\G62Z3G_<L\(KG#<_0FPT!FZ/DD/.+W-E=TPY*$I'7X?Y
MC+__SGRA,RCZ<F%8^2W**Q3-[RACPZT^LFZ(;A4*1>ST)YX?&9D$I-/=;Y^>
M8LI;:8!,F[CFK8X]`<E8QVCKV@F"Y-1SC(D>)HQ]%FMDL&K.X9$&567*`L)%
MQ9:B9J)QO9BMLZJG"^3.`/7QJ1Q3?I:-E_0[U#LZYZ(T.H?#<B5M#1_(R;!&
MMLN:1-J%K(FXXSQ'N3]^7'(7>Z%9@C-Z'\95Q/KPCM#/]&H)*D:]F%V+;O4C
M70TLHS'9-K>+\`2'53!`?IXN%1KIYJ"O1<K6%L[":6&V$GARC$U-,Q(G,L)&
M;LEMP3RPLWQ*YQ:;I#^L$/D7BTGDJ@S)C*#L;)3=*X>58!*L2$K17$O;Q:T3
M,_%Y#&<Q?%4RL3\E$SE2\7Y!*H@C:<Y(),@(@V1!IMO*''Z31;:(>4ZLCIHB
M.HBT@$HT.DXOR7#;\N(B&?*\I!.E*"F9Z3D?;4AH]>$OJT_"V-`VT"`HHTL'
M-@$?;9$JDU.BZ'8;_<PDM`5YJJ'OHGF,T%(]>5(X:77W?BTTM<W-30@"PUZC
MK*@5A%#=AFJ%\XY',NXNE\MRQ"^A(Z/S&N=-9J.^+4=L+CX,L_:H5BWAQR/@
M)H`UFTZ,"D&!RH[,I`\C.F71<6F(X1E4I.C7UH:A/\8EX]J/VF==JC4UM75L
MMP)N[-R<O.VA6[>%KD:6T,`6FVM;FW!V=@;M,/39^'?;KT^>4V6?@$8W/=N*
M@QM/QS\E=`(C*]PL/B285`OZ2_A#U<8;14HQ>>EC#GC=9$ZH=6'*B-_*7V5=
MI/B=F]-V:__XZ/#W9%%%>/@0;)2='\`ZJH$\<T:%)W`T#6`.$%>')AE#%!P]
M32%(\+//8=Y7XQ'KE4:N8%E[\_$XP)9E)58&28['Z""Q/[5%^U.3]D>C?3J>
M]B*>-E3&8CQ%`,,QTOR"-F21[CCTFFD7-?8X/Z8>/7="MC-(;#1/_N`,XA'W
M(AU7\8C!%>%G,`FI=#Y(B9`[&?]9L!DYX\!UAHX8;(+N^5Z9SX;+Z)3\81$4
M@9B*8J2RKF44@T"3AQMOZ<\;#\[+&Q7XN7"Y>3'8Q.\7!OXM/A\]UXVBL?F\
M>/['@\O-+18ZVQ:D-A^A'R<+AI$4MWGB5M[AX`[Q'G(/<JJ+=`N]GKC5<P/'
MIKLO-*:(:EDV4YAL.?G"3,HH9)"3P&"GP@R"GY^B<5#-[`4S\/W)[5GP11@.
MOA"#:`^O7GT1AL']&&HK&')HQ9%Q"O(G80;WPTSTAA3P/+^1SK@L9G&)+&P.
MJMYX=$+N)?I"!)!.A0U)#+LP.5]3T^A-O9(V]"?#H:"]G;NHY.!6D=1,Q^`6
M7'%UN%Z)CW8"'>#D2IE%%@G!FJX@([\S6VL.-T7\;XBV+BK&YM;6O%/59M08
MV8[N]V[&5^\"'RVTCU%I>VS9$31TM!>\*5!S;^&!68F&O@\/!O1J[%[!@R%_
MH7_,#R:%-FNU7L,%]*T0Z2_O/GI<@JI1J]9W'Y6@9IC;):B78*<$N[2)\TG\
M2_92KEY?7%G^RB<:YN9EJ3^U532.M"6%*$W6]J+)VE8F"Y,!C):3*T564AFC
M]"LC$@-90*<`/6FH[PF?>]%TW/==78D3/VFL7D0.\,Q<,7M4L`1`D%>D&W,2
MBSJEQZZE^`<A<CPS)V8>82[&IC0RV[<0"O$^N91Q$./KMCM=.M=`)V#@_W^X
M>J%&+5V[(!B(!^0)&C;+DP-J7@RW4.69?`R9$GR(.\3TCE)ONB)%,9+5QRQ8
MQDS$_$"Z*S61O)5)"CD'0$T45Q.@N=_">5+Z]47IUU/I_XH0R=C)FT7)!2G@
MK<9NM1?S!1Z=CTLVB^M(##K3P;U!JI[C/EK//`Q%[K-/.\A\D*B73<,VMJE;
M3G*M!&HVW^AF*35CLJE(FS_(K#:9_12V*3Y),)#/(;GD%"]V%GFQHWB!H:J#
M&73*TXS4L(LB^_EE5)WJXE:?[Y,*=,5)])RYFDJW2\DK(Q!51Y>W3'_4<_^7
MGGG]-[D!]_5Q_,/Y7[5:J2S7?^L[E1_UW^_Q8-HWHGNR5,<E#8A@)$)A4.*G
M;<B+].IN9.]UZ^RDTWZ#\1\F$O(6/9DUU1N$UE27UV[H%$NF;8.S3NOT58=2
MA4[W]+!]!!0FH96D%CF8&B+;0@M-;030D65.^<7K3^E^\5.H)"U!)";GBR1=
M)GWV2-C7$KZF+H=+:`CT":"#'$?X^O//29UDCEQE=WJGJSMHMQ69*LE)P5(%
M1A+T<W8E,E.8CWJF\CVF-<&%8$+?NM9S78S.QI8W)0@3JCA&Z@JM7-0]1XGI
M^>`DH+@'Q^!BRX0C`R/)R&;\N4>I['QY)7BHZ^K6%N@/F8>5RV+Q7"Z'[[JK
M!<G;70I8ROX,9R4*6K'J?08[L)DL6:<+=LF:52"K;^HZ>\#-HHY]K!]%Q11=
MT5*2@C63EVKR4DM>MI.7^F4IN>;#WW>2CMWDY5'R\CB%.\=@+DTW4U1FBLM,
MD9GU]"W%8^XN@T@1FBG&:HJQ.E]4BJI:6P)133%64XS5%&,U75HU155]?%E,
MI)$IJ7XKGBM<LQ6[P!?O"'Z)HS+4+\)-KXQ<7<4K9@U%L:@K@O[;]N]__9G[
M?W4;_AO@^`?_#[N[*^>_]?K.#___/9[TWOH3]#J^;1FC9PO>G;7B*SCWDOSB
M>ST$;E_3D%!<.1$?-9+39X^-T<B):]D"]N:.C8^G:`[T\>.#%0ZB<MF)"]'2
MKU8,6:Q.G7[B[;F,C!'`%_K\++4X4')'7QRSXF2SDTKW.-297.->Z,LSAY!.
MU:Y$&"GB/V6[=7F`E!A?*9C/M;US,2Z9WLS]/WD9]1OHV*?W?[5>-;?3WW_C
MUN?]O_TC_O\NSP:TY$:*K"D%G5>^B!I\.1X@]U)>!:!2FT\';XXGK\S%(\N#
M/4/>T;UGT)X<T8HB,<;$(OSXR'2(G/&6CKM<>(F?MI&CF_>XD:RKY!K$?_@[
M9.WI2%@#$^AZMJ;Q[V[*RW<=R7R(6V%/XLRO?''S3T%=P=B;_VPQ!=CY_>CX
MI'/0(1,VO[0A3[>SA[;4X%V+D,]\Y=%(GJ"9JEBU6*N"O"Q9]NA4=5XJ/"]!
M7MH)KC?3]WGQ^1(N@2T-PZW>#S<]J,6'BI49-+(B=IXM56:1E2Y5O[R*R=/5
MO<RT2U8RN>LB0]A\`;,,A;7[2JE,(9=2ERA4M=_O1B11F5;\F-[R,UT6M+E;
MB7^_W=D[/3CITKW]A=_=6GQD+&]+IK\_I9\B4AV/%36Y3S&OW%G>0),**.::
M!OQ#4C%.KM4,W:GZ1>Y8T`\&'9NOV*15\M1W4F54LH;:;RSW_]N[TMXVDB/Z
MV?TK!H2R(H&1X4.)UY=BF9:/0)8,T]K86!O,D!R1LR9G"/;0,F'SOZ=>5?4Q
M%&4G0)`@@/@AT9+=TSW5=7?5\Y([@>F<ER6Q>KTLLSI'EG!2C"?$Y-K3N4?S
M]DY[H4U8(M0%EXJE)NZ(Y<#0^FMS&&1N^Y8R&GK9+_FB.%])B0U,GMEL6XZK
M>.,VX(B0DPP%`!19H[:$A)`+@NGQQ9]__4MRC&[O-'F^R/.GO6>IX6PP4W=:
MS`H,URJD#LJ#]Y.>E+8R;>B+TQ[Z.KFPR]](U)71)NB$.UE?$=M->0('[M*5
M.I]F-0KD;-*F5T.ILA:GO3@Y2[K=3FH&+E>^K">D5RXJ**.A5*3%-"0J280O
MA[PD?V::<$+`&J;G8I9)+Y*PW)WDS))6=#W9OLIXU_JC3]K=1Y&V.>A(IS-7
MZ(&!:-_@F,S(&%3XSG#H4_@6X2'2.,*U*+[!OZO<NNK<-(=3M&1R7[><F5Y!
MN)JM++'D^^0N-;W2XCI_44=GWGY97>1?D$`7?R[>QYRDAC@29\,ZG!Z^L'6:
M6+8?,^)9X#,8H%1\7DF3;S:B<R)RULML&O8RTG=P-QBR_DJOE+)Z@M*][J-+
MJNB`6:^>$&\QS:QV;8.0))6UC60-Y2@&'3,/0^NR]22?2;D*/6Z2^"9P>MKK
M2EILN""N(`W,C<M\V0%3(A1%-3R6UT11^`*4(9,X_(Q2.F`^X!9(1AF;$VN,
MF&M)EA8C;J2?H=93FG:FC:=AF)L!S(;!'R0*9I83O48N026/<>L"<0.5,1D@
M#49%B>/EJSAFRT`7`!ALHRR6:136/*Z(#9)]^@.^.TW"R1W(XP)#^1IYDE96
M&V@N8&8?'/`^BT@*Z&_U&4:F*"-JMG%0'2\'VS;HU4(Q+BOP<%&:VE.!:Q:$
M//*8FV'?HG%UY^K3LZW6<W:O$.,>!#48J6GCKI?ENBJ4M'&!%:[Q2/<D)V?'
M>R2&LZ+D7@M$&\3_1$H9TQ&5*!:U#?WE[U!A+>D<E^S@@$ZT="[M\KQB1UG)
M=3D`9`+?1^\*8TAO>NA[Q9A$?#N'X_)<X'7K8+5)@[-R6HB0F(A8J>(B,/R#
M4Q<1RDI9::FFKME]!&?QP$0/?L[.7#:;<_=>T2)KF97,L'C_,71.:^2_U<Y;
MOGPU[KL-V@I%'0$C,A!Q];RST6BA):^B+:,--9ES",DIITV%:)9ZT3T%*LB/
M^#--BILDZ^R\B^`*^,MB9+RNN$(6U)^(!#IE!9`7;-D*(%88(2IV?^"1<,)!
MZ!-TY0T!P#;!%.+_H+@.L`JB<R,1W@K=X/9=6#.G,)EO)IA*;%LOT65#8GNY
M*V0&C$8!)T=LI\*`2%&RD[0M$`IX"R0:O*E]*RSY&X2R(=$LII<W(?5-7%$=
MZWE,['KFY+-'X%)^J3[31N3=O+"0C`@;Z(&P/9F.#!EU7#S30]9MJ:L@PZYF
M&5$&C#Z[J4>/QO5!&&)799U]#1'0T?O#UV^.CWKJKO)F83K%*0)5;*.FETVW
MWWN+MC9I/=@6[5Q1R[N#&5M+>=ORL(9J&\DD+4?EFQ'2!PN*`,A3MH6`IMQE
M991RC1P]8=V^BU(.K5F5"O*K9MU&)]N]7^_MW[]S;__6_?MRJF*'F.BB,@0V
MI^'Q$,-"\9;#V;P%EN:^J(6H+K$K9+0.@@86+7!1J=ZP6VDVW*#9T-%,%KJB
MD,%M(]B&N?^?(CR!5N5"C/.J0J%/]/4=_9KT]D2^CXL;]/'KMGM(ZN>ER=T.
MQ]YN`I'TUK\U?__2_+W;GC>1TGIU\B+IGI[\=G2"H*JGP?IPTU9JV.&`AY(K
M@(<\YQKA;#M!R1AK"15,#3-4*#U`D;2::'$$'E2!BQ:&G2C1[S/(:N1-ML^#
MS>DD_VC@!96QT[\+US[XNH(M4U:E&+PQ.=1EV@@2V"5DJ*+*@?,,,G+!C`#V
M++:$7R3PAS7Z=,2QS+9=+6XZY(FS/RVO:%OF"@N4M$<YVH(&@K+T)>\P^DV`
M4]"'PU.DO9Q(":AB\,1[@'69:?EU5F^Z26IK3#-8IG"#7>R+@BBAP$),.S@3
M4R93-226N7G)L>3S8.L41\HT<X[<\\CWKG#JMP#(%?I9<T5Q0N6OX/I`Z/T6
MK=/ESG[9/)=H?Y`W.D7!(!Q/[LGQ:<@MJE<MGH:8UIM4N3M3=5UPW0YMB]VV
M;:>:)IP@_P-TY5:IKNAX4%=B"PV)SY=X!!X0>]:SC9B$4_!XC"`NT;;$,69@
M*.8<<2#/SXMA`5<#,H!NEY`X$*O(`3GKX5OF\A4V.#B)+"1MJHT^FZ$0$"$`
M'-(W(N4&#C@L1)C?CC8CYL1V'`]2Q/]Y%2S@T[,7I%9Z.%F*$Y<EJ:)JBK:N
MPEHXWY9T3;4L1W$:(H3?;[BZJI@6]4J,1VM,OD`K$-FE?CB[J/Z\L`)TE,9-
MC0C)1,F>J\#:@FOD"[JB]`(J82U$M82](6[*R+<3/Y8A',2-%>'VT%F74-M,
M[`LA9ROKN/XK;1I*DXM\%QB$')4S9A:>5`O8'R2#24&/K.@\:N_A8+VZ&"YQ
M^^+85EPTX`*2R4:U'W-IK'99W\HP*WIPD&MG-*L&VM=%MJ(G^%3"16XDX/!H
MB(M\EG$$KLD"?9%PIF^K`8D+":(UYDQ"HM1WB$OJCC2I8#@Z!58OJJD3%![*
M8<%\D7-P(-\@]*EI=>@D*R`:XF25#B=MO"32T43\D.3EEV)1E>RQGR_RW.CC
M0[<6Z>(4\CL!$PVRD8M&X$R+\F[@JID(5XW\8XBQ@%LR3W,83U3AK\[SC)-R
M.!FD3-[WE@,+1X<-IU,BTNY(;\.:,&O0"&:LE,VAL\.RT8%NAA@:UL>NF[(+
M+?&^IYB"5CKN&H=8.<FG42$1:#@1:)=.V4#6\\%R/`90"^RG6G%2C[9"@^J*
M@>A$+`M!J)/LW@+Y(R0=90_ZUO6$!'\\:>0?Z:]1SI=I1'U^.Z`&Y"ZLZP$-
MA>,EQ_!08(.\OL!6F3XX\BXWCZ*?/HNL,M<6T_,9$H^T8M1K[SQO/MYSLDT6
M-,,0[M?':LO97)0&0X)F9$J'$S-FU(4%IQJ'++N.,]QI\&T+BZ1&&'KE&XXD
M"$8OIU-33<=V+;)XV.PTYY33*U*YR&\R[MV%L_+63>9VCZ'PX68WIZAH9`(L
MTX;=&?AH4-IA(\]RN85U4?_;7-JS2&#?H:3J*UD7LB?SH)R;663OSX<J6(H:
M`G4-]%@S78GL*-&-MA;F[.(0297,EXLYO##1+TY?O>\9E:Q48379)Y'+(^;H
MT7*A><=%Q<VQ0$QE,PLF@4UM$R,$Q4[K@:;$FV-R*:74E]V,5P`4U/;4LACF
M:F%8Q="?K#T$Q<==+N@V.`43-=.BEY4&KGBK9<4A-O%$F>=8R#L=P?^FP]30
MW$$!187%8=A<\+7@*&A"1>[^;!4.]75AA_ETFI5YM83F9?7ZQN%+[*=\46BC
M%05KU,*=T&P,G31;<=A4H\IPKZ[VRN4TRMWLZ6B?#^%L8B,]\YQ\>Y\OHE!:
M@QB-IA$LM7P8TSG`ZXV60_;<1(HE.6S8G84U'8LC*8D")/D3,KK$)>"L+W0B
MWACP^\A0_;8H#;++[)%&9E^!,]D[SMBZD;@PM:#UP#O`RISF1K)ATAC)&^^X
M[(C/T;>T[5XR^YGK?ZP<'(C1ODNT"U=PHY_E+J$!.DH6)/?F!Q3O/I*KB`.K
MZ$^(+&85.[,LWG`PHF0=:QJ)T9IW5A1"%.>\5JW)"QXD:QI)+ZICAXB'E1M3
M'V:)G!Q<:LE=C8SU-D'V'/S`=Z?)LU-CX-"E?+N4(FN#@$RAO<`CI':0$DHH
M\N%S@F[C"X#-/$]TWX8?HWQ/U+82G$"^"A1%$SQ'UE)#7=*&G79/WWR@N%BU
ML+L8!T\4X,C!$EX69%Z:[8F>>>2L0`Y\3O+%R9E1()OD#;G)I/B/27^4-H_=
M]<.GO=/CLW='QQ^`,OOWP[=`F?T0N,@(%Z$(AC/1+J=8S9,I&?"I\*5VT'J,
M!#Y'<D:S8AJ]W.'9NY>G;XWY6S4IDW?`0TT3P47=`HL:[MV/CI+#XQZ='V)?
MT+I]NR,AN#(8!:3XB0Z(?DF;BE]^^FKI%VQDN*Q-C'J>[`*F?/>AM&QGB_G#
M)G:Y(K4E3U[U#COR&\7$_!NR.=I@%#<I=:(*AK`3^A*/2!YC9O@:'2ANB<?)
M+DIT:"]F0,)$^\OF@AOJAM`OLU7R)]'O?5K;*L0WHQSFJO?U-B<95U+E+0VA
MV*WO!-T1'G],AK`XKZ7,2:J;VD_Z'>XQ-3>(OES+#"1:8D*`-#8K'9*/R&-]
M;#73(;ZAG)M&:09'=%&[J>M[BU[CFQNWAM^8?R5>M^WM`T)'ZHZM?H"A$%96
MU`3&8_)SY4TV)F/!OLRV52>BP%6-8C]_G<?)@%O/F7:I$IY+O'`HCGT4)N';
M3O_W6Y_6_N>X\2R<G<VGY\VCP[>%[<O!TT\.3@`C]PX*FPDX8JL#$`%>Z0GK
ML,:D-L2'IW087Y]!#2-J2^:3QD6S_BJ[2![(6G&WL)2K[7!?]$Z<LT`1AU1P
MQ.V4H<">M\&+R3Y>'O9>[G*_Z8ZT_<F/>P??Z#_72-1Q,8<4S(UDX7B4<$UT
MF+O*SI=K9F)L`WX.5\N@]J;1U<>W==\Y(?O=);2_NZNZ[WP#]XDG^7:_N/J$
M?Y&B%2R#O]`$N.ORVC=B[,#H/3"0,2-V=S'(43$>(IN40;0[C)/>W&]^"+:T
M7J>L-6Z$7?&Y-L;0V5Z:1N?<[K@&!-^JVZ2XG,:_0.P-"F]6.\4D^Y1<29Y+
MQ!"&C"C0>$FG@Z1]POV3`V`LX3#/VANOT;J4%GV0O!89<)<[%3RS<H\5H]RK
M\VY_WJHJ4AJUJC)A.I=V$/!9/K9X".`L6^D/E=/:>/E%[JJO1T6O*EQ\`R"B
M'W_YUOHQF'1KG=(,,/P5$S9A:GF\BL;V&5M@9WF2BM'V25LP9'D21.Z*G6W"
MP:ZE(6--3.W99BW:@5Q,L$/KK`QWA]ZUB^ZL'^``W-R/K=9#3^0GLDC?]5Y'
MZK.0/QD<M$C:MY*;-Y.H!9[93X0U>D:JT$+LY>_XP;_O%)^(3?KX?Z_3]:AU
MGV(R;OSR+9S[NBW:6/X]D%]V^OC'-Z+%',M(`7)RN*PK+K2)_(F,\;[@1,E-
M,J?3);X-=_X4SU;\+XGX=)$QMQ^:?O_HY%F_?]T+\C_X1/_^T^')J^='O7?_
M^35^UO]!WV[V?^SO7__[3_^5CU;]&T7_-8X+XAI/HXD"HRU"QK4*7TOL]>?Z
8<_VY_EQ_KC_7G^O/_]WGGX23L!4`>```
`
end
------------------------------
Date: Thu, 19 Jun 1997 08:04:44 GMT
From: tgy@chocobo.org (Tim Gim Yee)
Subject: Re: file date in perl ?
Message-Id: <33a8e643.226059716@news.oz.net>
On Tue, 17 Jun 1997 06:53:51 GMT, cutt@netcom.com (Paul S. Cutt)
wrote:
>I wonder how I can get the date of a file in perl formatted in
>day month year ? Loked at the stat command but does not seem to give the
>time in
>the right format or I do not know how to convert it.
$mtime = (stat $filename)[9]; # Seconds since 1970 or so...
print scalar localtime $mtime;
-- Tim Gim Yee tgy@chocobo.org
http://www.dragonfire.net/~tgy/moogle.html
"Will hack perl for a moogle stuffy, kupo!"
------------------------------
Date: 18 Jun 1997 10:49:13 -0700
From: yfwang@cs.ucsb.edu (Yuan-fang Wang)
Subject: help needed with DB_File
Message-Id: <5o972p$n1r@tao.cs.ucsb.edu>
Folks:
I hope someone can help me with the following:
1. I used dbmopen and dbmclose to manage hash data from CGI. However, I
noticed that the the key/value pairs are limited to 1024 bytes total.
Is there a way to enlarge the 1024 limit? Also, the Perl Camel book
mentions that there is no way to lock/unlock with dbmopen. Then what
happens with multiple simultaneous accesses, will that introduce
inconsistency into the hash data file?
2. I also look into DB_File which seems to overcome the above
difficulties: that DB_File allows key/value pairs to be of any size and
provides a locking and unlocking mechanism for mutual exclusive access
to a hash file. However, 'Use DB_File' returns an error message (meaning
that DB_File is not installed on our site). I went to CPAN and followed the
link ftp://ftp.cdrom.com/pub/perl/CPAN/modules/by-module/DB_File/ only
to find an ILYAZ directory which doesn't seem to contain DB_File. Can
anyone tell me where to get DB_File?
3. If I would like to have (1) key/value pairs to be of any size and
(2) a locking and unlocking mechanism for mutual exclusive access
to a hash file, is DB_File the way to go? Any other ways?
I tried SDBM_File and NDBM_File, but cannot figure out how
to do locking with them.
any pointer will be greatly appreciated.
please reply to yfwang@cs.ucsb.edu
------------------------------
Date: Thu, 19 Jun 1997 00:39:57 -0700
From: perl guy <perlprogrammer@hotmail.com>
Subject: Re: HELP: How to limit the length of contents in guestbook script?
Message-Id: <33A8E24D.25FF@hotmail.com>
Larry D'Anna wrote:
>
> perl guy wrote:
>
> > Larry D'Anna wrote:
> > >
> > > Jimmy wrote:
> > >
> > > > Hi, I have a guestbook script that was created using perl 5, and I
> >
> > > > want
> > > > to limit the length of user's comments. Let say 500 characters.
> > > >
> > > > So, if someone write his comment over 500 characters, he will
> > > > get a message to warn him.
> > > >
> > > > How can I do that?
> > > >
> > > > Thanks,
> > > >
> > > > Jimmy
> > >
> > > Use javaScript to validate the input before it is sent.
> > >
> > > --
> > > Larry D'Anna
> > > javaGuy
> >
> > Well I was going to ask why the heck someoen would make it so others
> > HAVE to have java to use something.? That, to me, is totally uneeded
> > and
> > a waste of time. I use java for some things.. but when using perl/cgi
> > scripts, it's better to (in my opinion) stay away from other things,
> > like java. it's not needed and it's limiting to people going to your
> > sites. /2 the people I know don't surf with java on anyway.. let
> > alone,
> > all the poor sob's that still use non-java capable browsers.. I say
> > that's just a really bad idea!.. I believe he came here to ask (in
> > this
> > *perl* newsgroup), of how to do this, and I always see a lot of people
> >
> > saying to use java.. why?.. i thought this was a perl ng?.. sorry for
> >
> > the sarcasm.. but I think people are pointed towards java too much in
> > here.. it's not needed, they can do it with perl, and they are asking
> > in
> > the perl ng.. so, why use java?.. Hmm.. whatever.. no offense.. but
> > why?.
>
> Well you could use GCI alone to do this but you would have to
> make some response page saying that the entry was unsucsesful
> or whatever so it just seems a lot cleane to check this kind of thing
> client side. It also takes a little of the load of of the server.
>
> As far as people without java capable browsers, Netsscape 4
> _is_ free...
>
> BTW I'm not bashing perl (which I like a lot more than java anyway
> except you can't securly execute it on a web browser or whatever)
> but it you can do it client side why not?
>
> --
> Larry D'Anna
> javaGuy
Don't get me wrong. java is ok for some things.. some things not..
someone emailed me about how java SCRIPT is not *java*.. two different
things.. I suppose I should have mentioned that I program in java.. oh
well.. anyway.. for what this person wanted, it was a few lines of
perl.. you didn't even give the java script. You don't need a java
browser for some things.. but when uyou have to have it.. no one will
want to go and download a browser and then come back.. most people just
pass it up.. not a big deal.. but I just didn't see the point in using
java.. but to each his own.. I'm not bashing either jave or perl.. it
just seems that most people would have to learn java.. it doesn't
matter.. it's great to learn as much about as many languages as you can,
and java is worth leanring.. just with asp sites, and other up and
comming things, it's getting more and more useless.. or so it seems (to
me). I agree perl is better. that's why I'm here looking like an idiot
posting my opinions.
------------------------------
Date: 19 Jun 1997 07:46:50 GMT
From: xmas@arnes.si (Gorazd Bozic)
Subject: Re: How do i convert a (float) to (integer) ?
Message-Id: <5oao5a$39j$2@kanja.arnes.si>
In article <adelton.866206771@aisa.fi.muni.cz>,
Honza Pazdziora <adelton@fi.muni.cz> wrote:
>
>int($random) if you just want to truncate, sprintf("%.0f", $random) if
>you need to round it.
int($random+0.5) rounds the number, no need to go around the corner and
make it inefficient on the way.
--
Gorazd Bozic
------------------------------
Date: Thu, 19 Jun 1997 04:55:28 GMT
From: frank@primemail.com (Frank Fisher)
Subject: Julian Date Function Needed
Message-Id: <33a8bbbb.1597349@news.earthlink.net>
I need to count days into the future; example, today() + 45 days to
get a mm/dd/yy date. Is there a julian date function I can use or
some other perl function that will do the same thing?
Thanks...
--frank
------------------------------
Date: 18 Jun 1997 21:35:47 +0200
From: Andreas Jaeger <aj@arthur.rhein-neckar.de>
Subject: Re: Linux,glibc-2,perl-5.004_1: make test fails
Message-Id: <u8hgevk8ks.fsf@arthur.rhein-neckar.de>
>>>>> Andreas Steffan writes:
> Hi
> I wonder if anyone succeeded in building perl-5.004(_1) with glibc-2
> on Linux.
At least one did it. :-).
> "make" finshed without errors, but "make test" yielded the following
> errors:
> [...]
> Failed 26 test scripts out of 152, 82.89% okay.
> "perl harness" died with a segfault.
> Any ideas ?
> PS: Linux-2.0.29,glibc-2.0.3,perl-5.004_1,gcc-2.7.2.2-glibc
Please send the output of ldd /usr/bin/perl (or wherever perl lives on
your system) and of perl -V. perl should compile without problems with
glibc, there's nothing unusual in your configuration.
Andreas
--
Andreas Jaeger aj@arthur.rhein-neckar.de jaeger@informatik.uni-kl.de
for pgp-key finger ajaeger@alma.student.uni-kl.de
http://www.student.uni-kl.de/~ajaeger/
------------------------------
Date: 19 Jun 1997 08:29:41 GMT
From: "Joop Jansen" <joop@polder.ubc.kun.nl>
Subject: Re: Perl and Tcl which is suitable for automatic testing
Message-Id: <01bc7c8a$f40a0640$2415ae83@beemster>
Hello Chuan Wang,
Use Perl. Its syntax looks more like common programming languages and it is
more powerful.
Kind regards,
Joop Jansen
Chuan Wang <chuan@engr.mun.ca> wrote in article
<5o9lck$59q$1@coranto.ucs.mun.ca>...
> Hi,
>
> I'm new to Perl and Tcl and no experence in software testing. If I want
> to write the testing script, between Perl and Tcl, which one is more
> suitable for that? Any advice is appeciated.
>
------------------------------
Date: 19 Jun 1997 05:53:13 GMT
From: matlar@rsv.se (Mats Larsson)
Subject: scalar vs array
Message-Id: <5oahg9$6d0$1@u30039.rsv.svskt.se>
I tried to call a subroutine in a "smart" way like this, i.e I want
the subrotine to recieve the minussign when no arguments given.
&fil_utskr (@ARGV||"-") unless $opt_P;
sub fil_utskr {
local $file;
FIL: while(<@_>){
$file = shift @_;
if (!open (INFIL,$file)) {
print (STDERR "Kunde inte vppna infil $file\n");
next FIL;
}
print "FIL_START $file\n";
while (<INFIL>) {
.....
if the script is called without arguments it reads STDIN as intended
but if I run the script with one or more arguments, @ARGV will be treated
as a scalar value and the subroutine recieves the number of arguments.
I want to write out information on every file opened that's why I transfer
the filenames to the subroutine instead of just using (<>) for reading.
This is of course not a big problem it's easy to solve in some other way.
It's just interesting to know if there is some way to force ARGV to be
array or is it incompatible whith the || operator.
Mats Larsson
Email: matlar@rsv.se
------------------------------
Date: 19 Jun 1997 06:05:31 GMT
From: Chris Mason <cmason@ros.res.cmu.edu>
Subject: Single proccess network server...
Message-Id: <5oai7b$a8d@news.onramp.net>
All-
I'm trying to implement a network server which accepts multiple
connections within a single process. All of the example networking code I
can find shows either blocking io and one connection at a time, or
forking a child to handle each connection. I don't want to fork because
it negates the gain I'm getting by writing this server (if you care, see
the `Tie and Multidimensional Hashes...' thread). I think what I need is
non-blocking io and accept() calls, but I don't know enough about sockets
to do that.
I've got some code below, but my problem is that both accept() and
network input block the proccess, causing none of the other connections
to be serviced. These two blocking calls are commented as `PROBLEM'
below. I'm also having problems with accept and storing the filehandle
it is "passed". I seemed to have hacked around this with FileHandle, but
I'm still having problems.
Any help, comments, advice would be greatly appreciated. (Style comments
are cool too, I can always stand to learn more about perl.)
-c
I'd like to do something like the following:
----cut here------
#!/usr/bin/perl -w
# single process server (doesn't work yet)
# Chris Mason <cmason@ros.res.cmu.edu> 18 Jun 1997 v.000001
use Socket;
use FileHandle;
$debugging = 1;
### globals #################################################
$working = 1;
#%HASHES = {}; # the hashes (see `Tie and Multidimensional...')
%CONNS = {}; # a hash of existing connections
### subroutines #############################################
sub debugmsg {if ($debugging) {print @_;}}
sub done { $working = 0 };
$SIG{HUP} = \&done; # allow graceful shutdown.
# the handler routine handles one atomic action with the child.
# it will be called repeatedly to grab input and respond to
# commands. more than one of these can exist. it returns 1
# if the connection is closed (and needs to be deleted. otherwise
# it returns 0.
sub handler {
my ($conn) = @_;
my $socket = $CONNS{$conn}{'socket'};
my $host = $CONNS{$conn}{'host'};
my $port = $CONNS{$conn}{'port'};
my $in = <$socket>; # BLOCKS?? PROBLEM!
if ($in) {
debugmsg("Command $in recieved from $host $port.\n");
if ($in =~ /^COMMAND1/) {
print $socket "This is output for command one.\n";
} elsif ($in =~ /^COMMAND2/) {
#bunch of commands to handle here...
} elsif ($in =~ /^CLOSE/) {
print $socket "Connection dieing.\n";
debugmsg("Closing connection from $host $port.\n");
close $socket;
return 1; #this connection is done.
} else {
print $socket "Unknown command.\n";
}
}
return 0; # everything is rosey
} # sub handler
### initialization ##########################################
#just about everything here comes from Camel pg 349-50
my $port = shift || 1978; #'twas a good year
if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
my $proto = getprotobyname('tcp');
debugmsg("Server starting... using port $port...\n");
socket(Incoming, PF_INET, SOCK_STREAM, $proto) or die "socket(): $!.\n";
debugmsg("socket() ok.\n");
setsockopt(Incoming, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))
or die ("setsockopt(): $!.\n");
debugmsg("setsockopt() ok.\n");
bind (Incoming, sockaddr_in($port, INADDR_ANY))
or die ("bind(): $!.\n");
debugmsg("bind() ok.\n");
listen(Incoming, SOMAXCONN) or die ("listen(): $!.\n");
debugmsg("listen() ok.\n");
debugmsg("Server started. Listening for connections...\n");
### main loop ##############################################
my $paddr;
my $next = 0;
while ($working) {
#call each connections handler in turn.
foreach $connection (keys %CONNS) {
my $close = &{ $CONNS{$connection}{'handler'} }($connection);
undef $CONNS{$connection} if $close;
}
#grab a new connection if its in the queue
$paddr = accept ($tempsocket, Incoming); # BLOCKS! PROBLEM!
die ("accept(): $!.\n") if $!;
if ($paddr) { #we've got a new connection to handle.
#this is not very pretty...
my $tempsocket = new FileHandle;
$CONNS{++$next}{'paddr'} = $paddr;
$CONNS{$next}{'socket'} = $tempsocket;
($CONNS{$next}{'port'}, $CONNS{$next}{'iaddr'}) = sockaddr_in($paddr);
$CONNS{$next}{'host'} = gethostbyaddr($CONNS{$next}{'iaddr'}, AF_INET);
$CONNS{$next}{'handler'} = \&handler;
debugmsg("New connection from $CONNS{$next}{'host'}\
$CONNS{$next}{'port'}.\n");
}
}
debugmsg("Gracefully shutting down...");
foreach $connection (keys %CONNS) {
print ${CONNS{$connection}{'socket'}} "Closing now.\n";
close $CONNS{$connection}{'socket'};
}
debugmsg("Done.\n");
__END__
--
Chris Mason -- <cmason@ros.res.cmu.edu> <http://ros.res.cmu.edu/>
"We have to go. I'm almost happy here." "So stay." "I've lived too long
with pain. I won't know who I am without it." -O.S.Card,_Ender's_Game_
------------------------------
Date: Thu, 19 Jun 1997 03:29:44 -0500
From: Wesley Miaw <wesley@woais.com>
Subject: Re: Sorting Associative Array? (Urgent)
Message-Id: <33A8EDF8.69C3@woais.com>
John Bokma wrote:
> You can't sort an associative array. However you can walk trough all
> the values in sorted
> order e.g. to print the key-values:
>
> foreach $key (sort keys %array)
> {
> print "$key containts $array{$key}\n";
> }
>
> or assign the keys in sorted order to an array:
>
> @sorted = sort keys %array;
Well, the sort is only one step farther.
foreach $key (sort keys %hash) {
$key_sorted_hash{$key} = %hash{$key};
}
--
Wesley Miaw wesley@woais.com
World of Artists Internet Services http://www.woais.com/
71 Middlesex Drive Tel: 518-439-0412
Slingerlands, NY 12159 FAX: 518-439-9722
------------------------------
Date: Wed, 18 Jun 1997 23:02:36 -0600
From: Josin Alvistur <josin@dimensional.com>
To: rmiug discuss <rmiug-discuss@rmiug.org>
Subject: WANTED: perl script for base64 MIME decoding
Message-Id: <Pine.SUN.3.96.970618225813.18068A-100000@flatland.dimensional.com>
would appreciate pointers on how to get one.
searched the web, but only found C versions.
thanks - josin
_________________________________________________________________________
In Heaven there will be no DOS, no Intel, and above all, no Bill.
------------------------------
Date: 19 Jun 1997 04:59:22 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: WANTED: perl script for base64 MIME decoding
Message-Id: <5oaeba$6gq@fridge-nf0.shore.net>
Josin Alvistur (josin@dimensional.com) wrote:
: would appreciate pointers on how to get one.
Get MIMETools or use the MIME modules which were included with LWP.
http://www.perl.com/CPAN/modules/by-module/MIME/
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
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 634
*************************************
