[9434] in Perl-Users-Digest
Perl-Users Digest, Issue: 3026 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 30 14:18:27 1998
Date: Tue, 30 Jun 98 11:00:57 -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 Tue, 30 Jun 1998 Volume: 8 Number: 3026
Today's topics:
Urgent!! Need Programmer for perm in Malibu, Ca (Salvatore Pizzuti)
Re: Urgent!! Need Programmer for perm in Malibu, Ca (Ronald J Kimball)
Re: Urgent!! Need Programmer for perm in Malibu, Ca <rootbeer@teleport.com>
Re: Urgent!! Need Programmer for perm in Malibu, Ca (Tad McClellan)
Re: Urgent!! Need Programmer for perm in Malibu, Ca <featheredfrog@geocities.com>
Re: use of crypt to encrypt password (Mark-Jason Dominus)
Use strict with CGI.pm <jerryp.usenet@connected.demon.co.uk>
Re: Use strict with CGI.pm <jdf@pobox.com>
Re: Use strict with CGI.pm <rootbeer@teleport.com>
Re: Use strict with CGI.pm <ksm@sas.upenn.edu>
Re: VB ActiveX control/Database Access (Jan Dubois)
Re: Visible proxy? using require? <rootbeer@teleport.com>
Re: Wait Command in Perl (Mark-Jason Dominus)
Re: want a better way to split string (M.J.T. Guy)
Warning: Beware of spammer David Chew <antispam@MailAndNews.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 29 Jun 1998 15:25:01 -0700
From: spizzuti@professionalaccess.com (Salvatore Pizzuti)
Subject: Urgent!! Need Programmer for perm in Malibu, Ca
Message-Id: <35991317.270765203@news.primenet.com>
Please let me know if it is ok to post to this board.
We need a programmer learned in C, C++, Java, Active X, and ASP
for a perm position in Malibu, Ca. Good Salary.
exp: 4 years programming, 2 years internet.
If interested, please contact:
Salvatore Pizzuti
Professional Access LTD
National Recruiting Support Center (NRSC)
spizzuti@professionalaccess.com
818-889-4333
------------------------------
Date: Mon, 29 Jun 1998 23:30:39 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Urgent!! Need Programmer for perm in Malibu, Ca
Message-Id: <1dbeqqh.1ub3cgr1dgadecN@bay2-15.quincy.ziplink.net>
Salvatore Pizzuti <spizzuti@professionalaccess.com> wrote:
> Please let me know if it is ok to post to this board.
>
> We need a programmer learned in C, C++, Java, Active X, and ASP
> for a perm position in Malibu, Ca. Good Salary.
Putting aside the question of whether it's ok to post job postings to
comp.lang.perl.misc in general, your job requirements don't even mention
Perl! So, no, it is most definitely not ok to post to this newsgroup.
You seem to be rather confused. I hope you will be able to overcome
this.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Tue, 30 Jun 1998 03:19:35 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Urgent!! Need Programmer for perm in Malibu, Ca
Message-Id: <Pine.GSO.3.96.980629201823.17225C-100000@user2.teleport.com>
On 29 Jun 1998, Salvatore Pizzuti wrote:
> Please let me know if it is ok to post to this board.
For a job posting, you should probably look for a newsgroup with the word
'jobs' in it. If in doubt, check the charter of the newsgroup before
posting. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 30 Jun 1998 00:00:18 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Urgent!! Need Programmer for perm in Malibu, Ca
Message-Id: <2dr9n6.466.ln@localhost>
Salvatore Pizzuti (spizzuti@professionalaccess.com) wrote:
: Please let me know if it is ok to post to this board.
This is not a "board".
This is a Usenet newsgroup.
You reveal something about yourself there...
: We need a programmer learned in C, C++, Java, Active X, and ASP
: for a perm position in Malibu, Ca. Good Salary.
Job postings belong in a newsgroup that has the word 'job' in it.
This newsgroup has 'perl' in its name.
Though I don't see *any* mention of perl in your post.
How could you possibly think that it would be OK to post about
C/C++/Java/in a Perl newsgroup?
Please go away.
Nobody with any sense would trust such a clueless headhunter...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 30 Jun 1998 13:30:48 -0400
From: "Michael D. Hofer" <featheredfrog@geocities.com>
Subject: Re: Urgent!! Need Programmer for perm in Malibu, Ca
Message-Id: <359920C8.7C@geocities.com>
Three good responses to a clueless headhunter. I hope you emailed the
responses as well: you don't _really_ think he _reads_ the perl NGs, do
you?
obPerl:
I wrote a script to allow a browser to peruse the "standard" perl
PODspace, posted it twice here, and didn't see it. D'I do something
wrong? Sould I try again or is there a better place to share it?
Cheers yerself!
michael
Tad McClellan wrote:
>
> Salvatore Pizzuti (spizzuti@professionalaccess.com) wrote:
> : Please let me know if it is ok to post to this board.
>
> This is not a "board".
>
> This is a Usenet newsgroup.
>
> You reveal something about yourself there...
>
> : We need a programmer learned in C, C++, Java, Active X, and ASP
> : for a perm position in Malibu, Ca. Good Salary.
>
> Job postings belong in a newsgroup that has the word 'job' in it.
>
> This newsgroup has 'perl' in its name.
>
> Though I don't see *any* mention of perl in your post.
>
> How could you possibly think that it would be OK to post about
> C/C++/Java/in a Perl newsgroup?
>
> Please go away.
>
> Nobody with any sense would trust such a clueless headhunter...
>
> --
> Tad McClellan SGML Consulting
> tadmc@metronet.com Perl programming
> Fort Worth, Texas
--
Cian ua'Lochan /mka/ Michael D. Hofer
No Unsolicited Commercial Email: $500.00/Item for proofreading!
I'm not a medievalist - I just play one on weekends!
http://www.geocities.com/SoHo/Lofts/9800/
------------------------------
Date: 28 Jun 1998 15:00:14 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: use of crypt to encrypt password
Message-Id: <6n63ru$776$1@monet.op.net>
Keywords: beachhead bear Madonna plod
In article <6n0dpa$4sl$1@vixen.cso.uiuc.edu>,
jeremy howard todd <jhtodd@students.uiuc.edu> wrote:
> $encrypted = crypt($password, substr($password, 0, 2));
>
> That's what the docs recommend anyway.
It isn't what the docs recommend, and it's terrible advice.
That two-character `salt' argmuent appears verbatim in the encrypted
password, which is stored in the file. If someone follows your
advice, everyone will be able to look in the file see the first two
characters of the *unencrypted* passwords. For example:
crypt('ouch', 'ou') => ouau5WfJaXX76 # `ou' is visible
crypt('ZZymurgy', 'ZZ') => ZZ/cf0Zm9yo0U # `ZZ' is visible
crypt('Alphabet', 'Al') => AlxcL69t4psT2 # `Al' is visible
If someone wants to try to figure out a password by guessnig every
possibility, then knowing the first two characters will make their
brute-force search 16,129 times faster.
The second argument is called the `salt', and you should choose it at
random.
To encrypt a new password for storage into the file:
@salt_chars = ('A' .. 'Z', 0 .. 9, 'a' .. 'z', '.', '/');
$salt = join '', @salt_chars[rand 64, rand 64];
$encrypted = crypt($password, $salt);
# write $encrypted to the file
To check a password against the password in the file:
# Read $input from user
# read $encrypted from password file
if (crypt($input, $encrypted) eq $encrypted) {
# $input is good
} else {
# $input is wrong
}
------------------------------
Date: Mon, 29 Jun 1998 09:37:52 +0100
From: Jerry Pank <jerryp.usenet@connected.demon.co.uk>
Subject: Use strict with CGI.pm
Message-Id: <Lj158BAgJ1l1Ew26@connected.demon.co.uk>
As a religious user of -w and use strict, I normally enjoy the luxury of
perl's helpful diagnostic errors. A smidge nicer than `Syntax error' or
the pops, clicks and flashes, as my home-built UK101 (Ohio Superboard)
raced off down an endless 6502 black hole.
First language[s] - I digress!
When I use the same constructs with many of the great libraries
available, I get heaps of ``Ambiguous use of foo'' and ``Bareword "bar"
not allowed.
In the short snipped example below (from the Example CGI.pm form) what
do I have to change to allow me to `use strict' fully?
print $query->checkbox_group(
-name=>'Sparrow locations',
-values=>[England,France,Spain,Asia,Hoboken],
-linebreak=>'yes',
-defaults=>[England,Asia]);
Nb. Re: sigs and Tom C's fortune cookies being chosen. - The sig below
is totally random. Honest!
--
Jerry Pank mailto:jerryp.usenet@connected.demon.co.uk
Perl itself is usually pretty good about telling you what you shouldn't
do. :-)
-- Larry Wall in <11091@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 29 Jun 1998 07:48:16 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Jerry Pank <jerryp.usenet@connected.demon.co.uk>
Subject: Re: Use strict with CGI.pm
Message-Id: <yaugtlv3.fsf@mailhost.panix.com>
Jerry Pank <jerryp.usenet@connected.demon.co.uk> writes:
> As a religious user of -w and use strict, I normally enjoy the luxury of
> perl's helpful diagnostic errors.
You are wise. You will now also be enlightened:
> In the short snipped example below (from the Example CGI.pm form) what
> do I have to change to allow me to `use strict' fully?
>
> print $query->checkbox_group(
> -name=>'Sparrow locations',
If you spell the parameters in caps, you'll get no warnings. CGI.pm
doesn't care.
print $query->checkbox_group( -NAME => 'Banana Smoking Devices' );
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Mon, 29 Jun 1998 09:40:17 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Use strict with CGI.pm
Message-Id: <Pine.GSO.3.96.980629023307.21917U-100000@user2.teleport.com>
On Mon, 29 Jun 1998, Jerry Pank wrote:
> In the short snipped example below (from the Example CGI.pm form) what
> do I have to change to allow me to `use strict' fully?
Didn't perl tell you when you tried to run it? perl has some of the best
diagnostic messages around. If you get a message you don't understand, the
perldiag manpage may be helpful. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 30 Jun 1998 13:02:06 -0400
From: Ken MacFarlane <ksm@sas.upenn.edu>
Subject: Re: Use strict with CGI.pm
Message-Id: <35991A0D.CDA1196E@sas.upenn.edu>
Jonathan Feinberg wrote:
> If you spell the parameters in caps, you'll get no warnings. CGI.pm
> doesn't care.
>
> print $query->checkbox_group( -NAME => 'Banana Smoking Devices' );
I found that, having had the same problem myself last week, single quoting
also works:
print $query->checkbox_group('-name'=>'Banana Smoking Devices');
(I won't claim that this is the best way, though.)
I believe that the original problem with "use strict" only occurs with
"-values", since "values" is a Perl builtin name.
--
Ken MacFarlane, Systems Programmer
SAS Computing Workstation Services
University of Pennsylvania
http://ccat.sas.upenn.edu/~ksm/
------------------------------
Date: Mon, 29 Jun 1998 22:05:48 +0200
From: jan.dubois@ibm.net (Jan Dubois)
Subject: Re: VB ActiveX control/Database Access
Message-Id: <359cf188.9838707@news2.ibm.net>
[mailed & posted]
Paul Hounshell <paulh@mdli.com> wrote:
>Question 1:
>
>I have a VB ActiveX control which actually has no on-screen
>representation. Instead it is a number of functions packaged together.
>Is there any way to use these functions in Perl? If so, how would the
>ActiveX control be refernced? How would the individual functions be
>called? How would passing parameters work if the ActiveX control has
>very well defined input types? (e.g. would a variable containing 42 be
>considered a string, integer, or long?). Every function in the ActiveX
>control would return either a string or nothing, and strings and
>integers would be the only parameters.
You can use the Win32::OLE module to instantiate COM objects (if they
support the IDispatch interface). You can then access all their methods
and properties. There is no way to use other VTBL interfaces from Perl
though.
>Question 2:
>
>Can Perl be used to muck about with any of the most popular database
>tools? Specifically, I have an Oracle RCG database and an MS Access
>database that either need to be dealt with in either Perl, or the above
>ActiveX control. Which would be more beneficial and or easier for me to
>access the database with: the Perl script, or the ActiveX Library? I
>understand (almost) how to accomplish this in VB, but if Perl has any
>easy tool, I would prefer that.
You can again use Win32::OLE to access MS Access directly. You can also
use it to access other databases through ADO, the MS "ActiveX Data
Object" stuff (which uses OLE DB internally). Of course there you can
also use DBI on Win32, although I never tried it myself, so I couldn't
help you there.
If you use ActiveState Perl then you must use the included OLE.pm
module. For standard Perl you can use the enhanced Win32::OLE module
from Sarathy's libwin32-0.12 bundle. For questions about OLE/Win32::OLE
please peruse the mailing list archives of Perl-Win32-Users (eg. at
findmail.com).
-Jan
------------------------------
Date: Sun, 28 Jun 1998 19:45:58 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Visible proxy? using require?
Message-Id: <Pine.GSO.3.96.980628124419.7277C-100000@user2.teleport.com>
On Sat, 27 Jun 1998, Scott Bronson wrote:
> Has anyone written what I can best describe as a visible proxy? I want
> to capture and watch all text sent and recieved over a single TCP port
> on my computer.
That wouldn't be too hard, although there's nothing Perl-specific about
it. (That is, you could write it in C if you preferred.)
> However, my solution seems hackish to me, not to mention the annoying
> error message, "Name "main::harnessed" used only once: possible typo at
> clean line 1524." There has got to be a better way, yes?
Maybe you want 'use vars'. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 28 Jun 1998 13:30:56 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Wait Command in Perl
Message-Id: <6n5ukg$6sa$1@monet.op.net>
In article <6n06pt$7vn$1@decius.ultra.net>,
Michael Harrison <hostmaster@hosttech.com> wrote:
>I need to get a script to wait about 10-12 seconds while a file is produced.
`sleep'.
>Second after I read in the .answer file I need to read only the first char
>of the file to see if it is an "A" or "N"
`getc'
>send answers to admin@hosttech.com
no.
------------------------------
Date: 29 Jun 1998 09:31:57 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: want a better way to split string
Message-Id: <6n7mud$hug$1@pegasus.csx.cam.ac.uk>
Sean McAfee <mcafee@centipede.rs.itd.umich.edu> wrote:
>Al Degutis <adegutis@isi-info.com> wrote:
>>I'm trying to break down a string to fit 60 characters per line. Rather
>>than use a specific length of 60 characters, I'd like to break the string on
>>the nearest space starting from the 50th position.
>
>I'm sure there's a module on CPAN that does this,
Actually, there's a module Text::Wrap in the standard distribution.
> but for something quick
>and dirty, how about:
>
>$line =~ s/(.{50}.{0,10}) /$1\n/g;
That's a rather obscure way of writing
$line =~ s/(.{50,60}) /$1\n/g;
And it will generates lines longer than 60 characters if there's no
space in the last 10 characters. And it'll probably do the wrong
thing (depending on what the user actually wants) if there are
multiple spaces at the line break point. Better might be
$line =~ s/(.{1,60}) +/$1\n/g;
Mike Guy
------------------------------
Date: Mon, 29 Jun 1998 16:40:46 -0400
From: anti spam <antispam@MailAndNews.com>
Subject: Warning: Beware of spammer David Chew
Message-Id: <350B1075@MailAndNews.COM>
This is a courtsey warning of spammer David Chew.
He promotes his site at http://www.serve.com/davidchew
offering all kinds of services like iq tests, free web
design,
games and free Bulk Email. When you join his programs
he
uses your email address to bulk mail you his business
opportunities. What ever you do DO NOT GET INVOLVED
WITH
DAVID
CHEW but rather set your newsgroup readed and email
program to
kill the following info:
http://www.serve.com/davidchew
davidchew@www1.serve.com
dcc1234@antispam.com
davidchew1@antispam.com
dcc1234@mbox4.singnet.com.sg
dcc1234@pacific.net.sg
hangman@pacific.net.sg
dachew@pacific.net.sg
This indivual is dangerous. beware
ps if you have any run ins with him contact
accounts@serve.com
help@pacific.net.sg
Thanks
Anti Spam
------------------------------------------------------------
Get your FREE web-based e-mail and newsgroup access at:
http://MailAndNews.com
Create a new mailbox, or access your existing IMAP4 or
POP3 mailbox from anywhere with just a web browser.
------------------------------------------------------------
------------------------------
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 3026
**************************************
