[8594] in Perl-Users-Digest
Perl-Users Digest, Issue: 2211 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 30 18:07:20 1998
Date: Mon, 30 Mar 98 15:00:53 -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 Mon, 30 Mar 1998 Volume: 8 Number: 2211
Today's topics:
cgi-lib EMWACS Forms Submit Zack Steinkamp examples pro (David Griffis)
Re: Days of the Week <dmeyers@panix.com>
Re: debugging Perl (Ilya Zakharevich)
Re: executing Perl programs under BSD Unix (Tom Mornini)
Re: file trees (Andrew M. Langmead)
Re: file trees <jdporter@min.net>
Re: free disk space <rootbeer@teleport.com>
Re: Going Rates for PERL Programming??? <jdporter@min.net>
Re: Handling pty's - Ptty? <spamsux-tex@habit.com>
Re: Help with serial communications under Linux (Andrew M. Langmead)
HOW TO DETERMINE EXECUTABLE VERSION IN WIN95 qvanegeren@frxsoft.com
Re: index of string <ajohnson@gpu.srv.ualberta.ca>
ISP that supports perl with win32::odbc extentions <rsmoore@giscn.com>
large numbers cause large frustration <mjr@ranney.com>
Re: large numbers cause large frustration <ebohlman@netcom.com>
Re: London.pm (Dave Cross)
Re: math: random numbers.. well, sorta-kinda.. (David B. White)
Re: math: random numbers.. well, sorta-kinda.. <rootbeer@teleport.com>
Re: math: random numbers.. well, sorta-kinda.. (Andrew M. Langmead)
perl - Interchange?? <mkf@post8.tele.dk>
Re: Ping <r.day@mbox.unicc.org>
Please help! HR Related... <abhutkar@synopsys.com>
Public Key Encryption (non pgp) <jhoglund@mirage.skypoint.net>
Question about Perl script and form submit buttons !!!! (Mick Knutson)
Registration fees for TCP 2.0. (Abigail)
Re: Scalar Variable as an array name <ebohlman@netcom.com>
Re: Sendmail in Perl32/NT <jkry3025@comenius.ms.mff.cuni.cz>
Re: SETUID to user from root. (Stuart McDow)
Re: Sneex having problems <jdporter@min.net>
Re: The "Y2k-bugs-are-not-just-a-legacy-problem" FAQ <zooko@xs4all.nl>
Trouble running html2ps perl script on NT4.0 <lenz@innosoft.de>
Re: verifying email address -- how? <jdporter@min.net>
Re: What does this mean =~ ? <jdporter@min.net>
Win32:: available or not? (Karl O. Lillevold)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 30 Mar 1998 17:19:27 GMT
From: davidg@infinex.com (David Griffis)
Subject: cgi-lib EMWACS Forms Submit Zack Steinkamp examples problem
Message-Id: <351fd366.137143001@news.infinex.com>
In Zack's examples he's re-calling the same form in the 'action'
statement.
His example works if I change the extension from 'cgi' to 'pl'.
However, when I substitute my access database and fields it hangs on
the submit statement.
Has anyone had a similar problem?
Thanks,
David Griffis
------------------------------
Date: 30 Mar 1998 16:26:34 -0500
From: David Meyers <dmeyers@panix.com>
Subject: Re: Days of the Week
Message-Id: <yobemzjyinw.fsf@panix.com>
"Mike Barnes" <strepsil@very.net> writes:
> >Date::DateCalc
> >Date::Manip
> I should have been more specific. I'd happily use one of the Date modules,
> if I could find one for Win32 Perl, build 306. If there has been a port, I'd
Date::Manip is just plain perl. No porting necessary.
--D
--
dmeyers@panix.com
"Any technology distinguishable from magic is insufficiently advanced."
Unsolicited commercial e-mail will not be accepted. Dont waste
your time SPAMming me. And no mail from @hotmail either.
------------------------------
Date: 30 Mar 1998 22:00:13 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: debugging Perl
Message-Id: <6fp4ld$cqt$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Jason Gloudon
<jgloudon@bbn.com>],
who wrote in article <slrn6hgkmt.gfi.jgloudon@manitoba.bbn.com>:
> The debugger can do everything you'd want.
This is an overstatement. It has no up/down commands:
It cannot examine lexicals of a different scope (feasible, but may
imply a security risk), and will not show the "old" values of locals
(not possible even from C).
Ilya
------------------------------
Date: Mon, 30 Mar 1998 20:20:14 GMT
From: tmornini@netcom.com (Tom Mornini)
Subject: Re: executing Perl programs under BSD Unix
Message-Id: <tmorniniEqnF5q.Bv1@netcom.com>
mbl@cast-us.com wrote:
: My Perl program will only execute when I type
: perl program.pl
: It will not execute when I type
: program.pl
A couple of possible problems.
1) Permissions. Something like:
chmod 755 program.pl
must be done for direct execution.
2) In addition, your script will need to start with
#!/usr/bin/perl
as the first line for this to work. You might also want to add -w to
that line if you want Perl to help you write good code.
3) Path problems. Perhaps '.' (current directory) is not a part of your
path statement? You could add it into .login or .cshrc or whatever shell
startup file you use. Or, perhaps simpler, just type ./program.pl to
force it to use the file in the current directory.
: In addition, how can I execute a Perl program that writes to a file (when
: executed from my website, embedded in HTML), if my ISP won't allow global
: write permission? I can't use the exact path because they truncate it (e.g.,
: instead of
: http://www.myISP.com/usr/home/mydirectory
: i have to type, instead
: http://www.myISP.com/~mydirectory
: since this is the case, what path do I write in my Perl program in order that
: its output can write to a file?
In Perl you write the complete path to your file (most of the time, of course
there are ALWAYS exceptions) If the file is in your directory, it's a little
hard to imagine that you can't set world-write priviledges in your own
directory. And even if you can't, just fine out what user/group your web
server runs as, and chown or chgrp the file to be written into so that both
you and the web server user ID have read/write priviledges.
-- Tom Mornini
-- InfoMania
------------------------------
Date: Mon, 30 Mar 1998 21:35:43 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: file trees
Message-Id: <EqnInJ.Ap@world.std.com>
robshols@aol.com (Robs hols) writes:
>Can anyone suggest some perl code that would allow me to, given a particular
>directory, list all files in that directory AND in all directories below it
use File::Find;
find(sub {push @found, $File::Find::name if -f $_;}, @ARGV);
print map {"$_\n"} @found;
--
Andrew Langmead
------------------------------
Date: Mon, 30 Mar 1998 16:12:17 -0500
From: John Porter <jdporter@min.net>
Subject: Re: file trees
Message-Id: <35200AB1.7D37@min.net>
Robs hols wrote:
>
> Hi,
>
> Can anyone suggest some perl code that would allow me to, given a particular
> directory, list all files in that directory AND in all directories below it
> (and all
> directories below them etc. etc.)
RTFFAQ. File::Find.
John Porter
------------------------------
Date: Mon, 30 Mar 1998 12:00:45 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Stephen Mubita <smubit1@gl.umbc.edu>
Subject: Re: free disk space
Message-Id: <Pine.GSO.3.96.980330115849.13978N-100000@user2.teleport.com>
On Mon, 30 Mar 1998, Stephen Mubita wrote:
> Dumb question, I fear. How can a perl script discover how much disk
> space is free on a drive / filesystem ?
There's no machine-independent way. But you can either call df (or your
local equivalent) or you can find a way to use the same system calls that
your df uses. If you're ambitious, you could give Perl an interface module
to GNU's df code directly. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 30 Mar 1998 16:15:33 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Going Rates for PERL Programming???
Message-Id: <35200B75.615B@min.net>
Peter Perchansky wrote:
>
> While market forces "may" dictate the value of your time, most forces -- in
> so far as Perl programming is concerned -- deal in industry averages... not
> fixed figures (such as x per hour).
>
> As long as you are within those averages, then your time can be the same
> value for any task you perform as it relates to the issue at hand (Perl
> programming in this case).
I'm not sure, but I think you're disagreeing with me.
In which case, I disagree with you.
It sounds like you're saying that software development is a
"buyer's market". But, I believe, it is in fact a seller's market.
John Porter
------------------------------
Date: Mon, 30 Mar 1998 12:29:35 +0800
From: Austin Schutz <spamsux-tex@habit.com>
To: kluge@fujitsu.com.au
Subject: Re: Handling pty's - Ptty?
Message-Id: <351F1FAF.1717@habit.com>
Steffen Kluge wrote:
>
> Hi everyone,
> I'm looking for some documentation/info about the Ptty
> module, found on CPAN. Apparently, it doesn't contain any
> POD, and all the interesting things seem to be done in a C
> module.
You might try IO::Tty in GBARR's area. Though IO::Tty is
not entirely documented my memory is that you do something along
the lines of $tty=IO::Tty->new('/dev/ttya'); to open a tty.
IO::Pty (in the same package) is for opening Ptys.
I have had very good luck with these.
Austin
------------------------------
Date: Mon, 30 Mar 1998 20:38:55 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Help with serial communications under Linux
Message-Id: <EqnG0v.6oo@world.std.com>
rpinelli@bnr.ca (Rob Pinelli) writes:
> Is there a way to specify a timeout for reads? I would
>like the sysread to try for, say, 1 second before giving
>up and sending another space.
Probably the best thing to do at the moment is to use the four
argument select() to wait until the filehandle has data available to
read. When signals are safe, another solution would be to use eval,
die, alarm, and $SIG{ALRM}.
> On a related note... I am not sure how to configure the
>serial port from within my program.
The quick and dirty way is to use the stty program. Actually, I'm not
quite sure if the "dirty" part qualifies. It works, its simple, and it
is done infrequently enough that the overhead of running another
program is insignificant.
Otherwise, look at the POSIX::Termios functions.
> I have tried system("stty 2400 > /dev/cua0"); but
>it doesn't seem to affect the baud rate.
On a POSIX complient system, stty modifiers the terminal that is
attached to its standard input (BSD use to use standard output.)
system('stty 2400 </dev/cua0')
should work.
--
Andrew Langmead
------------------------------
Date: Mon, 30 Mar 1998 15:08:04 -0600
From: qvanegeren@frxsoft.com
Subject: HOW TO DETERMINE EXECUTABLE VERSION IN WIN95
Message-Id: <6fp1hi$2q3$1@nnrp1.dejanews.com>
I have a bunch of executables in a directory and I need a way to figure out
the Version of each of these executables. I know there has to be a way to do
this in PERL! I have looked in the Win32::AdminMisc package and found
nothing. If anyone has an idea, PLEASE let me know... Thanks in advance for
any suggestions you may have...
Quenten Van Egeren
qvanegeren@frxsoft.com
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Mon, 30 Mar 1998 14:11:48 -0600
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: index of string
Message-Id: <351FFC84.5E8421D7@gpu.srv.ualberta.ca>
N. Nielsen wrote:
>
> Hello and greetings to all you perl-wizards.
> I'm new to perl and i'm looking for a function to return the position of a
> searchstring in another string...
> I know that in javascript the syntax is:
> string.indexOf(searchstring)
> but i don't know how to translate it into perl...
you want to read the perlfunc manpage (perldoc perlfunc)
to familiarize yourself with the available builtin
functions in perl --- the one you are looking for in
this case is the index() function, try:
perldoc -f index
hope it helps
regards
andrew
--
"They're not soaking...they're rusting"
--my wife, on my dishwashing habits.
------------------------------
Date: Mon, 30 Mar 1998 15:47:39 -0600
From: "Robert S. Moore" <rsmoore@giscn.com>
Subject: ISP that supports perl with win32::odbc extentions
Message-Id: <3520131700000086@samson.airnet.net-MINC>
Does anyone out there know of an ISP that supports perl with the win::32
odbc extensions? I have a site that I want to put up.
Thank you,
Bob Moore
rsmoore@airnet.net
------------------------------
Date: 30 Mar 1998 13:04:47 -0800
From: Matt Ranney <mjr@ranney.com>
Subject: large numbers cause large frustration
Message-Id: <m21zvj3n68.fsf@wacky.ranney.com>
(also, large posts)
So I've got these perl programs that suck data out of databases,
massage the data, and then re-insert it. Some of the numbers that it
is dealing with are quite large, and I'm seeing some strange things.
Specifically, it seems that printf is somehow destructive. For
example:
#!/usr/bin/perl
$int = "5978726316";
$int++;
print "unquoted: $int\n";
printf "string: %s\n", $int;
printf "unsigned: %u\n", $int;
printf "signed: %d\n", $int;
$int++;
printf "unsigned: %u\n", $int;
print "Unquoted: $int\n";
There are three different results that I've seen from this code, all
bad.
repo:~$ uname -a
Linux repo.geo.net 2.1.76 #3 Sat Dec 27 14:22:21 PST 1997 i686 unknown
repo:~$ perl -v | egrep version
This is perl, version 5.004_04 built for i686-linux
repo:~$ biginttest
unquoted: 5978726317
string: 5978726317
unsigned: 4294967295
signed: -1
unsigned: 0
Unquoted: 0
squishy:~$ uname -a
Linux squishy.geo.net 2.0.33 #2 Mon Mar 9 19:13:56 PST 1998 i586 unknown
squishy:~$ perl -v | egrep version
This is perl, version 5.004_02
squishy:~$ biginttest
unquoted: 5978726317
string: 5978726317
unsigned: 4294967295
signed: -1
unsigned: 0
Unquoted: 0
wombat:~$ uname -a
Linux wombat.dahouse.net 2.0.30 #1 Tue Apr 22 10:49:45 EDT 1997 i586 unknown
wombat:~$ perl -v | egrep version
This is perl, version 5.003 with EMBED
wombat:~$ biginttest
unquoted: 5978726317
string: 5978726317
unsigned: 1683759021
signed: 1683759021
unsigned: 1683759022
Unquoted: 1683759022
zeus:~$ uname -a
SunOS zeus 5.5 Generic_103093-12 sun4m sparc SUNW,SPARCstation-20
zeus:~$ perl -v | egrep version
This is perl, version 5.004_01
zeus:~$ biginttest
unquoted: 5978726317
string: 5978726317
unsigned: 1683759021
signed: 1683759021
unsigned: 1683759022
Unquoted: 1683759022
mail1:~$ uname -a
SunOS mail1 5.5.1 Generic sun4m sparc SUNW,SPARCstation-20
mail1:~$ perl -v | egrep version
This is perl, version 5.004_04 built for sun4-solaris
mail1:~$ biginttest
unquoted: 5978726317
string: 5978726317
unsigned: 4294967295
signed: -1
unsigned: 0
Unquoted: 0
ilk:~$ uname -a
Linux ilk.geo.net 2.0.32 #1 Wed Nov 19 00:46:45 EST 1997 i686 unknown
ilk:~$ perl -v | egrep version
This is perl, version 5.004_01
ilk:~$ biginttest
unquoted: 5978726317
string: 5978726317
unsigned: 2147483647
signed: 2147483647
unsigned: 2147483648
Unquoted: 2147483648
repo: dual P6/200, squishy: P5/200, wombat: P5/166, ilk: PII/266
So I observe two things that happen when an unsigned int overflows:
1) if you try to printf it as a signed int, the actual value of of the
argument gets mangled somehow. printf-ing it as an unsigned int seems
non-destructive though, but yields different things on different
machines, even those with the same kind of CPU.
2) perl itself can deal with a double int internally, but there
doesn't seem to be any way to get printf to format one.
I've run across Math::BigInt, which I guess I could use, but if perl
knows about double ints, why would I need that? Also, the destructive
printf thing seems like a nasty bug.
--
Matt Ranney - mjr@ranney.com
Let's not let the students run the High School.
------------------------------
Date: Mon, 30 Mar 1998 21:54:26 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: large numbers cause large frustration
Message-Id: <ebohlmanEqnJIq.DwK@netcom.com>
Matt Ranney <mjr@ranney.com> wrote:
: (also, large posts)
: So I've got these perl programs that suck data out of databases,
: massage the data, and then re-insert it. Some of the numbers that it
: is dealing with are quite large, and I'm seeing some strange things.
: Specifically, it seems that printf is somehow destructive. For
: example:
: #!/usr/bin/perl
:
: $int = "5978726316";
That number is too big to represent as a 32-bit integer. perl is actually
storing it as a float (which is why the "unquoted" and "string" versions
correctly reflect the arithmetic). When you try to coerce it to an
integer, it overflows.
------------------------------
Date: Mon, 30 Mar 1998 21:55:02 GMT
From: dave@mag-sol.com (Dave Cross)
Subject: Re: London.pm
Message-Id: <352013e9.13169634@news.demon.co.uk>
I've had quite a good response to this post. enough to make me think
that this is worth pursuing further. I'd therefore like to announce
the official opening of the London Perl M[ou]ngers group.
We have a web page at <http://www,mag-sol.com/London.pm> and soon
we'll be thinking about a venue for an inaugural meeting.
If you write Perl in London (or near enough to get to a pub), please
get in touch with us.
Dave... .. .
On Sat, 28 Mar 1998 14:30:06 GMT, dave@mag-sol.com (Dave Cross) wrote:
>
>I've seen a few posts here recently talking about various Perl
>M[ou]ngers groups in the US, but nothing about the UK. I visited
>www.pm.org to see if anyone else had registered an interest, but the
>search facility had been switched off.
>
>Has anyone given any thought to starting a London.pm or UK.pm group?
>If not, I'd like to volunteer to get the ball rolling. Is there anyone
>else that would be interested in getting involved? Would any of the US
>Perl gurus be interested in coming over and speaking at a meeting in
>London?
>
>I really don't know how popular Perl is in the UK, so this is all very
>experimental...
>
>Hoping to hear from some UK-based Perl M[ou]ngers.
>
>Dave... .. .
>
>dave@cool-stuff.co.uk
>'...but Man created all gods equal.'
dave@mag-sol.com
The Sybase Contractors Resource Page
http://www.mag-sol.com/Sybase/
------------------------------
Date: 30 Mar 1998 20:26:31 GMT
From: dbwhite@vnet.ibm.com (David B. White)
Subject: Re: math: random numbers.. well, sorta-kinda..
Message-Id: <6fov5n$11is$1@mdnews.btv.ibm.com>
In article <Pine.LNX.3.95.980330140354.458C-100000@aura>,
Pat Trainor <ptrainor@bbn.com> writes:
> If I want to display help messages randomly, and already know the
> most common, I need a way to mathmatically display certain files more
> often than others, preferrably under very calculated means.
Brute force approach:
Build a table of cumulative priorities and corresponding messages.
Calculate a random number based on your final cumulative priority.
Search through your table until the cumulative priority turns greater
than your random number, then use that corresponding message.
Example:
Message Cumulative
Priority Filename Priority
3 Sometimes.msg 3
1 Rare.msg 4
6 Popular.msg 10
5 RunnerUp.msg 15
Final cumulative priority = 15
If rand 15 returns 7.5, display Popular.msg ( 10 > 7.5 )
Table structures and searching left as exercise to the reader...
--
David B. White
IBM Microelectronics, Circuit Verification & Design Tools
Internal: dbwhite@btv Internet: dbwhite@vnet.ibm.com
Phone: 802-769-5671 (TieLine: 446) Fax: 802-769-5722
------------------------------
Date: Mon, 30 Mar 1998 14:27:12 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Pat Trainor <ptrainor@bbn.com>
Subject: Re: math: random numbers.. well, sorta-kinda..
Message-Id: <Pine.GSO.3.96.980330142021.23328A-100000@user2.teleport.com>
On Mon, 30 Mar 1998, Pat Trainor wrote:
> How to display files based on, say an integer from 1 to 9 to
> indicate priority, and then "fairly" randomize the result so that a file
> with say a "3" is showm 3 times as often as a file with a "1" for
> priority. Likewise a file with a priority of "6" should be expected to be
> seen 6/5 ( or 1.2 ) times as much as a "5".
{
my($chosen, $count, $file);
$count = 0;
for $file (@files) {
my $score = get_score($file);
$chosen = $file if rand($count+=$score) <= $score;
}
print "I chose $chosen!\n";
}
The weights needn't be chosen from 1 to 9, of course. Each item's chance
of being chosen is (roughly) proportional to its weight. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 30 Mar 1998 22:49:00 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: math: random numbers.. well, sorta-kinda..
Message-Id: <EqnM1o.644@world.std.com>
Pat Trainor <ptrainor@bbn.com> writes:
> How to display files based on, say an integer from 1 to 9 to
>indicate priority, and then "fairly" randomize the result so that a file
>with say a "3" is showm 3 times as often as a file with a "1" for
>priority. Likewise a file with a priority of "6" should be expected to be
>seen 6/5 ( or 1.2 ) times as much as a "5".
Someone will probably have a better answer than me, but a week ago I
had a similar problem and I solved it by duplicating the item that I
wanted to use by its weight.
%files = ( 'foo' => 3, 'bar' => 6, 'baz' => 5, 'quux' => 1);
@weighted = map { ($_) x $files{$_} } keys %files;
Then there are twice as many 'bar's as 'foo's, so it should appear
twice as often. The fact that they are contigous shouldn't matter
since you are accessing any random element from the array.
--
Andrew Langmead
------------------------------
Date: Mon, 30 Mar 1998 21:43:46 +0200
From: "Morten Fischer" <mkf@post8.tele.dk>
Subject: perl - Interchange??
Message-Id: <6fot1e$qpa$1@news-inn.inet.tele.dk>
Evening!
I am seaching for a good language to program Severside-programs in. And I
feel perl might be a good choise! But something bugs me - I have not been
able to find this anywhere:
does a perl-script programmed, say on a Win95 machine also work on a Unix?
Sorry if this is a "common question"
Morty
------------------------------
Date: Mon, 30 Mar 1998 20:37:39 +0200
From: Ryan Day <r.day@mbox.unicc.org>
To: Tim Richter <Tim.Richter@Dresdner-Bank.Com>
Subject: Re: Ping
Message-Id: <351FE673.EE5E345F@mbox.unicc.org>
Tim Richter wrote:
> Hi.
>
> Is it possible to do a "ping" to a host using only perl and not the
> system4s ping-command?
> I want to watch some (1300) servers in the net and only need toknow if
> they are pingable. My current
> solution uses the os ping-command and is far to slow.
>
> Please reply via email.
> --
> Tim Richter
> Tim.Richter@Dresdner-Bank.com
Try Net::Ping. It doesn't use the system's ping.
Ryan
------------------------------
Date: Mon, 30 Mar 1998 12:32:30 -0800
From: Ani Bhutkar <abhutkar@synopsys.com>
Subject: Please help! HR Related...
Message-Id: <3520015E.E0671AF3@synopsys.com>
Hi!
Here's my question........
Any HRD site has a online form available to send user data(canditates
resume).
There is also an e-mail provided so that candidate can send resume
through it directly. But how is this data transfered to database(say
Oracle)?
If the attachment is in word(resume) through e-mail, how is the data in
that incoming file
processed for further storage in database. Accessing it later is easier
by submiting
and treating sql queries, but I want to know about it's storage
procedure.
Please help or recommend a useful site.
Thanks.
REPLY TO: shivanjali@yahoo.com
------------------------------
Date: 30 Mar 1998 22:39:46 GMT
From: Jamie Hoglund <jhoglund@mirage.skypoint.net>
Subject: Public Key Encryption (non pgp)
Message-Id: <6fp6vi$s70$1@shadow.skypoint.net>
Hi,
I've been looking for a NON PGP public key encryption method written in
perl, and so far haven't really been able to find one. (perhaps it is
because I don't know exactly what I'm looking for)
The problem involves credit card numbers stored online in a "hostile
environment" Basically what I need is something like:
1.) Encrypt with public key
2.) Store on hard drive.
3.) Send (but do NOT store anywhere, even temporarily) a private key,
(read from STDIN, via CGI but this is not a cgi related problem)
4.) Decrypt using a private key / magic number
5.) Send to stdout.
Something like $Data = &encrypt($Data,$Public_Number)
and $Data = &decrypt($Data,$Private_number)
All encryption and decryption must take place in a hostile environment, so
PGP isn't feasable as it would require a private key to be written to a
temporary file. (I have a few other reasons for not using PGP) It
shouldn't be a module if at all possible, and definately shouldn't require
any external programs.
Is there a way to do this?
I've looked at the "export-o-sig" but can't really make heads or tails of
it. Is there an err "english" version floating around somewhere? (would
it actually work for what I need?)
----------------------------------------------------------------------------
#!/usr/local/bin/perl -s-- #export-a-crypto-system sig, RSA in 4 lines
PERL:
$e-$d&(($k,$n)=@ARGV)==2||die"$0 -d|-e key mod out\n";$v=$w=1+length$n&
~1;$v-=$d*2;$w-=$e*2;$_=unpack('B*',pack('H*',1&length$k?"0$k":$k));s/^0+//;
s/1/0lM*ln%/g;s/0/d*ln%/g;while(read(STDIN,$m,$w/2)){$m=unpack("H$w",$m);$a=
`echo 16oOi\U$m SM$n\Esn1$_ p|dc`;print pack("H$v",'0'x($v+1-length$a).$a);}
----------------------------------------------------------------------------
The above uses 'dc' which won't work, being a mathematically challenged
individual.. I don't even know what the `dc` is used for, but whatever it
does, it needs to be done in perl.
Thanks for any clues, I sure appreciate it. I can't believe this is such
a difficult thing to do.
Jamie
------------------------------
Date: Mon, 30 Mar 1998 14:44:23 -0800
From: mknutson@websolution.com (Mick Knutson)
Subject: Question about Perl script and form submit buttons !!!!
Message-Id: <MPG.f89c021b6882ad69896b9@news.greatbasin.net>
I am having trouble with users clicking a submit button 2+ times because
they think it will help the 1.25 minute process speed up or something.
Any ideas on how to eliminate this?
QUESTION:
If a user clicks a submit button once, a process is started for that
script.
If they click again before the script returns, is that going to be
another process or the same one.
And does the first click get fully processed before the second?
--
Thanks ...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~ Mick Knutson ~
~ B.A.S.E. #454 ~
~ mknutson@websolution.com ~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~ Support Legal B.A.S.E. Jumping! ~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~ The BASE Board ~
~ http://www.websolution.com/base/board/index.shtml ~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~ Add yourself to The B.A.S.E. Mailer at: ~
~ http://www.websolution.com/base/mail/index.shtml ~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: 30 Mar 1998 21:33:23 GMT
From: abigail@fnx.com (Abigail)
Subject: Registration fees for TCP 2.0.
Message-Id: <6fp333$8pv$1@client2.news.psi.net>
Does anyone know what the approximate registration fees for TCP 2.0
will be? The website says registration details will be available
half May - which is 2 weeks after the deadline on papers.
It would be nice if it's worthwhile to spend time writing a paper...
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle 'print +(HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET", "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content)) =~ /(.*\))[-\s]+Additional/s) [0]'
------------------------------
Date: Mon, 30 Mar 1998 21:42:14 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Scalar Variable as an array name
Message-Id: <ebohlmanEqnIyE.DC3@netcom.com>
Mitch Lyman <ingrjml@bnr.ca> wrote:
: I'm performing a push command.
: push(@{$var},$temp);
: $temp has a string with a value of 'P is a good tool which has improved'.
: $var has a string name of 'Question2_Comments'.
: But @{$var} is empty when i push the string on the array. I want push onto
By any chance, is Question2_Comments a lexical (my) variable? Symbolic
references don't work for lexical variables.
------------------------------
Date: Mon, 30 Mar 1998 21:59:10 -0800
From: Jan Krynicky <jkry3025@comenius.ms.mff.cuni.cz>
Subject: Re: Sendmail in Perl32/NT
Message-Id: <3520862E.3FF2@comenius.ms.mff.cuni.cz>
Nuttapong Tungdajahirun wrote:
>
> I 'm just changing to Perl32.
>
> What can I use instead of sendmail in UNIX in my perl script for Perl
> 32?
> Please give me some example.
>
> I'm using NT w/ IIS 4.0.
> Thanks
>
> Jeen
SendMailEx.pm or Mail::Sender.pm from
http://www.chipnet.cz/depot/perl.htm
Both work on WinNT as well as on Unix, no need for any sendmail.exe
or any other outer program.
Jenda
------------------------------
Date: 30 Mar 1998 22:48:35 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: SETUID to user from root.
Message-Id: <6fp7g3$srl$1@ns1.arlut.utexas.edu>
jhill@mitre.org (Jason C. Hill) writes:
> I have a perl script which is run as root, but on a couple of occassions I
> need to set the UID to something other than 0. I've tried a couple of
> things but failed on each one. I can't find any decent documentation on
> this. Anyone have a quick and easy way of doing this? Thanks.
>
> -Jason C. Hill
> jhill@mitre.org
perldoc perlvar
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"It is obvious that about 750,000 people ago, Austin was a wonderful City."
------------------------------
Date: Mon, 30 Mar 1998 15:47:35 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Sneex having problems
Message-Id: <352004E7.C3C@min.net>
Bob Gwynne wrote:
>
> I received the following from Sneex:
>
> Please do me a big favor - my home system died Saturday night (was
> playing with the new Intel R3 version of the BeOS) and I have been
> unable to respond to people. Please post a note to c.l.p.m. stating
> such for me (I don't have very good access from work.)
>
> Please tell them I should be back online tomorrow and that I have
> only received three responses and that management here does not
> appear too supportive. but where there is a will there will be
> a way...
>
> Thx,
> Sneex :-)
Fuck. Guess everyone better just chill out until Sneex returns.
John Porter
------------------------------
Date: 30 Mar 1998 22:25:44 +0200
From: Zooko Journeyman <zooko@xs4all.nl>
Subject: Re: The "Y2k-bugs-are-not-just-a-legacy-problem" FAQ
Message-Id: <6fov48$kmr$1@xs2.xs4all.nl>
Theran Cochran <theranc@geocities.com> wrote:
>
>There are 136.192 years in a 32 bit field though (hence the year 2036
>bug in most Unix programs, or is that year 2106? I can't remember), and
>584,942,417,355.1 years in a 64 bit field. Or about 100,000 times as
>long as multicellular life has existed on earth, plus a month to
>recompile all your programs to 128 bit date fields.
This is assuming, of course, the we fix that "cold death of
the universe" bug before then.
Regards,
Zooko
.----, | mailto:zooko@xs4all.nl
. / | http://www.xs4all.nl/~zooko/public.html
. / | "Any technology which is distinguishable
+____. | from magic is insufficiently advanced."
------------------------------
Date: Mon, 30 Mar 1998 22:13:43 +0100
From: Georg Lenz <lenz@innosoft.de>
Subject: Trouble running html2ps perl script on NT4.0
Message-Id: <35200B06.2715AA81@innosoft.de>
Hei everybody out there,
I want to run a perl script to convert html to ps.(From Jan Kdrrman)
I installed perl (5.004_04) on NT4.0. The sample for the script is not
running and stops with the message can't find "POSIX.pm".
It seems so that this is not standard extension to perl.
So, how do I create that extension?????
I don't know Perl at all!! All I want is to run that script and get an
output.
Anybody out there who cloud give me a hand, how to smart up the perl
version (5.004_04) I got from www.perl.com.
Thanks a lot
Georg
------------------------------
Date: Mon, 30 Mar 1998 16:05:12 -0500
From: John Porter <jdporter@min.net>
Subject: Re: verifying email address -- how?
Message-Id: <35200908.6F60@min.net>
And I was foolish enough to think that the last word had been said
on this subject.
I R A Aggie wrote:
>
> Perl isn't necessarily the best solution for every problem. This may well
> be one of them.
Infidel.
hand,
John Porter
------------------------------
Date: Mon, 30 Mar 1998 16:09:40 -0500
From: John Porter <jdporter@min.net>
Subject: Re: What does this mean =~ ?
Message-Id: <35200A14.354B@min.net>
Webmaster wrote:
>
> I would hazard a guess that it means perform the requested operation
> and then store the results here.
Hazard away, doofus. It doesn't mean anything about storing
anything anywhere. Any "storing" it does is as side-effects.
John Porter
------------------------------
Date: Mon, 30 Mar 1998 12:51:34 -0800
From: klillevo@technologist.com (Karl O. Lillevold)
Subject: Win32:: available or not?
Message-Id: <MPG.f89a5b2b94169f8989685@news.or.intel.com>
I am writing a script that is to run on both UNIX and Win32 systems, and
on the Win32 systems I want to use the Win32 module for certain functions
(detect whether it's a Win95 or WinNT system). Using Win32 functions when
this module is *not* present leads to a fatal error and I want to avoid
this.
Currently I do the following, but I am sure there's a better way:
if (!(system "perl -MWin32 -e \"\"")) {
print "Running on Win32. Can use Win32 module.\n";
$win95 = &Win32::IsWin95;
}
Advice?
Karl.
------------------------------
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 2211
**************************************
