[7362] in Perl-Users-Digest
Perl-Users Digest, Issue: 987 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 6 16:17:22 1997
Date: Sat, 6 Sep 97 13:00:22 -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 Sat, 6 Sep 1997 Volume: 8 Number: 987
Today's topics:
colletion of neat map uses anywhere? (Re: How to get ke (Jahwan Kim)
DBI/DBD with mSQL problem <kluff@enterprise.net>
Re: Difference between a link() and File::Copy (Daniel E. Macks)
Extracting browser/platform from apache log files (Tony Bowden)
find.pl/.pm and level number <passani@eunet.no>
Re: Getting Perl to wait for a prompt <rootbeer@teleport.com>
Re: guestbook: new entry at top && fast <daftary@cisco.com>
Re: how do I redirect the output of an existing perl sc <peter@preview.org>
How to cut the double quotes of strings off for regular ()
Re: I seem to be missing something obvious with package <friedman@uci.edu>
Re: I seem to be missing something obvious with package <rael@zx80.dnai.com>
Identifying garbage characters pewter@ibm.net
Re: Identifying garbage characters <kistler@inf.ethz.ch>
Re: Implicit Creation of Complex Structures (Matti Kinnunen)
Re: Implicit Creation of Complex Structures (Matti Kinnunen)
Re: Learning perl <jason.holland@dial.pipex.com>
Re: Load a module only if needed? <chenym@dufu.math.ncu.edu.tw>
Re: Making a Swiss-Army Knife HTML tool in Perl lvirden@cas.org
Re: nested data structures in Perl 4 (Andrew M. Langmead)
new looking script <acientNOmail@orion.com>
Re: new looking script (Daniel E. Macks)
Re: Password Change Using Web and Perl <rootbeer@teleport.com>
Re: Perl5.004.01 debugger doesn't work (Mick Ghazey)
script.pl to script.bat? <steve@mosby1.force9.net>
Re: Shakespearian insult program <df@ravine.binary.net>
Speed of goto (was: Re: newbie: how do I break a WHILE <rootbeer@teleport.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 6 Sep 1997 16:04:13 GMT
From: jahwan@supernova.math.lsa.umich.edu (Jahwan Kim)
Subject: colletion of neat map uses anywhere? (Re: How to get keys of array?)
Message-Id: <slrn612vns.6bj.jahwan@supernova.math.lsa.umich.edu>
On 04 Sep 1997 08:27:07 -0700, Randal Schwartz <merlyn@stonehenge.com> wrote:
[snip]
> Or even more perverse and wonderful:
>
> %MyHash = map /^(.*?):(.*)/, <INFILE>;
>
> Map rules! (Giving us map-rules as well. :-)
>
[snip]
Yeah! Map rules!
I'm beginning to wonder, shouldn't all these neat uses of map be
collected and written up, say in a document of couple of pages? Maybe
man perlmap? Is it out there already?
Trying to map a map page without a map,
Jahwan
------------------------------
Date: Sat, 06 Sep 1997 09:11:59 +0100
From: Kevin Luff <kluff@enterprise.net>
Subject: DBI/DBD with mSQL problem
Message-Id: <3411104E.3F4D4448@enterprise.net>
This is a multi-part message in MIME format.
--------------828A09071174BD65B3A2F25F
Content-Type: text/plain; charset=us-ascii
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Transfer-Encoding: 7bit
Dear all,
Below is a snippet of code....
It works fine ( with the two marked lines changed) when accessing an
Oracle table at work.
So that I can do some work from home I'm trying out mSQL (v2.something)
with Linux
All I get running this query is
bind_columns called with 4 refs when 0 needed
The table is all set fine and the server runs OK. If I enter the query
at the mSQL prompt, it produces the expected result.
Please tell me what I'm missing while I still have some hair left to
pull out !!!!
### CODE BEGINS
use DBI;
#####change here for oracle
$drh = DBI->install_driver( 'mSQL' );
$dbh=$drh->connect("localhost", "hexagon","") || die "no connect
$DBI::errstr\n";
##### end
$bankcode='1';
$startdate='1-Aug-97';
$finishdate='2-Aug-97';
$sth=$dbh->prepare("
select hbs_ac_id, hbs_tx_date, hbs_tx_amt, hbs_narrative
from hex_bank_statements
where hbs_ac_id = '$bankcode'
and hbs_tx_date >= '$startdate'
and hbs_tx_date <= '$finishdate'
") || die "OH, $DBI::errstr\n";
$sth->execute || die "OH OH, $DBI::errstr\n";
$sth->bind_columns(undef, \($acid, $txdate, $txamt, $narrative));
###CODE ENDS
Kevin
--------------828A09071174BD65B3A2F25F
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Kevin Luff
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Kevin Luff
n: Luff;Kevin
adr: 11 Hailwood Avenue;;;Douglas;;IM2 7DQ;Isle of Man
email;internet: kluff@enterprise.net
tel;work: +44 1624 688128
tel;home: +44 1624 616123
note: http://homepages.enterprise.net/kluff
x-mozilla-cpt: ;0
x-mozilla-html: TRUE
end: vcard
--------------828A09071174BD65B3A2F25F--
------------------------------
Date: 6 Sep 1997 18:40:04 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: Difference between a link() and File::Copy
Message-Id: <5us824$aov$1@netnews.upenn.edu>
Allen Choy (achoy@us.oracle.com) said:
:
: Can anyone tell me what's the difference of creating a new file via
: link() versus using the
: File::Copy module?
:
: I'm also not very clear about the concept of hard links.
Think of your filesystem as a bunch of chunks of data (your files) and
a bunch of pointers to your chunks of data. When you create a file,
you stash the data somewhere, and create a pointer to it in the
appropriate directory. When you copy a file, you duplicate the
contents, and create a new pointer to that new data. When you create a
hard link, you create a second (or more) pointer to the original
data.
It's sorta like perl's variable references. When you modify one
version of the copied file, the other version remains untouched. If
you modify a hard-link the modification affects the actual data, so
following any hard link to it will give you the modified version. When
you delete (unlink) a file, you just delete the specified reference to
your data. As long as there are other hard links, though, the actual
data remains intact.
dan
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: 6 Sep 1997 11:59:14 GMT
From: tony@niweb.com (Tony Bowden)
Subject: Extracting browser/platform from apache log files
Message-Id: <5urgii$3us$1@sparc.tibus.net>
A browse through CPAN, and a check on dejanews reveals nothing ...
(although I may well have been looking with the wrong keywords etc.. [is
there a perldoc equivalent to 'apropos'?])
Has anyone put together a module (or even a snipped of code that could
be turned into a module) that parses the browser info from an apache log
file. A basic parsing of it shouldn't be too difficult, but what with
MSIE pretending to be Netscape, and recently adding an extra 'Update'
field, and the AOL browser having a variety of styles etc., it starts
getting tricky to keep on top of it all.
If there isn't such a thing alredy I'll try throwing one together, but
I'd rather not unneccessarily duplicate all the effort.
Tony
--
-----------------------------------------------------------------------------
Tony Bowden | tony@tmtm.com / t.bowden@qub.ac.uk / http://www.tmtm.com/
Belfast, NI | I love your casual way but please put your tongue away
-----------------------------------------------------------------------------
------------------------------
Date: Sat, 06 Sep 1997 16:29:21 -0700
From: luca passani <passani@eunet.no>
Subject: find.pl/.pm and level number
Message-Id: <3411E751.DEDFA751@eunet.no>
Hallo,
I'm traversing a directory using file.pl and I would like to do
something inside a certain dir depending on the level of my subdir.
To be more precise, let's suppose I have the following structure
/a/b/c/
d1/c1/d1
d2/c2/d2
I invoke &find("/b") and I would like to be able to understand how deep
into my subdirectories I am when I eveluate &wanted
In my example I should have depth 3 for in directory "c1"
and depth 4 for directory "d2"
Any hints about how to implement this simply?
Thank you
Luca
------------------------------
Date: Sat, 6 Sep 1997 08:50:33 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Andrew Kerr <kerr@cs.uregina.ca>
Subject: Re: Getting Perl to wait for a prompt
Message-Id: <Pine.GSO.3.96.970906084953.21745E-100000@julie.teleport.com>
On 6 Sep 1997, Andrew Kerr wrote:
> I'm trying to write one of those infamous password changing scripts.
http://www.genome.wi.mit.edu/WWW/faqs/www-security-faq.html
http://www.genome.wi.mit.edu/WWW/faqs/wwwsf3.html#Q23
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Sat, 6 Sep 1997 06:43:10 -0700
From: Kuntal M Daftary <daftary@cisco.com>
Subject: Re: guestbook: new entry at top && fast
Message-Id: <Pine.GSO.3.96.970906064238.15428A-100000@flipper.cisco.com>
On Wed, 27 Aug 1997, Eric Bohlman wrote:
> Siegfried Reker (s.reker@cray.ping.de) wrote:
> : I'm just creating a guestbook using cgi/perl. I want new entries to
> : appear at the top of the guestbook. Thus opening the file in append
> : mode does not work. So by now, I create a temporary file, write the
> : new entry into it, append the old guestbook entries and finally move/
> : rename the temporary file to replace the old guestbook. As the
> : guestbook grows this gets increasingly time consuming. Is there a
> : better way?
> How about writing new entries to the end of the file as they're made
> (using append mode), and massaging the file's data when you need to print
> it out (this assumes that you're using a script to display the entries
> rather than writing the entries directly to an HTML file as they're
> made)? The display script can simply slurp up the entire file into an
> array and then output the entries in reverse order (this will be much
> easier if you come up with a standard entry separator in your data file).
or use ex to do inline editing
---
Kuntal M. Daftary Cisco Systems Inc
Ph: 408 527 9789 170 W. Tasman Dr
daftary@cisco.com San Jose CA 95134
------------------------------
Date: Sat, 6 Sep 1997 11:02:56 -0700
From: "Peter Tiemann" <peter@preview.org>
Subject: Re: how do I redirect the output of an existing perl script
Message-Id: <5us5mo$lgd$1@ha1.rdc1.sdca.home.com>
Hello Michael and all the others who where so nice to reply to my question.
Thank you for all your answers.
Unfortunately, I was not precise enough in my posted question.
I try to run a script that is on an external server. I do have execute
rights only on this script, so I cannot copy or modify it.
So.. it is not a perl _function_ call, but a _script_ call, where arguments
are
passed in the environment.
E.g.:
http://foreign.server.com/cgi-bin/script?parm1=123+parm2=xxx
You see.. right now, I call this script from a web browser. Actually I
cannot be 100% sure that "script" is a perl program.
Could be a compiled C program as well.
I guess, at first I have to find out, whether it is possible to call a perl
script from within my perl script? Some sort of "shell" command.
Second: is it possible that this script is not on my own server? How do I
reach the other server?
Well, seems that this takes me some time. Maybe it's completely wrong to
approach this with perl on my server but I should write something that runs
on my machine.
Thanks for all your answers again anyway -
Peter
-------------------
Michael Budash wrote in article ...
[..]
>First, before any "print..." statements:
>
> open (FILE_NAME, ">>file_name") || die;
>
>Then, wherever there is a "print ..." statement, change it to "print
>FILE_NAME ...".
>
>Finally, purists would have you do this when you're through with the file:
>
> close (FILE_NAME);
>
[..]
------------------------------
Date: 6 Sep 1997 14:09:02 GMT
From: dennis@csie.nctu.edu.tw ()
Subject: How to cut the double quotes of strings off for regular expression?
Message-Id: <5uro5u$bgq$1@news.ncu.edu.tw>
want to give a string as a regular expression matching pattern..
but string has two double qouotes in it, how do I solve this problem?
#This is my program for testing..
#!/usr/bin/perl -w
use LWP::Simple;
$doc=get 'http://dennis.ncu.edu.tw/rjtt.html';
$pattern= "/.*?<TABLE>.*?<TABLE>.*?<\/TR>(.*?)<\/TABLE>.*?/sig";
#$pattern possible be gotten from @_
if($doc =~ $pattern)
#Wrong!! It has two double qoutes
#if($doc =~ /.*?<TABLE>.*?<TABLE>.*?<\/TR>(.*?)<\/TABLE>.*?/sig)
B
B
B
B
B
B
A
A
A
A
A
A
A
A
A
{ print "$1"; }
------------------------------
Date: 6 Sep 1997 18:49:56 GMT
From: "Eric D. Friedman" <friedman@uci.edu>
Subject: Re: I seem to be missing something obvious with packages
Message-Id: <5us8kk$d3d@news.service.uci.edu>
In article <eli$9709032354@qz.little-neck.ny.us>,
Eli the Bearded <usenet-tag@qz.little-neck.ny.us> wrote:
<Now I have a file MyLists.pm which contains
<
< package MyLists;
< @list=( "item", "ietm", "etim" );
< @slit=( "mite", "time", "emti" );
< ...
<
<and my script contains
<
< require MyLists;
< ...
< foreach $item (@MyLists::list) { ... }
< foreach $item (@MyLists::slit) { ... }
< ...
<
<This (seems to) work fine, except that '-w' gives me warnings
<that @MyLists::list, et al, is referenced only once from main.
<What am I overlooking?
replacing require with use fixed this, though I'm not sure why.
Eric
--
Eric D. Friedman
friedman@uci.edu
------------------------------
Date: 06 Sep 1997 12:01:07 -0700
From: Rael Dornfest <rael@zx80.dnai.com>
Subject: Re: I seem to be missing something obvious with packages
Message-Id: <87u3fys1vw.fsf@zx80.dnai.com>
Tom Phoenix <rootbeer@teleport.com> writes:
> Until and unless this is fixed, you can use the first form as a
> workaround. But before anybody goes to fix it, I'm thinking: If vars.pm
> were just a little smarter, wouldn't this line be easier to type and
> understand?
>
> use vars qw(package Mixed::Nuts; $almond $cashew $peanut);
>
> Then again, some cans marked "Mixed nuts" actually have spring snakes
> inside, and maybe this idea is one of those...
Just my $0.02, but I couldn't agree more.
Rael
______________________________________________________________________
Rael Dornfest "What is the sound of Perl?
Webmaven Is it not the sound of a wall
Direct Network Access that people have stopped
rael@dnai.com banging their heads against?"
http://www.dnai.com -- Larry Wall
------------------------------
Date: Sat, 6 Sep 1997 09:20:35 -0700
From: pewter@ibm.net
Subject: Identifying garbage characters
Message-Id: <1997090609203534885@slip129-37-97-155.tx.us.ibm.net>
Hello to the folks reading comp.lang.perl.misc!
I'm trying to write a regular expression to get rid of 'garbage'
characters in a binary file, where garbage is defined as anything that
isn't alphanumeric or punctuation readily available on a standard
keyboard. Here's what I have so far, but I can't figure out what
characters I need to escape within a character class! Maybe someone who
has done something like this can help me out.
$word = "\d\w\s~`!@#$%^&*()_-+=[]{}\\|:;'\"<>,./?"
$garbage = s/([^$word]+[$word]{0,3}[^$word]+)//g
- Brian
------------------------------
Date: Sat, 06 Sep 1997 21:45:12 -0700
From: Per Kistler <kistler@inf.ethz.ch>
To: pewter@ibm.net
Subject: Re: Identifying garbage characters
Message-Id: <34123157.ADA172EB@inf.ethz.ch>
Hi Brian
What about something of that kind:
perl -pe '$_ =~ s/[\000-\040]//g' /bin/sh
Seems to work, but test for yourself:-)
Bye, per.
--
Per Kistler, Unix Systems Administrator, kistler@inf.ethz.ch
http://www.cs.inf.ethz.ch/~kistler/
Swiss Federal Institute of Technology, Zuerich, Switzerland
---------------------------------------------------------------------
------------------------------
Date: 06 Sep 1997 13:01:37 +0300
From: matti@universe.pc.helsinki.fi (Matti Kinnunen)
Subject: Re: Implicit Creation of Complex Structures
Message-Id: <lz2032hibi.fsf@universe.pc.helsinki.fi>
In article (Kevin Bass) writes:
If this line of code was the first line in a program :
$sue('children') -->[1] -->{age} = 10;
Perl would automatically create the hash %sue. How would the
structure of the hash %sue look?
Kevin
Yous code has syntax errors. It should read
$sue{children} ->[1] ->{age} = 10;
The Perl debugger gives the following
sturcture:
%sue = (
'children' => ARRAY(0x80c3268)
0 undef
1 HASH(0x80bb108)
'age' => 10
)
HTH
- matti -
--
* matti.kinnunen@helsinki.fi *
* http://universe.pc.helsinki.fi/~matti/contact.html *
* !!! +358-(0)40-593 50 91 but try first +358-(0)9-191 23978 *
------------------------------
Date: 06 Sep 1997 13:03:24 +0300
From: matti@universe.pc.helsinki.fi (Matti Kinnunen)
Subject: Re: Implicit Creation of Complex Structures
Message-Id: <lzzppqg3o3.fsf@universe.pc.helsinki.fi>
In article I wrote:
Yous code has syntax errors. It should read
$sue{children} ->[1] ->{age} = 10;
Oops, maybe it should read
$sue{'children'} ->[1] ->{'age'} = 10
--
* matti.kinnunen@helsinki.fi *
* http://universe.pc.helsinki.fi/~matti/contact.html *
* !!! +358-(0)40-593 50 91 but try first +358-(0)9-191 23978 *
------------------------------
Date: 6 Sep 1997 18:43:16 GMT
From: "Jason" <jason.holland@dial.pipex.com>
Subject: Re: Learning perl
Message-Id: <01bcbaf4$652150c0$dffb82c1@dial.pipex.com.pipex.com>
Yeah, read 'Learing Perl', by Randal L. Schwartz, then get 'Programming
Perl' by Larry Wall. These are the two Perl books, both by O'Reilly &
Associates.
However, as I have recently had to learn Perl, I found the best method is
to simply get down and do it. Find a real problem and hack out a solution
to it.
jason.holland@dial.pipex.com
Erich Kreiselmaier <erich@flm.mw.tu-muenchen.de> wrote in article
<340FA7C7.4A37@flm.mw.tu-muenchen.de>...
>
> I am new to perl programming. Does anyone have a recommendation for
> free available documentation or a good book.
>
> Thanks
>
> Erich
> --
>
============================================================================
==
> ------- | | |\ /| Erich Kreiselmaier
> | | | | \/ | TU Muenchen
> | | | | | Lehrstuhl fuer Fluidmechanik
> | | | | | 85747 Muenchen
> | \___/ | |
>
> Tel: (49) 89 289 16125
> Fax: (49) 89 289 16151
> e-mail: erich@flm.mw.tu-muenchen.de
> WWW: http://www.flm.mw.tu-muenchen.de/~erich
>
============================================================================
==
>
------------------------------
Date: 6 Sep 1997 11:22:39 GMT
From: "Mr. Yen-Ming Chen" <chenym@dufu.math.ncu.edu.tw>
Subject: Re: Load a module only if needed?
Message-Id: <5uredv$8b4$1@news.ncu.edu.tw>
Scott Grosch <grosch@ichips.intel.com> 4#(l:
: I have a perl module (orgchart.pm) that defined a function requiring the
: methods defined in another module (directory.pm). However, that function won't
: be used by 99% of the scripts that 'use orgchart'.
: How do I set things up so that orgchart.pm only does the 'use directory' if
: someone calls that specific function?
perldoc Autoloader
And you will know things about the autoloading mechanism of Perl!
--
No, I'm not going to explain it. || Yen-Ming (Miles) Chen
If you can't figure it out, you ++ chenym@math.ncu.edu.tw
didn't want to know anyway... :-) %% chenym@ms1.hinet.net
<> http://www.math.ncu.edu.tw/~chenym/
------------------------------
Date: 6 Sep 1997 11:42:42 GMT
From: lvirden@cas.org
Subject: Re: Making a Swiss-Army Knife HTML tool in Perl
Message-Id: <5urfji$jos$1@cas.org>
According to T. Wheeler <twheeler@m-net.arbornet.org>:
:I am wanting to deelop a do-it-all perl tool that will take plain text
:files and create decent formatted HTML. Once it is completed, I will
:post it in th epublic domain for all to use.
I recommend you see about incorporating the best text to html tool
I've seen:
<URL: http://www.cs.wustl.edu/~seth/txt2html/ >
--
Larry W. Virden INET: lvirden@cas.org
<URL:http://www.teraform.com/%7Elvirden/> <*> O- "We are all Kosh."
Unless explicitly stated to the contrary, nothing in this posting should
be construed as representing my employer's opinions.
------------------------------
Date: Sat, 6 Sep 1997 15:53:09 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: nested data structures in Perl 4
Message-Id: <EG3G4M.E7A@world.std.com>
dparsons@sirrus.com writes:
>Does anyone know of a way to construct an array of associative arrays
>in Perl 4, such that the individual associative arrays don't get
>glommed together and can later be extracted out again?
One idea would be to use some sort of quoting, or escaping mechanism
for the character you use to be your data separator. Escape your
spearator before joining, and unescape after splitting.
$esc = '\\';
$sep = '\0';
@temp = @data;
for (@temp) {
s/$esc($esc|$sep)/sprintf("$esc%02x", $1)/geo;
}
$hash{$elem} = join($sep , @temp);
and to split:
@data = split(/$sep/, $hash{$elem});
for(@data) {
s/$esc(.)/pack("C", "0x$1")/geo;
}
Another way would be to create unique hashes at runtime and store the
name of the hash as the value.
$nextuniquehash = 'uniquehash00000000';
$newhash = $nextuniquehash++;
*twodimhash = $newhash;
%twodimhash = @data;
$hash{$elem} = $newhash;
and to dereference:
$hashname = $hash{$elem};
*subhash = $hashname;
for(keys %subhash) {
}
(This method was shown in the FAQ that corresponded to perl
4. Unfortunately, the oldest copy I have of the FAQ is from November
1994, at which time perl 5 was in common use, and such horrible hacks
were removed)
--
Andrew Langmead
------------------------------
Date: Sat, 06 Sep 1997 10:39:00 -0300
From: the ancient <acientNOmail@orion.com>
Subject: new looking script
Message-Id: <34115CF3.7E92ED25@orion.com>
Can you get perl to do like the Windows help indices.
That is as I put i a letter the prompt in a textarea moves to the
corresponding letter or string of letters if so please tell me how if
not please tell me why.
------------------------------
Date: 6 Sep 1997 18:48:32 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: new looking script
Message-Id: <5us8i0$aov$2@netnews.upenn.edu>
the ancient (acientNOmail@orion.com) said:
:
: Can you get perl to do like the Windows help indices.
: That is as I put i a letter the prompt in a textarea moves to the
: corresponding letter or string of letters if so please tell me how if
: not please tell me why.
Yes: perl can wait for a keypress (Term::ReadKey) to get the
keypresses, and then do whatever you want with 'em (hey, it's your
program). You might look into Term::Complete to see if its more
Unixish completion routines would suffice (since the code's already
written).
No: it sounds almost like you're talking about a webpage interface, in
which case there's no real-time bidirectional communication. You'd
want to use Java/JavaScript/something-else-that-ain't-perl, which and
for which this newsgroup won't help.
dan
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: Sat, 6 Sep 1997 08:35:34 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: rlitiatc@amgen.com
Subject: Re: Password Change Using Web and Perl
Message-Id: <Pine.GSO.3.96.970906083434.21745C-100000@julie.teleport.com>
On Fri, 5 Sep 1997 rlitiatc@amgen.com wrote:
> I am working on an application to allow users to change their UNIX
> password via a web form using a cgi.
http://www.genome.wi.mit.edu/WWW/faqs/www-security-faq.html
http://www.genome.wi.mit.edu/WWW/faqs/wwwsf3.html#Q23
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Sat, 06 Sep 1997 19:18:37 GMT
From: mick@lowdown.com (Mick Ghazey)
Subject: Re: Perl5.004.01 debugger doesn't work
Message-Id: <3411ac5e.1440069@news.lowdown.com>
On Sat, 06 Sep 1997 00:50:08 -0400, Benjamin Holzman
<bholzman@mail.earthlink.net> wrote:
>Mick Ghazey wrote:
>>
>> The perl debugger doesn't work on my system. It seg-faults every time
>> you try to debug anything. The problem started when I upgraded to
>> per5.004.01 It doesn't matter what script you debug. The script can be
>> a simple one-liner consisting of "#!/usr/bin/perl". I've tried plenty
>> of scripts.
>>
>> I've been working on this problem all week. Please help if you can.
>>
>> Thanks.
>>
>> Mick
>It might help if you said what system you're on...
Sorry. I'm running Redhat Linux.
------------------------------
Date: Sat, 06 Sep 1997 14:08:58 +0000
From: Joe Mosby <steve@mosby1.force9.net>
Subject: script.pl to script.bat?
Message-Id: <341163F9.E0EEA55@mosby1.force9.net>
Hi there,
I have the program pl2bat that turns .pl files into .bat files,
supposedly. If anyone could tell me the procress that I have to go
through I would be very grateful. Thanks
Joe
------------------------------
Date: 5 Sep 1997 21:54:38 GMT
From: Dave Furstenau <df@ravine.binary.net>
Subject: Re: Shakespearian insult program
Message-Id: <5upv2u$gvk$1@oksennus.binary.net>
Eric Anderson,
that beslubbering doghearted codpiece, <eric@semaphore.com> wrote:
> I've cut-and-pasted your suggestions into my version here. Now I can
> rest easy knowing that every possible combination has a chance of
> popping up. The 49.9999 rand thing is interesting, I didn't know that.
> thanks!
So, here I am ... sitting down to do a full day of database entry
for a project several weeks behind. Then some impertinent full-gorged
lewdster post this whoreson piece of code and I end up burning the
entire fen-sucked day reading through my old college copy of SHAKESPERE'S
BAWDY (a scholarly tract on the Bard's use of ribald words, humor & double
entendre) so that I can add them to the program. Then I jump to the
actual texts (King Lear's scene with Kent & Oswald is great fodder, btw)
and there goes the afternoon. (I didn't pay that close attention to them
back when I was getting graded!)
Sirrah! Methinks thou art the cullionly glass-gazing heir to a
whoreson zed -- and a fishmonger to boot. But your shakesperl program
(give it a name, for god's sake) is absolutely hysterical. I'm gonna
customize the bejabbers out of it and add some arrays to concat a few
simple sentences.
Maybe I'll get back to my database in a month ... or two ...
Great stuff.
Dave Furstenau
df@binary.net
------------------------------
Date: Sat, 6 Sep 1997 08:47:14 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: "Andrew M. Langmead" <aml@world.std.com>
Subject: Speed of goto (was: Re: newbie: how do I break a WHILE loop?)
Message-Id: <Pine.GSO.3.96.970906083600.21745D-100000@julie.teleport.com>
On Fri, 5 Sep 1997, Andrew M. Langmead wrote:
> Thirdly, goto is coded horribly inefficiently in perl. And since no
> one seems to be interested in fixing it, it will probably always be
> that way.
Tell that to Eric Raymond. :-)
But, seriously, there are many, _many_ things on the to-do list which have
higher priority than that. That's the trouble with such low-priority
items: They seem to never get done. Until, of course, somebody comes along
with both the skill and desire to put it higher on his or her own priority
list!
If you really want somebody to work on this, it could happen. You've
got the source, so you could learn to do it yourself. Or, since one
famously successful way for motivating programmers is to use large sums of
money, you could offer some. (Only half joking! :-)
Okay, it's time to be more serious again. If you can design a strategy for
making goto LABEL run significantly faster without making something else
slower, it will probably get implemented in a future version of Perl. But
I'll be surprised if you can - I think that the current strategy is
actually the fastest (or nearly so) for real-world applications. It's not
coded so inefficiently as you might think, when you know what it's got to
do.
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
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 987
*************************************
