[9419] in Perl-Users-Digest
Perl-Users Digest, Issue: 3015 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 30 13:57:37 1998
Date: Tue, 30 Jun 98 10:48:39 -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, 30 Jun 1998 Volume: 8 Number: 3015
Today's topics:
Need information about EMBEDDING Perl5 <affriedl@earthlink.net>
Re: Need information about EMBEDDING Perl5 <rootbeer@teleport.com>
Need perl programmer for quick database project nospam.ajm@antopia.com
Re: Need perl programmer for quick database project (brian d foy)
Re: Need perl programmer for quick database project <alpha@mauimail.com>
Net::FTP ftp->put() - How to get the Error Code upon f <r.r@worldnet.att.net>
net::ftp directory listing??? <free@moonshinehollow.com>
Re: net::ftp directory listing??? <rra@stanford.edu>
Re: net::ftp directory listing??? <free@moonshinehollow.com>
Re: net::ftp directory listing??? (I R A Aggie)
Re: net::ftp directory listing??? <zenin@bawdycaste.org>
Re: Newbie: Accessing Oracle tables through Perl <reccmo@sc03.sctp.dk>
Ominous(Was: Re: ANNOUNCEMENT:clpa doesn't accept perl <alf@orion.it>
Re: oop design question (Mark-Jason Dominus)
opendir fails ! <praveen@stones.com>
Re: opendir fails ! <rootbeer@teleport.com>
Re: opendir fails ! <bowlin@sirius.com>
panic: malloc at D:\nDS\wwwroot\cgi-bin\constructsys.pl <norman.bunn@mci.com>
Password protection <hvanlint@lodestar.be>
Re: Password protection <coreyp@rc.gc.ca>
Re: Password protection <rootbeer@teleport.com>
perl 4 perl 5 and year 2000 <tzahi@tase.co.il>
Re: perl 4 perl 5 and year 2000 <quednauf@nortel.co.uk>
Re: perl 4 perl 5 and year 2000 (Abigail)
Re: perl 4 perl 5 and year 2000 <perlguy@inlink.com>
perl and vi.... (brian moore)
Re: perl and vi.... (Keith Thompson)
Perl array of anonymous hashes <sarmad@ice1.fas.harvard.edu>
Re: Perl array of anonymous hashes (brian d foy)
Re: Perl CGI forms <abaugher@rnet.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 29 Jun 1998 08:01:43 -0500
From: "Andrew Friedl" <affriedl@earthlink.net>
Subject: Need information about EMBEDDING Perl5
Message-Id: <6n835b$4ot$1@fir.prod.itd.earthlink.net>
Any information, hints, clues, URL's
would be appreciated.
Thanks,
Andrew
------------------------------
Date: Mon, 29 Jun 1998 20:50:12 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Need information about EMBEDDING Perl5
Message-Id: <Pine.GSO.3.96.980629134937.28620F-100000@user2.teleport.com>
On Mon, 29 Jun 1998, Andrew Friedl wrote:
> Any information, hints, clues, URL's
> would be appreciated.
There's a manpage called 'perlembed'. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sun, 28 Jun 1998 23:33:54 GMT
From: nospam.ajm@antopia.com
Subject: Need perl programmer for quick database project
Message-Id: <6n6jt2$7nj$1@nnrp1.dejanews.com>
Hello:
I'm looking for a perl/database expert-consultant to
help me set something up. Here's the details:
I run a fairly active website using perl where people
can post and respond to ads. We're up at 1800+ ads
now and I have them in 5 databases, the largest of
which has 1200 or so records, each with about 12
fields. The databases I'm using are simple
tab-delimited text files.
The databases are constantly being used and updated
as people add, modify, and delete ads, as well as
read the information in them.
I'm thinking of ging over to more robust databases.
My ISP offers mSQL2 (see below). I need someone to
develop and install ON MY SITE some example scripts
to demonstrate to me creation and manipulation of
such databases. These would ONLY be example scripts.
Once they're working with an example database on my
site as I'm pretty sharp myself, I can over time
modify and enhance them and integrate them into my
existing www scripts.
I figure that for sample scripts someone already has
some, and that the total effort required to get them
running and explain them to me is 2-4 hours. Anyway,
I have US$150 budgeted for satisfactory operation and
comprehension of such scripts, enough to get me going.
If you're interested please respond. Here's all my server is going to provide
about the database support they provide:
What are the basic Msql2 settings?
Msql2 is a database engine, docs may be found at Hughes SQL
We dont provide technical support on this because of its complexity, the basic
access path is below
To use this you must submit your domain name and a database name to us, so we
can set it up for you
for machine you put your system name. This is the name that the prompt says
when you log into the shell /usr/local/Hughes/bin/msql -h machine
database-name
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 29 Jun 1998 13:41:12 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Need perl programmer for quick database project
Message-Id: <comdog-ya02408000R2906981341120001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6n6jt2$7nj$1@nnrp1.dejanews.com>, nospam.ajm@antopia.com posted:
>I'm thinking of ging over to more robust databases.
>My ISP offers mSQL2 (see below). I need someone to
>develop and install ON MY SITE some example scripts
>to demonstrate to me creation and manipulation of
>such databases.
you don't really need a programmer, just some programs. :)
* mSQL - see <URL:http://www.hughes.com.au> for docs about
the mSQL grammar
* Perl and databases - get the DBI package from CPAN. look
at the resources for mSQL and Perl (hmmm... <URL:http://
www.hermetica.com> comes to mind.
* see the DBI article in the Perl Journal. (go to <URL:http://
www.tpj.com> and look in the article index for Alligator Descartes
or Tim Bunce.
that should be enough to do what you want without having to pay
the high prices for a programmer to do the same.
good luck :)
--
brian d foy <comdog@computerdog.com>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers T-shirts! <URL:http://www.pm.org/tshirts.html>
but then, i do this quite often
------------------------------
Date: Mon, 29 Jun 1998 13:01:17 -0700
From: Dennis <alpha@mauimail.com>
Subject: Re: Need perl programmer for quick database project
Message-Id: <3597F284.324E@mauimail.com>
nospam.ajm@antopia.com wrote:
> ...I need someone to
> develop and install ON MY SITE some example scripts
> to demonstrate to me creation and manipulation of
> such databases.] These would ONLY be example scripts.
> Once they're working with an example database on my
> site as I'm pretty sharp myself, I can over time
> modify and enhance them and integrate them into my
> existing www scripts.
For an introduction to text-based databases, SQL, Oracle and Sybase
gateways and some practical Perl code with an example, see Chapter 9,
"Relational Databases," in Shishir Gundavaram's book _CGI Programming on
the World Wide Web_, pub. by O'Reilly. The script for his database
module, called Sprite, is available for download via the O'Reilly site:
http://www.ora.com/catalog/cgi/noframes.html
Example database: http://www.ora.com/info/cgi/examples/phone_form.html
Dennis
alpha@mauimail.com
------------------------------
Date: Tue, 30 Jun 1998 07:51:48 -0400
From: "Rathnakar Yelandur" <r.r@worldnet.att.net>
Subject: Net::FTP ftp->put() - How to get the Error Code upon failure
Message-Id: <6najh9$e28@bgtnsc01.worldnet.att.net>
I am using Net::FTP package. When I use the PUT
Function returns "Remote File Name" that was created or
specified upon Success.
It returns UNDEF upon FAILURE.
Is there any way to get ERROR CODE & the Message text
upon failure.
Turning DEBUG mode on and processing STDERR is one
way of circumventing this problem.
Rath
------------------------------
Date: Mon, 29 Jun 1998 15:08:46 GMT
From: Markus <free@moonshinehollow.com>
Subject: net::ftp directory listing???
Message-Id: <3597AD9A.F984E745@moonshinehollow.com>
How do i make net::ftp get me a directory listing from a ftp server??
Thanks in advance.../Markus
------------------------------
Date: 29 Jun 1998 08:34:46 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: net::ftp directory listing???
Message-Id: <m3u354mdbd.fsf@windlord.Stanford.EDU>
Markus <free@moonshinehollow.com> writes:
> How do i make net::ftp get me a directory listing from a ftp server??
Um, did you read the Net::FTP documentation? It's pretty clear....
ls ( [ DIR ] )
Get a directory listing of `DIR', or the current directory.
In an array context, returns a list of lines returned from the
server. In a scalar context, returns a reference to a list.
dir ( [ DIR ] )
Get a directory listing of `DIR', or the current directory in long
format.
In an array context, returns a list of lines returned from the
server. In a scalar context, returns a reference to a list.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Mon, 29 Jun 1998 18:30:54 GMT
From: Markus <free@moonshinehollow.com>
Subject: Re: net::ftp directory listing???
Message-Id: <3597DCFA.50299BC5@moonshinehollow.com>
Russ Allbery wrote:
> Markus <free@moonshinehollow.com> writes:
>
> > How do i make net::ftp get me a directory listing from a ftp
> server??
>
> Um, did you read the Net::FTP documentation? It's pretty clear....
>
> ls ( [ DIR ] )
> Get a directory listing of `DIR', or the current directory.
>
> In an array context, returns a list of lines returned from the
>
> server. In a scalar context, returns a reference to a list.
>
> dir ( [ DIR ] )
> Get a directory listing of `DIR', or the current directory in
> long
> format.
>
> In an array context, returns a list of lines returned from the
>
> server. In a scalar context, returns a reference to a list.
>
> --
> #!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
> $^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD
> gD,
> 00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.),
> 01,pnn,y{
> rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/
> #y,d,s,(\$.),$1,gee,print
Im sorry, what i actually ment was: how do i make perl determine
which entries in the directory listing actually are directories and
which actually are files? I belive this question is in the FAQ but hasnt
been answered yet.
/Markus
------------------------------
Date: Mon, 29 Jun 1998 21:07:50 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: net::ftp directory listing???
Message-Id: <fl_aggie-2906982107500001@aggie.coaps.fsu.edu>
In article <3597DCFA.50299BC5@moonshinehollow.com>, Markus
<free@moonshinehollow.com> wrote:
+ Im sorry, what i actually ment was: how do i make perl determine
+ which entries in the directory listing actually are directories and
+ which actually are files? I belive this question is in the FAQ but hasnt
+ been answered yet.
Graham Barr answered it in, I believe, a Perl Journal article.
Begin snippets:
# I will explain the use of this module later
use File::Listing qw(parse_dir);
[snip: open a connection to the place you want to get files from]
# Retrieve a recursive directory listing
@ls = $ftp->ls('-lR');
$ftp->binary();
foreach $file (parse_dir(\@ls)) {
my($name, $type, $size, $mtime, $mode) = @$file;
# We only want to process plain files,
# we shall ignore symbolic links
next unless($type eq 'f');
The docs for File::Listing indicate:
DESCRIPTION
The parse_dir() routine can be used to parse directory listings.
Currently it only understand Unix `'ls -l'' and `'ls -lR''
format. It should eventually be able to most things you might
get back from a ftp server file listing (LIST command), i.e. VMS
listings, NT listings, DOS listings,...
James
------------------------------
Date: 30 Jun 1998 02:27:22 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: net::ftp directory listing???
Message-Id: <899174138.372084@thrush.omix.com>
Markus <free@moonshinehollow.com> wrote:
: Russ Allbery wrote:
: Im sorry, what i actually ment was: how do i make perl determine
: which entries in the directory listing actually are directories and
: which actually are files? I belive this question is in the FAQ but hasnt
: been answered yet.
You can do string tests on the data from dir(). The first string
is the permission and file type info. If the first char is a 'd',
it should be a directory. Lame, I know, but I think that's the
only way. Anyone else got a better method?
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 29 Jun 1998 08:31:40 GMT
From: Christian Mondrup <reccmo@sc03.sctp.dk>
Subject: Re: Newbie: Accessing Oracle tables through Perl
Message-Id: <6n7jdc$mlc$1@news.net.uni-c.dk>
In comp.lang.perl.misc Ed Os <ed@infomatrix.demon.co.uk> wrote:
: This question may have been dealt with before so I apologise for any the
: repetition.
: I am new to Perl and I need to access an Oracle table and retrieve records
: which need to be written to a file in a specific format. Could someone point
: me in the right direction please or indicate how this could be achieved.
Organization:
You can get the perl5 Oracle modules from a CPAN site e.g.
ftp://ftp.funet.fi/pub/unix/packages/perl/CPAN/modules/dbperl/
--
Christian Mondrup, Computer Programmer
Scandiatransplant, Skejby Hospital, University Hospital of Aarhus
Brendstrupgaardsvej, DK 8200 Aarhus N, Denmark
Phone: +45 89 49 53 01, Telefax: +45 89 49 60 07
------------------------------
Date: 28 Jun 1998 15:59:41 +0200
From: Alessandro Forghieri <alf@orion.it>
Subject: Ominous(Was: Re: ANNOUNCEMENT:clpa doesn't accept perl announcements!)
Message-Id: <54btrdiq42.fsf_-_@alpha.orion.it>
Greetings.
Tom Christiansen <tchrist@mox.perl.com> writes:
[...]
> "Lasciate ogni speranza, voi ch'entrate!"
"All hope abandon, ye who enter in" (Dante Alighieri, "La Divina Commedia",
I-III-12).
Now this wouldn't be part of the proposed charter for a perl NG, wouldn't it?
Or a warning to newbees, maybe?
If it is, it would start like this:
Per me si va nella citta' dolente Through me the way is to the city dolent
Per me si va nell'eterno dolore Through me the way is to eternal dole
Per me si va tra la perduta gente Through me the way among the people lost
[...]
Where the people lost would be...
(Sorry, I could not resist)
Cheers,
Alessandro
---
Alessandro Forghieri Site administrator Nouvelle srl
Email: alf@orion.it Voice: +39 59 345767
Via Giardini 460 Fax: +39 59 343822
------------------------------
Date: 28 Jun 1998 13:23:32 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: oop design question
Message-Id: <6n5u6k$6pm$1@monet.op.net>
In article <6n0d4f$26v8@fidoii.cc.Lehigh.EDU>,
Phil R Lawrence <prl2@lehigh.edu> wrote:
>_________________________________________
> $f = $t->format_sub_group->new;
> $f->format_top($blah);
>
>How should I design the constructor for format_sub_group so that I
> can do this?
I think you're asking the wrong question here. Your question is all
about syntax. And maybe someone could think of a way for you to have
the syntax you want, but that doesn't seem worthwhile.
Underlying your syntactic questions is probably some issue of
semantics: You have some problem you want to solve or some task you
want to accomplish. If there is such an issue at the heart of your
question, it would be better for you to try to identify it and ask
about it directly.
------------------------------
Date: Mon, 29 Jun 1998 23:01:42 -0400
From: Praveen Ray <praveen@stones.com>
Subject: opendir fails !
Message-Id: <35985516.1755D8A0@stones.com>
The following code returns an error :
$dir = <STDIN>
opendir (DIRHANDLE, $dir)
When I run the script with following input :
\ (i.e. the root directory)
it gives an error message ($!) - No such file or directory. However it
works fine with
inputs like :
\temp or
\winnt etc.
I'm using perl version 5.003_07 on Windows NT4.0. This is a port by
ActiveWare Corp.
Any ideas ?
------------------------------
Date: Tue, 30 Jun 1998 03:39:30 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: opendir fails !
Message-Id: <Pine.GSO.3.96.980629203752.17225I-100000@user2.teleport.com>
On Mon, 29 Jun 1998, Praveen Ray wrote:
> The following code returns an error :
>
> $dir = <STDIN>
> opendir (DIRHANDLE, $dir)
Yes; you seem to have forgotten a semicolon. :-)
> When I run the script with following input :
> \ (i.e. the root directory)
Is your input "\\" (a single backslash) or "\\\n" (a backslash and a
newline)? If you haven't chomped your input from the line input operator,
you've probably got a newline in it. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 29 Jun 1998 22:30:43 -0700
From: Jim Bowlin <bowlin@sirius.com>
To: Praveen Ray <praveen@stones.com>
Subject: Re: opendir fails !
Message-Id: <35987803.F20C07FE@sirius.com>
Praveen Ray wrote:
>
> The following code returns an error :
>
> $dir = <STDIN>
> opendir (DIRHANDLE, $dir)
>
> When I run the script with following input :
> \ (i.e. the root directory)
>
> it gives an error message ($!) - No such file or directory. However it
> works fine with
> inputs like :
> \temp or
> \winnt etc.
> I'm using perl version 5.003_07 on Windows NT4.0. This is a port by
> ActiveWare Corp.
>
> Any ideas ?
if you wrote:
opendir(DIRHANDLE, $dir) or die "could not opendir($dir) $!";
you would quickly see the problem. The solution is to
"chomp $dir;" to get rid of the trailing new-line.
Also, the code you present is missing semi-colons. Perhaps
you are assuming that the people reading your post are assuming
that you know all about semi-colons and so forth. It would be
much easier for the people who are trying to help you out if
you don't make such abbreviations and post the smallest snippet
of actual code that fails to work. I find that 99% of the
time when I have a bug that is hard to fix, it is because I am
making an incorrect assumption.
Good luck, I hope this helps, -- Jim Bowlin
------------------------------
Date: Tue, 30 Jun 1998 11:49:54 GMT
From: "Norman Bunn" <norman.bunn@mci.com>
Subject: panic: malloc at D:\nDS\wwwroot\cgi-bin\constructsys.pl line 186.
Message-Id: <Ch4m1.1032$P06.378473@pm01nn>
I get the following message:
panic: malloc at D:\nDS\wwwroot\cgi-bin\constructsys.pl line 186.
when running the following code:
$systemFile = "/nDS/wwwroot/data/db.$groupID.$profile.$systemID";
dbmopen (%systemBase, $systemFile, 0666) || die "Can't open $systemFile\n";
$thisCounter = 0;
while ( $thisCounter <=3 )
{
$counter[$thisCounter] = 0;
$thisCounter++;
}
while (($systemKey, $systemValue) = each %systemBase)
{
# ($type, $MSO, $linkage, $package) = split('{}', $systemValue);
print "$systemValue";
#=========
}
dbmclose(systemBase);
end_html;
exit;
#=========
the data looks like:
Monitor{}3{}6{}yesJC-1746UMAMonitor{}3{}6{}yes360-5420Monitor{}3{}6{}yes360-
6014Monitor{}3{}6{}yes360-5231Monitor{}3{}6{}yes360-6170Monitor{}3{}6{}yes36
0-5033Monitor{}3{}6{}yes360-5031Modem{}3{}0{}313-0520Input{}3{}0{}310-3600Ne
twork{}3{}3{}430-1576Network{}3{}3{}360-6015Video{}3{}0{}320-0220Storage{}3{
}5{}340-0748Storage{}3{}5{}340-0751Storage{}3{}5{}340-0734Storage{}3{}5{}340
-0737Sound{}3{}4{}313-1001Sound{}3{}4{}313-0202Sound{}3{}0{}313-0375Memory{}
3{}2{}311-0518Memory{}3{}2{}311-0517DTAccess{}3{}1{}220-0498DTAccess{}3{}1{}
220-0483Warranty{}3{}0{}900-1902OS{}3{}0{}420-0118Configuration{}1{}0{}365-0
211Desktop{}0{}0{}220-0416
Where the 123-1234 portions represent the keys.
I'm running Perl 5.004_002 under IIS 4 and NT 4.0. This code works fine for
the following data:
Monitor{}3{}6{}yesJC-1746UMAMonitor{}3{}6{}yes360-5420Monitor{}3{}6{}yes360-
6014Monitor{}3{}6{}yes360-5231Monitor{}3{}6{}yes360-6170Monitor{}3{}6{}yes36
0-5033Monitor{}3{}6{}yes360-5031Modem{}3{}0{}313-0520Input{}3{}0{}365-00084N
etwork{}3{}3{}430-1576Network{}3{}3{}360-6015Video{}3{}0{}320-0220Storage{}3
{}5{}340-0733Storage{}3{}5{}340-0737Sound{}3{}4{}313-1001Sound{}3{}4{}313-02
02Sound{}3{}0{}313-0375Memory{}3{}2{}311-0421Memory{}3{}2{}311-0415Memory{}3
{}2{}311-0420DTAccess{}3{}1{}220-0498DTAccess{}3{}1{}220-0483OS{}3{}0{}420-0
118Configuration{}1{}0{}365-0211Warranty{}1{}0{}900-1902Desktop{}0{}0{}220-0
445
Any ideas on what is causing the problem?
Norman
norman.bunn@mci.com
------------------------------
Date: Mon, 29 Jun 1998 15:38:27 +0200
From: "Hans Van Lint" <hvanlint@lodestar.be>
Subject: Password protection
Message-Id: <6n852u$ea9$1@news2.xs4all.nl>
Hi,
When I use the following method to protect my site : .htaccess and
.htpassword files, Is it possible to keep track of who logs in, so I can use
it later in my scripts (eg. for a log file)?
And, once you succesfully logged in in explorer and netscape, you don't have
to log in any more regardless of who uses your computer?? Can you change
this so you have to log in every time??
Bye
Thanks
------------------------------
Date: Mon, 29 Jun 1998 15:28:37 GMT
From: "Corey Parsons" <coreyp@rc.gc.ca>
Subject: Re: Password protection
Message-Id: <EvBKC2.997@rc.gc.ca>
Hans Van Lint wrote in message <6n852u$ea9$1@news2.xs4all.nl>...
>Hi,
>
>When I use the following method to protect my site : .htaccess and
>.htpassword files, Is it possible to keep track of who logs in, so I can
use
>it later in my scripts (eg. for a log file)?
When using .htaccess and .htpasswd the
$ENV{REMOTE_USER} environmental variable is set to the
login name.
Hope this helps!
Corey Parosns
coreyp@plato.ucs.mun.ca
------------------------------
Date: Mon, 29 Jun 1998 20:52:33 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Password protection
Message-Id: <Pine.GSO.3.96.980629135101.28620G-100000@user2.teleport.com>
On Mon, 29 Jun 1998, Hans Van Lint wrote:
> When I use the following method to protect my site : .htaccess and
> .htpassword files, Is it possible to keep track of who logs in, so I can
> use it later in my scripts (eg. for a log file)?
The docs, FAQs, and newsgroups for your server should be able to give you
a better answer than we can give here.
> And, once you succesfully logged in in explorer and netscape, you don't
> have to log in any more regardless of who uses your computer?? Can you
> change this so you have to log in every time??
This sounds like a question about browsers. The docs, FAQs, and newsgroups
about browsers should be helpful here.
Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 30 Jun 1998 18:02:11 +0300
From: tzahi uni <tzahi@tase.co.il>
Subject: perl 4 perl 5 and year 2000
Message-Id: <3598FDF2.8156D555@tase.co.il>
hi all ,
Is it o.k to use perl 4 or perl 5 ?
Is it year 2000 compliance?
------------------------------
Date: Tue, 30 Jun 1998 16:22:04 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: perl 4 perl 5 and year 2000
Message-Id: <3599029C.29A11521@nortel.co.uk>
tzahi uni wrote:
>
> hi all ,
>
> Is it o.k to use perl 4 or perl 5 ?
> Is it year 2000 compliance?
perl5 is, programming it properly, I never used perl4.
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: 30 Jun 1998 16:09:22 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: perl 4 perl 5 and year 2000
Message-Id: <6nb2ji$368$2@client3.news.psi.net>
tzahi uni (tzahi@tase.co.il) wrote on MDCCLXIV September MCMXCIII in
<URL: news:3598FDF2.8156D555@tase.co.il>:
++ hi all ,
++
++ Is it o.k to use perl 4 or perl 5 ?
Probably not for you. People who fail to read the FAQ should not
be allowed to work with perl. Be it perl4 or perl5. In fact, they
shouldn't even be allowed to post on Usenet, or even come near
any computer device.
++ Is it year 2000 compliance?
I could tell you, but then I have to kill you.
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: Tue, 30 Jun 1998 15:40:15 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: perl 4 perl 5 and year 2000
Message-Id: <359906DF.205A97BC@inlink.com>
Question 1: It is ok with me if you use Perl 4 or Perl 5.
Question 2: Just a suggestion,
Go to http://www.perl.com and click the link that says:
"Does Perl Have a Year 2000 Problem?"
HTH,
Brent
------------------------------
Date: 28 Jun 1998 20:22:54 GMT
From: bem@news.cmc.net (brian moore)
Subject: perl and vi....
Message-Id: <slrn6pd9h2.bda.bem@thorin.cmc.net>
There's a brief reference to the perl/nvi stuff in I think the 'new'
Camel... and now that not only nvi, but also vim and vile support
:perl commands to pass your text through perl without leaving your
editor, I'm curious as to what people are doing with it.
I've asked before in comp.editors, and no one seems to be doing
anything with it, which is a shame. Perhaps, then, I'm asking in
the wrong group. :)
With perl as a part of your every-day editor, what do you do with
it?
(FWIW, I'm using it to colorize mail/news responses since vile doesn't
yet do context highlighting internally and playing with other things
like whether or not to use a binding to perl for / and ?. I'm toying
with making my html-preview (that spawns lynx and recaptures the output)
make links work, though I don't know if I'd ever really use it.)
[hoping no one has done something attrocious like building news
reader into it, but you never know...]
--
Brian Moore Kill A Spammer For Jesus
Sysadmin, C/Perl Hacker, Usenet Vandal
------------------------------
Date: 30 Jun 1998 09:01:18 GMT
From: kst@king.cts.com (Keith Thompson)
Subject: Re: perl and vi....
Message-Id: <899197278.418341@wagasa.cts.com>
brian moore (bem@news.cmc.net) wrote:
[...]
> With perl as a part of your every-day editor, what do you do with
> it?
I have the following in my ~/.nexrc file (I use nvi 1.79):
map ]p :.perldo s/.*/$&/ee
I can enter any arbitrary Perl expression on a line, type "]p", and the
expression is replaced by its value.
--
Keith Thompson (The_Other_Keith) kst@cts.com <http://www.ghoti.net/~kst> <*>
Qualcomm, San Diego, California, USA <http://www.qualcomm.com>
It takes a Viking to raze a village.
------------------------------
Date: 29 Jun 1998 20:20:16 GMT
From: Shaikh Sarmad <sarmad@ice1.fas.harvard.edu>
Subject: Perl array of anonymous hashes
Message-Id: <6n8su0$som$1@news.fas.harvard.edu>
i'm working on a perl script that basically
reads rows from a Mysql database. i'm using
the Mysql module and use the fetchhash
function to retrieve rows one by one from
the table in the database. i want to write
a function "getAllRecords" that will
theoretically return an array of anonymous
hashes (each hash being a row returned by
fetchhash).
how the bleep does one go about creating
an anonymous hash on the fly and assigning
it to a slot in the array. i tried
storing references to the hashes returned
by fetchhash but that doesn't seem to
work since the hash referred to by the
reference in the array disappears after
the while loop. i've tried everything i
could think of but to no avail.
any ideas,
sarmad :)
------------------------------
Date: Mon, 29 Jun 1998 16:47:56 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Perl array of anonymous hashes
Message-Id: <comdog-ya02408000R2906981647560001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6n8su0$som$1@news.fas.harvard.edu>, Shaikh Sarmad <sarmad@ice1.fas.harvard.edu> posted:
> i'm working on a perl script that basically
> reads rows from a Mysql database. i'm using
> the Mysql module and use the fetchhash
> function to retrieve rows one by one from
> the table in the database. i want to write
> a function "getAllRecords" that will
> theoretically return an array of anonymous
> hashes (each hash being a row returned by
> fetchhash).
>
> how the bleep does one go about creating
> an anonymous hash on the fly and assigning
> it to a slot in the array.
well, the DBI interface does the reference stuff for you:
$hash_ref = $sth->fetchrow_hashref;
(see the DBI docs for more info). once you have that, you
simply need to store the result in an array:
push @all_records, $hash_ref;
if you aren't using DBI (but why wouldn't you?),
%hash = $sth->fetchhash; #or whatever the mysql method is called
then store in your array:
push @all_records, \%hash;
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers T-shirts! <URL:http://www.pm.org/tshirts.html>
------------------------------
Date: 29 Jun 1998 09:11:01 -0500
From: Aaron Baugher <abaugher@rnet.com>
Subject: Re: Perl CGI forms
Message-Id: <m2ra08mh6y.fsf@haruchai.rnet.com>
"Patrick Lanphier" <p-lanphier@psu.edu> writes:
> #!D:\Perl\perl5\bin\perl
> use CGI qw(:all);
> print "Content-type: text/html\n\n";
> print "<html>\n" ;
If you're going to 'use CGI', why not use it? It provides nice
methods for creating all the html tags and headers, which would
greatly clean up your code.
--
Aaron Baugher - abaugher@rnet.com
Extreme Systems Consulting - http://haruchai.rnet.com/esc/
CGI, Perl, Java, and Linux/Unix Administration
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3015
**************************************
