[9720] in Perl-Users-Digest
Perl-Users Digest, Issue: 3314 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 2 01:04:51 1998
Date: Sat, 1 Aug 98 22:00:19 -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, 1 Aug 1998 Volume: 8 Number: 3314
Today's topics:
Re: # in a print statement (Tad McClellan)
Re: # in a print statement (Abigail)
Re: # in a print statement (Michael J Gebis)
appending at end of the first line of a textfile <tm32@ub.uit.no>
Re: appending at end of the first line of a textfile <simonf@conduit.co.uk>
Re: Converting ACCESS database to PERL/CGI (David Cantrell)
Has anyone used the POP3 module ? <alan@find-it.furryferret.uk.com>
Re: hiding user input (Abigail)
How to format numbers for web pages eliscano@clubi.net
Re: How to format numbers for web pages <bowlin@sirius.com>
Re: Local Perl Installation and Form Processing <rootbeer@teleport.com>
Locked on target...FIRE! <quednauf@nortel.co.uk>
MORE Processing forms with Local PERL <john@cutnfun.com>
Re: non-perl question about linux <quednauf@nortel.co.uk>
Re: number (6 -> 06) conversion question (Larry Rosler)
Re: number (6 -> 06) conversion question (Lack Mr G M)
Re: PERL 5.00550 and windows 95 <quednauf@nortel.co.uk>
Please Help - Perl on the Web <aacwn100@york.ac.uk>
Re: Problem with variables in simple script... <sp@m.block>
Re: Programmer's Editor <tchrist@mox.perl.com>
Re: Programmer's Editor (Larry Rosler)
Re: Rearange text (Tad McClellan)
Re: Un peu d'aide svp <fauvelle@hotmail.net>
Using PERL with DB ? <fps@fps.com.br>
Re: What's the future of Perl? (Tad McClellan)
Re: when/where perl.exe (5.005) for Win32? (David B. White)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 30 Jul 1998 10:58:53 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: # in a print statement
Message-Id: <t75qp6.018.ln@localhost>
nikkim@my-dejanews.com wrote:
: What is the qq quoting method in perl?
perl -n -e 'print if /qq/' *.pod | wc -l
...finds only fifteen matches.
I'll bet the answer is near one of those lines ;-)
: it
: is not in the books I have.
That hardly matters because hardbound books are way down the
prioritized list of places to look. (partly because they go
out of date quickly and partly because you cannot have a
machine do a word search for you ;-)
1) word search in perlfaq*.pod files
2) word search in the rest of the *.pod files
3) www.dejanews.com word search in the comp.lang.perl.* newsgroups
4) other stuff, like books or the person in the next cubicle ;-)
: I guess I haven't come across this method yet.
Curl up with the documentation that comes with perl if you want
to learn about perl and Perl...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 30 Jul 1998 16:49:22 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: # in a print statement
Message-Id: <6pq86i$p1l$3@client3.news.psi.net>
Michael J Gebis (gebis@albrecht.ecn.purdue.edu) wrote on MDCCXCIV
September MCMXCIII in <URL: news:6pp3sd$37q@mozo.cc.purdue.edu>:
++ rjk@coos.dartmouth.edu (Ronald J Kimball) writes:
++ }<nikkim@my-dejanews.com> wrote:
++ }> print GUEST "<IMG id=\"Picture2\" HEIGHT=88 WIDTH=562 SRC=\"./bbstop8.jpg\"
++ }> BORDER=0 USEMAP="#map5" > etc, etc ...
++ } ^ ^
++ }Backslash the quotes so the # is within the string, instead of outside
++ }it.
++
++ I might add:
++ print GUEST qq/<IMG id="Picture2" HEIGHT=88 WIDTH=562 SRC="./bbstop8.jpg" BORDER=0 USEMAP="#map5">/;
++
That would give a similar error, wouldn't it?
print GUEST '<IMG id="Picture2" HEIGHT=88 WIDTH=562 SRC="./bbstop8.jpg"
ORDER=0 USEMAP="#map5">';
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
------------------------------
Date: 30 Jul 1998 16:54:59 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: # in a print statement
Message-Id: <6pq8h3$adf@mozo.cc.purdue.edu>
lr@hpl.hp.com (Larry Rosler) writes:
}In article <6pp3sd$37q@mozo.cc.purdue.edu> on 30 Jul 1998 06:29:33 GMT,
}Michael J Gebis <gebis@albrecht.ecn.purdue.edu> says...
}...
}> I might add:
}> print GUEST qq/<IMG id="Picture2" HEIGHT=88 WIDTH=562 SRC="./bbstop8.jpg" BORDER=0 USEMAP="#map5">/;
}Er, I don't think you chose the best character to delimit that quote! :-)
"Oh jeez, it's only one line. I know it's late, but even I couldn't
screw up a one line print statement...."
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Fri, 31 Jul 1998 11:19:55 +0200
From: tm32 <tm32@ub.uit.no>
Subject: appending at end of the first line of a textfile
Message-Id: <35C18C3B.439114F2@ub.uit.no>
I pretty new to programmming in perl a have been studying perl for a
short while and I can't seem to find out how to perform this action.
open a text file
apend to the file an input data at the end of first line.
geninfo.txt
----------
perl, john, peter, tessy,the newdata $x here
java, language
temp, cat, boy
.....
.....
$geninfo= "$usr/local/htdocs/geninfo.txt";
open(GEN, ">>$geninfo") || &no_open;;
while (<GEN>){
print GEN "$x";}
close(GEN);
.......
.......
Thanks in advance.
------------------------------
Date: Fri, 31 Jul 1998 10:50:46 +0100
From: "Simon Fairey" <simonf@conduit.co.uk>
Subject: Re: appending at end of the first line of a textfile
Message-Id: <35c1928e.0@nnrp1.news.uk.psi.net>
Look in the perl FAQ at http://www.perl.com there is a section in there on
how to modify a line in a file, this should be exactly what you want.
Simon
tm32 wrote in message <35C18C3B.439114F2@ub.uit.no>...
>I pretty new to programmming in perl a have been studying perl for a
>short while and I can't seem to find out how to perform this action.
> open a text file
> apend to the file an input data at the end of first line.
>
>geninfo.txt
>----------
>perl, john, peter, tessy,the newdata $x here
>java, language
>temp, cat, boy
>
>
>.....
>.....
>$geninfo= "$usr/local/htdocs/geninfo.txt";
>open(GEN, ">>$geninfo") || &no_open;;
>
>while (<GEN>){
>print GEN "$x";}
>close(GEN);
>.......
>.......
>
>Thanks in advance.
>
>
>
------------------------------
Date: Thu, 30 Jul 1998 15:50:16 GMT
From: NukeEmUp@ThePentagon.com (David Cantrell)
Subject: Re: Converting ACCESS database to PERL/CGI
Message-Id: <35c09405.912652@thunder>
On Thu, 30 Jul 1998 15:03:06 GMT,
fhurtubi@videotron.net (Fred Hurtubise) enlightened us thusly:
>On Thu, 30 Jul 1998 15:39:28 +0100, "Gerald Lewis"
><gerald@powys.tec.org.uk> wrote:
>
>>IM currently doing a database in access 95 and am now ready to change it to
>>a online database. Is it possible to interact between access and perl/cgi.
>
>Nope..
>
>No ODBC drivers does this (well, im on the DBI mailing list and thats
>what many say :)
Five out of ten ;-) perl can't talk directly to ODBC, but Dave Roth's
excellent Win32::ODBC module allows perl on Win32 to talk to any ODBC
datasource. It's on CPAN.
--
David Cantrell, part-time NT/java/SQL techie
full-time chef/musician/homebrewer
http://www.ThePentagon.com/NukeEmUp
------------------------------
Date: Thu, 30 Jul 1998 17:54:44 +0100
From: Alan Silver <alan@find-it.furryferret.uk.com>
Subject: Has anyone used the POP3 module ?
Message-Id: <Kbg3DaAUVKw1EwtZ@find-it.uk.com>
hello,
I wonder if anyone can help me. I would like to write a perl script that
can be set up as a cron job to check a POP3 mailbox regularly. It would
look at the mail waiting in the mailbox and if any recipients matched
ones listed in a file, it would forward those to an new address,
deleting them from the server. All other e-mails would be left alone.
As I do not have access to a POP3 mail server, I am unable to test out
such a script. Does anyone there know how to do it and have a POP3
server that they could test it on for me ? Thanx very much for any help.
Example of what I want to do :
Let's say I own the domain furryferret.com and I want mail sent to
Ferret and Gibbon to be forwarded on to Gerbil@second.domain.co.uk and
Vole@another.domain.com respectively. (Sorry if anyone can't cope with
all the furry animals). I would have a file that looked something like
this ...
Ferret Gerbil@second.domain.co.uk
Gibbon Vole@another.domain.com
The script would then check the POP3 mailbox and forward the mail as
appropriate.
Thanx for any help.
--
Alan Silver
Please remove the furryferret when replying by e-mail
------------------------------
Date: 30 Jul 1998 16:50:47 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: hiding user input
Message-Id: <6pq897$p1l$4@client3.news.psi.net>
Scott Stark (sstark@informix.com) wrote on MDCCXCIII September MCMXCIII
in <URL: news:6pnm5m$3gh1@webint.na.informix.com>:
++ Is there any way to make user input in a perl script invisible, or showing a
++ series of **** characters instead of what's typed? My script prompts the user
++ for a password and currently anyone watching can see the input.
Is there something wrong with your eyes that you didn't read the FAQ?
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
------------------------------
Date: Sun, 02 Aug 1998 04:04:08 GMT
From: eliscano@clubi.net
Subject: How to format numbers for web pages
Message-Id: <6q0ofo$h$1@nnrp1.dejanews.com>
I have written a small CGI program in PERL that multiplies the quantity of
items ordered by the price of the item. It then adds all the items and
prints the total. All is fine to this point. When I multiply the subtotal
by the tax rate, I get decimals longer than two digits. How can I format the
output to the webpage to two decimals??
Please direct any answers to: eliscano@clubi.net
Thank you very much.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Sat, 01 Aug 1998 21:36:35 -0700
From: Jim Bowlin <bowlin@sirius.com>
To: eliscano@clubi.net
Subject: Re: How to format numbers for web pages
Message-Id: <35C3ECD3.1B693D74@sirius.com>
eliscano@clubi.net wrote:
>
> I have written a small CGI program in PERL that multiplies the quantity of
> items ordered by the price of the item. It then adds all the items and
> prints the total. All is fine to this point. When I multiply the subtotal
> by the tax rate, I get decimals longer than two digits. How can I format the
> output to the webpage to two decimals??
>
> Please direct any answers to: eliscano@clubi.net
>
> Thank you very much.
perldoc -f printf
perldoc -f sprintf
HTH -- Jim Bowlin
------------------------------
Date: Fri, 31 Jul 1998 06:37:23 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Local Perl Installation and Form Processing
Message-Id: <Pine.GSO.4.02.9807302336150.9340-100000@user2.teleport.com>
On Thu, 30 Jul 1998, John Hanson wrote:
> The script does work from the command line, but obviously I can't send
> data to the script from the command line.
You can if you use CGI.pm, or another module which lets you test your CGI
programs from the command line. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 31 Jul 1998 10:59:24 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Locked on target...FIRE!
Message-Id: <35C1957B.E1AA1D53@nortel.co.uk>
Zenin wrote:
>
>
> Check out the DB_File man page. It has locking examples for
> DBM files. At least, Berkeley DB files, but you might be
> able to use similar ideas for NDBM.
Thanks ever so much, that doc had just the right generic example to let
me be able to understand how to do it !
sub LOCK_SH { 1 } -> shared lock (used for reading)
sub LOCK_EX { 2 } -> exclusive lock (used for writing)
sub LOCK_NB { 4 } -> OR'ed with the other values to release requested
block
sub LOCK_UN { 8 } -> release a lock
This information can be extracted from the perlfunc->flock
documentation. You can try to import these constants through Fcntl, but
on this UNIX system, e.g. it wasn't implemented.
The only difference to the example is the following:
DB_File example:
$db = tie(%db, 'DB_File', '/tmp/foo.db', O_CREAT|O_RDWR, 0644)
|| die "dbcreat /tmp/foo.db $!";
$fd = $db->fd;
open(DB_FH, "+<&=$fd") || die "dup $!";
The DB_File Module incorporates that fd method that will return the file
descriptor. You can then do a lock on it.
The NDBM_File package doesn't have such a thing: SO you just lock the
file directly:
tie (%VOTE, 'NDBM_File', '/u/quednauf/temp/test2dbm', O_RDWR|O_CREAT,
0644)
or die "hmm $!";
open(DB_FH, "+< /u/quednauf/temp/test2dbm.pag") || die "dup $!";
Now you can do the locks on DB_FH:
unless (flock (DB_FH, LOCK_SH | LOCK_NB)) {
print "can't read during write update! Waiting for read lock ($!)
....";
unless (flock (DB_FH, LOCK_SH)) { die "flock: $!" }
}
etc...
Thanks again ! :)
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Thu, 30 Jul 1998 22:09:41 -0700
From: John Hanson <john@cutnfun.com>
Subject: MORE Processing forms with Local PERL
Message-Id: <35C15195.EB1C3042@cutnfun.com>
I forgot to mention that I am working in Windows NT and have the latest
ActiveSite PERL interpretor.
Thanks for your time! I'm stuck!
John Hanson
john@cutnfun.com
------------------------------
Date: Fri, 31 Jul 1998 09:48:24 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: non-perl question about linux
Message-Id: <35C184D8.1BBC9C27@nortel.co.uk>
John Porter wrote:
>
> Brent Verner wrote:
> >
> I'm going to both flame you -- "Shame!" -- and turn this into a
> perl-related topic.
> I've heard that some flavors of linux don't run perl too well --
> compile problems, non-functioning functions, whatever --
To make it three: Running Slackware too, and works a breeze. ( Now I can
finally say 'perldoc perlfunc' :)
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Thu, 30 Jul 1998 08:43:43 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: number (6 -> 06) conversion question
Message-Id: <MPG.102a348715142e569897a5@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <35c08c1c.0@news.new-era.net> on 30 Jul 1998 15:07:08 GMT,
scott@softbase.com <scott@softbase.com> says...
...
> I normally use sprintf, out of laziness. If the number already has a 0,
> a %2d won't affect it, and will add it if not. You could also use
> something like
%.2d is what you want. %2d will pad a number < 10 with a leading space.
> $numb = '0' . $numb if (length($numb) == 1)
>
> I'm not sure which would be more efficient, but how often do you have
> to do this?
This was benchmarked in the past few weeks. If you need more than one
datum zero-padded, sprintf is the better choice without doubt.
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 31 Jul 1998 10:08:20 BST
From: gml4410@ggr.co.uk (Lack Mr G M)
Subject: Re: number (6 -> 06) conversion question
Message-Id: <1998Jul31.100820@ukwit01>
In article <MPG.102a467a42830fda9897a8@nntp.hpl.hp.com>, lr@hpl.hp.com (Larry Rosler) writes:
|> [Posted to comp.lang.perl.misc and copy mailed.]
|>
|> In article <1998Jul30.161522@ukwit01> on Thu, 30 Jul 1998 16:15:22 BST,
|> Lack Mr G M <gml4410@ggr.co.uk> says...
|> ...
|> > Use printf and a format of %2zd for the number.
|>
|> That is not supported by any perl I know of. Have you tried it?
Sorry, I was thinking of a simlar function on some other system.
I would use %02d for printf.
However, the point I was trying to make was that the time to prepend
the '0' was on displaying it, not on any internal representation of a
number.
----------- Gordon Lack ----------------- gml4410@ggr.co.uk ------------
The contents of this message *may* reflect my personal opinion. They are
*not* intended to reflect those of my employer, or anyone else.
------------------------------
Date: Fri, 31 Jul 1998 10:10:56 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: PERL 5.00550 and windows 95
Message-Id: <35C18A20.2432D84@nortel.co.uk>
Gilles Maire wrote:
>
> PATH=C:\WINDOWS;C:\WINDOWS\COMMAND;C:\ISB\BIN;C:\PERL\5.00550\BIN\;C:\PERL\5.00550\MSWIN32-X86\
> if I am not in the good directory, the perl command is not found... It
> is a problem with the path variable... on window 95 .. any idea?
>
> Gilles MAire
Well, you gave the answer yourself, didn't you *gasping once again at
the miracles of comprehension* ? You could just include exactly that
directory into your PATH variable which, if I remember well, is in your
autoexec.bat
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Thu, 30 Jul 1998 16:43:01 +0100
From: Andy Ng <aacwn100@york.ac.uk>
Subject: Please Help - Perl on the Web
Message-Id: <35C09485.8A2C148C@york.ac.uk>
Can anyone help?
I want to use perl to execute a program, which is normally run from a
unix prompt in the form of a command line. What goes into the command
line will be collected via a 'form' and just stured in variables, but
how do I execute a program (with a file that the user has already
uploaded!) and then get the output of that program (which will be
another file) back to the user.
(the program is a sound processing one. I'm trying to make it possible
to use it on the Web!)
Please HELP!!
aacwn100@york.ac.uk
------------------------------
Date: Sun, 02 Aug 1998 13:43:50 +0900
From: Spam Block <sp@m.block>
Subject: Re: Problem with variables in simple script...
Message-Id: <35C3EE85.1D1C300@m.block>
Loans2001 wrote:
> The email I get has no message, nor does the confirmation message printed on
> the persons browser get the message he just typed in. It's supposed to print
> it right back out.
>
> # Print out a confirmation message.
> print "Content-type: text/html\n\n";
> print <<"EndOfMessage";
take the quotes (") off the EndOfMessage handle and you should get the
confirmation message
------------------------------
Date: 30 Jul 1998 16:00:58 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Programmer's Editor
Message-Id: <6pq5bq$k7j$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Cameron Dorey <camerond@mail.uca.edu> writes:
:IMHO, Questions 1 and 2 are valid, but with all due respect, this ain't
:comp.lang.perl.unix, and Question 3 is irrelevant.
Not so. You cannot know Perl well without knowing Unix -- the more you
know one, the more you know the other -- and vice versa.
Anyway, Perl development is done on Unix. It's a relevant issue.
And if you must know, it's because I'm sick and tired of fleeceware
for PoBs and nothing for programmers.
--tom
--
There's no such thing as a simple cache bug. --Rob Pike
------------------------------
Date: Thu, 30 Jul 1998 09:52:12 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Programmer's Editor
Message-Id: <MPG.102a449bdada95d09897a6@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <6pq5bq$k7j$1@csnews.cs.colorado.edu> on 30 Jul 1998 16:00:58
GMT, Tom Christiansen <tchrist@mox.perl.com> says...
...
> ... You cannot know Perl well without knowing Unix -- the more you
> know one, the more you know the other -- and vice versa.
This statement would benefit from more justification. What aspects of
Unix are you referring to?
1. File system: Perl (and previously ISO/ANSI C, with which I am more
familiar) implements a robust portable file model, independent of Unix's
inodes and file descriptors. Symlinks are not in the model. Low-level
system calls such as sys(read|write|seek) are implemented portably on
other OSs also.
2. IPCs: No real portability here. Does knowledge of Unix IPCs enhance
one's knowledge of Perl, and vice versa?
3. Commands: Many portable capabilities are integrated into Perl
functions. The POSIX command set and Unix-like shells are available on
many platforms besides Unix.
Your statement is true insomuch as Unix-derived concepts have permeated
programming on many, if not all, platforms. If you replaced the word
'Unix' in your statement by 'a modern OS' it would be true (and might be
a truism).
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 30 Jul 1998 11:24:28 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Rearange text
Message-Id: <sn6qp6.e88.ln@localhost>
Ophir Marko (ophir@saifun.com) wrote:
: I have a file that looks like this:
: aa b ccc d
: 1 2 3 4
: What I want to have as an output is this:
: aa......1
: b.......2
: ccc.....3
: d.......4
: How do I write that kind of script?
Very carefully ;-)
: MY current script looks like this :
[ snip a bunch of messy code. Help yourself get answers to your
questions by including code that is useful. The code given
has a bunch of problems. So many that I gave up trying to
even read it. That is, I ignored it because:
1) no -w switch
2) has syntax errors (DON'T retype code. Cut and paste it, else
you will get answers about how to fix your typos rather than
about your real question).
3) horrendous formatting (don't know if it is "real" or newsreader
induced...)
4) spews a bunch of warnings after the typos are fixed.
]
-------------------------------
#!/usr/bin/perl -w
while ( defined($line1 = <DATA>) ) {
die "not even number of lines\n" unless defined($line2 = <DATA>);
@parts1 = split /\s+/, $line1;
@parts2 = split /\s+/, $line2;
die "counts don't match near line $.\n" unless @parts1 == @parts2;
foreach $i (0..$#parts1) {
print $parts1[$i], '.' x (8 - length $parts1[$i]), $parts2[$i], "\n";
}
}
__DATA__
aa b ccc d
1 2 3 4
-------------------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 31 Jul 1998 11:22:57 +0200
From: Jean-Philippe FAUVELLE <fauvelle@hotmail.net>
To: cogelog@wanadoo.fr
Subject: Re: Un peu d'aide svp
Message-Id: <35C18CF1.76FEAEB6@hotmail.net>
1) La netiquette
Ce forum est international.
Il convient de s'y exprimer en langue anglaise, question de politesse.
Il existe des newsgroup dans les langues les plus demandees.
En particulier "fr.comp.lang.perl"
est dedie aux francophiles / anglophobes.
De surcroit, cette liste s'adresse a un public de debutants.
2) Le probleme
Le programme Perl doit retourner l'en-tete http en premier, avant le code
html.
Dans ton cas:
print "Content-type: text/html\n\n";
Je te conseille d'utiliser la bibliotheque CGI.pm qui fait partie de la
distribution standard
de Perl (sous Unix ET Windows) et comporte une documentation assez complete.
Bonne continuation :-)
______________________________________
Jean-Philippe FAUVELLE <gandalf@fth.net>
------------------------------
Date: Sun, 02 Aug 1998 01:07:35 -0700
From: Fernando Pinho <fps@fps.com.br>
Subject: Using PERL with DB ?
Message-Id: <35C41E46.45FFE35A@fps.com.br>
Hi !
I'm looking for documentation about using PERL with data base systems.
Thanks in advance.
--
----------------------------------------------------------
Fernando Pinho FPS Informatica Ltda
------------------------------------------------------
Av. Presidente Vargas, 583/610 Centro Cep: 20071-003
Rio de Janeiro http://www.fps.com.br fps@fps.com.br
Tel (021)233-3834/ 9995-5936 Tel/Fax (021)224-9850
----------------------------------------------------------
------------------------------
Date: Thu, 30 Jul 1998 21:25:11 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: What's the future of Perl?
Message-Id: <7u9rp6.rfa.ln@localhost>
Jon Hamilton (hamilton@pobox.com) wrote:
: On 30 Jul 1998 16:12:21 GMT, Tom Christiansen <tchrist@mox.perl.com> wrote:
: } As for a switch statement, we spell that "for",
: }
: } for ($variable) {
: } if (/foo/) { ...... }
: } if (/bar/) { ...... }
: } # etc
: } }
: We may spell it "for", but we had better work in the letters in
: "anchor" in there as well:
: $variable = 'booger';
: for ($variable){
: if(/boo/) { print "Oops, caught picking nose!\n"; }
: }
: Changing the if to /^boo$/ of course does what was probably intended.
If testing for equality is indeed what was intended, then using
the operator for testing equality would be less obfuscatory:
if ( $_ eq 'boo') {print "found a boo\n"}
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 30 Jul 1998 16:47:32 GMT
From: dbwhite@btv.ibm.com (David B. White)
Subject: Re: when/where perl.exe (5.005) for Win32?
Message-Id: <6pq834$rnu$1@mdnews.btv.ibm.com>
In article <6ppp5h$7h8$1@news.gns.getronics.nl>,
"Jonkers" <snif@xs4all.nonono.nl> writes:
> When/where is the Win32-executable perl.exe of Perl 5.005 available? The
Sander,
When I looked on 7/30/98,
http://www.perl.com/CPAN-local/ports/win32/Standard/x86/
appeared to have perl5.005 tar.gz files (original, plus two patch levels).
I haven't downloaded any to take it for a test drive though...
--
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: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3314
**************************************
