[11770] in Perl-Users-Digest
Perl-Users Digest, Issue: 5370 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 13 11:07:30 1999
Date: Tue, 13 Apr 99 08:00:26 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 13 Apr 1999 Volume: 8 Number: 5370
Today's topics:
Creating an empty file. <s.filipowicz@orades.nl>
Re: Creating an empty file. (Sam Holden)
Re: Creating an empty file. <s.filipowicz@orades.nl>
Re: Creating an empty file. <s.filipowicz@orades.nl>
Re: Delete Line Feed/Carriage Return (Jonathan Stowe)
Re: Delete Line Feed/Carriage Return markaw2091@my-dejanews.com
FREE CGI scripting tool <administrator@sodertalje.se>
Re: grep -n equivalent? <aqumsieh@matrox.com>
Re: guestbook with CGI script <vvb@ibm.net>
help needed on PERL CGI with apache <heroux@iutc3.unicaen.fr>
Re: how can i send perl -c output to a file instead of <tchrist@mox.perl.com>
IIS4 and Perl - trying to get an ENV varibale that work <paulfm@pdd.3com.com>
Re: IIS4 and Perl - trying to get an ENV varibale that <gellyfish@gellyfish.com>
Re: implement useradd in perl <rick.delaney@home.com>
Re: installing libnet on win32 (David Turley)
Re: installing libnet on win32 <tgray@smlny.com>
Re: installing libnet on win32 <gellyfish@gellyfish.com>
Launching a remote CGI program <mpajot@club-internet.fr>
Re: Pays to use single, rather than double, quotes? <Eric.L.Winter.1@gsfc.nasa.gov>
Re: Perl calling MS Word (Daniel Beckham)
Re: Perl for Oracle 8? <jwarner@tivoli.com>
Re: Perl, ran in single-thread mode? <bbense+comp.lang.perl.misc.Apr.13.99@telemark.stanford.edu>
Pragma docs <Jochen.Stenzel.gp@icn.siemens.de>
Re: Pragma docs (Sam Holden)
Re: Printing a file <rick.delaney@home.com>
Re: Printing a file <rick.delaney@home.com>
Re: Privacy for ...A followup question <nobody@raptor.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 13 Apr 1999 16:10:37 +0200
From: Steven Filipowicz <s.filipowicz@orades.nl>
Subject: Creating an empty file.
Message-Id: <3713505D.1EFF1652@orades.nl>
Hi All,
I have this line in a program :
------------------------------------------------------------------------------------
open (GUEST,">/opt/guide/web/count.pl") || die "Can't Open
/opt/guide/web/count.pl $!\n";
------------------------------------------------------------------------------------
But if this file isn't there it will not open offcourse.
So what I would like the program to do is, make the file, and set the
permission to be able to write to it and then open it.
Anyone got an idea?
Thanks!
------------------------------
Date: 13 Apr 1999 14:43:47 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Creating an empty file.
Message-Id: <slrn7h6m13.rvt.sholden@pgrad.cs.usyd.edu.au>
Steven Filipowicz <s.filipowicz@orades.nl> wrote:
>Hi All,
>
>I have this line in a program :
>
>-------------------------------------------------------------------
>open (GUEST,">/opt/guide/web/count.pl") || die "Can't Open
>/opt/guide/web/count.pl $!\n";
>-------------------------------------------------------------------
>
>But if this file isn't there it will not open offcourse.
What makes you say that?
Did you bother reading the documentation for the open function
(which specifically mentions what happens in the second paragraph)?
>So what I would like the program to do is, make the file, and set the
>permission to be able to write to it and then open it.
Well you could read the documentation. It often helps when you are not sure
how to do something. Maybe the documentation for open might be useful...
>Anyone got an idea?
perldoc -f open
Or did I already mention that?
If you happen to be getting a permission denied error, then you don't have
write permission to /opt/guide/web/count.pl, or if it doesn't exist
you don't have write permission to the /opt/guide/web directory.
--
Sam
Perl was designed to be a mess (though in the nicest of possible ways).
--Larry Wall
------------------------------
Date: Tue, 13 Apr 1999 16:49:29 +0200
From: Steven Filipowicz <s.filipowicz@orades.nl>
To: sholden@cs.usyd.edu.au
Subject: Re: Creating an empty file.
Message-Id: <37135979.A80D287C@orades.nl>
Sam Holden wrote:
> Did you bother reading the documentation for the open function
> (which specifically mentions what happens in the second paragraph)?
Well, where can I find the documentation?
> perldoc -f open
Doesn't automaticly create a file then?
------------------------------
Date: Tue, 13 Apr 1999 16:49:39 +0200
From: Steven Filipowicz <s.filipowicz@orades.nl>
To: sholden@cs.usyd.edu.au
Subject: Re: Creating an empty file.
Message-Id: <37135983.D310FD39@orades.nl>
Sam Holden wrote:
> Did you bother reading the documentation for the open function
> (which specifically mentions what happens in the second paragraph)?
Well, where can I find the documentation?
> perldoc -f open
Does it automaticly create a file then?
------------------------------
Date: Tue, 13 Apr 1999 11:04:43 GMT
From: gellyfish@gellyfish.com (Jonathan Stowe)
Subject: Re: Delete Line Feed/Carriage Return
Message-Id: <37131a40.8896296@news.dircon.co.uk>
On Tue, 13 Apr 1999 09:42:56 GMT, markaw2091@my-dejanews.com wrote:
>Hi There,
>
>I have a Perl script (at foot of this message) which I am trying to use to
>remove all of the "complete comment line(s)" from a.n. other text file/perl
>script. That is to say that I want it to remove all lines which begin with a #
>and then go on to remove all blank lines (those which are made up of a line
>feed carriage return).
>
>I was under the impression that I could do this by making use of the s/^#.*//g
>and s/^$//mg. However, this does not seem to work. At least, the second part
>does not work. Any help would be greatly appreciated at
>mawilliams@walsh-international.com . FYI, here is the Perl script as it
>currently stands:
>
I think you've got the wrong end of the stick here slightly. I think
that what you are doing might be better rendered in another way :
#!perl -w
>print "Please enter the name of the file you wish to modify:\n";
>$modify = <STDIN>;
chomp $modify; # or chomp($modify = <STDIN>)
# to do those in one
>$new = "./test.txt";
>
#>open("fle", "$modify");
# ALWAYS test for the success of a file open ...
# Also You dont need those quotes (both instances)
# Also filehandles are by convention upper case
open(FLE,$modify) || die "Cant open $modify - $!\n";
#>open("new", "> $new");
# same except you probably want the quotes around the filename
#
open(NEW,">$new" ) || die "Cant open $new - $!\n";
>
#>while (<fle>) {
while(<FLE>){
#> s/^#.*//g;
# You are off skipping the line altogether
next if /^#/;
#> s/^$//mg;
# Likewise - also you dont need the /g because they are anchored
# and you only get one match
next if /^$/;
#> print new "$_";
# The quotes around $_ are just misleading
#
print NEW $_;
> }
>
#>close "fle";
close FLE;
#>close "new";
close NEW;
__END__
Oops - it doesnt look like theres much left of that - here is that
script in full :
#!perl -w
use strict;
print "Please enter the name of the file you wish to modify:\n";
my $modify = <STDIN>;
chomp $modify;
my $new = "./test.txt";
open(FLE, $modify) || die "Cant open $modify - $!\n";
open(NEW, "> $new") || die "Cant open $new - $!\n";
while (<FLE>) {
next if ( /^#/ || /^$/ ) ;
print NEW $_;
}
close FLE;
close NEW;
You'll notice here that I have placed the test for the two type of
files that you want to skip in the one statement and have made it
strict safe.
/J\
------------------------------
Date: Tue, 13 Apr 1999 12:58:17 GMT
From: markaw2091@my-dejanews.com
Subject: Re: Delete Line Feed/Carriage Return
Message-Id: <7evf14$rqn$1@nnrp1.dejanews.com>
In article <37131a40.8896296@news.dircon.co.uk>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> On Tue, 13 Apr 1999 09:42:56 GMT, markaw2091@my-dejanews.com wrote:
>
> >Hi There,
> >
> >I have a Perl script (at foot of this message) which I am trying to use to
> >remove all of the "complete comment line(s)" from a.n. other text file/perl
> >script. That is to say that I want it to remove all lines which begin with a
#
> >and then go on to remove all blank lines (those which are made up of a line
> >feed carriage return).
> >
> >I was under the impression that I could do this by making use of the s/^
#.*//g
> >and s/^$//mg. However, this does not seem to work. At least, the second part
> >does not work. Any help would be greatly appreciated at
> >mawilliams@walsh-international.com . FYI, here is the Perl script as it
> >currently stands:
> >
>
> I think you've got the wrong end of the stick here slightly. I think
> that what you are doing might be better rendered in another way :
>
> #!perl -w
>
> >print "Please enter the name of the file you wish to modify:\n";
> >$modify = <STDIN>;
>
> chomp $modify; # or chomp($modify = <STDIN>)
> # to do those in one
>
> >$new = "./test.txt";
> >
> #>open("fle", "$modify");
>
> # ALWAYS test for the success of a file open ...
> # Also You dont need those quotes (both instances)
> # Also filehandles are by convention upper case
>
> open(FLE,$modify) || die "Cant open $modify - $!\n";
>
> #>open("new", "> $new");
>
> # same except you probably want the quotes around the filename
> #
>
> open(NEW,">$new" ) || die "Cant open $new - $!\n";
>
> >
> #>while (<fle>) {
> while(<FLE>){
> #> s/^#.*//g;
> # You are off skipping the line altogether
>
> next if /^#/;
>
> #> s/^$//mg;
> # Likewise - also you dont need the /g because they are anchored
> # and you only get one match
>
> next if /^$/;
>
> #> print new "$_";
>
> # The quotes around $_ are just misleading
> #
> print NEW $_;
> > }
> >
> #>close "fle";
>
> close FLE;
>
> #>close "new";
>
> close NEW;
>
> __END__
>
> Oops - it doesnt look like theres much left of that - here is that
> script in full :
>
> #!perl -w
>
> use strict;
>
> print "Please enter the name of the file you wish to modify:\n";
> my $modify = <STDIN>;
> chomp $modify;
> my $new = "./test.txt";
> open(FLE, $modify) || die "Cant open $modify - $!\n";
> open(NEW, "> $new") || die "Cant open $new - $!\n";
> while (<FLE>) {
> next if ( /^#/ || /^$/ ) ;
> print NEW $_;
> }
> close FLE;
> close NEW;
>
> You'll notice here that I have placed the test for the two type of
> files that you want to skip in the one statement and have made it
> strict safe.
>
> /J\
>
Thanks for your help guys. Looks like I still have a lot to learn - I've only
been at it for a week.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 13 Apr 99 14:00:09 GMT
From: "B Hahn" <administrator@sodertalje.se>
Subject: FREE CGI scripting tool
Message-Id: <01be85b7$154056c0$0349c6c3@worldw2>
The FREE WebMerger CGI parser allows extensive server executed functions
such as flow control, evaluation, database interaction and such using
simple HTML tags.
Create:
Guestbooks
Shopping charts
Conferences
Searchable databases
Or simple Counters, local serch engines without programming skills.
Please visit
http://www.webmerger.com
------------------------------
Date: Mon, 12 Apr 1999 12:10:23 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: grep -n equivalent?
Message-Id: <x3yyajx95w0.fsf@tigre.matrox.com>
ran@netgate.net (Ran) writes:
> an option/variant of the grep function that returned the indices of the
> matched list elements, instead of the elements, themselves.
what's wrong with:
@indices = grep { $list[$_] =~ /$pat/ } 0..$#list ;
??
------------------------------
Date: Tue, 13 Apr 1999 16:55:01 +0200
From: "Vincent Vanbiervliet" <vvb@ibm.net>
Subject: Re: guestbook with CGI script
Message-Id: <37135a39@news.uk.ibm.net>
What error? This kind of information is crucial to understand where the
problem is...
I checked your site, and got 'The requested URL /cgi-bin/guestbook.pl was
not found on this server.' as an error. Is the pl file there, and is it in
the correct directory? Most servers allow to setup a different 'root' for
cgi-bin files, so it might be .../apache/cgi-bin/ instead of
.../apache/htdocs/cgi-bin/ where you need to put your pl files...
Anyway, there are a lot of errors in your script too.
Some tips: (I've left out irrelevant lines)
> #!C:/perl/bin/perl
As you are running on a Windows machine, you don't need this line. Instead,
make sure that the extention 'pl' is associated with perl.exe.
> $document_root = "C:/progra~1/apache~1/apache/htdocs";
Why don't you use the full path (c:/program files/...)? Much easier for you
to understand too.
>$guest_file = "guestbook.html";
>$full_path = $document_root . $guest_file;
So $full_path equals "C/progra~1/apache~1/apache/htdocsguestbook.html".
Are you sure you didn't want a '/' between $document_root and $guest_file?
> $MIME_header ("text/html", "My guestbook");
Hmm. Interesting string declaration. Try &MIME_header instead.
> $parse_form_data (*FORM);
Same! (Used $ instead of &)
> sub MIME_header
> {
> local ($mime_type, $title_string, $header) = @_;
>
> if (!$header) {
> $header = $title_string;
> }
>
> print "Content-type: ", $mime_type, "\n\n";
These comma's won't do you many good! If you want to concatenate strings,
use a dot '.', or, since you're using double quotes anyway, have it
interpolated:
print "Content-type: $mime_type\n\n";
> print "<HTML>, "\n";
Even worse: you have 3 quotes: your string is never closed! Remove the
comma.
> print "<HEAD>,<TITLE>, $title_string, "</TITLE></HEAD>", "\n";
Why are there comma's here? They will appear in the page you're writing -
and it's no good HTML!
> print "<BODY>", "\n";
> print "<H1>", $header, "</H1>";
> print "<HR>";
> }
>
> sub get_date_time
> {
(I think this one can be much easier too.)
> }
>
> sub parse_form_data
> {
> local (*FORM_DATA) =@_;
> local ($request_method, $post_info, @key_value_pairs,
> $key_value, $key, $value);
>
> read (STDIN, $post_info, $ENV{'CONTENT_LENGTH'});
>
> @key_value_pairs = split (/&/, $post_info);
>
> foreach $key_value(@key_value_pairs){
> ($key, $value) = split (/=/, $key_value);
> $value =~ tr/+/ /;
> $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
try
$value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
This will unencode it correctly
> if (defined($FORM_DATA{$key})) {
> $FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
> }else {
> $FORM_DATA{$key} = $value;
> }
> }
> }
All in all, I think reading the camel book would help a lot.
------------------------------
Date: Tue, 13 Apr 1999 16:31:13 +0200
From: Xavier HEROULT <heroux@iutc3.unicaen.fr>
Subject: help needed on PERL CGI with apache
Message-Id: <37135531.322BE465@iutc3.unicaen.fr>
hi, I'm a newbie in PERL programming
I don't know how to indicate to apache where to find the file "CGI.pm"
used by so many PERL scripts.
Do we have to put it in an apache configuration file or an environment
variable ?
I think it's my problem, because I made this try:
Single little Perl script just screening the time on a HTML page. It
worked
Then, I added just that line: "USE CGI;"
and the famous "internal server error" appears.
please, I'd like to have the total way to make this work
ps: CGI.pm path : /usr/lib/perl5/
using Linux-Mandrake 5.3, apache 1.3.3
bye
--
Xavier HEROULT
------------------------------
Date: 13 Apr 1999 07:49:47 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: how can i send perl -c output to a file instead of STDERR
Message-Id: <37134b7b@cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, bart.lateur@skynet.be (Bart Lateur) writes:
: BEGIN {
: open STDERR, ">errors.log"
: or die "Can't create errorlog file: $!";
: }
Gosh no. That's what your shell is for.
--tom
--
You are unlucky enough to bump into all my rough edges. --Andrew Hume
------------------------------
Date: Tue, 13 Apr 1999 13:24:21 +0100
From: Paul Murphy <paulfm@pdd.3com.com>
Subject: IIS4 and Perl - trying to get an ENV varibale that worked under UNIX
Message-Id: <37133775.28ECEDE4@pdd.3com.com>
Hi all,
As a beginner at this (I normally just edit HTML) I am 'in at the deep
end' a little and could do with a pointer on the following problem.
Our current intranet pages are running on a Unix system, at the bottom
of each page is a call to a perl script that sets up some standard text
and also some information (last modified date) about the file that the
perl script was being called from.
We are intending to move our pages onto NT servers running IIS4, and
though I can get Perl running and working Ok on NT/IIS4 the environment
variable calls on NT IIS4 do not include the 'LAST_MODIFIED' element -
or if it does it doesn't work/ I can't find it!
Any thoughts/ ideas/ code please? :-)
TTFN
Paul
Below are code samples if they are of any help ....
Here is a sample of the current output as seen in the browser:
---------------------------------------
Maintained by: Webmaster
Last modified: Thursday, 01-Apr-99 14:10:15
This Intranet service is brought to you by the WSBU
Information Technology Group
Copyright ) 1999 3Com Technologies
---------------------------------------
The code for this is:
---------------------------------------
#!/usr/local/bin/perl
#
# Perl script to print out a standard signature
#
# Sign and date the document
($owner, $link) = $ARGV[0] =~ /^([^\/]*)\/?(.*)?$/;
$link = $ARGV[0] unless $link;
if ( $link !~ /\.html?$\s*/ ) {
$link =~ s/ /_/g;
$link .= ($link =~ /_/ ? "\@3mail.3com.com"
:"\@pdd.3com.com");
$link = "mailto:$link";
}
($date) = $ENV{LAST_MODIFIED} =~ /(.*) /;
print "<HR NOSHADE>\n<P><ADDRESS>Maintained by: <A
TARGET=\"_top\" HREF=\"$link\">$owner</A><BR>\n";
print "Last modified: $date</ADDRESS></P>\n";
print "<P><FONT SIZE=-1><B>This Intranet service is brought to
you by the <A TARGET=\"_top\" HREF=\"/isg/\">WSBU Information
Technology Group</A></B></FONT></P>\n";
($year) = (gmtime(time))[5]; $year += 1900;
print "<P><FONT SIZE=-2><B>Copyright © $year 3Com
Technologies</B></FONT></P>\n";
# Allow room for any bottom scroll bar
# This fixes a bug with Netscape frames
print "<BR><BR><BR>\n";
---------------------------------------
I have tried the following line - which gives all the environment
variables for the NT server:
---------------------------------------
foreach $key (sort keys(%ENV)) {print
"<B>$key:<\/B>$ENV{$key}<br>"};
---------------------------------------
but the closest I can get is a http path for the file that the script
was called from - derived from the path info and server name, and that
doesn't seem to like being statted to get the gmtime of the calling
file.
So my current file has this in it:
---------------------------------------
use File::stat;
#($date) = $ENV{LAST_MODIFIED} =~ /(.*) /;
$docpath = $ENV{SCRIPT_NAME};
$server = $ENV{SERVER_NAME};
$path=$ENV{PATH_INFO};
$path="$docpath";
print "Path: $path";
print "<br>";
#above works - sort of! - is $path Ok to be a string to be statted -
hmmm?
$stat = stat("$docpath");
print "<br>Stat: $stat";
$date=gmtime($stat);
print "<HR NOSHADE>\n<P><ADDRESS>Maintained by: <A TARGET=\"_top\"
HREF=\"$link\">$owner</A><BR>\n";
print "Last modified: $date</ADDRESS></P>\n";
---------------------------------------
I am convinced that there must be a much more elegant way of doing
things (probably a one-liner :-) ) but the loss of the environment
variable 'LAST_MODIFIED' is rather a pain.
------------------------------
Date: 13 Apr 1999 15:10:32 -0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: IIS4 and Perl - trying to get an ENV varibale that worked under UNIX
Message-Id: <37135058.0@newsread3.dircon.co.uk>
Paul Murphy <paulfm@pdd.3com.com> wrote:
>
> We are intending to move our pages onto NT servers running IIS4, and
> though I can get Perl running and working Ok on NT/IIS4 the environment
> variable calls on NT IIS4 do not include the 'LAST_MODIFIED' element -
> or if it does it doesn't work/ I can't find it!
>
> Any thoughts/ ideas/ code please? :-)
>
Yeah dont use IIS. Alternatively I would ask this question in the
comp.infosystems.www.servers.ms-windows newsgroup because in the
end of the day it is nothing to do with Perl - it is the server that
providing the environment.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Tue, 13 Apr 1999 12:43:14 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: implement useradd in perl
Message-Id: <37133DE4.3891D3E6@home.com>
Uri Guttman wrote:
>
> i don't do any large sysadmin now but i would always have a
> customized useradd program (which might call the system one for the
> core features).
Which was my point. I had no idea that sysadmins were forced to write
useradd *completely* from scratch on some systems. Interesting.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Tue, 13 Apr 1999 12:20:17 GMT
From: dturley@binary.net (David Turley)
Subject: Re: installing libnet on win32
Message-Id: <371435e7.2695861@news.erols.com>
On 12 Apr 1999 22:25:04 -0000, Jonathan Stowe
<gellyfish@gellyfish.com> wrote:
>On Mon, 12 Apr 1999 15:08:40 -0400 Tim Gray wrote:
>
>> So I downloaded the zip of the package for libnet. When I try to install,
>> PPM deletes all the files and then complains that it can't find them. It
>> even tries to remove the current directory.
>
>Bizarre - I must admit I have always been able to just install online
>without downloading the zip file - is there any reason why you cant do
>this ?
>
>I'm not at a Windows machine right now but I think there is an HTML
>document somewhere in the distribution that discusses the use of PPM
>in a little more detail.
>
As usual, Jonathan is correct. There are docs on PPM, just go to your
(hope it'll) start menu - Programs - ActivePerl - Documentation.
Better yet, cd to your perl directory and type:
perl ppm.pl
install libnet
Just be patient, ppm gives no feedback.
cheers
--
David Turley
dturley@pobox.com
http://www.binary.net/dturley/
------------------------------
Date: Tue, 13 Apr 1999 08:25:26 -0400
From: "Tim Gray" <tgray@smlny.com>
Subject: Re: installing libnet on win32
Message-Id: <zBGQ2.2645$YU1.5074@newsr2.twcny.rr.com>
>> So I downloaded the zip of the package for libnet. When I try to
install,
>> PPM deletes all the files and then complains that it can't find them. It
>> even tries to remove the current directory.
>
>Bizarre - I must admit I have always been able to just install online
>without downloading the zip file - is there any reason why you cant do
>this ?
>
>I'm not at a Windows machine right now but I think there is an HTML
>document somewhere in the distribution that discusses the use of PPM
>in a little more detail.
>
>/J\
I finally got libnet installed. It was deleting all the files because I had
them in a subdirectory of
c:\temp and ppm was set to delete temp files. I still can't use ppm to
download anything though. I have checked ppm.html that was installed with
my distribution. I do a search according to the directions and it never
returns results. I did a netstat while it was searching and there were no
connections to the outside world during the search so I don't know where it
was searching. I guess I will have to manually download my perl packages.
Thanks for your help.
Tim Gray
------------------------------
Date: 13 Apr 1999 14:45:39 -0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: installing libnet on win32
Message-Id: <37134a83.0@newsread3.dircon.co.uk>
David Turley <dturley@binary.net> wrote:
> On 12 Apr 1999 22:25:04 -0000, Jonathan Stowe
> <gellyfish@gellyfish.com> wrote:
>>
>>I'm not at a Windows machine right now but I think there is an HTML
>>document somewhere in the distribution that discusses the use of PPM
>>in a little more detail.
>>
>
> As usual, Jonathan is correct.
Steady on old chap ;-}
/J\
------------------------------
Date: Tue, 13 Apr 1999 13:56:18 +0200
From: "Kevin" <mpajot@club-internet.fr>
Subject: Launching a remote CGI program
Message-Id: <7evba5$2ok$1@front3.grolier.fr>
Hello,
What is the method to launch a CGI program from an other CGI program ? For
exemple, I want my program to mail someone an email address from a FORM and
then send it to the registration program of egroups (www.egroups.com )...
what is the command (no SSI) to launch this one (URL + parameters) ?
------------------------------
Date: Tue, 13 Apr 1999 07:23:49 -0400
From: "Eric Winter" <Eric.L.Winter.1@gsfc.nasa.gov>
Subject: Re: Pays to use single, rather than double, quotes?
Message-Id: <7ev9j4$fnm@post.gsfc.nasa.gov>
I use single vs double for the same reason as some of the other posters - as
a form of documentation to convey the intended type of use for the string.
My only wish is that the Perl mode of Emacs would color-code single-quoted
strings as well as double quoted strings <sigh>......
John Callender <jbc@shell2.la.best.com> wrote in message
news:3711031d$0$27373@nntp1.ba.best.com...
> One more dumb question about single- vs. double-quoted strings: If I
> know that I don't want interpolation of variables or interpretation of
> backslash escapes, is it in my interest to use single quotes rather
> than double quotes to delimit my strings? What I mean is, is there some
> kind of performance benefit to my script, over and above whatever
> benefit I get from not having to escape literal $'s and @'s in my
> double-quoted string?
>
> --
> John Callender
> jbc@west.net
> http://www.west.net/~jbc/
------------------------------
Date: Tue, 13 Apr 1999 09:35:07 -0500
From: danbeck@qual.net (Daniel Beckham)
Subject: Re: Perl calling MS Word
Message-Id: <MPG.117d1218fe58f14e989684@news.idt.net>
Um, it would be OLE Automation. Automation is a very generic term... and
to someone who doesn't know about OLE automation, confusing. I hope to
hell your book is better written than your post...
Besides, who needs a book, you can find plenty of OLE automation info in
the module docs and the docs that come with ActiveState Perl.
In article <dkcombsF9oytE.C1F@netcom.com>, dkcombs@netcom.com says...
> In article <370251f3.0@news.new-era.net>,
> Scott McMahan <scott@aravis.softbase.com> wrote:
> >Bob Daly (bdaly@averstar.com) wrote:
> >> Does anyone know how to call Word in Perl?
> >
> >You must use Automation.
> >
> >If you can wait til August, I have a book coming out which
> >discusses this.
> >
> >Scott
>
> What is this book you're writing? About PERL? O'Reily? Title?
>
> Thanks!
>
> David
>
>
------------------------------
Date: Tue, 13 Apr 1999 09:04:58 -0500
From: John Warner <jwarner@tivoli.com>
Subject: Re: Perl for Oracle 8?
Message-Id: <37134F0A.C9627DFA@tivoli.com>
In addition to Perl and the appropriate DBD module, you will also need to
have the Oracle client installed. Once everything is installed, you will
need to set up a System DSN that points to your Oracle database.
Ysteric's wrote:
> hi,
>
> I use perl & Oracle 8.
> You need two modules : DBI and DBD::Oracle
>
> Eric from Paris (FRANCE)
>
> Omar Soto a icrit dans le message <3712DE93.82EFD240@home.com>...
> >Hello all you Perl Hackers:
> >
> >My hacking needs have led me to interface a Perl program to an oracle 8
> >Database. What is the library that I need to use. By the way, the
> >Oracle Database will be a Windows NT platform.
> >
> >Thank You,
> >
> >Omar Soto
> >
--
John Warner Tivoli Systems Inc.
Sales Support Engineer 9442 Capital Of Texas Hwy North
Sales Infrastructure Group Austin, TX 78759
john_warner@tivoli.com
------------------------------
Date: 13 Apr 1999 14:16:06 GMT
From: <bbense+comp.lang.perl.misc.Apr.13.99@telemark.stanford.edu> ;
Subject: Re: Perl, ran in single-thread mode?
Message-Id: <7evjj6$r7r$1@nntp.Stanford.EDU>
In article <371243a1.581300005@news.qgraph.com>,
Darren Greer <drgreer@qtiworld.com> wrote:
>I am trying to get DBI/DBD working on an HP-UX maching running Perl
>5.004, and HP-UX 10.20. Here is the problem. When I run the connect
>sequence with DBI, it locks up...eating upwards of 100% of the CPU.
>
>If I run the same script on our development box, running HP-UX 10.20,
>and Perl 5.004, it connects fine. The only difference between the two
>boxes, is that the main box, has threading enabled, with the perl
>install. And the second, development, box does not have threading
>enabled. Any suggestion?
- - Hmm, I find this doubtful. Perl5.004 does not have threading. Regardless,
you should not be using Threading in a production perl. Fix this first.
If you can't fix this upgrade to Perl5.005_03, it's much more stable than
any previous version.
- - Booker C. Bense
Version: 2.6.2
iQCVAwUBNxNRowD83u1ILnWNAQHm8wP+IRvqef/83vNQO0sWxY7cOZmuuWVzLVrA
HxOB74XKJS8/hXnL8EmIYGcegwWdRn71aGeIehU1bNJy/xUGtYM8XPQ25bgsSf+g
b1LLXNVYppyf/oI5KmmLaNyr0Pxg9D1/Hr8nuUgk06xg/jPqJ87+lH3uTFNtt/nj
wgAY9/LaR1M=
=eV/h
-----END PGP SIGNATURE-----
------------------------------
Date: Tue, 13 Apr 1999 16:43:20 +0200
From: "Hr. Jochen Stenzel" <Jochen.Stenzel.gp@icn.siemens.de>
Subject: Pragma docs
Message-Id: <37135808.726A06DB@icn.siemens.de>
Hello,
I'm searching for the docs about pragmas and think there was a website
anywhere about it, under "underdocumented features" or so. I cannot find
it again. Does somebody know where this pages are located? Or where I
can found ALL pragmas documented?
Thanks
J. Stenzel
------------------------------
Date: 13 Apr 1999 14:58:58 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Pragma docs
Message-Id: <slrn7h6mti.sid.sholden@pgrad.cs.usyd.edu.au>
Hr. Jochen Stenzel <Jochen.Stenzel.gp@icn.siemens.de> wrote:
>Hello,
>
>I'm searching for the docs about pragmas and think there was a website
>anywhere about it, under "underdocumented features" or so. I cannot find
>it again. Does somebody know where this pages are located? Or where I
>can found ALL pragmas documented?
'perldoc perlmodlib' lists the pragmas.
'perldoc <pragma>' gives documentation on a particular pragma.
I'm assuming perlmodlib lists 'ALL' pragmas, if not then I guess it is time
to submit a bug report (although the wording doesn't say it lists all the
pragmas).
Using something that isn't documented is risky though people don't seem
to care much. It might after all be transitory...
'grep pragma /usr/lib/perl5/pod/*' told me to look in perlmodlib.
--
Sam
PC's are backwards ... throw them out! Linux is ok though.
--Rob Pike (on the subject of CR/LF etc)
------------------------------
Date: Tue, 13 Apr 1999 12:36:01 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Printing a file
Message-Id: <37133C32.AA72656A@home.com>
[posted & mailed]
Andrew Branson wrote:
>
> I am sorry if this is a stupid question, but I am fairly new to Perl: I
> there a way to read and print() an entire file as opposed to line by line?
Why would you want to do this? Oh well,
perl -0777pe 1 yourfile
perldoc perlrun
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Tue, 13 Apr 1999 12:36:10 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Printing a file
Message-Id: <37133C3B.5BAE264D@home.com>
[posted & mailed]
Andrew Branson wrote:
>
> I am sorry if this is a stupid question, but I am fairly new to Perl: I
> there a way to read and print() an entire file as opposed to line by line?
Why would you want to do this? Oh well,
perl -0777pe 1 yourfile
perldoc perlrun
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Tue, 13 Apr 1999 08:52:03 -0400
From: Don't Spam Me <nobody@raptor.com>
Subject: Re: Privacy for ...A followup question
Message-Id: <37133DF3.53E5F11B@raptor.com>
Andrew Branson wrote:
> >> If I access my personal web site (which is running SSL) can the admin see
> >> the content of my web site. Also, if I use basic HTTP authentication
> >> (.htaccess, etc.) will the admin be able to intercept my password and log
> on
> >> to my SSL site?
> >>
> >
> >Yes and Yes; if they are any good at being admins.
> >That's why they are called admins to start with.
> >
> >-Sneex- :]
>
> Really?! Are you sure? OK I wasn't sure that basic authentication was going
> to be encrypted, but I thought that all the SSL communication is secure. How
> can anyone (including the sys admin) see the content of the communication (I
> don't mean cracking the encryption) over an SSL channel?
>
> Is there any way around this? Thanks.
>
> Andy
No, this is false. If the web server is running SSL, all the sysadmin can see is
a connection to the web server on port 443. The secure connection is negotiated
before the URL request is passed to the server and before any authentication
challenges and responses are transferred. This is solely because it is an SSL
server. Normal HTTP servers do not have this protection.
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5370
**************************************
