[10610] in Perl-Users-Digest
Perl-Users Digest, Issue: 4202 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 12 01:07:19 1998
Date: Wed, 11 Nov 98 22:00:18 -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 Wed, 11 Nov 1998 Volume: 8 Number: 4202
Today's topics:
Re: 64-bit Perl? (Ilya Zakharevich)
[Q] how to distinguish "0" and 0? (Or: on reading a lin fis@mpi-sb.mpg.de
Re: [Q] how to distinguish "0" and 0? (Or: on reading a (David Formosa)
Can't get DBD:DBI working... <greg@nomex.net>
How can I execute Perl script? <ayurkina@usa.net>
Re: How can I execute Perl script? (Tad McClellan)
how to add on to an array?? <jjpark@home.com>
Re: how to add on to an array?? (Jye Tucker)
Re: how to add on to an array?? (Martien Verbruggen)
Re: Installing a Perl module to Active Perl (Damon Register)
Re: Modification of a read-only?? (Larry Rosler)
Re: Modification of a read-only?? (Tad McClellan)
Re: Modification of a read-only?? (Ilya Zakharevich)
Re: Passing reference from C to Perl <Arved_37@chebucto.ns.ca>
Perl, ORacle & Linux <mkshanx@uxmail.ust.hk>
Perl/DBI install on AIX <susan.malisch@ctp.com>
Please!Urgent!!Help me! hongli@richsight.com
Please!Urgent!!Help me! hongli@richsight.com
Re: Please!Urgent!!Help me! (Martien Verbruggen)
Q: are symbolic refs really needed (was Re: Modificatio <uri@sysarch.com>
Re: Q: are symbolic refs really needed (was Re: Modific <zenin@bawdycaste.org>
Re: Selena Sol's form_processor (Bradley K. Farrell)
SMTP server on the Web smcallister@my-dejanews.com
Re: SMTP server on the Web <uri@sysarch.com>
Re: SSI Random Image (Newbie??) <smoreno@mundoclasico.com>
Trouble with Hi-ASCII characters and open/system calls <byer@adobe.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Nov 1998 03:24:32 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: 64-bit Perl?
Message-Id: <72dkdg$m3v$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Zenin
<zenin@bawdycaste.org>],
who wrote in article <910827804.653662@thrush.omix.com>:
> : More probably Math::Pari from CPAN. Math::BigInt is almost completely
> : broken (in design and in implementation, if not in behaviour).
> :
> : The only reason I wrote Math::BigInt was to test overloading :-(.
> : Well, it improved a tiny bit since then, but only a really *tiny* bit.
>
> Hmm, then why is Math::BigInt core and Math::Pari not? Maybe
> Math::BigInt/BigFloat should just be layers over Math::Pari?
One of the reasons is that PARI distribution (required for Math::Pari
build - but downloaded automatically, so Math::Pari is not that big)
is of comparable size to the proper perl distribution.
Well, probably there are no other *deep* reasons: though it is
important that a significant part of Pari kernel is in assembler,
there is also a portable-C flavor of the kernel, thus Pari should not
be less portable than Perl itself.
Ilya
------------------------------
Date: 09 Nov 1998 20:35:13 +0100
From: fis@mpi-sb.mpg.de
Subject: [Q] how to distinguish "0" and 0? (Or: on reading a line from a socket)
Message-Id: <y9iiugo64ni.fsf@warren.mpi-sb.mpg.de>
Hi all,
is there a way in perl to test the contents of a variable $a for
beeing 0 but not "0"? The following ideas do not work, i.e. all yield
true:
!"0"
"0" eq 0
"0" == 0
!("0" cmp 0)
This is why I am asking: I wrote the following ugly perl function that
is supposed to read characters from a socket handle $h up to a newline
with timeout:
sub f {
my ($h) = @_; # the handle
my $line = '';
my $line_aux;
while(1) {
$line_aux = getc $h;
unless ({'$line_aux is 0 but not "0"'}) { # this goes wrong.
my ($r, $e, $val);
$r = ''; vec($r, fileno($h), 1) = 1;
$e = ''; vec($e, fileno($h), 1) = 1;
$val = select($r, undef, $e, $self->timeout());
return 0 if (unpack("b*", $e) > 0); # error (connection broken)
return 0 unless ($val); # error (timeout)
next
}
last if $line_aux =~ /\n/;
$line .= $line_aux
}
$line
}
Is there a better way to do this? Should I use sysread instead of getc
for efficiency reasons? How can I then prevent sysread to go on
reading after the first newline? And, after all, is there a standard
function that does the same thing?
thanx in advance,
Matthias
--
Max-Planck-Institut f|r Informatik | Deutsches Forschungszentrum f|r KI
fis@mpi-sb.mpg.de | fischman@dfki.de
http://www.mpi-sb.mpg.de/~fis |
------------------------------
Date: 12 Nov 1998 03:35:19 GMT
From: dformosa@zeta.org.au (David Formosa)
Subject: Re: [Q] how to distinguish "0" and 0? (Or: on reading a line from a socket)
Message-Id: <slrn74klrn.gce.dformosa@godzilla.zeta.org.au>
In article <y9iiugo64ni.fsf@warren.mpi-sb.mpg.de>, fis@mpi-sb.mpg.de wrote:
[...]
>is there a way in perl to test the contents of a variable $a for
>beeing 0 but not "0"?
Not realy, perl dosn't consider that there is a diffrence between
numbers and the string form of thouse numbers. So it will convert
between them when its encounted.
--
Please excuse my spelling as I suffer from agraphia. See
http://www.zeta.org.au/~dformosa/Spelling.html to find out more.
------------------------------
Date: Wed, 11 Nov 1998 22:11:29 -0500
From: "Gregory Juster" <greg@nomex.net>
Subject: Can't get DBD:DBI working...
Message-Id: <72djll$7me$1@news2.tor.accglobal.net>
Hi,
Is there any good documentation and exemples of DBI out there??
I can't find any "good".
Can someone give me an exemple ??
Let's say I have a database called MyDB and a table called employees with 3
fields: empl_id, empl_name, empl_age
I can I query those field???
I'm using DBI for mSQL.
Thanks,
Please, email answer...
Greg
------------------------------
Date: Wed, 11 Nov 1998 19:11:54 +0300
From: "Sergey Yurkin" <ayurkina@usa.net>
Subject: How can I execute Perl script?
Message-Id: <72cd3d$svg$1@simtel.ru>
Dear Sirs,
I am new to perl and so need some help.
I read some FAQs but I could not find answer.
I've just installed Personal Web server (small Internet Information Server)
on Win 95.
My perl scripts work ok from command line.
But I would like to execute script from HTML file.
When I am on UNIX (I am on Adgrafix) server I just included the flllowing
line:
<!--#exec cgi="/cgi-bin/script.pl"-->
within file and all worked Ok.
What should I include in HTNL to run .pl scripts from HTML file using
Personal Web server .
Thanks.
Sergey Yurkin
------------------------------
Date: Wed, 11 Nov 1998 21:30:28 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: How can I execute Perl script?
Message-Id: <kokd27.slm.ln@flash.net>
Sergey Yurkin (ayurkina@usa.net) wrote:
: I am new to perl and so need some help.
But you need help with HTTP server setup, not with Perl.
: I read some FAQs but I could not find answer.
Were they server FAQs?
: What should I include in HTNL to run .pl scripts from HTML file using
: Personal Web server .
You should ask server setup questions in a newsgroup
about servers:
comp.infosystems.www.servers.ms-windows
for instance.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 12 Nov 1998 05:04:11 GMT
From: Justin Park <jjpark@home.com>
Subject: how to add on to an array??
Message-Id: <364A6D05.CAAC836D@home.com>
how can i add new things on to an existing array?
------------------------------
Date: Thu, 12 Nov 1998 15:15:23 +1000
From: jye@buckconsultants.com.au (Jye Tucker)
Subject: Re: how to add on to an array??
Message-Id: <jye-ya02408000R1211981515230001@qld.nnrp.telstra.net>
In article <364A6D05.CAAC836D@home.com>, Justin Park <jjpark@home.com> wrote:
> how can i add new things on to an existing array?
I assume you want to push the "new things" onto the end of your existing array?
Have a look at the push function (perldoc -f push)...
The syntax is ...
push ARRAY,LIST
Hope that helps,
Jye
------------------------------
Date: Thu, 12 Nov 1998 05:52:25 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: how to add on to an array??
Message-Id: <tIu22.146$MO.349770@nsw.nnrp.telstra.net>
In article <364A6D05.CAAC836D@home.com>,
Justin Park <jjpark@home.com> writes:
> how can i add new things on to an existing array?
# perldoc -f push
# perldoc -f unshift
$a[4] = 'value';
@a = (@a, 'other', 'values');
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Unix is user friendly. It's just
Commercial Dynamics Pty. Ltd. | selective about it's friends.
NSW, Australia |
------------------------------
Date: Thu, 12 Nov 1998 03:00:44 GMT
From: dregiste@bellsouth.net (Damon Register)
Subject: Re: Installing a Perl module to Active Perl
Message-Id: <364b4ed6.285354009@news.atl.bellsouth.net>
On Wed, 11 Nov 1998 17:01:33 GMT, Brent Michalski
<perlguy@technologist.com> wrote:
>Take a look at:
>http://www.activestate.com/ActivePerl/docs/description.html#perl_package_manager
>
>ActiveState included a utility called Perl Package Manger in your
>distribution that handles installing modules.
There is a major problem with this. It has to go to their site to
get files which means going through a firewall. The doc file
containing firewall instructions is missing from the ActivePerl
distribution so I am stuck.
Damon Register
------------------------------
Date: Wed, 11 Nov 1998 18:13:52 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Modification of a read-only??
Message-Id: <MPG.10b3e439f33064ef989906@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <364A36E8.C1BBD936@wco.com> on Wed, 11 Nov 1998 17:16:24 -
0800, Steven Smith <steves@wco.com> says...
> I have a piece of code that is using a file name to store information about
> the file as a string. The code blows up if the file name starts with a digit.
>
> I can demonstrate the problem in the debugger:
> DB<8> $x = '7a'
>
> DB<9> ${$x} = "hello"
> Modification of a read-only value attempted at (eval 25) line 2, <IN>
> chunk 12.
>
> Can someone explane to me what's happening here? Is there a workaround
> short of changing the file to be something else if it starts with a
> digit or just forcing it to start with a non-digit?
Explanation: Not sure. 'perlref' doesn't state explicitly what
constitutes a valid string to use as a symbolic reference. ('foo bar'
works OK, but is not an identifier, so it's not clear what the rules
are.)
Workaround: Don't use symbolic references. Use a hash. Any string can
serve as a valid hash index. (Does anyone have an example where
symbolic references *must* be used, where a hash wouldn't do as well?)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 11 Nov 1998 21:21:55 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Modification of a read-only??
Message-Id: <j8kd27.jkm.ln@flash.net>
Steven Smith (steves@wco.com) wrote:
: I have a piece of code that is using a file name to store information
: about
: the file as a string. The code blows up if the file name starts with a
: digit.
: I can demonstrate the problem in the debugger:
: DB<8> $x = '7a'
: DB<9> ${$x} = "hello"
: Modification of a read-only value attempted at (eval 25) line 2, <IN>
: chunk 12.
$7a is not a legal identifier in Perl.
: Can someone explane to me what's happening here?
From the 'perldata' man page:
=head2 Variable names
Values are usually referred to by name (or through a named reference).
The first character of the name tells you to what sort of data
structure it refers. The rest of the name tells you the particular
value to which it refers. Most often, it consists of a single
I<identifier>, that is, a string beginning with a letter or underscore,
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
and containing letters, underscores, and digits.
: Is there a workaround
: short of changing the file to be something else if it starts with a
: digit or just
: forcing it to start with a non-digit?
Use a hash. Symbolic references are seldom needed (or wanted).
$hash{$x} = 'hello';
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 12 Nov 1998 03:31:48 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Modification of a read-only??
Message-Id: <72dkr4$mbj$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Tad McClellan
<tadmc@flash.net>],
who wrote in article <j8kd27.jkm.ln@flash.net>:
> : DB<8> $x = '7a'
>
> : DB<9> ${$x} = "hello"
> : Modification of a read-only value attempted at (eval 25) line 2, <IN>
> : chunk 12.
>
>
> $7a is not a legal identifier in Perl.
This is irrelevant. Perl has no problem with ${"foo bar"}. The idea
is that any variable name which starts with a digit is a considered a
cousin of $7, $71, $716 and so on - they are match-group variables,
which are (currently) read-only.
I may remember wrong, but I would think that ${'7a'} refers to the 7th
group (group is calculated by atoi() which discards trailing trash).
Ilya
------------------------------
Date: Wed, 11 Nov 1998 22:52:16 -0400
From: Arved Sandstrom <Arved_37@chebucto.ns.ca>
Subject: Re: Passing reference from C to Perl
Message-Id: <Pine.GSO.3.95.iB1.0.981111223022.27459A-100000@halifax.chebucto.ns.ca>
Apart from some specific comments, I'll assume that since this thing
compiled (I got that impression) you had a PerlInterpreter* declared, and
that one or two C variable names were actually a little different in the
actual code.
On Mon, 9 Nov 1998, Perl Writer wrote:
[ Everything snipped except for relevant stuff ]
> The code I wrote is as follows. However, the Perl script cannot get the
> value of the field1 in the passed-in data structure. Can anybody tell me
> what's wrong with the following code fragment or whether it is possible to
> pass reference from C to Perl? Thanks a lot for your help.
>
> typedef struct AStruct
> {
> int field1;
> bool field2;
> } HashStruct;
>
Your naming and the use of a struct lead me to believe that what you
actually want is for "field1" to be the key, and for "field2" to be the
value. You'll realize that your hv_store() statements are not doing that
for you.
> hv_store(hv, "field1", 128, sv_2mortal(newSViv(in_struct.field1)), 0);
> hv_store(hv, "field2", 128, sv_2mortal(newSViv(in_struct.field2)), 0);
In any case, here you're setting up 2 hash elements - that is, key =>
value pairs. The key lengths are both 6, not 128.
In your perl sub, $data->{'field1'} = 102 as a result.
Here's complete code, an adaptation of what you have, which doesn't quite
do what you have but illustrates.
-- testbed.c --
#include <EXTERN.h>
#include <perl.h>
#define ARRAY_LEN 3
static PerlInterpreter *pl;
typedef struct
{
int field1;
char field2[25];
} HashStruct;
static void invoke_perl_script(HashStruct *in_struct)
{
HV* hv = newHV();
SV* sv;
char fld_name[10];
int fld_len, i;
dSP;
ENTER;
SAVETMPS;
for (i=0; i<ARRAY_LEN; i++) {
sprintf(fld_name, "%d", in_struct[i].field1);
fld_len = strlen(fld_name);
hv_store(hv, fld_name, fld_len,
sv_2mortal(newSVpv(in_struct[i].field2, 0)), 0);
}
sv = sv_2mortal(newRV_inc((SV*) hv));
PUSHMARK(SP);
XPUSHs(sv);
PUTBACK;
perl_call_pv("test", G_DISCARD);
PUTBACK;
FREETMPS;
LEAVE;
perl_destruct(pl);
perl_free(pl);
printf("bye\n");
}
int main(int argc, char* argv[], char **env)
{
HashStruct data[ARRAY_LEN];
char *my_argv[] = { "", "testbed.pl" };
HV* hv;
/* assign stuff to struct array */
data[0].field1 = 100;
sprintf(data[0].field2, "%s", "first_elm");
data[1].field1 = 101;
sprintf(data[1].field2, "%s", "second_elm");
data[2].field1 = 102;
sprintf(data[2].field2, "%s", "third_elm");
pl = perl_alloc();
perl_construct(pl);
perl_parse(pl, NULL, 2, my_argv, (char**) NULL);
perl_run(pl);
invoke_perl_script(data);
}
-- testbed.pl --
sub test
{
my($data) = @_;
for (keys %$data) {
print "data $_ = ", $data->{$_}, "\n";
}
}
Hope this helps.
------------------------------
Date: Thu, 12 Nov 1998 11:29:58 +0800
From: Ron <mkshanx@uxmail.ust.hk>
Subject: Perl, ORacle & Linux
Message-Id: <Pine.GSO.3.95L.981112112928.16035C-100000@uststf1>
Hi,
I would really appreciate if somebody here can suggest a good book/site
that you know of that deals with the above triangle..Perl, Oracle database
backend and the LINUX OS.
Please send me a mail personally (of course, it might be nice if you let
everybody here know too..:)
Thanks.
Best regards,
Ron
------------------------------
Date: Wed, 11 Nov 1998 20:55:28 -0600
From: Susan Malisch <susan.malisch@ctp.com>
Subject: Perl/DBI install on AIX
Message-Id: <364A4E20.1ADAA28@ctp.com>
I just installed perl on AIX 4.3 using a smit installable script.
According to the output of smit, everything seemed to install
correctly. However, I am now trying to layer the perl DBI interface
over the perl 5.005 installation for Oracle. It fails with the
following message:
./freeware.perl.DBI.rte.post_i[6]: /usr/local/lib/perl5/aix/: not found
Perl not installed correctly, can't find directory
/usr/local/lib/perl5/aix
instal: Failed while executing the ./freewaew.perl.DBI.rte.post_i
script
I have developers that really need this, so any assistance would be
appreciated.
Please send relevant info to smalis02@ctp.com
Thanks,
Susan
------------------------------
Date: Thu, 12 Nov 1998 03:01:42 GMT
From: hongli@richsight.com
Subject: Please!Urgent!!Help me!
Message-Id: <72dj2n$sod$1@nnrp1.dejanews.com>
Hello all, NOw,I am writing cgi script with perl5.004 and apache 1.2.6 on
Solaris 2.5.1. no,here,a weird problem make me headache several days.. I make
a html file with form,then when I click the submit button to run my perl
script,weird things happened.it can't print all the info I specified in
script.e.g.,in script,I write "... if($_ eq "ok") { print"<html";
print"<frameset border=6 bordercolor=6>"; } ..ok,but when I click the submit
button to run it,nothing!!!just a blank html window.so,I check the source
code of this html it generate.its "<html><frameset border=6 borderco"...only
print these info..why???why can NOT completely print the info??and more weird
thing is that,sometimes it works fine,sometimes it NOT. beside,I enable the
CGI log of apache server,no error there..so,anything wrong with perl????tell
me in email,plzzz following is my script.: #!/usr/bin/perl #|=1;
$userdatafile = "apache_1.2.6/share/webdata/user.key";
print"Content-type:text/html\n\n";
print"<title>Welcome!</title>";
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@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/<!--(.|\n)*-->//g;
if ($allow_html != 1) {
$value =~ s/<([^>]|\n)*>//g;
}
if($value eq "")
{
print"<HTML>";
print"<body>";
print"<title>!!!error!!!</title>";
print"<H1>fill all input field then retry</H1>";
print"</body>";
print"</HTML>";
exit;
}
$FORM{$name} = $value;
}
print"<FRAMESET BORDER=5 frameborder=\"3\" BORDERCOLOR=white
cols=\"100%,*\">\n"; print" <FRAMESET BORDER=5 frameborder=\"3\"
BORDERCOLOR=\"white\" rows=\"*,70\">\n"; print" <FRAME
SRC=\"/cgi-bin/sports/checkjava.pl?encoding=$FORM{'richjava'}&realname=$FORM{
'realname'}&namekey=$FORM{'namekey'}\" marginheight=3 marginwidth=10 name =
\"visitorlog\" SCROLLING=\"AUTO\">"; print" <FRAME
SRC=\"/cgi-bin/sports/input.pl?encoding=$FORM{'richjava'}&realname=$FORM{'rea
lname'}&namekey=$FORM{'namekey'}\" marginheight=0 marginwidth=0 name =
\"login\" SCROLLING=\"AUTO\">"; print" </FRAMESET> ";
print"</FRAMESET>"; print"<br></HTML>";
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 12 Nov 1998 03:01:17 GMT
From: hongli@richsight.com
Subject: Please!Urgent!!Help me!
Message-Id: <72dj1u$snr$1@nnrp1.dejanews.com>
Hello all, NOw,I am writing cgi script with perl5.004 and apache 1.2.6 on
Solaris 2.5.1. no,here,a weird problem make me headache several days.. I make
a html file with form,then when I click the submit button to run my perl
script,weird things happened.it can't print all the info I specified in
script.e.g.,in script,I write "... if($_ eq "ok") { print"<html";
print"<frameset border=6 bordercolor=6>"; } ..ok,but when I click the submit
button to run it,nothing!!!just a blank html window.so,I check the source
code of this html it generate.its "<html><frameset border=6 borderco"...only
print these info..why???why can NOT completely print the info??and more weird
thing is that,sometimes it works fine,sometimes it NOT. beside,I enable the
CGI log of apache server,no error there..so,anything wrong with perl????
following is my script.: #!/usr/bin/perl #|=1; $userdatafile =
"apache_1.2.6/share/webdata/user.key";
print"Content-type:text/html\n\n";
print"<title>Welcome!</title>";
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@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/<!--(.|\n)*-->//g;
if ($allow_html != 1) {
$value =~ s/<([^>]|\n)*>//g;
}
if($value eq "")
{
print"<HTML>";
print"<body>";
print"<title>!!!error!!!</title>";
print"<H1>fill all input field then retry</H1>";
print"</body>";
print"</HTML>";
exit;
}
$FORM{$name} = $value;
}
print"<FRAMESET BORDER=5 frameborder=\"3\" BORDERCOLOR=white
cols=\"100%,*\">\n"; print" <FRAMESET BORDER=5 frameborder=\"3\"
BORDERCOLOR=\"white\" rows=\"*,70\">\n"; print" <FRAME
SRC=\"/cgi-bin/sports/checkjava.pl?encoding=$FORM{'richjava'}&realname=$FORM{
'realname'}&namekey=$FORM{'namekey'}\" marginheight=3 marginwidth=10 name =
\"visitorlog\" SCROLLING=\"AUTO\">"; print" <FRAME
SRC=\"/cgi-bin/sports/input.pl?encoding=$FORM{'richjava'}&realname=$FORM{'rea
lname'}&namekey=$FORM{'namekey'}\" marginheight=0 marginwidth=0 name =
\"login\" SCROLLING=\"AUTO\">"; print" </FRAMESET> ";
print"</FRAMESET>"; print"<br></HTML>";
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 12 Nov 1998 04:06:34 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Please!Urgent!!Help me!
Message-Id: <e9t22.105$MO.301189@nsw.nnrp.telstra.net>
Subject: Re: Please!Urgent!!Help me!
Please read the following information on how to choose a good subject
line: http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
In article <72dj2n$sod$1@nnrp1.dejanews.com>,
hongli@richsight.com writes:
> print"<frameset border=6 bordercolor=6>"; } ..ok,but when I click the submit
> button to run it,nothing!!!just a blank html window.so,I check the source
What does a HTML submit button have to do with the contents of $_?
> print"Content-type:text/html\n\n";
>
> read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
> @pairs = split(/&/, $buffer);
You shouldn't do all this yourself. You should use a module that does
it for you, and does it a lot better.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I'm just very selective about what I
Commercial Dynamics Pty. Ltd. | accept as reality - Calvin
NSW, Australia |
------------------------------
Date: 11 Nov 1998 22:12:17 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Q: are symbolic refs really needed (was Re: Modification of a read-only??)
Message-Id: <x7ww518uzy.fsf_-_@sysarch.com>
>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
LR> Workaround: Don't use symbolic references. Use a hash. Any string can
LR> serve as a valid hash index. (Does anyone have an example where
LR> symbolic references *must* be used, where a hash wouldn't do as well?)
that's a good question. maybe use strict 'refs' should be on by
default. there might be some odd case but i doubt that you couldn't do
it with hashes and maybe typeglobs (the way i did it in perl4! :-).
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 12 Nov 1998 03:43:54 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Q: are symbolic refs really needed (was Re: Modification of a read-only??)
Message-Id: <910842289.654189@thrush.omix.com>
Uri Guttman <uri@sysarch.com> wrote:
: >>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
: LR> Workaround: Don't use symbolic references. Use a hash. Any string can
: LR> serve as a valid hash index. (Does anyone have an example where
: LR> symbolic references *must* be used, where a hash wouldn't do as well?)
: that's a good question. maybe use strict 'refs' should be on by
: default. there might be some odd case but i doubt that you couldn't do
: it with hashes and maybe typeglobs (the way i did it in perl4! :-).
Dynamically affecting other package's global data, ala some of the
black magic Exporter does:
*{"${PackageName}::$VarName"} = "Some value";
There are non-soft ref ways to do this, but they are much uglier
normally.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: Thu, 12 Nov 1998 03:48:19 GMT
From: bradley@iinet.net.au (Bradley K. Farrell)
Subject: Re: Selena Sol's form_processor
Message-Id: <364a5a0b.152537245@news.m.iinet.net.au>
>I'm looking for Selena Sol's form processor 4.0 or something like it. I
^^^^^^^^^^^^^
look => search => hotbot|altavista|yahoo => what you are looking for
HTH
--
Bradley K. Farrell
bradley@iinet.net.au
------------------------------
Date: Thu, 12 Nov 1998 02:00:22 GMT
From: smcallister@my-dejanews.com
Subject: SMTP server on the Web
Message-Id: <72dffn$pir$1@nnrp1.dejanews.com>
I know this is probably a stupid question, but I am going to ask it anyhow.
Is there somewhere on the new an SMTP server that lets anyone use is as an
email gateway?
I would like to test some of the Matt's Scripts that use smtp.
TIA,
Stevem
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 11 Nov 1998 22:15:28 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: SMTP server on the Web
Message-Id: <x7pvat8uun.fsf@sysarch.com>
>>>>> "s" == smcallister <smcallister@my-dejanews.com> writes:
s> I know this is probably a stupid question, but I am going to ask it
s> anyhow.
then why ask it?
s> Is there somewhere on the new an SMTP server that lets anyone use
s> is as an email gateway?
if there is, they should close the security bug in it.
s> I would like to test some of the Matt's Scripts that use smtp.
why would you want to use matt's scripts? but you are smart enough to
ask questions that shouldn't be asked so you must know why you want to
use those scripts.
buggy scripts using security holes. sounds like a good idea!
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Sat, 31 Oct 1998 14:37:26 -0600
From: Saturnino Moreno <smoreno@mundoclasico.com>
To: jh943@bellsouth.net
Subject: Re: SSI Random Image (Newbie??)
Message-Id: <363B7506.E39311CF@mundoclasico.com>
Jim Haney escribis:
> I have attempted this:
>
> <img src="http://www.(my dns
> here).com/cgi-bin/rotate/ssi_rand_image.pl">
The exact tag in the HTML is
<!--#exec cgi="/cgi-local/ssi_rand_image.pl" -->
The space between .pl" and "-->" is very important. Contact me
for further information about.
Kindest regards
Saturnino
--
AC-CIMC
Mundo Clasico - Revista semanal de mzsica clasica
http://www.mundoclasico.com
------------------------------
Date: Wed, 11 Nov 1998 17:53:00 -0800
From: "Scott Byer" <byer@adobe.com>
Subject: Trouble with Hi-ASCII characters and open/system calls (Win32)?
Message-Id: <72df20$ppl@enquirer.corp.adobe.com>
I've got some filenames with hi-ASCII characters in them, and I need to pass
these filenames off to a sub-process, but the characters in the filenames seem
to have thier hi-order bits stripped by the system or Win32::Process::Create
calls. Is there a way to correct this, or a setting I am missing? Or is this
a bug in the Perl implementation on Win32 (I'm using ActiveState build 506)?
I can partly work around the problem by creating a batch file that executes
the command, but then I lose control over the process (the program being
called is, well, flakey and sometimes ends up in an infinite loop, so I've got
timeout protection on waiting for the output to come back).
Example:
system "ss properties
$/installer/files/DEU/Goodies/Actions/Schaltfldchen.atn";
gets me:
$/installer/files/DEU/Goodies/Actions/Schaltfl,chen.atn is not an existing
filename or project
--
-- Scott Byer, Computer Scientist, Adobe Systems Incorporated
-- My opinions, not necessarily those of my employer.
-- mailto:byer@adobe.com
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 4202
**************************************
