[8108] in Perl-Users-Digest
Perl-Users Digest, Issue: 1727 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 25 20:07:38 1998
Date: Sun, 25 Jan 98 17:00:31 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 25 Jan 1998 Volume: 8 Number: 1727
Today's topics:
Re: /x regex mystery (Tad McClellan)
Re: Bad (Swear) Word Checking (Dave Power)
Re: Bad (Swear) Word Checking (brian d foy)
Re: Bad (Swear) Word Checking <jason@primal.ucdavis.edu>
Re: Bad (Swear) Word Checking <tchrist@mox.perl.com>
Re: Calling CGI script from other CGI script (Chip Salzenberg)
Re: can not run a brand new install of PERL <shaker@netusa1.net>
Re: Can't get Perl to find modules in Lib directory whe (Chip Salzenberg)
Re: CGI.pm and server errors <sanjay@cis.ohio-state.edu>
Re: FAQ too big (Was: Re: PERL forking) <$_=qq!fearless\@NOSPAMio.com!;y/A-Z//d;print>
Re: HELP!!! - How do you add #'s within an array (brian d foy)
Re: how to do formfeed/pagebreak (brian d foy)
Re: how to do formfeed/pagebreak <tchrist@mox.perl.com>
I/O to a tty <oberoc@hex.net>
Re: Is Perl cron-able? (Chip Salzenberg)
let cgi-script redirect to another page aveffere@iaehv.nl
Re: let cgi-script redirect to another page (brian d foy)
Local module bundles? tdahm@montesano.com
Re: MacPerl CD-ROM, Version 0.5 (Tony L. Svanstrom)
newbie perl programmer requests help (MAC) rafiki@pride.rock
Re: newbie perl programmer requests help (MAC) (brian d foy)
news->News gateway (Ton Hospel)
NO CGI HERE PLEASE (was Re: Server Push Problem) (Chip Salzenberg)
Re: Odd syntax problem <vladimir@cs.ualberta.ca>
Re: Odd syntax problem <vladimir@cs.ualberta.ca>
Re: Perl Source Obfuscator (brian d foy)
Re: Perl Source Obfuscator (Gabor)
Re: Perl Source Obfuscator <tchrist@mox.perl.com>
perl/sgml consultant needed <kiyot@earthlink.net>
Re: POSIX workaround for Win32? (Chip Salzenberg)
questions about *DB* usage <rjberman@mindspring.com>
Re: Reg-ex problem (brian d foy)
Request: GUI's considered harmful <brannon@surf.usc.edu>
Re: Request: GUI's considered harmful <tchrist@mox.perl.com>
Re: Stored Procedures using Oraperl (John D Groenveld)
Re: Survival Of perl (Chip Salzenberg)
Re: Using Cgi Script to Redirect User By Domain Name? H (brian d foy)
What the sys$command ! <Nick.Jones@btinternet.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 25 Jan 1998 13:04:03 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: /x regex mystery
Message-Id: <3b2ga6.q38.ln@localhost>
B. K. Oxley (binkley) (binkley@bigfoot.com) wrote:
: However, wouldn't it be a nice enhancement to /x to have it only strip
: whitespace adjacent to regex operators? In which case, the above example
: would leave the space between "Tom" and "Christiansen" alone, but strip it
: elsewhere.
Heck no!
What would that do to this:
/( # start remembering
\w # one word char
) # stop remembering
/x;
What do you mean by "regex operators" exactly?
Only quantifiers (* + ? {n,n}...) ?
Anything with a regex 'meta-meaning'?
What about the pattern match delimiting characters?
Besides launching such a cascade of questions, it would break
existing code.
Maybe I don't really understand what you have in mind...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 25 Jan 1998 22:53:57 GMT
From: dave.power@adpdesign.com (Dave Power)
Subject: Re: Bad (Swear) Word Checking
Message-Id: <34cbc1fb.2073286@news.virgin.net>
On Sun, 25 Jan 1998 15:03:15 -0500, Chipmunk <rjk@coos.dartmouth.edu>
wrote:
>Dave Power wrote:
>>
>> Does anyone know if a 'Bad Word' (dubious or definite swear words)
>> file exists which may be available. I think I know most of the English
>> ones (but then I'm not that sure that I do). I'm really looking for a
>> definitive list covering at least the western world languages.
>
>This one's more of a phrase than a word:
>
>"People who post questions to clpm which have nothing to do with Perl."
>
>Chipmunk
>
>(Hope I didn't offend anyone. ;-)
The thing is I'm trying to validate a form, the contents of which will
be transmitted to ithers.
I need to know if the content may be offensive. This is a Perl app
Chippy!
Dave
------------------------------
Date: Sun, 25 Jan 1998 18:42:48 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Bad (Swear) Word Checking
Message-Id: <comdog-ya02408000R2501981842480001@news.panix.com>
Keywords: from just another new york perl hacker
In article <34cbc1fb.2073286@news.virgin.net>, dave.power@adpdesign.com (Dave Power) posted:
>The thing is I'm trying to validate a form, the contents of which will
>be transmitted to ithers.
>
>I need to know if the content may be offensive. This is a Perl app
figure out how to do that successfully and consistently, and some
university may give you an honorary degree.
in any case, it's not a Perl issue, even though you may be using Perl
to implement it.
--
brian d foy <comdog@computerdog.com>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
offense is subjective
------------------------------
Date: Sun, 25 Jan 1998 15:30:30 -0800
From: Jason Christian <jason@primal.ucdavis.edu>
Subject: Re: Bad (Swear) Word Checking
Message-Id: <Pine.OSF.3.95.980125151945.17403A-100000@primal.ucdavis.edu>
On Sun, 25 Jan 1998, Dave Power wrote:
> On Sun, 25 Jan 1998 15:03:15 -0500, Chipmunk <rjk@coos.dartmouth.edu>
> wrote:
>
> >Dave Power wrote:
> >>
> >> Does anyone know if a 'Bad Word' (dubious or definite swear words)
> >> file exists which may be available. I think I know most of the English
> >> ones (but then I'm not that sure that I do). I'm really looking for a
> >> definitive list covering at least the western world languages.
> >
> >This one's more of a phrase than a word:
> >
> >"People who post questions to clpm which have nothing to do with Perl."
> >
> >Chipmunk
> >
> >(Hope I didn't offend anyone. ;-)
>
> The thing is I'm trying to validate a form, the contents of which will
> be transmitted to ithers.
>
> I need to know if the content may be offensive. This is a Perl app
> Chippy!
I might set up a hash %naughty, such that $naughty{obfuscate}=1,
naughty{binary}=1; $naughty{hoard}=1; and so on.
Then if you have a word $word taken from your form that you want to
check, then you can do something like
unless ($naughty{$word}){&CARRYONJEEVES}else{&WASHOUTMOUTHWITHSOAP}
Of course the version 1 hash might be foiled by $word='binarY' but you
can always update it after a few naughties with wierd capitalization
slip through.
That's one way of doing the perl end. Rereading your question I see
that you really wanted the list of naughties, which indeed is not a perl
question, but I did at least give you some of the leading naughties from
a Perl perspective.
t
---------------------------------------------------------------------------
Jason Christian University of California, Davis
jason@primal.ucdavis.edu Agricultural and Resource Economics
Office:(530)752-1357 FAX:(530)752-5614 Davis, CA 95616
------------------------------
Date: 26 Jan 1998 00:41:16 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Bad (Swear) Word Checking
Message-Id: <6agm3c$kbo$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
dave.power@adpdesign.com (Dave Power) writes:
:Does anyone know if a 'Bad Word' (dubious or definite swear words)
:file exists which may be available. I think I know most of the English
:ones (but then I'm not that sure that I do). I'm really looking for a
:definitive list covering at least the western world languages.
Encoded so as not to scare anyone with the naughty bits.
--tom
#!/bin/sh
# This is a shell archive (produced by GNU sharutils 4.2).
# To extract the files from this archive, save it to some FILE, remove
# everything before the `!/bin/sh' line above, then type `sh FILE'.
#
# Made on 1998-01-25 17:39 MST by <tchrist@jhereg.perl.com>.
# Source directory was `/usr/local/etc'.
#
# Existing files will *not* be overwritten unless `-c' is specified.
# This format requires very little intelligence at unshar time.
# "if test", "echo", "mkdir", and "sed" may be needed.
#
# This shar contains:
# length mode name
# ------ ---------- ------------------------------------------
# 11907 -rwxr-xr-x ftpucheck
#
echo=echo
if mkdir _sh16116; then
$echo 'x -' 'creating lock directory'
else
$echo 'failed to create lock directory'
exit 1
fi
# ============= ftpucheck ==============
if test -f 'ftpucheck' && test "$first_param" != -c; then
$echo 'x -' SKIPPING 'ftpucheck' '(file already exists)'
else
shar: Saving ftpucheck (gzipped)
$echo 'x -' extracting 'ftpucheck' '(gzipped)'
sed 's/^X//' << 'SHAR_EOF' > _sh16116/uue &&
Xbegin 600 _sh16116/gzi
XM'XL(`*`Z:3,"`^U9;7/;-A+^+/P*1-;$DJ-7MYVT=E[L-&ZF<ZG3B>/V[B)'
XMA4A(8D02#`A:HNO<;[]G05*293E68B7WY3HQ10+8Q>ZS+]A%M^ZUDEBW^E[8
XMBJ3VV1;;XL)UM3.2SI@W>"`\WP[(..9V4&HLZ:?<."/MQ>:`R)J."C#ZLXI2
XM[0U'AG=^^NDA?Z,"_K-=Y(DPEB%6G$L=>RKDG6:[W>&_:(__(ON\\SWO_+"W
XMV]YK[_+?3MY8:L:VUO@/+,W(BWFDU5"+@!LQEC$7(9=7!!<Q]PQ^]#`)9&A(
XMQ]#EKG0\%\LG(VE&4O-4)=M:\K[TPB&/(Z4&TN5*\U"9)D@\P^44RL2\S;T!
XM??H>[0;:8J.ZY=O)IUTEXW#;TN*?`ZGZDAL9&[#U0B.U<(QW+OVTR8D"VRP.
XMUXG%Q/-A$Y[$DL=I[*MATUHH'JG$=XF=EA/M&2-#D(*Q@,`#_CZ)#1]J-2%%
XMSCW!1\(9Q\WU$&65EZ]>O#AZS3E_S+=GWH&]AU)O[W.^19C8\<3I/V65XY.7
XMKU[]X_3W*\M#"*O&2;2"@%6>'ST[?8'E#<-/WCS_]9C?OY^_OSI]L\\JA=D>
XM0U%O8/CE)7<]R<M)+(9RCU?:!=[=L+S/V`#LJP51C?_-(#J/6^\:#UJM??MA
XM=.NP\>^6:%Q@X"-CU0H0U75>&:G8U&B?R`?:K>Y!"X,Y)W#>XA.9>3W@S3Q-
XM:1>NTI>.(*,`[#B2TMTO''$BTL)N?$`N&"BXU(?$<\:P,V.662\2<3QQ,REJ
XM^Z4M'F$^90Q>4)UK_Q\2J-F"1MQJD=&2R-5,\$PY9_SC[NY<?P#.P1'NX.C$
XMB+XO[2HWC'N604%K5\%*$P($CFUX>W_-H.,L3OJ\#V?+L-[B+UZ^>G;X$GAZ
XM,>EFPZ`R&0ECYZU:UNADG5*DX>:\;.?Y7P7--@=\X+G'#WK6KD3YD4L?,(,(
XM[F]DP'/GK+-2B>;+C:A<YV57R$"%3420YT@,S&8-S0Y,E%C5RT16?O;JQ>D)
XM[Y[:_;M'<Z&KH8Y.XZ4S8?-!R<),(E$BR.E[2
XMB$*TVIW4NIV_OZM_;"T234:>D2N6=^,KR]XGX7C%JK?[]6YKZ]W.6;&X\@>Y
XMB9">2M+<46Q4+1*%TL2.B&2+$N:5F7?!V\H?9SMOXXNS!_;-SWZZ?^Y46G/4
XM`W6!O"7*M:O`7MMHFEX\2!?H\'V1+E/AC$4.C$4@<_#6!?1=M0E`'U0*U9&$
XM!?)%3C#GD@Q];,J3T*=L>14^9/JS*SCWZ02,A+/*)&^[[4Z[VWGX<(YVOADP
XM+W^82&W2Q%-8[PZ&H_=C_V+JG/?#(`C[Y\[TPA^_'PT'VHU%I+PD-3B2/Y1G
XMLCL*I8^3T(D^EV9A,).'V7QUS3V?\%V<C4A:U2(,<L'J?+[(!F2>\2XO[4MU
XM"=#NY`$@K;3HH"TVZ5CV.1W&KVW0R5G7L*:VB*66D11FM>FPTU,*A]WZQYD!
XM%_/]WIP`Z7ZHE(M<;_G8\P$4.(UNSJ)T=.6'SE(&I9EU,FCF@,J0T\R]9SG)
XM;#>W`8]-,5\A[]XI4X*FEY4M!8-0)*BY4TZC*XQ2Z;6\;Y0I-YSTKD9^G;M"
XMAYY!Y9*56E1C96589_=AL\.-RDHN@^IX./I_HOA?)HK/CGF*\5F-.JLK!YY&
XMP!N=4D_WVS_1[C@HP.O4<X4T=$@CO$J1`;S\E%`<>.A47!L-<2V3)DBS4G^>
XM"Q;R1`NC"70:[*_(*^7GQR?YKN4;LHOE#"5RD:D='"C?S[HO*(S>F)I.KA)C
XM0Y@,BIXM!5L1P[Y[&6&)CEG^5]$X\<:'1.KT<3#--OC+6LAVM7**N`W1C;7R
XM+16UKQ,/@4`O".NB.RPR0Y^Z7W0PEE,16G(;\=-/K199=5VMV<)]*`W/VGA!
XM+:]TSJ-J;5X*J$B&U>,3%-:-RW+-IB$:?G1\\F25C';!LDO`EK=ZA25R?`6U
XMCD_R3RU-HD-\?%QJ#ZQ0)T<0ZLE]])%'KU]3/9(/VV^::KGRO!7:?(M)4HW/
XMVE<D_1GDV_7"JLL<[I\<65K;CZ*EW\X0XH79H-6]\O7R:05FE1Y\AT#;S_!K
XMB3!&!MEK[AQFG5PK7@W=X5V1R[8[1F6&S:R>LSWW6K'WE7;]>O82&S67S;O'
XMBB/PB92&LP*$VFQJQ8M\;;\;C?Q^H+A$*KIW8'0N?,_E>N!P6IE/%%EB^?;,
XM#N>3D:#4&G)H+WUH1-=%LRNN?LK?#[0G77^?%Z>YA':_"82PIISS6@X37VA^
XM-(UH1P\YILP'6@7\U>M#FX)<:1"D\3QE%<>IU!K3*N2Q"J`/<:-++MM#-PM9
XMF^7B_B.GAYAA?NI2#K>G-MVXU4EYTAT.)&F@B>)AE-B[J%4U7`[1]C[[9!VW
XM,-<KSF$O[HF>!;R'/7O8M$?<B&O!#L4)2I[JH^>';PZ?6"=W1BJ(X!TW4C<?
XM7RG"%DK@3"\J-Q(M;R@NWE7^OH$Q:F.U__GGY,?;;B'HEA(5DH<-+X0AP]]&
XMP)X=O?CU&&!8:6QE"LP^3#!0$F[@A?CQHY'`3RC"-%!)3*\JS)[Y0!]E9*GO
XM#1N^E[V%]+@06DN\^,(^1GBJH5V>!$$*^`5"AY4B/QFG*L'+*']Q<'Q*Q]!+
XM$-'5"$HBO"L?3U3=K/1<^O(%?"KS>82W/*<L07$N_"3"K])C/+-]W"0,%=)'
XM$/DJE6!EJPI40@.%88JE$*4#WDP42Z&=46,FP`#2#!5V'"82)R=^PG&FN4>:
XM@]=PPDITO4IBH)H^M\M&$N<__9#^(P]_R$Y!+NQ(35SLYKET$UWRY'=M4A%O
XM6`!5/0<T7CA0V5,'WI3>0.K(R"B=?Z#99Z7W5AP?F3Q[8C*S@*^&9`,_=13P
XM#L04S/&+98%'(8Y?%0O/8:58)9IVC#4^0M57)!OTD]FS,0[5)*3W3,C0.&1[
XMA6U1S_05"B<8;D$[2CFY:E'2]VF+WQ/3^Q>VZ1U1:=#+CQI60A^IM.F)O@52
XM*P6:6"".Z,<(;!/+V.H6*^0,^@ED)B"B)!RGN=2QL;>G^14A*YD,=V"3R7Z:
XMO?2.\_N1WJE5Y334<NB1U-*EU>?(G@//OF?S>![;[<DFC07%SKUSS[4&F,A^
XMH?ADI)`'\?*G%Y)O8D3!-Z;I119;'_,TE%UUS8-,4&SUH89P4+<1^WEXX1E_
XM2#R(E-UP<G)U7PXM>[@K.6<THDV'"B<*;**%XV-.&3,R-$_99`YGQHOZ-ZN'
XML<X*'2#F=$G*HLW,!2U1\N_:DZKDI'VI<1P%*A]`^'=GA]B,0W&[N)!/R.Z2
XME'('])G[@8@')!6-H6="@+P?SY(#0E5.!(4V,N6YU;MA0\YJ1_ZTZ-+&8C&+
XM(LL271<KC4=XA-:8A8]#@2DYC:!%A>MDEI],)@4:^7%O6_^Y(G$\4@2SHP6D
XM<*S57!&$E#`<"!]Y%G5TPWC:$8,*'.PCY#<]1YH2.G<5E25&)<XH.XEAG\$`
XMPY.06_Q4]K^FJ%I'RS"V'49^``4"9I>ZR7J]H^/GO1ZK/MU#E_I]NVO.+KM5
XM^GK7[7:G/[8;W>E@T`W1P?Y0K6&NBXEB>/52MGIM;:=;R_Y`8JFJM&'MT9.#
XM^OY>N0D>;[MGW78;Z]O?/<P(&5$^J#Z]M]9JN\UE>;7T979=HG(ME^5S56>#
XMSX%IKGJW>7TW]L5(7U_*KB&]-G#74&9?!O,JE&ML9W,.QFY%^6#MS=B7@'P#
XMQNQ+0+YA,<M![KY=+1!1K!#I;)4_LSO$\O)2MHY#K[D;NP/6R^BQ.V"]##5;
XM%^O:SN5M`<;N(-!R@+%/15@FR#+;F2(9_TX;?[NT$7MXYS1_0PP5QOJL_+#S
XM*/<BMHD#*%_*/N5&!Y_GMFPS*<+:G6TF1=C%;#,I8J7??_$AA&&VF11AE[+-
XMI`B+'MM,BICGZ%M3Q'H%!KL3V@OJUVV^WU`EA_RUJ8.V2W:<;BR*V*8.VJR6
XMVU@4L<V5<E.VJ8,62]FF#EJ@QS9UT&*0K7G0UG9NCR)VQYRUH'Z-/;U3Z7QE
XM,;M3Z7S5S]C&3NTN]1UK=BA?KQ]:A3+;R,F8H<S6[E!VOJ5_'7SK?GM=V-C=
XMCL0KL<P^K_RXO:_=4,?]5?NA.Z0-=@>LSU;57V?K>/7MNK-UH7Y2^Y8QQ/X+
X(19!;\H,N``"X
X`
Xend
SHAR_EOF
$echo 'uudecoding file' 'ftpucheck' &&
uudecode _sh16116/uue < _sh16116/uue &&
$echo 'gunzipping file' 'ftpucheck' &&
gzip -d < _sh16116/gzi > 'ftpucheck' &&
: || $echo 'restore of' 'ftpucheck' 'failed'
fi
rm -fr _sh16116
exit 0
--
Tom Christiansen tchrist@jhereg.perl.com
I am a little more weird today than normal. --Andrew Hume
------------------------------
Date: Mon, 26 Jan 1998 00:45:29 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Calling CGI script from other CGI script
Message-Id: <6agmet$a8o$1@cyprus.atlantic.net>
According to tadmc@flash.net (Tad McClellan):
>Default (danielle@broken-heart.com) wrote:
>: Please reply
>: to webmaster@_nospam_whitney-fan.com
>: but remove the _no spam_ part first.
>
>That joke is too old to be funny anymore...
Spam is no joke. Neither is Spam fighting.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
-> Ask me about Perl training and consulting <-
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
------------------------------
Date: 25 Jan 1998 22:40:29 GMT
From: "V. Chandrasekhar" <shaker@netusa1.net>
Subject: Re: can not run a brand new install of PERL
Message-Id: <01bd29e2$4c86eae0$4baa8bcd@space.netusa1.net>
Thanks for the info, especially regarding the editor.
I have a question which I ask below (after your quoted text).
Duncan Cameron <dcameron@bcs.org.uk> wrote in article
<01bd29d2$79e0f9a0$873963c3@dns.btinternet.com>...
> Roughly, yes that is how to run perl under Windows 95 and, I
guess, any
> other system. It's a command line based program.
>
> It need not be as difficult as you suggest. Leave your DOS
window open
> while you're creating and editing your scripts, then just
switch back to
> the DOS window and run perl again.
How do I leave the DOS Window open ? I get the DOS wondow by
Start->Programs->MS-DOS Prompt. In order to get back to Windows
95,
I have to type in 'exit'. Is there another way of getting to the
DOS window
and keeping it open ? (Apparently there is. I don't know what it
is.)
Thanks and regards.
Shaker
------------------------------
Date: Mon, 26 Jan 1998 00:34:09 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Can't get Perl to find modules in Lib directory when compiling
Message-Id: <6aglpm$a72$1@cyprus.atlantic.net>
According to gabor@vnode.vmunix.com (Gabor):
>perl -e '$" = "\n";print "@INC\n";'
This info is also reported by the "perl -V" command.
>BEGIN {
> push @INC,"full path to your lib dir";
>}
Modern perls allow
use lib "full path";
for convenience.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
-> Ask me about Perl training and consulting <-
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
------------------------------
Date: Sun, 25 Jan 1998 15:57:42 -0500
From: Sanjay Vohra <sanjay@cis.ohio-state.edu>
Subject: Re: CGI.pm and server errors
Message-Id: <34CBA745.DA9D7A5D@cis.ohio-state.edu>
i wonder what i am missing,
all the script is supposed to do is print a couple of lines of html but i
keep getting this error about CGI::isa not
found and then the server coughs up some error
sv
------------------------------
Date: Sun, 25 Jan 1998 14:10:33 -0800
From: "Creede Lambard" <$_=qq!fearless\@NOSPAMio.com!;y/A-Z//d;print>
Subject: Re: FAQ too big (Was: Re: PERL forking)
Message-Id: <6agkoc$rht@bgtnsc02.worldnet.att.net>
Chip Salzenberg wrote in message <6aflqq$8ui$1@cyprus.atlantic.net>...
>Why do Windows users
>expect anything more than grep + edit w/search?
Since grep doesn't come with Windows out of the box, most Windows users
probably don't know it exists. Sad, I know, but true.
>BTW, if you don't want to install "grep", the standard DOS utility
>"find" serves:
>
> find /i "thing" filename
>
>(The "/i" flag means "case-insensitive".) It's nowhere as nice to use
>as grep, but it'll do in a pinch. For help, type "find /h".
"find /? in Windows 95"
You can also do this graphically by going to the Start button and choosing
"Find / Files and Folders" and specify both a filename in the "Named" box
and a string in the "Containing Text" box. Any files found can be drug and
dropped into a shortcut to your editor on the desktop. Personally, I like
PFE because when Perl tells me there's a syntax error in line 1323 I can
just go straight to that line.
--- Creede Lambard
Minister of Irregular Expressions
Programming Republic of Perl
------------------------------
Date: Sun, 25 Jan 1998 16:12:23 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: HELP!!! - How do you add #'s within an array
Message-Id: <comdog-ya02408000R2501981612230001@news.panix.com>
Keywords: from just another new york perl hacker
In article <34cafcb1.524144494f47414741@radiogaga.harz.de>, MARTIN@RADIOGAGA.HARZ.DE posted:
>$sum = eval join '+', @file; # TMTOWTDI ;-)
>Disclaimer: I know that adding up the values in a loop is more than 10 times
>faster.
but is it 10 times as much fun?
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: Sun, 25 Jan 1998 16:23:33 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: how to do formfeed/pagebreak
Message-Id: <comdog-ya02408000R2501981623330001@news.panix.com>
Keywords: from just another new york perl hacker
In article <Pine.GSO.3.96.980125124005.22096T-100000@user2.teleport.com>, Tom Phoenix <rootbeer@teleport.com> posted:
>On Sun, 25 Jan 1998, Patience wrote:
>
>> I want to use perl to generate simple forms for printout. Would you
>> tell me how to do formfeed/pagebreak?
>
>You simply print whatever character your system (or printer) uses to
>denote a page break. Check your system's docs (or your printer's) to find
>out what character that is. On some systems, it's character 12, also known
>as control-L,
doesn't Perl do the translation of \f to whatever the local
representation of a form feed is? it's never not worked for me,
but then i've never tried it on a PoB system.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 26 Jan 1998 00:23:27 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: how to do formfeed/pagebreak
Message-Id: <6agl1v$ip8$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, feng@haas.berkeley.edu writes:
:I want to use perl to generate simple forms for printout. Would you
:tell me how to do formfeed/pagebreak?
% man perlop
[...]
\f form feed (FF)
Thus, print "\f" would do it.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Whenever people agree with me I always feel I must be wrong.
--Oscar Wilde
------------------------------
Date: Sun, 25 Jan 1998 16:11:01 -0600
From: "Tino W. Dai" <oberoc@hex.net>
Subject: I/O to a tty
Message-Id: <34CBB875.6C1EEF7E@hex.net>
Hi Everyone,
I have this program that is my alarm clock. When it reaches a certain
time, it plays a certain sound file. To shut the alarm clock off, the
program prints out a string of random words that have to be entered
verbatim. I launch this program through either cron or rc.local
(startup scripts). My question how to get it to write and this read from
a specify tty, lets say the last one that was accessed according to the
who command. Thanks in advance.
Tino
PS: Please respond by email, I don't read this group too often. Thanks
oberoc@hex.net
------------------------------
Date: Mon, 26 Jan 1998 00:20:35 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Is Perl cron-able?
Message-Id: <6agl09$a4v$1@cyprus.atlantic.net>
According to "jgaff" <jgaff@_no_spam_technologist.com>:
>Does Perl have special problems or considerations when running as a cron
>job?
Nope. Perhaps your Perl program is depending on some aspect of the
environment that isn't available from cron. Or perhaps you're running
"perl scriptname" from cron, and perl isn't in cron's minimal PATH.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
-> Ask me about Perl training and consulting <-
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
------------------------------
Date: Sun, 25 Jan 1998 16:40:41 -0600
From: aveffere@iaehv.nl
Subject: let cgi-script redirect to another page
Message-Id: <6agf1a$7ds$1@nnrp2.dejanews.com>
Hi,
Is there a way to let a cgi-script redirect a user to another page without
using 'print ("Location: http://www.somewhere.com/") (because it doesn't
update the location bar of the browser). When i use the 'location' - option,
the cgi-script opens the new location but the location-bar of the browser
still shows the link to the cgi-script. So, when you click on a link
on a redirected homepage you'll get this :
http://www.somewhere.com/cgi-bin/somewhere.html
in stead of this:
http://www.anotherplace.com/somewhere.html.
Is there a way to change the location-bar from within the cgi-script?
thanks,
Arjen van Efferen
------------------------------
Date: Sun, 25 Jan 1998 18:40:34 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: let cgi-script redirect to another page
Message-Id: <comdog-ya02408000R2501981840340001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6agf1a$7ds$1@nnrp2.dejanews.com>, aveffere@iaehv.nl posted:
>Is there a way to let a cgi-script redirect a user to another page without
>using 'print ("Location: http://www.somewhere.com/") (because it doesn't
it would be the same way that any other language would do it. perhaps
you meant to ask in comp.infosystems.www.authoring.cgi. you might
also want to read the HTTP specification sections on redirection
(see the CGI Meta FAQ for references).
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: Sun, 25 Jan 1998 15:36:29 -0600
From: tdahm@montesano.com
Subject: Local module bundles?
Message-Id: <885759822.364838913@dejanews.com>
Is there any way to install a local copy of an entire Perl bundle?
I know how to install a local version of just one module, but trying to
do this for an entire bundle, like libnet, is giving me fits. Any ideas?
Please reply by email. Thanks.
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Mon, 26 Jan 1998 01:14:08 +0100
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: MacPerl CD-ROM, Version 0.5
Message-Id: <1d3fvbs.1p82vdigwact4N@du81-1.ppp.algonet.se>
Chris Nandor <pudge@pobox.com> wrote:
> If what works on Unix does what work on the Mac? I already said, the
> CD-ROM is Mac-formatted. Are you asking about an actual MacPerl script,
> does that work on Unix? Maybe, maybe not. If it is written properly it
> should, in most cases, work on any platform that supports Perl, unless it
> requires platform-specific stuff (such as a Mac:: module) or one of the
> few things a given platform does not support (like exec/fork in Mac OS).
Yes, the question was meant to be about if a script written on platform
A would work on platform B. I downloaded it and tried it, now I know
more about when/where it works.
/Tony
--
/\___/\
\_@ @_/
---------------------oOO-(_)-OOo----------------------
"We only live to please those we love" -- Aphrael
----------------------ttt---ttt-----------------------
http://tls.base.org \O/ \O/ )Tony Svanstrom 1997
------------------------------
Date: Sun, 25 Jan 1998 23:03:59 +0100
From: rafiki@pride.rock
Subject: newbie perl programmer requests help (MAC)
Message-Id: <rafiki-2501982304010001@ak183.du.pipex.com>
Am having trouble getting perl 5 (or any other version) for the mac
have checked out CPAN and can not find it there.
Am I missing it?
Can anyone tell me where to get it?
thanx
rafiki
------------------------------
Date: Sun, 25 Jan 1998 18:44:24 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: newbie perl programmer requests help (MAC)
Message-Id: <comdog-ya02408000R2501981844240001@news.panix.com>
Keywords: from just another new york perl hacker
Please read this information on how to choose a good subject for a post:
<URL:http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post>
In article <rafiki-2501982304010001@ak183.du.pipex.com>, rafiki@pride.rock posted:
>Am having trouble getting perl 5 (or any other version) for the mac
>have checked out CPAN and can not find it there.
>Am I missing it?
>Can anyone tell me where to get it?
go to your favorite CPAN mirror and look in the directory:
/CPAN/ports/mac/
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 26 Jan 1998 00:22:10 GMT
From: thospel@mail.dma.be (Ton Hospel)
Subject: news->News gateway
Message-Id: <6agkvi$b5n$1@post.lunix.org>
Testing when the link is down at the post moment.
------------------------------
Date: Mon, 26 Jan 1998 00:28:22 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: NO CGI HERE PLEASE (was Re: Server Push Problem)
Message-Id: <6agler$a5o$1@cyprus.atlantic.net>
According to mhanson@arrowweb.com:
>How come this server push program doesn't work?
Please ask in comp.infosystems.www.authoring.cgi or some other web
group. This group is for Perl, not things that happen to be written
in Perl but have unrelated problems.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
-> Ask me about Perl training and consulting <-
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
------------------------------
Date: 25 Jan 1998 17:16:08 -0700
From: Vladimir Alexiev <vladimir@cs.ualberta.ca>
Subject: Re: Odd syntax problem
Message-Id: <omen1wytrr.fsf@tees.cs.ualberta.ca>
In article <34C7C02F.6B98@min.net> John Porter <jdporter@min.net> writes:
> Not quite. You're passing an array-ref to splice!
> Deref the ref using @{} to get the array:
> $_ = join('/', splice( @{[ split("/",$_) ]}, -1, 1)) if (/=/);
Still not quite: splice returns the removed elements, not the modified
array.
> Of course, TMTOWTDI:
> $_ = substr( $_, 0, rindex( $_, '/' ) ) if ( /=/ and /\// );
If you're going to match on /\//, you may as well s|/.*?$|| and spare
the substr and the rindex.
------------------------------
Date: 25 Jan 1998 17:18:31 -0700
From: Vladimir Alexiev <vladimir@cs.ualberta.ca>
Subject: Re: Odd syntax problem
Message-Id: <omd8hgytns.fsf@tees.cs.ualberta.ca>
In article <34C8335E.41658334@coos.dartmouth.edu> Chipmunk <rjk@coos.dartmouth.edu> writes:
> > s {/[^/]*?$} {} if /=/; # remove / and the shortest string of non-/
> Not quite right.
> That should not be a non-greedy quantifier.
> First, it makes the regex slower.
What if you do `s|/.*?$||'? Is that faster or slower compared to
`s|/[^/]*$||'?
------------------------------
Date: Sun, 25 Jan 1998 16:05:26 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Perl Source Obfuscator
Message-Id: <comdog-ya02408000R2501981605260001@news.panix.com>
Keywords: from just another new york perl hacker
[comp.lang.perl is dead. the news-server should not be carrying
dead groups]
In article <6afrev$ies$1@ha2.rdc1.pa.home.com>, "Nick" <nmarino@home.com> posted:
>There are utilities available which make C source code unreadable, yet
>compilable. The purpose is to distribute source code for recompilation, but
>without revealing trade secrets etc.
those sorts of things have un-obfuscators too.
>Does anything like that exist for Perl?
it's pointless. if someone wants your trade secrets that are "hidden"
in source, they will get them.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 25 Jan 1998 21:08:01 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: Perl Source Obfuscator
Message-Id: <slrn6cna26.lan.gabor@vnode.vmunix.com>
In comp.lang.perl.modules, Nick <nmarino@home.com> wrote :
# There are utilities available which make C source code unreadable, yet
# compilable. The purpose is to distribute source code for recompilation, but
# without revealing trade secrets etc.
#
# These type of source code filters are called sometimes called Shrouds or
# Obfuscators.
#
# Does anything like that exist for Perl?
Isn't Perl already obfuscated enough? :-)
------------------------------
Date: 26 Jan 1998 00:34:09 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Perl Source Obfuscator
Message-Id: <6aglm1$ip8$2@csnews.cs.colorado.edu>
[request for code-hiding deleted]
Trying to hide the bugs, eh?
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
echo $package has manual pages available in source form.
echo "However, you don't have nroff, so they're probably useless to you."
--Larry Wall in Configure from the perl distribution
------------------------------
Date: Sun, 25 Jan 1998 19:01:49 -0500
From: Kiyomasa Toma <kiyot@earthlink.net>
Subject: perl/sgml consultant needed
Message-Id: <34CBD26D.AE797F71@ets.org>
*Wanted*
Perl programmer with experience in developing a SGML based document
application. 3 to 6 month contract working for a not-for-profit
educational institution in the Princeton, New Jersey area starting in
February. Two years or more working experience desired. If you're
interested, please email CVs and resumes to: ktoma@ets.org
Thanks.
Kiyo Toma
Manager of Electronic Publishing
Educational Testing Service
------------------------------
Date: Mon, 26 Jan 1998 00:47:15 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: POSIX workaround for Win32?
Message-Id: <6agmi9$a9c$1@cyprus.atlantic.net>
According to lynchqvctc@aol.com (Lynchqvctc):
> use POSIX(O_CREAT,O_RDWR,O_RDONLY);
You mean:
use Fcntl qw(O_CREAT O_RDWR O_RDONLY);
or maybe just:
use Fcntl;
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
-> Ask me about Perl training and consulting <-
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
------------------------------
Date: Sun, 25 Jan 1998 17:58:38 -0500
From: Bob Berman <rjberman@mindspring.com>
Subject: questions about *DB* usage
Message-Id: <34CBC340.37FEC8@icehouse.com>
These are probably real embarrasing newbie type questions,
but I can't find any examples anywhere, so I thank anyone
who answers in advance!!
1) When I use DB_File and do:
use DB_File;
$key = "Bob";
$value = 200;
$X = DB_File::TIEHASH(DB_File, "xxx", O_RDWR|O_CREAT, 0666);
$status = $X->put($key, $value);
untie %X;
a file named "xxx" is created. Why isn't xxx.dir or xxx.pag created?
I thought DB_File created files with those names?
2) How do I use GDBM? I have GDBM installed and if I do:
use GDBM_File;
$key = "Bob";
$value = 200;
$X = GDBM_File::TIEHASH(GDBM_File, "xxx", O_RDWR|O_CREAT, 0640);
$X{$key} = $value;
untie %X;
it too creates a file named "xxx", although slightly smaller than with
DB_File above. But how do I store data in it? The GDBM_File documentation
says to look at the gdbm(3) man page, which I did. That mentions routines
such as "store", but how do I use them from Perl? If I insert a line like:
$status = $X->store($key, $value);
before I untie the hash, I get an error:
Can't locate auto/GDBM_File/store.al in @INC
3) What's the story with NEWDB? (db.1.85.tar.gz from
www.sleepycat.com). When I installed sendmail, the README
implied that this was superior to ndbm, I think. But it
warned about installing a header file in the db.1.85 distribution
and to remove a module from the .a library. Does Perl support
NEWDB or should I avoid it? Maybe this is ndbm above?
Thanks again!
What am I doing wrong?
------------------------------
Date: Sun, 25 Jan 1998 16:10:58 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Reg-ex problem
Message-Id: <comdog-ya02408000R2501981610580001@news.panix.com>
Keywords: from just another new york perl hacker
In article <34CB80CF.7C22@wco.com>, steves@wco.com posted:
>I'm trying to remove comments from a c file and can't get
>the regular expression to work.
have you seen perlfaq4 which contains the FAQ:
How do I use a regular expression to strip C style
comments from a file?
or Mastering Regular Expressions [1]
[1]
Mastering Regular Expressions
Jeffrey Freidl
ISBN 1-56592-257-3
<URL:http://www.oreilly.com>
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 25 Jan 1998 14:17:00 -0800
From: Terrence Brannon <brannon@surf.usc.edu>
Subject: Request: GUI's considered harmful
Message-Id: <lbd8hg8ahv.fsf_-_@lnc.usc.edu>
Tom, I lost my copy of your document "GUI's considered harmful" when I
moved. Could you possibly email it to me?
--
Terrence Brannon * brannon@lnc.usc.edu * http://lnc.usc.edu/~brannon
USC, HNB, 3614 Watt Way, Los Angeles, CA 90089-2520 * (213) 740-3397
Great Milk Debate... http://www.milk.com vs. http://www.notmilk.com
------------------------------
Date: 26 Jan 1998 00:48:14 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Request: GUI's considered harmful
Message-Id: <6agmge$kbo$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Terrence Brannon <brannon@surf.usc.edu> writes:
:Tom, I lost my copy of your document "GUI's considered harmful" when I
:moved. Could you possibly email it to me?
Unfortunately, so did I. :-(
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
In general, if you think something isn't in Perl, try it out, because it
usually is. :-)
--Larry Wall in <1991Jul31.174523.9447@netlabs.com>
------------------------------
Date: 25 Jan 1998 17:18:22 -0500
From: groenvel@cse.psu.edu (John D Groenveld)
Subject: Re: Stored Procedures using Oraperl
Message-Id: <6agdne$6nf$1@tholian.cse.psu.edu>
In article <34B52CB3.A9E15DB4@geocities.com>,
Arun <rarun@geocities.com> wrote:
>Is it possible to invoke a Oracle stored procedure using Oraperl (DBI or
>DBD)?
>Any sample code would be much appreciated.
Sample code is included with the distribution: plsql.t. Additionally, you
can find code @ the dbi-user archives
http://www.rosat.mpe-garching.mpg.de/mailing-lists/PerlDB-Interest/
http://outside.organic.com/mail-archives/dbi-users/
John
groenvel@cse.psu.edu
------------------------------
Date: Mon, 26 Jan 1998 00:17:42 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Survival Of perl
Message-Id: <6agkqs$a4b$1@cyprus.atlantic.net>
According to "Aamer Nazir" <nazira@cadvision.com>:
>I have a question which some people would consider 'dumb, but it is not.
Well, it's not dumb, but it does reflect a lack of knowledge of history.
>want to ask all of you people that what is the FUTURE of perl.I mean with
>the coming of NT servers and Softwares like FrontPage ,is perl going to
>survive.
Perl existed before the web (or at least before the web became
popular); just last month it reached the ripe old age of ten years.
Perl will continue to exist as long as people want a language that is
(1) expressive (2) powerful (3)) portable (4) free.
Perl's use for the web could conceivably wane. I doubt it will
happen, but it is possible. Perl will live on, regardless.
Learn Perl. You won't be sorry.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
-> Ask me about Perl training and consulting <-
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
------------------------------
Date: Sun, 25 Jan 1998 16:02:21 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Using Cgi Script to Redirect User By Domain Name? Help!
Message-Id: <comdog-ya02408000R2501981602210001@news.panix.com>
Keywords: from just another new york perl hacker
In article <34cc381a.30833451@news.netvigator.com>, harris@pysnet.net (Mark) posted:
>I wonder where can I find a cgi script that can redirect user by their
>domain name. I know I can us .htaccess to deny access for certain but
>my server can't use this fuction. So I need to use cgi script instead.
>If you can tell me where can I find the script or email one for me, I
>would be apprecipated.
it will be in your email once your check clears, but be aware that
this sort of thing is not a source of security.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 25 Jan 1998 23:04:42 GMT
From: "Nicholas Jones" <Nick.Jones@btinternet.com>
Subject: What the sys$command !
Message-Id: <01bd29e6$2de15180$6f3463c3@genie>
Hi,
I type "perl -d file.pl" and get debugger output sent to sys$command
instead of the command line. Have I accidentally set a flag somewhere?
Also, if I type "t" (i.e. trace) as the first command, I get a
"segmentation fault" (is this normal?)
Further, I've just installed libwww-perl-5.18 along with its ancilliaries
(libnet etc). I've tried doing a basic "get" URL using LWP:Simple.pl but
get no HTML returned either on the command line or in sys$command...could I
have installed libnet incorrectly? It asked me one hell of a lot of
questions and I responded with defaults in most cases. (All make tests were
OK)
Thanks in advance.
Nick
------------------------------
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 1727
**************************************
