[12332] in Perl-Users-Digest
Perl-Users Digest, Issue: 5932 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 9 14:07:22 1999
Date: Wed, 9 Jun 99 11:00:24 -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 Wed, 9 Jun 1999 Volume: 8 Number: 5932
Today's topics:
Re: Accessing a SuperBase database with Perl <gellyfish@gellyfish.com>
Re: ActivePerl Win98 CGI Problem <rhrh@hotmail.com>
Re: Bulletin Board in Perl <gellyfish@gellyfish.com>
Functions <perini@buffalo.edu>
Re: Functions <craig@mathworks.com>
Re: Getting HTTP Error 405 <rootbeer@redcat.com>
Re: help using large memory from perl <sugalskd@netserve.ous.edu>
Re: help!! perl script doesn't work <jhwang2@nortelnetworks.com>
Re: help!! perl script doesn't work <emschwar@rmi.net>
Re: How do I change my frameset thru perl mikecard@my-deja.com
macperl - directory names with embedded spaces tom.hambleton@lmco.com
Re: Make COPY/PASTE in Excel With Perl (Scott McMahan)
MySQL Placeholders II <clint@drtech.co.uk>
Mysql Placeholders <clint@drtech.co.uk>
Re: Mysql Placeholders (Eric Bohlman)
Re: Mysql Placeholders <clint@drtech.co.uk>
Need a book ... <matthewg@eatel.net>
problem reporting and tracking package? <dme7@cornell.edu>
Re: Problems sorting. I'm stupid and I'll die (Michel Dalle)
Real Problem: CGI file upload and IE <dembag@thuntek.net>
Re: Regexpr for loop to handle e-address list <rootbeer@redcat.com>
Re: Regexpr for loop to handle e-address list dalehend@flash.net
Re: Rounding excessive trailing decimals <spillemw@se.bel.alcatel.be>
Re: size of a subdirectory without readdir? <rootbeer@redcat.com>
Stopping/Starting a Service in NT <allkris@ccs.neu.edu>
Re: Stopping/Starting a Service in NT <anfi@bigfoot.com>
Re: Stopping/Starting a Service in NT <xrxoxtxhxdx@xrxoxtxhx.xnxextx>
Re: Substitution with functions <ludlow@us.ibm.com>
Re: Using CGI.pm <rootbeer@redcat.com>
Re: Using string variable as name of subroutine to call (Lee)
VERSION numbers (I.J. Garlick)
Re: VERSION numbers <uri@sysarch.com>
Re: VERSION numbers (Jerome O'Neil)
Re: Why does $blabla = <STDIN> not work in VMS Perl 5? <sugalskd@netserve.ous.edu>
writing to a gzip file <sidelko@stripe.Colorado.EDU>
Re: XS: newSVpv() and malloc <sugalskd@netserve.ous.edu>
Re: XS: newSVpv() and malloc (Elf Sternberg)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 9 Jun 1999 16:45:16 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Accessing a SuperBase database with Perl
Message-Id: <375e8c0c@newsread3.dircon.co.uk>
Pat Donahue <pdonahu1@visteon.com> wrote:
> I would like to set up an interface to a SuperBase server to retrieve
> document info via a Web Browser. This would be a 'read-only' access to
> the database.
> Are there any DBI modules that would work? My searches turned up null,
> even for dbase.
I'm not sure what platform you are on but if you are on Win32
there is an ODBC driver for superbase :
<http://www.superbase.com/sbdocu/sbodbc/sbodbc.htm>
Then you would be able to use DBD::ODBC.
If you are looking for a particular module you should probably always
refer to CPAN at <http://www.perl.com/CPAN>
/J\
--
"As usual I'm the price you have to pay for the funny bits" - Denis Norden
------------------------------
Date: Wed, 09 Jun 1999 16:22:04 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: ActivePerl Win98 CGI Problem
Message-Id: <375E869C.4A23FFFA@hotmail.com>
the1bob@my-deja.com wrote:
>
> Folks,
>
> I realize this may be a configuration question, which is why I already
> persued some other newsgroups and listservs before coming here. Any
> help would be truly appreciated...
>
> I have ActivePerl build 516 installed on a Win98 PC running the default
> PWS web server software. I need to get Perl CGI scripts working. All
> of my scripts run perfectly from the command line.
>
> Here is the simple CGI script that I am testing:
>
> print "Content-Type: html\/text\n\n";
er.. why???? ^^^^^^^^^^
try: text/html\n\n
might help.
Richard H
------------------------------
Date: 9 Jun 1999 16:47:58 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Bulletin Board in Perl
Message-Id: <375e8cae@newsread3.dircon.co.uk>
Christian Hummert <Hummert@infantry.usmc.net> wrote:
> Hi,
>
> I try to develop a Standart Bulletin Board for my Homepage... (All this
> free once are so full of advertisment :-( )
> I did a Perl CGI Script, but it doesn't work... I don't know why - I
> read the source for several 100 times and I can't find any mistake...
>
Wouldnt it be better if you posted the bit of code that you are having
difficulty with and a description of the problems you are having ?
/J\
--
"You've got to remember it was the 1980s. There were a lot of people
alive back then who died in the Second World War" - This Morning with
Richard Not Judy
------------------------------
Date: Wed, 9 Jun 1999 12:44:50 -0400
From: "Bob Perini" <perini@buffalo.edu>
Subject: Functions
Message-Id: <7jm5va$q08$1@prometheus.acsu.buffalo.edu>
I'm trying to include a file(which has a function) into my program, and
can't seem to get it to work.
File1
seems to include the function properly but here is my "include" lines:
Line8: @INC="c:/InetPub/scripts/jeopardyalpha/addtoDB/";
Line9: require "c:/InetPub/scripts/jeopardyalpha/addtoDB/addtodb.pl";
File 2
sub addtodb
{
do stuff
return 0;
}
Now the error that I get is:
c:/InetPub/scripts/jeopardyalpha/addtoDB/addtodb.pl did not return a true
value at C:\InetPub\scripts\jeopardyalpha\addtodb\addtodbInter.pl line 9.
Line 9 is the one that i labeled above..
Thanks in advance for any help
------------------------------
Date: Wed, 09 Jun 1999 13:36:20 -0400
From: Craig Ciquera <craig@mathworks.com>
Subject: Re: Functions
Message-Id: <375EA614.D3F1B886@mathworks.com>
File 2 need to look like this:
sub addtodb
{
do stuff
return 0;
}
1;
Here's the doc:
require EXPR
require
Demands some semantics specified by EXPR, or by $_ if EXPR is not
supplied. If EXPR is numeric, demands that the current version of Perl
($] or $PERL_VERSION) be equal or greater than EXPR.
Otherwise, demands that a library file be included if it hasn't already
been included. The file is included via the do-FILE mechanism, which is
essentially just a variety of eval(). Has semantics similar to the
following
subroutine:
sub require {
my($filename) = @_;
return 1 if $INC{$filename};
my($realfilename,$result);
ITER: {
foreach $prefix (@INC) {
$realfilename = "$prefix/$filename";
if (-f $realfilename) {
$result = do $realfilename;
last ITER;
}
}
die "Can't find $filename in \@INC";
}
die $@ if $@;
die "$filename did not return true value" unless $result;
$INC{$filename} = $realfilename;
return $result;
}
Note that the file will not be included twice under the same specified
name. The file must return TRUE as the last statement to indicate
successful execution of any initialization code, so it's customary to
end
such a file with ``1;'' unless you're sure it'll return TRUE otherwise.
But
it's better just to put the ``1;'', in case you add more statements.
If EXPR is a bareword, the require assumes a ``.pm'' extension and
replaces ``::'' with ``/'' in the filename for you, to make it easy to
load
standard modules. This form of loading of modules does not risk altering
your namespace.
In other words, if you try this:
require Foo::Bar; # a splendid bareword
The require function will actually look for the ``Foo/Bar.pm'' file in
the
directories specified in the @INC array.
But if you try this:
$class = 'Foo::Bar';
require $class; # $class is not a bareword
#or
require "Foo::Bar"; # not a bareword because of the ""
The require function will look for the ``Foo::Bar'' file in the @INC
array
and will complain about not finding ``Foo::Bar'' there. In this case you
can do:
eval "require $class";
For a yet-more-powerful import facility, see use and perlmod.
Craig
Bob Perini wrote:
> I'm trying to include a file(which has a function) into my program, and
> can't seem to get it to work.
>
> File1
> seems to include the function properly but here is my "include" lines:
>
> Line8: @INC="c:/InetPub/scripts/jeopardyalpha/addtoDB/";
> Line9: require "c:/InetPub/scripts/jeopardyalpha/addtoDB/addtodb.pl";
>
> File 2
>
> sub addtodb
> {
> do stuff
> return 0;
> }
>
> Now the error that I get is:
>
> c:/InetPub/scripts/jeopardyalpha/addtoDB/addtodb.pl did not return a true
> value at C:\InetPub\scripts\jeopardyalpha\addtodb\addtodbInter.pl line 9.
>
> Line 9 is the one that i labeled above..
>
> Thanks in advance for any help
------------------------------
Date: Wed, 9 Jun 1999 09:12:06 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Getting HTTP Error 405
Message-Id: <Pine.GSO.4.02A.9906090911520.26349-100000@user2.teleport.com>
On Wed, 9 Jun 1999, Tiny Troll wrote:
> Subject: Getting HTTP Error 405
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN.
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 9 Jun 1999 17:58:23 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: help using large memory from perl
Message-Id: <7jm9vv$et9$3@news.NERO.NET>
perrin@primenet.com wrote:
: I'm having trouble getting perl to use available RAM on a large Linux
: machine. The box is a redhat 6.0 machine with 2GB RAM and 1GB swap.
: I'm loading huge amounts of stuff into hash tables. The problem is, my
: program dies with an "out of memory" error at about 560MB. There's
: plenty of RAM left and it still dies.
: At first I suspected some kind of security measure in Linux was stopping
: me, but I was able to go far past 560MB using a little C program without
: any problems. Then I tried switching to perl's malloc, and giving it
: options for -DPACK_MALLOC and -DTWO_POT_OPTIMIZE, all to no avail.
: Here is a code snippet that exhibits the same problem as my program:
: perl -e 'for ($i = 0; $i < 9999999; $i++) { $hash{$i}= $i; }'
: Does anyone have any ideas?
What's probably happening is the underlying hash structure's filled and
perl's trying to realloc things to make 'em bigger and you're blowing
available memory on the realloc.
You can try pre-extending the hash by doing a:
keys(%myhash) = 1e6;
This should snag one big chunk of memory and hopefully avoid the need to
resize things.
Dan
------------------------------
Date: Wed, 09 Jun 1999 12:54:31 -0400
From: Jessica Hwang <jhwang2@nortelnetworks.com>
Subject: Re: help!! perl script doesn't work
Message-Id: <375E9C47.F0F7B7A0@nortelnetworks.com>
////////// conference.cgi////////////////
#!/usr/bin/perl
use Conference;
use Time::JulianDay;
use Time::ParseDate;
use Time::DaysInMonth;
use Time::CTime qw(:DEFAULT @MonthOfYear);
use strict 'vars';
PrintHeader();
my $form = FormParse;
my @Actions = qw(Display Details Jump
);
my $routine = Switch($form->{action}, \@Actions, 'Display');
my ($template, $details) = &{$routine}($form);
PrintTemplate($templates, $template, $details);
#############################
sub Display {
# Display the events for 'today'.
my ($form) = @_;
my ($template, %details, @reservations,
$reservation, $room, $hour, $reserve,
$duration, $Data, $todaytime, $i);
if ($form->{today} eq "") {
$form->{today} = local_julian_day(time);
}
%details = %$form;
$todaytime=jd_secondslocal($form->{today},0,0,0);
$details{reserve_link} =
"$base_url/$admin?action=Reserve&today=$form->{today}";
$details{today_text} =
strftime('%A, %B %o, %Y', localtime($todaytime));
$details{day} = strftime('%d', localtime($todaytime));
$details{year} = strftime('%Y', localtime($todaytime));
$details{yesterday} = $form->{today}-1;
$details{tomorrow} = $form->{today}+1;
$details{script_name}= $user;
open (DATAFILE, $datafile);
@reservations=<DATAFILE>;
close DATAFILE;
chomp @reservations;
$details{table} = "<tr><th bgcolor=\"DD519D\">Time</td>\n";
for $room (@Rooms) {
$details{table} .= "<th bgcolor=\"519DDD\">$room</td>\n";
} # End for
$details{table} .= "</tr>\n";
for ($hour=0; $hour<=$#Times; $hour++) {
$details{table} .= "<tr><td align=middle
bgcolor=\"519DDD\">$Times[$hour]</td>\n";
for ($room=0; $room<=$#Rooms; $room++) {
$reserve=0;
# Print reservations for that room, that hour
for $reservation (@reservations) {
$Data = SplitReservation($reservation);
if ($hour >= $Data->{start} && $hour < $Data->{end}
&& $room==$Data->{room} && $form->{today}==$Data->{day}) {
$reserve=1;
if ($hour == $Data->{start}) {
$duration=($Data->{end}-$Data->{start});
$details{table} .= qq~
<td align=middle rowspan=$duration bgcolor="EEEEEE">
<a
href="$base_url/$user?action=Details&id=$Data->{id}">$Data->{title}</a></td>
~;
last; # If we find a reservation, we can quit looking
} # End if
} # End if
} # End for reservation
$details{table} .= "<td></td>\n" unless $reserve;
} # End for room
$details{table} .= "</tr>\n";
} # End for hour
$details{month} = strftime('%m', localtime($todaytime));
for ($i=1; $i<=12; $i++) {
$details{months} .= "<option value=$i";
if ($i == $details{month}) {
$details{months} .= " SELECTED";
}
$details{months} .= ">$MonthOfYear[$i-1]\n";
} # End for
$template = 'display';
return ($template, \%details);
} # end sub Display
sub Details {
# Display details on a particular conference reservation
my ($form) = @_;
my ($template, %details, $reservation, $line, $Data);
open (DATAFILE, $datafile) or
die "Could not open $datafile: $!\n";
while (<DATAFILE>) {
last if (/^$form->{id}/o );
} # Wend
close DATAFILE;
$Data = SplitReservation($_);
%details = %$Data;
$details{room_name} = $Rooms[$details{room}];
$details{day_text} =
strftime('%A, %B %o, %Y',
localtime(jd_secondslocal($details{day},0,0,0)));
$details{email_link} = ($details{email}) ?
"<a href=\"mailto:$details{email}\">$details{name}</a>" :
$details{name};
$details{schedule_link} =
"$base_url/$user?action=Display&today=$details{day}";
$details{edit_link} = "$base_url/$admin?action=Edit&id=$details{id}";
$details{delete_link} =
"$base_url/$admin?action=Delete&id=$details{id}";
$details{'times'} = "$Times[$details{start}] - $Times[$details{end}]";
$template = 'details';
return ($template, \%details);
} # End sub Details
sub Jump {
# Jump to a particular day
my ($form) = @_;
my ($day_time, $day, $template, $details);
$form->{day} = sprintf "%.2d", $form->{day};
$form->{month} = sprintf "%.2d", $form->{month};
if ($form->{day} > days_in($form->{year}, $form->{month})) {
$form->{day} = days_in($form->{year}, $form->{month});
}
$day_time = parsedate("$form->{month}/$form->{day}/$form->{year}");
$day = local_julian_day($day_time);
$template = 'redirect';
$details->{URL} = "$base_url/$user?action=Display&today=$day";
return ($template, $details);
} # End sub Jump
////////// end of conference.cgi////////////////
////////// Conference.pm////////////////
package Conference;
require Exporter;
@ISA = Exporter;
@EXPORT = qw(@Rooms @Times $datafile $idfile $set_cookies
$user $admin $base_url $templates $old
SplitReservation Cookies GetId FormParse
PrintTemplate PrintHeader Switch
);
use vars qw($VERSION);
# A list of the available conference rooms
@Rooms = ("Engineering conference room",
"Marketing conference room",
"Boardroom",
"Upstairs conference room",
);
# A list of valid times. Put "am" and "pm" in here if you want
# them to be displayed.
@Times=("7:00","7:30","8:00","8:30","9:00",
"9:30","10:00","10:30","11:00","11:30",
"Noon","12:30","1:00","1:30","2:00",
"2:30","3:00","3:30","4:00","4:30",
"5:00","5:30","6:00");
# Locations and names of files
$datafile = 'E:/Inetpub/wwwroot/0v30/cgi-bin/conference/reservations';
$idfile = 'reserve_id';
$user = 'conference.cgi';
$admin = 'admin.cgi';
$base_url = 'E:/Inetpub/wwwroot/0v30/cgi-bin/conference/;
# location of template files
$templates = 'templates';
# How old should reservations be before we delete them?
$old = 3;
# Do you want to set cookies?
$set_cookies = 1;
$VERSION='3.10.003';
######################################
sub SplitReservation {
my ($reservation) = @_;
my %Data = ();
chomp $reservation;
@Data{'id', 'title', 'start', 'end', 'name',
'email', 'room', 'description', 'day'}
= split /~~/, $reservation;
return \%Data;
} # End sub SplitReservation
sub GetId {
my ($file) = @_;
my $lockfile = $file . ".lock";
# Get a lock on the lock file
open (LOCK, ">$lockfile");
flock LOCK, 2;
# Get an id number
open (ID, $file);
my $id=<ID>;
close ID;
$id++;
if ($id >= 1000000) {
$id=1;
}
open (ID, ">$idfile");
print ID $id;
close ID;
# Release the lock
flock LOCK, 8;
close LOCK;
return $id;
} # End sub GetId
sub FormParse {
# Parse HTML form, POST or GET. Returns pointer to hash of name,value
my ($buffer,@pairs,$pair,$name,$value,$form);
if ($ENV{REQUEST_METHOD} eq "POST") {
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{QUERY_STRING};
}
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
if ($form->{$name}) {
$form->{$name} .= "\0$value"
} else {
$form->{$name} = $value;
}
} # End of foreach
return $form;
} # End of sub
sub PrintTemplate {
# Displays an HTML template file in canonical RCBowen format,
# substituting values from %details.
my ($template,$basedir);
local $_;
($basedir,$template, $_) = @_;
my %details = %$_;
open (TEMPLATE, "$basedir/$template.html");
for $line (<TEMPLATE>) {
$line =~ s/%%%(.*?)%%%/$details{$1}/g;
print $line;
} # End for
close TEMPLATE;
} # End sub PrintTemplate
sub PrintHeader {
print "Content-type: text/html\n\n";
}
sub Switch {
# Determine which routine is to be called
my ($action,$actions,$default) = @_;
my @Actions = @$actions;
if (grep /^$action$/, @Actions) {
return $action;
} else {
return $default;
}
} # End sub Switch
sub Cookies {
if (defined $ENV{HTTP_COOKIE}) {
my $Cookie;
my @cookies = split /;\s*/, $ENV{HTTP_COOKIE};
for (@cookies) {
/(.*)=(.*)/;
$Cookie->{$1} = $2;
}
return $Cookie
} else {
return undef;
} # End if..else
} # End sub Cookies
1;
////////////////////end of Conference.pm/////////////////////
other files are admin.cgi,expire_reservation.pl,Makefile.PL,changes,
.htaccess, reserve_id and other html files.
The whole thing is here:
http://www.rcbowen.com/products/conference/
------------------------------
Date: 09 Jun 1999 11:26:12 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: help!! perl script doesn't work
Message-Id: <xkfvhcxl1zf.fsf@valdemar.col.hp.com>
<snip 325 lines>
I don't suppose you could have tried to trim that down to something
comprehensible by us mere mortals? Usually something around 40 lines or
so is generally ideal.
I can tell you this much: if that is your actual code, no wonder it
doesn't work-- there are syntax errors all over the place in there. Use
strict.pm everywhere, not just 'vars'. Also, use -w. Also, read the
output of perl -c on that file, and fix what it tells you is broken.
-=Eric
------------------------------
Date: Wed, 09 Jun 1999 16:10:01 GMT
From: mikecard@my-deja.com
Subject: Re: How do I change my frameset thru perl
Message-Id: <7jm3ke$nll$1@nnrp1.deja.com>
In article <7jlv01$lfu$1@nnrp1.deja.com>,
shilpa_w@my-deja.com wrote:
> My web application has a window that has 3 frames.
> When the user clicks on the submit button in the
> form in one of the frames, a perl program is
> executed that gets the data from the server. I
> want to display this data in a new framset that
> has only 2 frames.
when the user submits the form make sure the result TARGET=_top.
have your cgi create the new 2 frame frameset. for the frame that you
want the user submitted data to be displayed have the framesource go
back to the cgi with a query string (the query string being the info the
user submitted) when the program recieves a query string make it create
an html document based on that information...hope that isn't too
confusing, i'm sure there's an easier way but that's what i came up
with
mike cardeiro
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 09 Jun 1999 15:16:05 GMT
From: tom.hambleton@lmco.com
Subject: macperl - directory names with embedded spaces
Message-Id: <7jm0fa$m5p$1@nnrp1.deja.com>
How do I specify the path to a file where the some of the folder
(directory) names have embedded spaces?
Similiar to,
tah 1:new applications:perl tests:filename
I'm an admitted perl novice..
Thanks,
Tom
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 9 Jun 1999 17:27:27 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: Make COPY/PASTE in Excel With Perl
Message-Id: <375ea3ff.0@news.new-era.net>
Stephane CRAYE (craye@ugsolutions.com) wrote:
> How i can coding the function "Copy/Paste" one Excel line with Perl Ole
The trick is, start the macro recorder. Do whatever you are going to do
("copy/paste" makes no sense: they're two different things!), then stop
the macro recorder. Read the code generated. Translate to Perl.
Excel will tell you the exact code you need to perform any
action, using the macro recorder.
Scott
------------------------------
Date: Wed, 9 Jun 1999 18:59:49 +0100
From: "Clinton Gormley" <clint@drtech.co.uk>
Subject: MySQL Placeholders II
Message-Id: <7jm9um$3m6$1@taliesin.netcom.net.uk>
Sorry, another placeholder issue
I'm trying to do this :
SELECT * FROM Table WHERE Id IN (1,2,3,4)
I'd like to replace the 1,2,3,4 with a place holder, but it looks like I
would have to do this :
SELECT * FROM Table WHERE Id IN (?,?,?,?)
Only problem is, I don't know how many numbers I will have beforehand.
Any ideas?
Thanks
Clint
------------------------------
Date: Wed, 9 Jun 1999 17:55:52 +0100
From: "Clinton Gormley" <clint@drtech.co.uk>
Subject: Mysql Placeholders
Message-Id: <7jm66o$2ic$1@taliesin.netcom.net.uk>
I'm using the latest version of DBI::MySQL with the latest version of MySQL.
I'm trying to do this :
$sth=$dbh->prepare(<<END);
SELECT Blurb FROM Blurb WHERE BlurbID='?'
END
using the ? as a placeholder so that later I can do this:
$sth->execute ($blurb);
However, gives me the error message :
execute called with 1 bind variables when 0 are needed
I have seen the same syntax used in "Apache Modules" by Lincoln Stein & Doug
MacEachern.
If I change the code to
SELECT ? FROM Blurb WHERE BlurbID='?'
or
SELECT Blurb FROM Blurb WHERE BlurbID='?' order by ?
then it no longer give me this error.
Any ideas what is wrong?
Thanks
Clinton Gormley
------------------------------
Date: Wed, 9 Jun 1999 17:30:26 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Mysql Placeholders
Message-Id: <ebohlmanFD2Lyq.JF8@netcom.com>
Clinton Gormley (clint@drtech.co.uk) wrote:
: I'm using the latest version of DBI::MySQL with the latest version of MySQL.
: I'm trying to do this :
: $sth=$dbh->prepare(<<END);
: SELECT Blurb FROM Blurb WHERE BlurbID='?'
: END
: using the ? as a placeholder so that later I can do this:
: $sth->execute ($blurb);
: However, gives me the error message :
: execute called with 1 bind variables when 0 are needed
Because your prepared statement has no bind variables. Those quote marks
are forcing the question mark to be treated as a literal character.
: I have seen the same syntax used in "Apache Modules" by Lincoln Stein & Doug
: MacEachern.
: If I change the code to
: SELECT ? FROM Blurb WHERE BlurbID='?'
That's got one bind variable, right after the SELECT.
: or
: SELECT Blurb FROM Blurb WHERE BlurbID='?' order by ?
That's got one bind variable, right after the "order by"
: then it no longer give me this error.
------------------------------
Date: Wed, 9 Jun 1999 18:38:08 +0100
From: "Clinton Gormley" <clint@drtech.co.uk>
Subject: Re: Mysql Placeholders
Message-Id: <7jm8m1$3a4$1@taliesin.netcom.net.uk>
Got it - use
SELECT Blurb FROM Blurb WHERE BlurbID=?
Thanks to Dave Wolfe
------------------------------
Date: Wed, 9 Jun 1999 11:37:07 -0500
From: "Matthew G. Turland" <matthewg@eatel.net>
Subject: Need a book ...
Message-Id: <wJw73.2993$tU2.89033@news2.giganews.com>
I've been working with HTML for four or five years now, and I've done some
work with DHTML and JavaScript in the past few months. I also have some
experience with C and QBASIC. Now that you have a few stats on me, here's my
problem ...
I currently have a job to create the web site for a construction company.
Part of the site is a form for customers to use to request more information
about the company. I've programmed the form using HTML to send the form data
to a specific e-mail address. So far, all computers used to test this form
have used IE5 and Outlook98. The form refuses to function; specifically, it
brings up a blank message instead of sending the form data. On average, at
least 90% of the customers are going to have the same settings, so this
problem NEEDS to be fixed.
I'm looking into using a CGI script programmed in Perl to solve the problem,
but I have no knowledge of either. What I'm looking for is a book that will
show me the basics of Perl and the characteristics of the language I need to
solve this e-mail problem. Suggestions or any other information regarding a
solution to this problem would be greatly appreciated.
Thank you very much for your time and concern.
Thanks in advance,
Matthew G. Turland
Webmaster, Sunland Construction, Inc.
matthewg@eatel.net
------------------------------
Date: 09 Jun 1999 13:54:12 -0400
From: Doug Elias <dme7@cornell.edu>
Subject: problem reporting and tracking package?
Message-Id: <861zfl9s57.fsf@research.johnson.cornell.edu>
G'day ...
Before I get started on one of these myself, I thought I'd just check
to see if anyone else has already written a Problem Reporting and
Tracking application ... already checked CPAN and didn't see anything.
Thanks,
doug
--
Doug Elias, Ph.D.
__|_ Internet: dme7@cornell.edu
dr _|_)oug USmail: Director of Technology
(_| Parker Center/Johnson Grad. School of Mgmt.
(_|__lias 302 Sage Hall/C.U./Ithaca/N.Y./14853-6201
| Phone: 607-255-3521 Fax: 607-254-4590
------------------------------
Date: Wed, 09 Jun 1999 17:27:23 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Problems sorting. I'm stupid and I'll die
Message-Id: <7jm86p$gl3$1@news.mch.sbs.de>
In article <MPG.11c81a2f9256207a989b9f@nntp.hpl.hp.com>, lr@hpl.hp.com (Larry Rosler) wrote:
[snip]
>> The Schwartzian transform I showed you a few days ago may not
>> work on (very) old Perl versions, but this one should.
>
>I doubt it.
Oops, you're right. I didn't check against a Perl version that was 'old'
enough. Ignore the previous posting, please...
Too much beer, I guess :-)
Michel.
------------------------------
Date: Wed, 09 Jun 1999 11:59:52 -0600
From: Bill Bohling <dembag@thuntek.net>
Subject: Real Problem: CGI file upload and IE
Message-Id: <375EAB98.E46E0DDD@thuntek.net>
Greetings,
I have a page where a user can upload an image file to my server. I've
hacked together a script based on some code a previous programmer had
gotten from somewhere (ah, pedigree!); it checks for a valid file
extension, uploads to a temp file and checks image edge sizes, then
writes out to the real file location if all tests pass. This is a perl
script on a Linux box running Apache.
My script works as expected on Netscape 4.05 in Win98 (yeah, I know).
On IE 5 (Win98), it properly executes the file extension test, then
reports successfully uploading one file of zero bytes (the file edges
aren't too big, you see). On Opera 3.6 (Win98), the script merely
reports uploading zero files.
Is file upload a feature specific to Netscape? I saw a posting on
dejanews that mentioned file upload being broken in IE due to CR/LF vs
newline, but I haven't seen any solutions. Is there one, or are my
users limited to Netscape if they want to upload?
regards,
Bill
------------------------------
Date: Wed, 9 Jun 1999 09:07:08 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Regexpr for loop to handle e-address list
Message-Id: <Pine.GSO.4.02A.9906090858230.26349-100000@user2.teleport.com>
On Wed, 9 Jun 1999 dalehend@flash.net wrote:
> Does have an example that I can expand on in order to parse a quoted
> email list that can be 1 or more lines. In other words -
> "john\@town.com ben\@town.com younme\@work.com
> sebastian\@town.org isaac\@town.org"
What do you do with e-mail addresses containing quote marks or spaces?
Write to <"fred & barney"@redcat.com> if you don't believe that there are
such addresses. :-)
To do this properly, you'd need to parse the addresses. See whether the
Mail::Address module from CPAN will help you to do what you need. Good
luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 09 Jun 1999 16:34:35 GMT
From: dalehend@flash.net
Subject: Re: Regexpr for loop to handle e-address list
Message-Id: <375e976a.1901313@news.flash.net>
The email list is the value for a $variable, so all I am wanting to do
is parse a quoted list.
On Wed, 9 Jun 1999 09:07:08 -0700, Tom Phoenix <rootbeer@redcat.com>
wrote:
>On Wed, 9 Jun 1999 dalehend@flash.net wrote:
>
>> Does have an example that I can expand on in order to parse a quoted
>> email list that can be 1 or more lines. In other words -
>> "john\@town.com ben\@town.com younme\@work.com
>> sebastian\@town.org isaac\@town.org"
>
>What do you do with e-mail addresses containing quote marks or spaces?
>Write to <"fred & barney"@redcat.com> if you don't believe that there are
>such addresses. :-)
>
>To do this properly, you'd need to parse the addresses. See whether the
>Mail::Address module from CPAN will help you to do what you need. Good
>luck!
>
>--
>Tom Phoenix Perl Training and Hacking Esperanto
>Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
>
------------------------------
Date: Wed, 09 Jun 1999 17:35:43 +0200
From: Wilfried Spillemaeckers <spillemw@se.bel.alcatel.be>
To: Anthony Lalande <tonyboy@earthling.net>
Subject: Re: Rounding excessive trailing decimals
Message-Id: <375E89CF.444B9BDF@se.bel.alcatel.be>
$shortnumber=sprintf "%.2f",$longnumber;
will shorten 1.94456543 -> 1.94
%.1f -> 1.9
%.0f -> 2
------------------------------
Date: Wed, 9 Jun 1999 09:25:35 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: size of a subdirectory without readdir?
Message-Id: <Pine.GSO.4.02A.9906090919130.26349-100000@user2.teleport.com>
On Wed, 9 Jun 1999, William Herrera wrote:
> I have to read a directory from time to time that may contain 300 to
> 2000 entries. opendir/readdir just to count the entries (archiving
> when they are above a certain number like 500) can be slow.
>
> Is there a better/faster way in Perl to count how many files are in a
> subdirectory?
I don't think there's a better/faster way anywhere, whether you're using
Perl or some other language. Most of the time of opendir/readdir should be
spent in IO, so there's not much that you can do to speed it up. But if it
seems excessively slow, maybe your Perl code is somehow inefficient.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 9 Jun 1999 12:30:43 -0400
From: Kristen <allkris@ccs.neu.edu>
Subject: Stopping/Starting a Service in NT
Message-Id: <Pine.GSO.4.10.9906091228060.5359-100000@rigel.ccs.neu.edu>
Hi,
Has anyone created a script for Stopping and Starting a Service within NT?
I am trying to do this for Lotus Notes Domino.
Thanks,
Kristen
------------------------------
Date: Wed, 09 Jun 1999 18:52:24 +0200
From: Andrzej Filip <anfi@bigfoot.com>
Subject: Re: Stopping/Starting a Service in NT
Message-Id: <375E9BC8.C9FEAFB3@bigfoot.com>
Kristen wrote:
> Has anyone created a script for Stopping and Starting a Service within NT?
> I am trying to do this for Lotus Notes Domino.
AFAIK there is a special module for it.
You may also use command line utility "net" (part of NT)
and check output it produces.
net stop service_name
--
Andrzej (Andrew) A. Filip
http://www.bigfoot.com/~anfi
E-mail: anfi@bigfoot.com
I NO LONGER USE anfi@polbox.com
Posting history (all addresses):
http://www.dejanews.com/profile.xp?author=Andrzej%20Filip&ST=PS
------------------------------
Date: Wed, 9 Jun 1999 10:03:11 -0700
From: "Dave Roth" <xrxoxtxhxdx@xrxoxtxhx.xnxextx>
Subject: Re: Stopping/Starting a Service in NT
Message-Id: <A3x73.3046$tU2.90232@news2.giganews.com>
Kristen wrote in message ...
>Hi,
>
>Has anyone created a script for Stopping and Starting a Service within NT?
>I am trying to do this for Lotus Notes Domino.
You should look into the Win32::Service extension. It allows you
to start, stop, query, etc a service.
dave
--
=================================================================
Dave Roth ...glittering prizes and
Roth Consulting endless compromises, shatter
<rothd at roth dot net> the illusion of integrity
http://www.roth.net
Win32, Perl, C++, ODBC, Training
Our latest Perl book is now available:
"Win32 Perl Programming: The Standard Extensions"
http://www.roth.net/books/extensions/
------------------------------
Date: Wed, 09 Jun 1999 12:33:53 -0500
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Substitution with functions
Message-Id: <375EA581.6C2FE518@us.ibm.com>
Herve Foucher wrote:
> I would like to substitute a model by a function of this model.
> For example:
>
> $a_string =~ s/\#\#[^\#.]*\#/&MyPerlFunction($&)/g;
'perldoc perlop' explains how to do this. Look in the section that
describes 's/PATTERN/REPLACEMENT/egimosx' and read about what the
various options do.
--
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)
------------------------------
Date: Wed, 9 Jun 1999 09:11:28 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Using CGI.pm
Message-Id: <Pine.GSO.4.02A.9906090908480.26349-100000@user2.teleport.com>
On Wed, 9 Jun 1999, R.Joseph wrote:
> I have been writing CGI for a couple of months, and the instructor in
> my class always used CGI-LIB.pl by Steven Brenner. However, I keep
> hearing more and more about this CGI.pm module. Is there someone who
> can explain it's differences from CGI-LIB.pl and if it is better than
> CGI-LIB.pl or not? Any help is much appreciated. Thanks.
For new programs, you should generally prefer CGI.pm over cgi-lib.pl. The
biggest single reason is that CGI.pm should be installed wherever perl is.
The next biggest is that some older versions of cgi-lib.pl may have
security or other shortcomings. For more details, check your favorite
Usenet archive. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 09 Jun 1999 12:21:16 -0500
From: rlb@intrinsix.ca (Lee)
Subject: Re: Using string variable as name of subroutine to call
Message-Id: <B3840CBC966839856F@204.112.166.88>
In article <7jjpq5$gko$1@fcnews.fc.hp.com>,
ada@fc.hp.com (Andrew Allen) wrote:
>Uri Guttman (uri@sysarch.com) wrote:
>: i thought my addendum was clear. symrefs are evil and should only be
>: used by evil mad scientists in their darkest modular castles!
>
>: :-)
>
>Can you be evil and modular at the same time?
use Evil::Plots;
use Evil::Conspiracy;
use Evil::Tyranny;
use Evil::MS;
use Evil::C++;
Lee
------------------------------
Date: Wed, 9 Jun 1999 16:47:11 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
Subject: VERSION numbers
Message-Id: <FD2Jyn.MoK@csc.liv.ac.uk>
Can some one explain the $VERSION variable to me because there sure seems
to be a weird way of getting it to equal version numbers.
For instance Gisle Aas seems to favour this style (in HTTP modules anyway)
$VERSION = sprintf("%d.%02d", q$Revision: 1.36 $ =~ /(\d+)\.(\d+)/);
even I can work out how VERSION gets set but as to why?
Wouldn't it just be easier to do
$VERSION = 1.36;
Then there is this at the top of the file
# $Id: Headers.pm,v 1.36 1998/04/10 14:51:22 aas Exp $
Nice but does it do anything?
Then I see other examples, Eryq, of MIME modules fame (sorry Eryq don't
know your surname) set VERSION like this
$VERSION = substr q$Revision: 4.115 $, 10;
again simple but why? followed by this at the bottom in the pod.
=head1 VERSION
$Revision: 4.115 $ $Date: 1998/05/01 19:52:15 $
=cut
It is obviously done for a reason but I can find no reference to it.
(according to the blue camel it has something to do with the Exporter
module, while perlvar mentions it twice I think and refers you to the
"documentation")
Must admit I haven't searched deja news yet (mainly because I can't get my
head around that stupid new interface), but I am sure one of the nice
people here can help?.....Guys?
Anyone......
TIA.
--
Ian J. Garlick
ijg@csc.liv.ac.uk
The function of the expert is not to be more right than other people,
but to be wrong for more sophisticated reasons.
-- Dr. David Butler, British psephologist
------------------------------
Date: 09 Jun 1999 13:06:07 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: VERSION numbers
Message-Id: <x7zp29483k.fsf@home.sysarch.com>
>>>>> "IJG" == I J Garlick <ijg@csc.liv.ac.uk> writes:
IJG> Can some one explain the $VERSION variable to me because there
IJG> sure seems to be a weird way of getting it to equal version
IJG> numbers.
IJG> For instance Gisle Aas seems to favour this style (in HTTP
IJG> modules anyway)
IJG> $VERSION = sprintf("%d.%02d", q$Revision: 1.36 $ =~ /(\d+)\.(\d+)/);
IJG> $VERSION = substr q$Revision: 4.115 $, 10;
those $....$ strings are used by RCS (a source control system) and are
automatically updated. so to have perl get just the plain version number
into $VERSION, you have to mung the string. those are two different ways
to do it.
IJG> # $Id: Headers.pm,v 1.36 1998/04/10 14:51:22 aas Exp $
IJG> $Revision: 4.115 $ $Date: 1998/05/01 19:52:15 $
those are also RCS values.
you can find rcs at many sites. it is a very useful tool to know and use.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 9 Jun 1999 17:21:56 GMT
From: jeromeo@atrieva.com (Jerome O'Neil)
To: ijg@csc.liv.ac.uk (I.J. Garlick)
Subject: Re: VERSION numbers
Message-Id: <7jm7rk$pp$1@brokaw.wa.com>
[Posted and mailed]
In article <FD2Jyn.MoK@csc.liv.ac.uk>,
ijg@csc.liv.ac.uk (I.J. Garlick) writes:
> Can some one explain the $VERSION variable to me because there sure seems
> even I can work out how VERSION gets set but as to why?
It is often used for source control utilities such as CVS or SCCS, and has
little to do with the actual version of the product, only the revision
number of that particular part of a source tree.
For more information on CVS and code control visit http://www.cyclic.com,
and read Per Cederqvist's excellent topics on the subject.
Good Luck!
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.atrieva.com
------------------------------
Date: 9 Jun 1999 17:39:24 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: Why does $blabla = <STDIN> not work in VMS Perl 5?
Message-Id: <7jm8sc$et9$2@news.NERO.NET>
Peter Sterk <sterk@ebi.ac.uk> wrote:
: Hi,
: I was surprised that the following simple script which works on all sort
: of OS's doesn't work under VMS Perl 5.003_24
Yikes! Old perl. Upgrade. (Did you snag that off one of the Freeware CDs?
They're a bit behind)
: (the first two and the last
: line are necessary to run perl scripts on VMS):
(Well, no actually, they're not strictly necesary. There are, in fact,
better ways to do this)
: ------------------------------
: $ perl -x
: $ deck/dollar="_END_"
: #! /usr/bin/perl -w
: print "What's your name? \n";
: chop($my_name = <STDIN>);
: print "My name is $my_name\n";
: _END_
: ------------------------------
: When this script is run, it does not pause for input from the terminal?
Because STDIN isn't the terminal. The deck redefines it
: Couldn't find any explanation in any FAQ or VMS Perl document. Anyone
: with a suggestion (other than 'don't bother with VMS')?
There are some discussions of this in the docs for more recent versions of
perl on VMS (We are at 5.005_03 like the rest of the world).
If you're just looking to wrap the perl code in a command procedure, then
make these the first lines of the command procedure:
$ perl 'f$env("procedure")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !
$ exit++ + ++$status != 0 and $exit = $status = undef;
eval 'exec -S $0 ${1+"$@"}'
if $running_under_some_shell;
and you should be OK.
Dan
------------------------------
Date: Wed, 9 Jun 1999 11:01:24 -0600
From: Sean Sidelko <sidelko@stripe.Colorado.EDU>
Subject: writing to a gzip file
Message-Id: <Pine.GSO.3.96.990609110044.23755F-100000@stripe.Colorado.EDU>
i know you can read from a gzipped file, but is there a way to write to
file while it is gzipped?
Sean
------------------------------
Date: 9 Jun 1999 17:06:00 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: XS: newSVpv() and malloc
Message-Id: <7jm6to$et9$1@news.NERO.NET>
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
: [A complimentary Cc of this posting was sent to Dan Sugalski
: <sugalskd@netserve.ous.edu>],
: who wrote in article <7jk4d6$9bt$1@news.NERO.NET>:
:> : Another XS clarification: when using the newSVpv(char *, int)
:> : function, it creates a *copy* of the string you've passed in, not the
:> : original, correct? Since I have a library that malloc()'s strings for
:> : me to examine, once passed into newSVpv() it should be safe to free()
:> : that string, yes?
:>
:> Yep. All the functions that set an SV's value make copies of the
:> data you pass.
: Nope. There are .*use.* functions which make a copy. They may
^
|
I think you're missing the word "don't" here, right Ilya?
: realloc() things though so that they can put a '\0' at the end, so a
: reasonable malloc() will help.
I'd forgotten about sv_usepvn and sv_usepvn_mg. For some reason I was
thinking they weren't in yet.
Dan
------------------------------
Date: 9 Jun 1999 17:22:17 GMT
From: elf@halcyon.com (Elf Sternberg)
Subject: Re: XS: newSVpv() and malloc
Message-Id: <7jm7s9$18t$1@brokaw.wa.com>
In article <7jl07u$7oi$1@mathserv.mps.ohio-state.edu>
ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
>who wrote in article <7jk4d6$9bt$1@news.NERO.NET>:
>> : Another XS clarification: when using the newSVpv(char *, int)
>> : function, it creates a *copy* of the string you've passed in, not the
>> : original, correct? Since I have a library that malloc()'s strings for
>> : me to examine, once passed into newSVpv() it should be safe to free()
>> : that string, yes?
>> Yep. All the functions that set an SV's value make copies of the
>> data you pass.
>Nope. There are .*use.* functions which make a copy. They may
>realloc() things though so that they can put a '\0' at the end, so a
>reasonable malloc() will help.
Hmm.. My reading of the API seems to be the other way around.
The newSVpv() function makes a copy, sv_usepvn uses the pointer you
pass it. I'm not sure how you would create a new SV and use strings
you created. Something like:
SV * nsv = newmortal();
SvPOK_on(nsv);
sv_usepvn(nsv, string, strlen(string) + 1);
perhaps?
Elf
--
Elf M. Sternberg, rational romantic mystic cynical idealist
If you're so smart, why aren't you naked?
A.A 1493 http://www.halcyon.com/elf/
------------------------------
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 5932
**************************************
