[11339] in Perl-Users-Digest
Perl-Users Digest, Issue: 4939 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 19 11:07:25 1999
Date: Fri, 19 Feb 99 08:00:21 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 19 Feb 1999 Volume: 8 Number: 4939
Today's topics:
Re: Anybody get .pl scripts to run on Win32 Perl and Ap <camerond@mail.uca.edu>
Re: Apache for winblows95 jeremygurney@hotmail.com
Re: Database performance <snay@no-junkformeprimenet.com>
Re: FAQ 8.10: How do I read and write the serial port? <matthew.sergeant@eml.ericsson.se>
FMTEYEWTK: Indirect Filehandles <tchrist@mox.perl.com>
Re: Help: Block file transforming... (Steve Linberg)
Re: Mass Email Probs (Clinton Pierce)
Need CP/M-Perl FAQ maintainer <tchrist@mox.perl.com>
Re: Need CP/M-Perl FAQ maintainer <matthew.sergeant@eml.ericsson.se>
Re: Need help with s/// pattern problem PlainTextVersio (Steve Linberg)
Re: NEWBIE: Uninitialized value problem (Steve Linberg)
odd problem writting to text file cdtoad@hotmail.com
Re: Perl interpreter for Win95? lee.gammell@ctaylor.co.uk
Re: Perl socket question <snay@no-junkformeprimenet.com>
Re: Perl, PHP, Python, ColdFusion, MS Frontpage, which <snay@no-junkformeprimenet.com>
Re: speed <snay@no-junkformeprimenet.com>
Using system with going through the shell <wmwilson1@go.com>
Re: Windoze Dial up networking with PERL <blazer@mail.nevalink.ru>
WWW:Search ("D.K. FLETCHER")
WWW:Search ("D.K. FLETCHER")
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 19 Feb 1999 09:15:24 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: Anybody get .pl scripts to run on Win32 Perl and Apache 1.3.3. &#$%*Damn MS Windoze file associations.
Message-Id: <36CD800C.9D63B9E4@mail.uca.edu>
[not cc'd, the last time the address failed]
Rod MacBain wrote:
>
> [snip]
> The stuff i'm running now is fairly complex. Things like processing
> multipart forms through apache, doing dblookups of large (1000 record)
> flat files, and producing dynamic HTML output from templates, and they
> seen to be working ok. Nothing would run with %1%*, but it will with
> "%1". I'm starting to wonder what I've done - what is this %* thingy?
> I assume the %1 means run Perl with the filename whatever.pl as the
> arguement. Am I doing something very wrong here? Will I live to
> regret this?
Did you put in %1%* or %1 %* ? The first implies that there is just one
argument, the second more than one. The further arguments deal with
using Perl from the command line, where you can write
prgm.pl file1 file2 file3
If you are just going to do stuff where all of your filenames are opened
through the program, then the %1 ought to work. If you always use a
particular file with a particular script, this is a good way to include
it in the @ARGV array (see the Gecko, p. 80, Camel, p.154). It never
hurts to have the capability, even if you don't think you're going to
need it now.
Cameron
------------------------------
Date: Fri, 19 Feb 1999 15:23:49 GMT
From: jeremygurney@hotmail.com
Subject: Re: Apache for winblows95
Message-Id: <7ajvlo$nl4$1@nnrp1.dejanews.com>
In article <36ce1aea.23859977@news-s01.ny.us.ibm.net>,
tryout666@geocities.com (tryout) wrote:
> Hya ppl,
>
> I am trying to use Apache WebServer for Win95, but i dont manage to
> run perl's progms from that.. i read the help and it says to run
> suEXEC to run perl scripts.. i edited some lines from httpd.conf to
> get sucess on that.. but i didnt.
>
> tks
> tryout
>
Oddly enough I've just had the same problem.
For me the solution was just making sure that I had the correct path for the
#!c:\perl\bin\perl.exe
line at the top of my perl code.
Apache unlike Xitami seems to need it.
Jeremy Gurney
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Feb 1999 07:17:50 -0800
From: Shane Nay <snay@no-junkformeprimenet.com>
Subject: Re: Database performance
Message-Id: <36CD809E.7494E018@no-junkformeprimenet.com>
My understanding is that mysql is the fastest. It does not have all the
features (row-level locking) of the others. Personally Mysql rips through the
records on lookup. Though, personally, I've noted that it's a little slow on
the updates... though I think it was a memory thing, I pushed the damn server
too hard, and it starting sucking up the disk cache. At any rate check out
www.mysql.com, they have some stats their on relative speed of various DBs.
Good Luck,
Shane
"Owl Screech, Inc." wrote:
> Hi,
>
> For a database containing approximately 700,000 records,
> of the following which would be give the best performance
> using x86 Linux and a Perl interface?
>
> Informix
> Sybase
> mySql
> mSql
>
> We're currenly using mSql and it starts getting a bit slow when dealing
> with over 20,000 records.
>
> Thank you,
>
> John
------------------------------
Date: Fri, 19 Feb 1999 15:17:44 +0000
From: Matt Sergeant <matthew.sergeant@eml.ericsson.se>
Subject: Re: FAQ 8.10: How do I read and write the serial port?
Message-Id: <36CD8098.BAECC2D5@eml.ericsson.se>
Tom Christiansen wrote:
>
> How do I read and write the serial port?
>
> This depends on which operating system your program is running on. In
> the case of Unix, the serial ports will be accessible through files in
> /dev; on other systems, the devices names will doubtless differ.
Add: On Win32 systems, investigate the Win32::SerialPort module.
--
<Matt email="msergeant@ndirect.co.uk" />
| Fastnet Software Ltd | Perl in Active Server Pages |
| Perl Consultancy, Web Development | Database Design | XML |
| http://come.to/fastnet | Information Consolidation |
------------------------------
Date: 19 Feb 1999 08:55:45 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: FMTEYEWTK: Indirect Filehandles
Message-Id: <36cd8981@csnews>
You want to use a filehandle like a normal variable so you can
pass it to or return it from a function, store it in a data
structure, and so on. The solution is to use indirect filehandles
by storing strings, typeglobs, typeglob references, or IO objects
into scalar variables:
$fh = SOME_FH; # bareword is strict-subs hostile
$fh = "SOME_FH"; # strict-refs hostile; same package only
$fh = *SOME_FH; # typeglob
$fh = \*SOME_FH; # ref to typeglob (bless-able)
$fh = *SOME_FH{IO}; # blessed IO::Handle from *SOME_FH typeglob
Or to use the `new' method from the FileHandle or IO modules to
create an anonymous filehandle, store that in a scalar variable,
and use it as though it were a normal filehandle.
use FileHandle;
$fh = FileHandle->new();
use IO::Handle; # 5.004 or higher
$fh = IO::Handle->new();
Then use any of these as you would a normal filehandle.
Here's how this works:
Anywhere that Perl is expecting a filehandle, an indirect
filehandle may be used instead. An indirect filehandle is just a
scalar variable that contains a filehandle. Functions like
`print', `open', `seek', or the functions or the `<FH>' diamond
operator will accept either a read filehandle or a scalar variable
containing one:
($ifh, $ofh, $efh) = (*STDIN, *STDOUT, *STDERR);
print $ofh "Type it: ";
$got = <$ifh>
print $efh "What was that: $got";
In the spirit of there being more than one way to do it, here are
seven ways to produce an indirect filehandle. Don't be
intimidated: numbers 3, 6 and 7 are the most common (and 6 and 7
are really the same thing):
1. Barewords
The first, SOME_FH is rather dubious, because it's not merely a
string, but a bareword string. It won't be allowed if `use strict
'subs'' is in effect. Other than that, everything in the next entry
also applies.
2. Strings
`"SOME_FH"' is still a string, but at least it's quoted. The big
problem with this is that it doesn't have package information, so
if you used it to call a function compiled in a different package,
that function could get confused unless it were one of the ubiquitous
handles, like ARGV, STDIN, STDOUT, and STDERR. You could add the
package manually, saying perhaps `"main::SOME_FH"'. It won't be
allowed if `use strict 'refs'' is in effect. The function in question
can fix it up using the `Symbol::qualify' function, which adds in
the package. Its cousin, `Symbol::qualify_to_ref', does this and
produces a reference, silencing the complaints from `strict refs'.
use Symbol;
sub function_taking_filehandle_argument {
my $fh = shift;
# produce typeglob
$fh = qualify($fh, scalar caller);
# or else this one:
# produce typeglob ref
$fh = qualify_to_ref($fh, scalar caller);
...
}
The `Symbol::qualify' function produces something useful for
passing to the `readline' function as described below.
3. Typeglobs
The `*SOME_FH' notation is a typeglob, an entry in a package
symbol table. Typeglobs are often nominated as Perl's deepest
and blackest magic. If you see a star in front of an
identifier, there are typeglobs involved, and you know you
have entered a wizardly realm where even gurus fear to tread.
Unlike the string versions of filehandles shown previously,
you can do nearly anything with a typeglob you'd like--if not
a good bit more. They're extremely convenient and useful, once
you get the hang of them. You don't have to fight with
packages or any stricture. And although it's not `bless'able
because it's not a reference, it can be effectively returned
from functions. A reference to a typeglob can't.
Here's how typeglobs are typically used for I/O:
#!/usr/bin/perl
# demoglob - show how to return local filehandles
sub ropen {
my $path = shift;
local *FH;
open(FH, $path) || die $!;
return *FH;
}
$f = ropen("/etc/motd");
$g = ropen("/etc/termcap");
print scalar(<$f>), scalar(<$g>);
>>> Welcome to www.perl.com, the Perl Homepage >>> ########
TERMINAL TYPE DESCRIPTIONS SOURCE FILE
If a typeglob is passed in, it can be assigned to a local
filehandle using a typeglob. After that, normal operations
like `<>' or any I/O function can be applied to it.
sub read_N_lines using
local *FH = shift;
my $count = shift;
my @lines = ();
while (--$count > 0) {
push @lines, scalar <FH>;
last if eof(FH);
}
return @lines;
}
open(TCAP, "/etc/termcap") || die $!;
@some = read_N_lines(*TCAP, 3);
print @some;
>>> ######## TERMINAL TYPE DESCRIPTIONS SOURCE FILE >>> # >>>
# Version 9.12.0
It turns out that it also works if the caller forgets to star
the filehandle or passes it as a string, effectively using
techniques 1 and 2 from this list. It works only so long as
they're in the same package as the function in question and
`strict refs' isn't enabled, though.
@some = read_N_lines('TCAP', 5);
That's because assigning a string to a typeglob promotes the
string to a typeglob of that name, like this:
*newname = *oldname;
*newname = 'oldname';
# magically same; promote string to typeglob!
A careful function would have done either this to qualify its
filehandle argument:
use Symbol;
local *FH = qualify(shift, caller);
Or prototyped the function to take a typeglob, which
implicitly does the same thing:
sub read_N_lines(*$) {
# same definition
}
Once such a prototype is visible, a call like this:
@some = read_N_lines(TCAP, 5);
is really treated as though it were
@some = &read_N_lines(*TCAP, 5);
4. Typeglob references
The ` \*SOME_FH' notation produces a reference to a typeglob.
It can be used to create an object by blessing the reference;
this is what the FileHandle and IO modules use. Don't try
passing one of these back from a function, though, because it
doesn't work. Instead, if you would like an anonymous one of
these, use the Symbol module.
use Symbol;
sub ropen {
my $path = shift;
my $fh = gensym();
open($fh, $path) || die $!;
return $fh;
}
5. IO handles
The curious `*SOME_FH{IO}' construct is explained in greater
detail in perlref(1). It accesses the internal IO object
associated with the handle called SOME_FH. This is a real
object; it's already blessed even though it's built-in to
Perl.
printf "I have %s\n", *STDIN{IO};
>>> I have IO::Handle=IO(0x80784b8)
The only issue here is that it can't be used to generate a new
filehandle the way `Symbol::gensym' can. But if you've already
accessed the symbol as a filehandle, that's ok. This works
fine:
sub ropen {
my $path = shift;
local *FH;
open(FH, $path) || die $!;
return *FH{IO};
}
6. FileHandle
The standard FileHandle module can be used to create a new filehandle
to use indirectly. It's just a bit expensive to load; as of the
5.004 release, merely saying `use FileHandle' loads fifteen text
files plus several shared libraries, plodding through nearly four
thousand lines of source code.
use FileHandle;
sub ropen {
my $path = shift;
my $fh = FileHandle->new();
open($fh, $path) || die $!;
return $fh;
}
7. IO::Handle
This is works the same as the FileHandle module, except that
its name is different. The FileHandle module is really just a
front-end to this one. It's still just as crazily expensive.
There's a catch with these indirect filehandles. Only a simple scalar
variable, not part of an array or hash or larger expression, can be
used for things like `print', `printf', or the diamond operator. This
is illegal and won't even compile:
@fd = (*STDIN, *STDOUT, *STDERR);
print $fd[1] "Type it: "; # WRONG
$got = <$fd[0]> # WRONG
print $fd[2] "What was that: $got"; # WRONG
With `print', you can get around this problem by using a block and
an expression:
print { $fd[1] } "funny stuff\n";
printf { $fd[1] } "Pity the poor %x.\n", 3_735_928_559;
>>> Pity the poor deadbeef.
or even this, which sends the message out to one of two places:
$ok = -x "/bin/cat";
print { $ok ? $fd[1] : $fd[2] } "cat stat $ok\n";
print { $fd[ 1+ ($ok || 0) ] } "cat stat $ok\n";
This kind of thing doesn't work for the diamond operator. In some
cases, though, you may be in luck. The angle bracket notation is
mostly just an interface to the built-in function named
`readline'. You may call it directly--providing that you pass it a
typeglob. Not a string. Not a reference to a typeglob. Just a
typeglob. Given the initialization of @fd above, this would work:
$got = readline($fd[0]);
But if those had been typeglob references or strings instead of
globs, `readline' wouldn't have worked.
All this monkeying around will probably get to you eventually. If
so, it may well be time to load the FileHandle module (or its
newer alias, IO::Handle), which simplifies much of this. It has a
`new' method to provide an anonymous filehandle, as we saw above.
And it has `print' and `getline' methods (Yes, that's `getline' as
a method, but `readline' when a function. I don't know what I was
thinking when I wrote it.):
use FileHandle;
@fd = ( *STDIN{IO}, *STDOUT{IO}, *STDERR{IO} );
$fd[1]->print("Type it: ");
print { $fd[1] } ("Type it: "); # same, but *much* faster
$got = $fd[0]->getline();
$fd[2]->print("What was that: $got");
See also the `open' entry in perlfunc(1) (or Camel:3), FileHandle(3)
(or Camel:7), the perlref(1) manpage's treatment of the so-called
`*foo{THING}' syntax, and the IO modules.
--tom
--
Some are born to perl, some achieve perl, and some have perl
thrust upon them.
------------------------------
Date: Fri, 19 Feb 1999 10:22:52 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Help: Block file transforming...
Message-Id: <linberg-1902991022520001@ltl1.literacy.upenn.edu>
In article <7ajpdt$hmu$1@nnrp1.dejanews.com>, evlap@usa.net wrote:
> while ($nr = sysread INFILE, $buffer, 4096 > 0) {
Looks like a precedence problem, at least for starters. (4096 > 0) = 1.
Use parentheses to enclose your conditions if you're unclear on precedence
rules (as I often am).
while (($nr = sysread INFILE, $buffer, 4096) > 0) {
or just
while ($nr = sysread INFILE, $buffer, 4096) {
hth.
--
Steve Linberg, Systems Programmer &c.
National Center on Adult Literacy, University of Pennsylvania
email: <linberg@literacy.upenn.edu>
WWW: <http://www.literacyonline.org>
------------------------------
Date: Fri, 19 Feb 1999 15:37:33 GMT
From: cpierce1@ford.com (Clinton Pierce)
Subject: Re: Mass Email Probs
Message-Id: <36ce8451.343812559@news.ford.com>
On Fri, 19 Feb 1999 09:53:35 -0500, "Christopher Pieper"
<curweb@cur.org> wrote:
> [potential spamming scheme]
> Is this at all possible
Probably.
> or am I just asking for too much here?
No, you're asking the wrong crowd. Nobody likes a spammer, and so far
you've walked like one, talked like one...
Try asking abortion questions in soc.women, you'll get a friendlier
response.
------------------------------
Date: 19 Feb 1999 07:56:16 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Need CP/M-Perl FAQ maintainer
Message-Id: <36cd7b90@csnews>
As far as I can tell, the Perl-on-Win32 FAQ maintainer has fallen off
the face of the Earth. Someone needs to either find this man, or else
pluck up the courage to take up his horrible burden. Volunteers?
--tom
--
"We stand on the shoulders of giants and kick
their ears whenever we feel like it." --Larry Wall
------------------------------
Date: Fri, 19 Feb 1999 15:24:30 +0000
From: Matt Sergeant <matthew.sergeant@eml.ericsson.se>
Subject: Re: Need CP/M-Perl FAQ maintainer
Message-Id: <36CD822E.334F94FD@eml.ericsson.se>
Tom Christiansen wrote:
>
> As far as I can tell, the Perl-on-Win32 FAQ maintainer has fallen off
> the face of the Earth. Someone needs to either find this man, or else
> pluck up the courage to take up his horrible burden. Volunteers?
Someone on the Perl-Win32-Users mailing list volunteered a few weeks ago
- I'll post a follow up there to see what happened (we have _loads_ of
FAQ's to add).
--
<Matt email="msergeant@ndirect.co.uk" />
| Fastnet Software Ltd | Perl in Active Server Pages |
| Perl Consultancy, Web Development | Database Design | XML |
| http://come.to/fastnet | Information Consolidation |
------------------------------
Date: Fri, 19 Feb 1999 10:24:47 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Need help with s/// pattern problem PlainTextVersion
Message-Id: <linberg-1902991024470001@ltl1.literacy.upenn.edu>
Why did you post this twice? Did you try what I suggested as a response
to your first post? If you did, and it didn't work, it's better to at
least continue the discussion in that thread.
--
Steve Linberg, Systems Programmer &c.
National Center on Adult Literacy, University of Pennsylvania
email: <linberg@literacy.upenn.edu>
WWW: <http://www.literacyonline.org>
------------------------------
Date: Fri, 19 Feb 1999 10:15:02 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: NEWBIE: Uninitialized value problem
Message-Id: <linberg-1902991015020001@ltl1.literacy.upenn.edu>
In article <36CD53A6.B8B12683@ff.cuni.cz>, Petr Zemanek
<petr.zemanek@ff.cuni.cz> wrote:
> #!perl -w
Is this really the path of your perl for your OS? It seems to work for
you, but on most flavors of *nix it's often /usr/bin/perl or
/usr/local/bin/perl.
> #open a file, read its lines to an array and sort by columns ...
>
> $filename = $ARGV[0];
> open (F, $filename) or die ("can't open $filename: $!\n");
> @lines = <F>;
>
> @sorted = sort { field1($a) <=> field2($b) ||
Array indices are done with brackets ([]), not parenthesis, like in your
ARGV reference above. This isn't BASIC. :)
--
Steve Linberg, Systems Programmer &c.
National Center on Adult Literacy, University of Pennsylvania
email: <linberg@literacy.upenn.edu>
WWW: <http://www.literacyonline.org>
------------------------------
Date: Fri, 19 Feb 1999 14:47:53 GMT
From: cdtoad@hotmail.com
Subject: odd problem writting to text file
Message-Id: <7ajtil$lhj$1@nnrp1.dejanews.com>
Hello,
I have a form on the internet which collects information and writes it to a
text file. I am using a format to properly space the data. However, when I
look at the text file I see the actual variable names. When I test it out on
our ISP's server it works fine... Writes all the data just like it was maded
to do. However, when people from outside the company fill out the form the
data which is saved is the actual varibale name... So where I would have
wanted to save DAVE as a first name I see $FIRST_NAME.
cdtoad@cdtoad.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Feb 1999 15:17:20 GMT
From: lee.gammell@ctaylor.co.uk
Subject: Re: Perl interpreter for Win95?
Message-Id: <7ajv9n$n7o$1@nnrp1.dejanews.com>
In article <8Z2z2.14785$lp5.2436@news.rdc1.tn.home.com>,
"Robb" <REMOVErobbh@home.com> wrote:
> I'm wanting to test some cgi scripts on a Win95 machine with MS Personal
> Webserver installed. I know I need a Perl interpreter for this. I
> looked at SoftSeek and downloaded Perlv5.0. But the files in the zip
> say nothing about it being an interpreter, just that it was Perlv5.0.
> Plus, the instructions for install in the readme.txt file were not
> clear, mentioning several subdirectory variations that would have to be
> manually created depending on different factors.
>
> Is there a Perl interpreter for Win95 that would serve my purposes, and
> also has an install utility that would make installation easier?
>
> Thanks for any info.
>
> Robb
> http://members.home.net/robbh
> Please post any responses to this newsgroup. To email me, delete
> "REMOVE" from the email address embedded in this posting...thank you.
>
>
In addition to ActiveState, check-out an evaluation copy of Perl Builder, it
will show you step by step how to write web interfaces.
For more information, please visit http://www.solutionsoft.com/perl.htm.
Lee Gammell.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Feb 1999 07:25:28 -0800
From: Shane Nay <snay@no-junkformeprimenet.com>
Subject: Re: Perl socket question
Message-Id: <36CD8268.6733DBE7@no-junkformeprimenet.com>
while (1)
{
read($sock,$temp,1)
$final.=$temp;
break if ($final=~/msgdone/);
}
$final=~s/msgdone//;
Thats what I use to send encrypted data. Since there is not telling where the
newlines will be. Obviously change msgdone to whatever you wish the end signal
to be.
c-ya,
Shane
biglife99@my-dejanews.com wrote:
> Hello everybody,
>
> I am writing a perl server which accepts tcp/ip client connections and
> returns information based on the request. Everything works fine except one
> problem, the client has to send a newline character for my server to read the
> data on the socket. My question, is there any way for my server to read data
> data from the socket without the client sending a newline character?
>
> thanks in advance for any help...
>
> Sumesh Gupta
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Feb 1999 07:10:14 -0800
From: Shane Nay <snay@no-junkformeprimenet.com>
Subject: Re: Perl, PHP, Python, ColdFusion, MS Frontpage, which one for beginner
Message-Id: <36CD7ED6.DA199059@no-junkformeprimenet.com>
Essentially perl is the most versatile... the other options you mentioned are not
versatile in the least, not only that but with cold fusion you are locking
yourself into some non-standard code. If CF dies, so does your programming.
Perl is a long term language, it has been around, and will continue to be
around. As far as having to dig into C??? I don't think so. I do know C very
well, but have found add-ons to perl to be the most easy set of things I had to
compile. So simplistic. I have found that C is very useful if your going to be
hacking into the source code of Apache, etc., but for most people I think they
would be fine being fairly ignorant of C. Perl is one of the most incredible
languages, and with all the modules you can do just about anything without
delving into the C code yourself.
As far as how well you need to know perl, or what the learning curve is like...
well to be honest it's a "scripting" language, so it has a much softer curve than
real "programming" languages. I think this was the easiest language I've had to
learn (Pascal, C, C++, Basic, and Java). As far as how long it would take...
it's hard to say, if you have a programming background, in a month you will be
off writing pretty hardcore scripts. Without the experience... who knows, some
people just can't program, they don't have the mind for it. It's not to say they
are less intelligent, it's just their mind can't design the large in their mind,
and break in down into the simplistic computerized steps. Keep in mind if you
are managing a database, you will have to learn SQL, and hit yourself in the head
about 200 times when you accidently forget to throw in a good old "where
blah=112321", and overwrite all your table data in a "update set" query. Anyone
got any thoughts on intentions to write it via ODBC vs. DBI. I use a perl DBI
along with MySQL for all my web projects... criticism?
Don't forget the ";", or you'll be bitching,
Shane
------------------------------
Date: Fri, 19 Feb 1999 07:21:32 -0800
From: Shane Nay <snay@no-junkformeprimenet.com>
To: ghost <haiti@stc.com>
Subject: Re: speed
Message-Id: <36CD817C.E977F159@no-junkformeprimenet.com>
In a word, yes. It's brilliant for exactly this purpose. Lookups take less
that .01 secs on my AMD K6-300 (64MB ram). If I use an "order by" it takes
about .04 secs. Updates are a bit sluggish, but I need to update to a
RAID/SCSI configuration. Consider mysql instead though.
ghost wrote:
> Hi all,
>
> Would Perl be a feesible language to use if I wanted to interface with a
> MSQL database built to handle large amounts of traffic ie. database quering
> and such, on the web?
>
> Thanks again
------------------------------
Date: Fri, 19 Feb 1999 15:29:21 GMT
From: wil <wmwilson1@go.com>
Subject: Using system with going through the shell
Message-Id: <7ak003$nqn$1@nnrp1.dejanews.com>
I've seen some examples on using things like
system("cp", $arg, $arg2);
for security reasons, but I can't figure out how to use this
with rcp..where you have a hostname to use, currently I'm using
system("rcp $arg $host:$arg2");
but I'd like to change that to use the non-tainted format...How? I'm
having a lot of trouble with how to treat the host in that list. I've
been trying
system("rcp", $arg, $host, $arg2);
or system("rcp", $arg, $host:$arg2);
but those don't work.
Thanks.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Feb 1999 18:14:37 +0300
From: Mike <blazer@mail.nevalink.ru>
To: backwardsentropy@my-dejanews.com
Subject: Re: Windoze Dial up networking with PERL
Message-Id: <36CD7FDC.C3DA550@mail.nevalink.ru>
Take a look at Win32::DUN at my site. Also in few days Win32::RASE will
be there - it uses RAS API and works better (Win32::DUN is rather old
and uses external console program). If you want to test it I'll send you
- it's already documented but not approved on NT (I'm on Win95).
--
==================================
Mike Blazer
blazer@mail.nevalink.ru
http://www.dux.ru/guest/fno/perl/
==================================
------------------------------
Date: Fri, 19 Feb 1999 14:55:39 +0000 (GMT)
From: CSC6DKF@leeds.ac.uk ("D.K. FLETCHER")
Subject: WWW:Search
Message-Id: <36CD7B68.72D6@leeds.ac.uk>
I,m trying to get WWW:Search up and runing but come accross the
Following error.
Error: 500 (Internal Server Error) Can't locate
auto/URI/URL/http/path_query.al in @INC (@INC contains:
/usr/lib/perl5/i386-linux/5.00404 /usr/lib/perl5
/usr/lib/perl5/site_perl/i386-linux /usr/lib/perl5/site_perl .
/usr/tmp/search/lib/perl5/site_perl)
Thu, 18 Feb 1999 15:54:16 GMT
It can,t seem to find the file path_query.al, am not sure if this is
part of
WWW:Search or in LWP can anyone Help
------------------------------
Date: Fri, 19 Feb 1999 15:22:15 +0000 (GMT)
From: CSC6DKF@leeds.ac.uk ("D.K. FLETCHER")
Subject: WWW:Search
Message-Id: <36CD81A4.2256@leeds.ac.uk>
I,m trying to get WWW:search up and running but am having
A few problems, When running Websearch I get the following
error message :-
Error: 500 (Internal Server Error) Can't locate
auto/URI/URL/http/path_query.al in @INC (@INC contains:
/usr/lib/perl5/i386-linux/5.00404 /usr/lib/perl5
/usr/lib/perl5/site_perl/i386-linux /usr/lib/perl5/site_perl .
/usr/tmp/search/lib/perl5/site_perl)
Client-Date: Thu, 18 Feb 1999 15:54:16 GMT
I,m not sure if the file path_query.al is Part of
WWW:search or part of LWP. can anyone clarify
------------------------------
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 4939
**************************************
