[17276] in Perl-Users-Digest
Perl-Users Digest, Issue: 4698 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 23 14:10:42 2000
Date: Mon, 23 Oct 2000 11:10:24 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <972324624-v9-i4698@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 23 Oct 2000 Volume: 9 Number: 4698
Today's topics:
Re: help with system () <ren.maddox@tivoli.com>
Re: Help nobull@mail.com
Re: here and filehandle <bart.lateur@skynet.be>
Re: Is it so difficult to help? nobull@mail.com
Re: list of exit codes <a@b.c>
Re: local file handle <MY_FILE> (Mark-Jason Dominus)
Re: local file handle <MY_FILE> <tim@ipac.caltech.edu>
LWP and Netscape jedelcon@sonic.net
Re: LWP and Netscape <gellyfish@gellyfish.com>
Re: LWP and Netscape <jeff@vpservices.com>
Modem will not dial if even parity? <phil_xxx@my-deja.com>
need help with Multiple constraint joelwebb@usa.net
Need help, new to Perl stephenmartin1@hotmail.com
Need help, new to Perl s_punk@my-deja.com
Need help, new to Perl stephenmartin1@hotmail.com
Re: Need help, new to Perl (Bernard El-Hagin)
Re: Need help, new to Perl <ren.maddox@tivoli.com>
Re: Net::FTP->ls(".doh"); (Clay Irving)
Re: Net::FTP->ls(".doh"); <bcaligari@my-deja.com>
Re: Net::FTP->ls(".doh"); <bcaligari@my-deja.com>
Re: newbie intro (Jon S.)
newbie questions... <brian@reichholf.at>
Re: newbie questions... (Chris Fedde)
Re: newbie questions... (Mark-Jason Dominus)
Re: On being Schwartz.. (was Re: newbie cgi examples) (Gwyn Judd)
Re: On being Schwartz.. (was Re: newbie cgi examples) <gellyfish@gellyfish.com>
Re: On being Schwartz.. (was Re: newbie cgi examples) <godzilla@stomp.stomp.tokyo>
Re: On being Schwartz.. (was Re: newbie cgi examples) <joe@benburb.demon.co.uk>
Re: Out of Memory - ActivePerl 5.6/Win98 SE 192MB RAM (Gwyn Judd)
package & library <bachelart.pierre@skynet.be>
Re: Perl & mySql (Jon S.)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Oct 2000 10:35:11 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: help with system ()
Message-Id: <m34s23a7v4.fsf@dhcp11-177.support.tivoli.com>
ebohlman@omsdev.com (Eric Bohlman) writes:
> Ren Maddox <ren.maddox@tivoli.com> wrote:
> > Russell Smallwood <rsmallwood@mindspring.com> writes:
>
> >> In article <MPG.145c47308969e261989683@news.giganews.com>,
> >> rsmallwood@mindspring.com says...
> >> >
> >> > system("d:\\my folder\\myprogram.exe $myvar");
>
> > You can save yourself a little trouble by using regular slashes
> > there. It works even on DOS/Windows...
>
> ...except when the file pathname is being passed to the command processor
> (shell) which, unfortunately, is the case here.
Not sure what makes you think that. It works fine.
DOS (as well as OS/2, for that matter) has accepted forward slashes
internally for quite some time (more than a decade). Not all commands
recognize forward slashes in their arguments, since they traditionally
indicate an option, but the shell itself accepts them fine. The one
that annoys me most is that "cd" doesn't accept forward slashes.... :(
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: 23 Oct 2000 17:58:02 +0100
From: nobull@mail.com
Subject: Re: Help
Message-Id: <u9r957sdet.fsf@wcl-l.bham.ac.uk>
pape_98@my-deja.com writes:
> > My second question is, how do I get the script to run itself at a
> > particular date and time. The emails are to be sent out every week at
> >8 am. I have no clue as to how to go about doing that. Can you help
> >me???
>
> I still need help with this topic though.
This has nothing to do with Perl. Use whatever tool your OS provides
for running programs at set times. In the case of Unix it would be cron.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 23 Oct 2000 13:30:32 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: here and filehandle
Message-Id: <v6f8vsgt7jv5vu5egofhjbrh4rlf458h5o@4ax.com>
Randy Harris wrote:
>One simple approach to finding the problem, might be to simply examine
>your output file to see which of the variables didn't interpolate.
I proposed on the Perl 6 mailing list to add a possibility to
interpolate undef() in a special, recognizable manner, not just the
empty string, for example "%#(UNDEF)#%" (In fact, any string you like.
That would certainly ease searching for bugs like this. But nobody who
responded even remotely liked the idea. Fat chance that it will ever be
implemented.
--
Bart.
------------------------------
Date: 23 Oct 2000 18:11:40 +0100
From: nobull@mail.com
Subject: Re: Is it so difficult to help?
Message-Id: <u9og0bscs3.fsf@wcl-l.bham.ac.uk>
"Michel Wouterse" <miriamsmit@zonnet.nl> writes:
> Subject: Is it so difficult to help?
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> I am trying to POST something into another script. It has to reach the
> script as if it were posted from an HTML-FORM.
> use LWP::UserAgent;
> use HTTP::Request::Common qw(POST);
> $url = 'http://www.myserver.com/cgi-bin/login.cgi';
> $browser = new LWP::UserAgent;
> @param ( 'username' -> 'myself' , 'password'-> 'mypass' );
> $htres = $browser->request(POST $url, \@param);
>
> Now...this code:
>
> A is it correct, but won't it work, because it's not the way to do it?
> B is it not correct and won't it work, because it's total shit?
> C is it correct, but I should use it slightly different?
Once you've corrected the obvious[1] typos the above code should work,
assuming of course login.cgi really does expect a form with fields
called 'username' and 'password'.
That said you should still get into good habits now:
Enable warnings.
use strict
Check for failure.
[1] Obvious means that they'll cause perl to emit warnings/errors that
will make it obvious what you've done wrong.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 23 Oct 2000 18:36:05 +0100
From: "Kingsley Tart" <a@b.c>
Subject: Re: list of exit codes
Message-Id: <bG_I5.8515$bL1.171748@news6-win.server.ntlworld.com>
> Is it a Perl script? If not, is there a more appropriate forum
> (comp.proggy.exit.code?) you should be asking this in?
Yes, it is a Perl script - one I'm writing. However, sometimes the
subprocesses terminate with different error codes and I don't know what they
mean.
Cheers,
Kingsley.
------------------------------
Date: Mon, 23 Oct 2000 15:54:53 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: local file handle <MY_FILE>
Message-Id: <39f45f4d.6bd1$9c@news.op.net>
Keywords: incubi, oratorical, put, sway
In article <e0OfchKPAHA.283@cpmsnbbsa07>,
Liang Cheng <Cheng3@email.msn.com> wrote:
>Perhaps I should also add that, my and local are essentially different, my
>is a lexical scoping operator, used mostly to keep variables apart in
>different packages,
This is not quite correct. Variables declared with 'my' are not
package variables and are not in any package at all.
> like C++'s keyword private.
This is definitely not correct. 'private' is used to control access
to object member data. Perl has no equivalent. If you want to
compare 'my' with a C++ keyword, it is most like 'auto'. (You don't
see 'auto' very much, because it is the default in C++.)
>The local is like ephemeral variables kept on the stack or local
>variables in a funcion in C/C++, gone as soon as the function they
>reside in finished, reinitialized at each calling of the function.
'my' is much more like that. The variable allocated by 'my' is in
scope only within one block, just like the auto function variable in
C++. This is not true for the argument of 'local', because 'local'
always operates on a *global* variable; it makes up a temporary new
value for a global variable, and arranges that the original value will
be restored automatically. But the variable itself is always a
*global* variable.
See http://www.plover.com/~mjd/perl/FAQs/Namespaces.html for a more
detailed explanation of the real situation.
------------------------------
Date: Mon, 23 Oct 2000 10:50:35 -0700
From: Tim Conrow <tim@ipac.caltech.edu>
Subject: Re: local file handle <MY_FILE>
Message-Id: <39F47A6B.50BF9B9E@ipac.caltech.edu>
percy_yip@my-deja.com wrote:
>
> I need to use a local file handle in a function because I am doing a
> recursive function there.
>
> I tried to use
> @sub my_function {
>
> my <FILE> = @_[0]; # it doesn't work!!!!!
> .
> .
> .
> .
> my_function ( new_file );
> }
>
> For normal variables, I can use my to create local variables, but not
> for file handle. Anyone can tell me why, and how to solve this problem.
You mean you want a different file handle for every (iterative) invocation of
my_function? If you just pass the file name instead of the file handle, you can
do this:
sub my_function {
my $filename = shift;
my $fh;
...
open($fh,$filename) or die "$!";
...
while(<$fh>) {...}
...
}
--
-- Tim Conrow tim@ipac.caltech.edu |
------------------------------
Date: Mon, 23 Oct 2000 14:00:18 GMT
From: jedelcon@sonic.net
Subject: LWP and Netscape
Message-Id: <88052D339366119F.8ECD67C16CE1D1C8.2A07FB95F36C7DE2@lp.airnews.net>
I have an intranet set up at home on which to practice my skills. I am
running Redhat6.1 on both client and server. The client is in
x-windows configuration. I
I successfully installed the LWP module and its dependencies and can
access an web page from my server using 'getprint'. Unfortunaltely all
I get is the html code. I want to see the page in Netscape. Is there a
way to do this. I've searched all over the net and in many perl books
but can't find an answer. Can anyone help?
thanks in advance,
jerbear
------------------------------
Date: Mon, 23 Oct 2000 14:31:01 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: LWP and Netscape
Message-Id: <FYXI5.3147$7u4.60765@news.dircon.co.uk>
On Mon, 23 Oct 2000 14:00:18 GMT, jedelcon@sonic.net Wrote:
> I have an intranet set up at home on which to practice my skills. I am
> running Redhat6.1 on both client and server. The client is in
> x-windows configuration. I
> I successfully installed the LWP module and its dependencies and can
> access an web page from my server using 'getprint'. Unfortunaltely all
> I get is the html code. I want to see the page in Netscape. Is there a
> way to do this.
Use getstore() and then open the resulting file in your browser.
You qwill have to explain what you mean better if that is not what you
expected to have to do.
/J\
------------------------------
Date: Mon, 23 Oct 2000 08:41:08 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: LWP and Netscape
Message-Id: <39F45C14.C0E94AE4@vpservices.com>
Jonathan Stowe wrote:
>
> On Mon, 23 Oct 2000 14:00:18 GMT, jedelcon@sonic.net Wrote:
> > I have an intranet set up at home on which to practice my skills. I am
> > running Redhat6.1 on both client and server. The client is in
> > x-windows configuration. I
> > I successfully installed the LWP module and its dependencies and can
> > access an web page from my server using 'getprint'. Unfortunaltely all
> > I get is the html code. I want to see the page in Netscape. Is there a
> > way to do this.
>
> Use getstore() and then open the resulting file in your browser.
Or continue to use getprint() but put it in a CGI and print a
content-header first. That is assuming you have a web server running.
> You qwill have to explain what you mean better if that is not what you
> expected to have to do.
Also true for my part of the possible answer.
--
Jeff
------------------------------
Date: Mon, 23 Oct 2000 13:23:40 GMT
From: Phil xxx <phil_xxx@my-deja.com>
Subject: Modem will not dial if even parity?
Message-Id: <8t1e4o$t32$1@nnrp1.deja.com>
I am using Perl to dial out using a standard US Robotics modem. I am
using i86 Solaris 8 and perl 5.6.0.
The problem I am getting is that the program will dial fine if I use no
parity but if I set it to use even parity it wont dial. I dont think
this is actually a perl problem but a solaris one.
In Perl when I use:
$modem_obj->parity("none").
Then it dials. but if I put in the following :
$modem_obj->parity("even") || die "fail setting parity";
$modem_obj->parity_enable('T');
It wont dial.
Any ideas? Maybe its a port or OS. setting?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 23 Oct 2000 16:18:20 GMT
From: joelwebb@usa.net
Subject: need help with Multiple constraint
Message-Id: <8t1oc3$5pc$1@nnrp1.deja.com>
I am trying to make an if statement to have multiple constraints.
Can it be done using perl??
I have so far:
$serial = `cut -d : -f 3 serial.txt`;
print ("$serial");
chomp ($serial);
if ($serial (>= 2000000) && (<= 2600000))
{
print ("$serial is greater than 2000000 Woah!\n");
}
This didn't work anybody have any suggestions?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 23 Oct 2000 14:19:37 GMT
From: stephenmartin1@hotmail.com
Subject: Need help, new to Perl
Message-Id: <8t1hdm$v7i$1@nnrp1.deja.com>
The script I have written as you can see is to parse a particular web
site on our intranet. If you parse the line individually, it will
work. If you put them all togethr they won't read. Can someone tell
me what I'm missing.. Thanks anything will help.
# This is designed to download the status of the differ weblogic servers
use LWP::UserAgent;
use File::Copy;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET
=> 'http://nrtweb1.enrononline.com:8001/T3AdminMain');
$req->authorization_basic('huygens', 'clientbite');
$nrt = $ua->request($req)->as_string;
($ver, $launched, $uptime) =
($nrt =~ m@version<.*>(\d[^<]*) # version
.*Launched<.*>([^<]*) # Launched
.*Uptime<.*>(\d[^<]*) # uptime
@x);
print "$ver, $launched, $uptime\n";
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 23 Oct 2000 14:21:08 GMT
From: s_punk@my-deja.com
Subject: Need help, new to Perl
Message-Id: <8t1hgg$va3$1@nnrp1.deja.com>
The script I have written as you can see is to parse a particular web
site on our intranet. If you parse the line individually, it will
work. If you put them all togethr they won't read. Can someone tell
me what I'm missing.. Thanks anything will help.
# This is designed to download the status of the differ weblogic servers
use LWP::UserAgent;
use File::Copy;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET
=> 'http://nrtweb1.enrononline.com:8001/T3AdminMain');
$req->authorization_basic('huygens', 'clientbite');
$nrt = $ua->request($req)->as_string;
($ver, $launched, $uptime) =
($nrt =~ m@version<.*>(\d[^<]*) # version
.*Launched<.*>([^<]*) # Launched
.*Uptime<.*>(\d[^<]*) # uptime
@x);
print "$ver, $launched, $uptime\n";
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 23 Oct 2000 14:20:12 GMT
From: stephenmartin1@hotmail.com
Subject: Need help, new to Perl
Message-Id: <8t1hep$v98$1@nnrp1.deja.com>
The script I have written as you can see is to parse a particular web
site on our intranet. If you parse the line individually, it will
work. If you put them all togethr they won't read. Can someone tell
me what I'm missing.. Thanks anything will help.
# This is designed to download the status of the differ weblogic servers
use LWP::UserAgent;
use File::Copy;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET
=> 'http://nrtweb1.enrononline.com:8001/T3AdminMain');
$req->authorization_basic('huygens', 'clientbite');
$nrt = $ua->request($req)->as_string;
($ver, $launched, $uptime) =
($nrt =~ m@version<.*>(\d[^<]*) # version
.*Launched<.*>([^<]*) # Launched
.*Uptime<.*>(\d[^<]*) # uptime
@x);
print "$ver, $launched, $uptime\n";
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 23 Oct 2000 14:22:54 GMT
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: Need help, new to Perl
Message-Id: <slrn8v8igk.28m.bernard.el-hagin@gdndev25.lido-tech>
On Mon, 23 Oct 2000 14:14:29 GMT, stephenmartin1@hotmail.com
<stephenmartin1@hotmail.com> wrote:
>The script I have written as you can see is to parse a particular web
>site on our intranet. If you parse the line individually, it will
>work. If you put them all togethr they won't read. Can someone tell
>me what I'm missing.. Thanks anything will help.
Either you used a really, *really* small font, or you forgot to append
your script.
Cheers,
Bernard
--
perl -le'
($B,$e,$r,$n,$a,$r,$d)=q=$B$e$r$n$a$r$d==~m;
\$(.);xg;print$B.$e.$r.$n.$a.$r.$d;'
------------------------------
Date: 23 Oct 2000 10:48:46 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: Need help, new to Perl
Message-Id: <m3y9zf8so1.fsf@dhcp11-177.support.tivoli.com>
stephenmartin1@hotmail.com writes:
> The script I have written as you can see is to parse a particular web
> site on our intranet. If you parse the line individually, it will
> work. If you put them all togethr they won't read. Can someone tell
> me what I'm missing.. Thanks anything will help.
Just an educated guess based on an inference from what you are saying
about parsing individually versus altogether...
> ($nrt =~ m@version<.*>(\d[^<]*) # version
> .*Launched<.*>([^<]*) # Launched
> .*Uptime<.*>(\d[^<]*) # uptime
> @x);
^--- xs
If "version", "Launched" and "Uptime" are on different lines and you
are expecting the ".*" to match everything in between, including the
newlines, then you need to add the "s" modifier so that "." will match
a newline -- it normally doesn't.
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: 23 Oct 2000 13:51:04 GMT
From: clay@panix.com (Clay Irving)
Subject: Re: Net::FTP->ls(".doh");
Message-Id: <slrn8v8gi8.rd.clay@panix3.panix.com>
On Mon, 23 Oct 2000 12:15:50 GMT, Brendon Caligari
<bcaligari@my-deja.com> wrote:
>after connecting and logging into an ftp server
>
>@files = $ftp->ls('*.doh');
>
>If no .doh files exist, @files still 1 element (undefined).
>
>Any clues?
None.
#!/usr/local/bin/perl -w
use Net::FTP;
$ftp = Net::FTP->new("shell.panix.com");
$ftp->login("clay","mypasswd") or die "Can't login to ftp server: $!";
@files = $ftp->ls('*.doh');
$ftp->quit;
print "@files\n";
print "$#files\n";
Result:
-1
--
Clay Irving <clay@panix.com>
A great many people think they are thinking when they are merely
rearranging their prejudices.
- William James
------------------------------
Date: Mon, 23 Oct 2000 14:58:10 GMT
From: Brendon Caligari <bcaligari@my-deja.com>
To: clay@panix.com
Subject: Re: Net::FTP->ls(".doh");
Message-Id: <8t1jlt$1co$1@nnrp1.deja.com>
In article <slrn8v8gi8.rd.clay@panix3.panix.com>,
clay@panix.com (Clay Irving) wrote:
[snip snip]
> $ftp = Net::FTP->new("shell.panix.com");
> $ftp->login("clay","mypasswd") or die "Can't login to ftp server:
$!";
> @files = $ftp->ls('*.doh');
> $ftp->quit;
>
> print "@files\n";
> print "$#files\n";
>
> Result:
>
> -1
print("Found: " . scalar(@files) . " files\n");
foreach (@files) {
print("Found $_\n");
}
prints:
----quote-----
Found: 0 files
Use of uninitialized value in concatenation (.) at
E:\personal\bcaligari\scratch\perl\x.pl line 41.
Found
----unquote---
I'm as clueless as ever
---Brendon-------
| I would like to buy a CD of traditional Russian music;
| the kind they pipe in Chinese restaurants.
-----------------
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 23 Oct 2000 15:35:04 GMT
From: Brendon Caligari <bcaligari@my-deja.com>
Subject: Re: Net::FTP->ls(".doh");
Message-Id: <8t1lr8$3gq$1@nnrp1.deja.com>
In article <8t1jlt$1co$1@nnrp1.deja.com>,
Brendon Caligari <bcaligari@my-deja.com> wrote:
> In article <slrn8v8gi8.rd.clay@panix3.panix.com>,
> clay@panix.com (Clay Irving) wrote:
>
[snip snip snip snip]
> ----quote-----
> Found: 0 files
> Use of uninitialized value in concatenation (.) at
> E:\personal\bcaligari\scratch\perl\x.pl line 41.
> Found
> ----unquote---
> I'm as clueless as ever
>
actually, It says
Found: 1 files (should learn to save changes from editor before trying
to re-execute).
However, instead of a filename the only item in the list is 'undefined'.
This happens when connecting to a linux 6.2 box and not to a Serv-U
something ftp server on win2k.
The perl script gives the same error when run on linux box and on a
win2k box (both running ActivePerl binary distributions 618).
----Brendon-----
| May I spare myself from this misery, by plunging into despair.
----------------
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 23 Oct 2000 16:43:50 GMT
From: jonceramic@nospammiesno.earthlink.net (Jon S.)
Subject: Re: newbie intro
Message-Id: <39f469ee.12170847@news.earthlink.net>
On Thu, 19 Oct 2000 20:00:18 GMT, Miker <mrobison@c802.crane.navy.mil>
wrote:
>hi larry,
>
>thanks for the guidelines... i'd rather hear them up
>front than get my butt chewed for it later on. ;-)
>and i hit your web site and surfed around. you
>definitely duh man! very impressive background and
>list of accomplishments.
>
>miker
Well, 2 things Larry (perl god that his is) missed are...
1. People on this group _hate_ replies posted to the top. So, reply
below or in context.
2. People on this group _hate_ CGI questions (even if perl is the base
language). So, post CGI questions to
comp.infosystems.www.authoring.cgi. It's a thin line that becomes
more and more obvious as you go along. ;) Most people will kindly
tell you the question is in the wrong place and answer it anyway
though. That's a very good thing.
Jon
------------------------------
Date: Mon, 23 Oct 2000 17:55:53 +0200
From: "Brian Reichholf" <brian@reichholf.at>
Subject: newbie questions...
Message-Id: <39f45f8e$0$21768@SSP1NO25.highway.telekom.at>
Where do i get the perlfaq8 from????
I'm just new to perl and am very interested in it and haven't found any
really good faq, reference or tutorial on the net,
pelease help!
thx in advice
------------------------------
Date: Mon, 23 Oct 2000 16:02:18 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: newbie questions...
Message-Id: <eiZI5.59$7rc.171290112@news.frii.net>
In article <39f45f8e$0$21768@SSP1NO25.highway.telekom.at>,
Brian Reichholf <brian@reichholf.at> wrote:
>Where do i get the perlfaq8 from????
>
>I'm just new to perl and am very interested in it and haven't found any
>really good faq, reference or tutorial on the net,
>pelease help!
>thx in advice
>
This stuff should have come with your distribution. If you can't find it
on your system then take a look at some of the perl websites.
http://www.cpan.org/doc/manual/html/
might be a good place to start.
--
This space intentionally left blank
------------------------------
Date: Mon, 23 Oct 2000 15:58:30 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: newbie questions...
Message-Id: <39f46025.6be9$337@news.op.net>
In article <39f45f8e$0$21768@SSP1NO25.highway.telekom.at>,
Brian Reichholf <brian@reichholf.at> wrote:
>Where do i get the perlfaq8 from????
Your copy of Perl should have come with a complete set of
documentation. But if you can't find it, a web search for 'perlfaq8'
is sure to turn up a copy.
------------------------------
Date: Mon, 23 Oct 2000 13:55:51 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: On being Schwartz.. (was Re: newbie cgi examples)
Message-Id: <slrn8v8gr2.2nc.tjla@thislove.dyndns.org>
I was shocked! How could Randal L. Schwartz <merlyn@stonehenge.com>
say such a terrible thing:
>Just another guy with Schwartz in his name not related to ANY other Schwartz's,
<Spaceballs>
I see your Schwartz is as big as mine
</Spaceballs>
*ducking and running*
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
"It's my cookie file and if I come up with something that's lame and I like it,
it goes in."
-- karl (Karl Lehenbauer)
------------------------------
Date: Mon, 23 Oct 2000 13:57:51 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: On being Schwartz.. (was Re: newbie cgi examples)
Message-Id: <ztXI5.3146$7u4.60764@news.dircon.co.uk>
On 23 Oct 2000 05:24:23 -0700, Randal L. Schwartz Wrote:
>
> I don't think the story of why he changed his name was ever fully
> handed down. Knowing *some* of what my Dad tells me about him, he was
> probably on the run from the German police. :) He was a vaudeville
> performer, or maybe that was just his cover story. :)
>
The vaudeville thing explains a lot Randal :)
/J\
------------------------------
Date: Mon, 23 Oct 2000 08:00:32 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: On being Schwartz.. (was Re: newbie cgi examples)
Message-Id: <39F45290.3BB6C3FB@stomp.stomp.tokyo>
"Randal L. Schwartz" wrote:
> "joe" == joe mc cool <joe@benburb.demon.co.uk> writes:
> With a first name missing a letter according
> to everyone but my mom,
You are skating on very thin ice and approaching
a chilly pitfall of heresy. Never question nor
doubt this wisdom of Mom. She is, without debate,
the most sage of all peoples and cultures. Mom
is the final authority on all notions of Life.
Mom is the right-hand woman of God Herself, as
all good little girls know, but few boys know.
Mom loves you. Mom loves us all. Mom is Godhead.
Believe in Mom, faithfully.
Godzilla!
------------------------------
Date: 23 Oct 2000 16:17:35 +0000
From: joe mc cool <joe@benburb.demon.co.uk>
Subject: Re: On being Schwartz.. (was Re: newbie cgi examples)
Message-Id: <u74s235y74.fsf@benburb.tangent.com>
merlyn@stonehenge.com (Randal L. Schwartz) writes:
> Wow. That's a spelling that I've not seen before. And believe me,
Ooops !
You want to see the spelling I get for _my_ name some times !
(I am really sorry Randal, no offense meant. Thanks for the book, it really
is great !)
--
joe mc cool
========================================================================
Tangent Computer Research BT71 7LN (www.tangent-research.com)
voice:(44)2837-548074fax:(44)-870-0520185 The more you say the less the better.
------------------------------
Date: Mon, 23 Oct 2000 13:41:58 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Out of Memory - ActivePerl 5.6/Win98 SE 192MB RAM
Message-Id: <slrn8v8g11.2nc.tjla@thislove.dyndns.org>
I was shocked! How could John W. Krahn <krahnj@acm.org>
say such a terrible thing:
>Gwyn Judd wrote:
>>
>> however you also need to check for erros on
>> system calls (such as open()).
>
>What are those system calls doing under the covers? ;-)
Well I hope I don't have to explain what bad things can happen when you
mix touch, open, join, pipe, split, fork, creat(e), and sleep in the one
program.
--
Gwyn "not to mention hash" Judd
(print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
"Just kidding about that God part. No offense."
-- Ivanova (after looking up), "A Voice in the Wilderness I"
------------------------------
Date: Mon, 23 Oct 2000 19:21:26 +0200
From: "tuple" <bachelart.pierre@skynet.be>
Subject: package & library
Message-Id: <8t1s1p$3b3$1@news1.skynet.be>
Hello,
I' am stuck with the following:
My program uses packages (in separated files) now and it is ok.
But how can i use a library (eg. Date-Calc) in my package ??
The library is declared in my program.
Thanks.
Pierre Bachelart.
Here my program (menu.pl) and his package (askpba3.pl) (part of it)
#!/usr/bin/perl -w
use lib '~/lib/perl';
use Tk;
use Date::Calc qw(Add_Delta_DHMS
Today_and_Now
);
use Tk::BrowseEntry;
use strict;
use diagnostics;
require "/home/someone/askpba3.pl"; #
require "/home/someone/search_log"; #
.....................
.....................
etc...
and the package in another file
package askpba3;
BEGIN {
}
sub sendmail {
open(MAIL,">$menu::mail") or die "can't open mail:$!";
print MAIL "\n";
print MAIL "From:",$menu::name," Date:",$menu::date,"\n";
print MAIL "----\n";
print MAIL "exch:", $record{"Exch:"},"\n";
print MAIL"rit :", $record{"rit"},"\n";
print MAIL "type:", $record{"type"},"\n";
print MAIL "code:", $record{"code"},"\n";
print MAIL "na :", $record{"na"},"\n";
print MAIL "deliv:", $record{"deliv"},"\n";
print MAIL "fault:", $record{"fault"},"\n";
close (MAIL);
.....................................
.....................................
etc....
------------------------------
Date: Mon, 23 Oct 2000 17:06:48 GMT
From: jonceramic@nospammiesno.earthlink.net (Jon S.)
Subject: Re: Perl & mySql
Message-Id: <39f46fd3.13680072@news.earthlink.net>
On Thu, 19 Oct 2000 23:56:10 +0100, James Taylor
<james@NOSPAM.demon.co.uk> wrote:
>In article <8snpve$nn9$1@nnrp1.deja.com>, Miker
><URL:mailto:mrobison@c802.crane.navy.mil> wrote:
>>
>> i do NOT recommend the o'reilly "mysql and msql" book
>> for learning. maybe a reference.
>
>I'm surprised that you think that. I found it quite understandable
>although I must admit to reading it in parallel with the O'Reilly book
>"Programming the Perl DBI" which covered the DBI to a much greater
>depth than "MySQL & mSQL" did. I guess the best advice would be to
>recommend the DBI book for learning and the MySQL book for reference.
I concur. Programming the Perl DBI and the www.mysql.com docs have
done this newbie just fine so far. Also, the Oreilly site has the
msql/mysql book's chapter on CGI.pm as the sample chapter. It's a
good download in a pinch.
The real question is if you know and understand databases, SQL, and
Normalization or not. If not, I'd suggest a book like "SQL for
Dummies".
Jon
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 4698
**************************************
