[16302] in Perl-Users-Digest
Perl-Users Digest, Issue: 3714 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 18 09:52:54 2000
Date: Tue, 18 Jul 2000 06:52:44 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <963928364-v9-i3714@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 18 Jul 2000 Volume: 9 Number: 3714
Today's topics:
Formatting html file (Horse Nuts)
Re: Formatting html file (Jakob Schmidt)
Re: forms and frames (Ecco)
RE: From Dropdown to Variable - How To? (Wes Monk)
GD module, displaying an image in a browser (Chello)
Re: GD module, displaying an image in a browser ()
Re: GD module, displaying an image in a browser (Chello)
Getting a random var as output (Ecco)
Re: Getting a random var as output (Tad McClellan)
Re: Getting a random var as output (Clinton A. Pierce)
Re: Getting a random var as output (Ecco)
Re: Getting a random var as output (Peter Sundstrom)
Re: Getting a random var as output (Jonathan Stowe)
Re: Getting a random var as output (Jim Mauldin)
glob won't find files (Monty Johnston)
Guidance appreciated on building Perl 5.6.0 64 bit on I (ARC)
Help - Installation problem ! (Stefan Jonsson)
Re: Help - Installation problem ! (Nnickee)
HELP - POST to URL and capture results ()
Re: HELP - POST to URL and capture results (Tony Curtis)
Help a newbie please?! ()
Re: Help a newbie please?! (mike solomon)
Re: Help a newbie please?! ()
HELP me please!!!!!!!!!!!! (nikita)
Re: HELP me please!!!!!!!!!!!! (Drew Simonis)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Jul 2000 15:10:02 GMT
From: hx_101@hotmail.com.bbs@openbazaar.net (Horse Nuts)
Subject: Formatting html file
Message-Id: <3bRG9Q$UWO@openbazaar.net>
sample file:
<TR><TD><a href="HTTP://XXX.XX.XXX/XX">AAA BB</a>
</td><TD>NAME</td></tr><br>
I have a simple html file, I would like to change ONLY the
HTTP://XXX.XX.XXX/XX to lower case in a file. There could be hundreds
of links in this file, is it possible??
Thanks
------------------------------
Date: 17 Jul 2000 22:20:03 GMT
From: sumus@aut.dk.bbs@openbazaar.net (Jakob Schmidt)
Subject: Re: Formatting html file
Message-Id: <3bRRJ3$V4L@openbazaar.net>
hx_101@hotmail.com (Horse Nuts) writes:
> sample file:
> <TR><TD><a href="HTTP://XXX.XX.XXX/XX">AAA BB</a>
> </td><TD>NAME</td></tr><br>
>
> I have a simple html file, I would like to change ONLY the
> HTTP://XXX.XX.XXX/XX to lower case in a file. There could be hundreds
> of links in this file, is it possible??
This is quick'n'dirty and it only works if the href="HTTP://XXX.XX.XXX/XX"
parts are guarantied to be on a single line each. And it lowercases
everyting that's inside href="...." (even if it's not a http::// url).
Is that OK by you?
while ( <SOURCEFILE> ) {
s/href="([^"]*)"/href="\L$1"/g;
print <DESTFILE>;
}
--
Jakob
------------------------------
Date: 16 Jul 2000 18:50:09 GMT
From: ecco64@chello.nl.bbs@openbazaar.net (Ecco)
Subject: Re: forms and frames
Message-Id: <3bQWKX$Tzn@openbazaar.net>
If I understand you correctly, the easiest way I can think of is using html
in your script using the TARGET function
--
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/
"n" <nospam@mistnet.com> wrote in message
news:3971da5f@news.iprimus.com.au...
>
> Anyone know how to pass data from a non forms, cgi generated page, to a
page
> which is part of a frameset?
>
>
------------------------------
Date: 17 Jul 2000 15:40:02 GMT
From: wmonk@documentsolutions.com.bbs@openbazaar.net (Wes Monk)
Subject: RE: From Dropdown to Variable - How To?
Message-Id: <3bRGl2$UeQ@openbazaar.net>
You will need to use javascript to manipulate the HTML page once it hits the
client.
-----Original Message-----
From: mandbinc@rocketmail.com [mailto:mandbinc@rocketmail.com]
Sent: Thursday, July 13, 2000 10:05 AM
To: comp.lang.perl.misc@list.deja.com
Subject: From Dropdown to Variable - How To?
Message from the Deja.com forum:
comp.lang.perl.misc
Your subscription is set to individual email delivery
This message was sent to wmonk@documentsolutions.com
Deja.com: Best way to buy a PC
http://www.deja.com/channels/channel.xp?CID=13031
I have a HTML web page with a variable at the end of some text, say
$help.
On this SAME page there is a dropdown box where users can select
different text options. I want to take the value they select and move
it to some TEXT on a different part of the SAME HTML page (take it to
the place where $help is).
Once a value is selected in the dropdown, I plan on calling a PERL file
that assigns the selected value to the variable $help (I think I can
figure this one out).
How do I then return that value (now assigned to $help) to the $help
variable in the TEXT on the SAME HTML page (with the SAME HTML file
name)?
Or if someone has a suggestion on an easier way to do this, please let
me know.
Thank you for your time.
Sent via Deja.com http://www.deja.com/
Before you buy.
_____________________________________________________________
Deja.com: Before you buy.
http://www.deja.com/
* To modify or remove your subscription, go to
http://www.deja.com/edit_sub.xp?group=comp.lang.perl.misc
* Read this thread at
http://www.deja.com/thread/%3C8kksqi%24mms%241%40nnrp1.deja.com%3E
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 14 Jul 2000 09:00:05 GMT
From: stephane@siw.ch.bbs@openbazaar.net (Chello)
Subject: GD module, displaying an image in a browser
Message-Id: <3bOc35$YeE@openbazaar.net>
Hi all,
I'm trying to display an image with GD module:
use GD;
# create a new image
$im = new GD::Image(100,100);
# allocate some colors
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$red = $im->colorAllocate(255,0,0);
$blue = $im->colorAllocate(0,0,255);
# make the background transparent and interlaced
$im->transparent($white);
$im->interlaced('true');
# Put a black frame around the picture
$im->rectangle(0,0,99,99,$black);
# Draw a blue oval
$im->arc(50,50,95,75,0,360,$blue);
# And fill it with red
$im->fill(50,50,$red);
binmode STDOUT;
print "Content-type: image/jpeg\n";
print "Pragma: no-cache\n";
print "Expires: now\n\n";
print $im->jpeg(100);
But it doesnt work... I only have as a result:
S~V:``E7ͳ gs$?LXlYqE0{~{
"<2k.}]Pso"2 ).-_T-5g1Zgrm"1cmmz#
Gr95s'O9Sv4L$A#02Bqd\I+?"z=M<>/coKk/?j8
[Cw e^?>mBV#Ph,.Ǧ6A|]DԷ
"rVed?!?M{M>Qtk
<|Ts0?^ejb6- P%"QQ cxc>wT\*˵V
";fVK4 sUz?8:-"Vѩ3jL?m2wHmD_-T@?AK
^}ϼ>:I<I5R1sz", J+[dStES&_ޝ~"
"Fy)"]mL][U'j?+Kq KA g] Y \S UڭF.U"۸V]AM}?)K
"Y_woV[3"d
`q"@C>"$3"C111O.#mTjjSYwo9%:-JS .榤zGe-2)S5t
1M?d/aȨJh)g"S }\{"gX?}.G ?
"_м-(Nu=Y\<ӯX,L/V'S_WK &V<ǧYʸ~55T-W,z
x5'}&]?"v=g} UԥF趲.)вsT*ػrԨ?YOZP'6)ڝ.'
"_-j1j2yK^ &ʳk "ܯ3Sb$'!]m p]HPIKFAg!q?O*
oc3ۤyUfPIK'|>fsɺ۸i |>fsɺ۸i |>fsɺ۸G\
HEkeN-*HP'.^@)1R!(sO,^,.HD,kJC"2X
"O6NѼ%[5('ެu=bKs- 1
<? c
,1,HSÞ%~PͩreP2_d"edTaTcB=uW?4/)
#w,zTN^u B~\oo> m69iVEP`O"`R"FP$%(N9s
7Z,2t%b"
M+4 UEq᧸oӵ3 d10`O>,Kg-yUs9t1s2."
Tec3<JJH f5 2~sg#W.{oM
0$~ S3
J32G-
UqFfe8&cO8)g ^sF^٪IOTbbBsdXd.O3O#5o ]t, -
=~췮Ὼ
k4'~/\$2TT#+%:57n7 /VEj'
+'T?e+`PSvz]IeYAܾ
E?yz5J Dh(c<[! ub ua>[ߩs#H%TfYLIdY1sFw:zM : ;
s jv3
'.ZA>\ fb l3Y>|E$ͳ63(?v.Wc&*]f_R1PħO b,
`&< aBPh@wpiOT+a\i^?0~h "6"9T/0~>c@OKo
f~.fo/R?]R?b<۾) Ly
b U1PXad
What's the problem and how to solve it??? Does someone have the solution??
Thanks in advance.
Stphane
------------------------------
Date: 16 Jul 2000 00:20:01 GMT
From: krakle@my-deja.com.bbs@openbazaar.net ()
Subject: Re: GD module, displaying an image in a browser
Message-Id: <3bQ3P1$XTf@openbazaar.net>
In article <yDAb5.35885
$7D2.642919@news.chello.at>,
"Chello" <stephane@siw.ch> wrote:
> Hi all,
>
> I'm trying to display an image with GD module:
>
> use GD;
>
> # create a new image
> $im = new GD::Image(100,100);
>
> # allocate some colors
> $white = $im->colorAllocate(255,255,255);
> $black = $im->colorAllocate(0,0,0);
> $red = $im->colorAllocate(255,0,0);
> $blue = $im->colorAllocate(0,0,255);
>
> # make the background transparent and
interlaced
> $im->transparent($white);
> $im->interlaced('true');
>
> # Put a black frame around the picture
> $im->rectangle(0,0,99,99,$black);
>
> # Draw a blue oval
> $im->arc(50,50,95,75,0,360,$blue);
>
> # And fill it with red
> $im->fill(50,50,$red);
>
> binmode STDOUT;
> print "Content-type: image/jpeg\n";
> print "Pragma: no-cache\n";
> print "Expires: now\n\n";
>
> print $im->jpeg(100);
>
> But it doesnt work... I only have as a result:
>
>
S~V:``E7ͳ g
s$?LXlYqE0{~{
> "<2k.}]Pso"2 ).-_T-5g1Z
grm"1cmmz#
> Gr95s'O9Sv4L$A#02Bqd\I+?
"z=M<>/coKk/?j8
> [Cw e^?>mBV#Ph,.Ǧ6A|]
DԷ
> "rVed?!?M{M>Qtk
> <|Ts0?^ejb6- P%
"QQ cxc>wT\*˵V
> ";fVK4 sUz?8:-"Vѩ3jL?
m2wHmD_-T@?AK
> ^}ϼ>:I<I5R1sz", J+
[dStES&_ޝ~"
> "Fy)"]mL][U'j?+Kq KA g] Y
\S UڭF.U"۸V]AM}?)K
> "Y_woV[3"d
> `q"@C>"$3"C111O.#mTjjSYwo9%:-
JS .榤zGe-2)S5t
> 1M?d/aȨJh)g"S }
\{"gX?}.G ?
> "_м-(Nu=Y\<ӯX,L/V'S_WK
&V<ǧYʸ~55T-W,z
> x5'}&]?"v=g} UԥF趲.)вsT*ػrԨ?
YOZP'6)ڝ.'
> "_-j1j2yK^ &ʳk "ܯ3Sb$'!]m p]
HPIKFAg!q?O*
> oc3ۤyUfPIK'|>fsɺ۸i
|>fsɺ۸i |>fsɺ۸G\
> HEkeN-*HP'.^@)1R!
(sO,^,.HD,kJC"2X
> "O6NѼ%[5('ެu=bKs- 1
> <? c
> ,1,HSÞ%~PͩreP2_d"edTaTcB
=uW?4/)
> #w,zTN^u
B~\oo> m69iVEP`O"`R"FP$%
(N9s
> 7Z,2t%b"
> M+4 UEq᧸oӵ3 d10`O>,Kg-
yUs9t1s2."
> Tec3<JJH f5 2~sg#W.{oM
> 0$~ S3
> J32G-
> UqFfe8&cO8)
g ^sF^٪IOTbbBsdXd.O3O#5o ]t,
-
> =~췮Ὼ
> k4'~/\$2TT#+%:57n7 /VEj'
> +'T?e+`PSvz]IeYAܾ
> E?yz5J Dh(c<[! ub ua>[ߩs#H%
TfYLIdY1sFw:zM : ;
> s jv3
> '.ZA>\ fb l3Y>|E$ͳ63(?
v.Wc&*]f_R1PħO b,
> `&< aBPh@wpiOT+a\i^?0~h
"6"9T/0~>c@OKo
> f~.fo/R?]R?b<۾) Ly
> b U1PXad
>
> What's the problem and how to solve it??? Does
someone have the solution??
>
> Thanks in advance.
>
> Stphane
>
>
---GD is a graphics library that generates images
in the GIF format not jpeg format...
Change print "Content-type:image/jpeg\n\n";
to
print "Content-type:image/gif\n\n";
Also the new version of GD generates PNG...
GD is minimal i reccomend using GIMP on a unix
maching... Or atleast GD&TTF (freetype AND gd)
from the-labs.com
---krakle
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 Jul 2000 07:20:12 GMT
From: stephane@siw.ch.bbs@openbazaar.net (Chello)
Subject: Re: GD module, displaying an image in a browser
Message-Id: <3bRfMC$TbX@openbazaar.net>
In fact I tried in my PerlBuilder but normally it display images.....
"Joseph Pepin" <pepin@worldnet.att.net> wrote in message
news:kW7c5.10095$tI4.796028@bgtnsc05-news.ops.worldnet.att.net...
> Chello, Krakle is incorrect here. The latest & greatest GD supports JPEG,
> PNG, and several others. It can read more formats than it can write. It
also
> supports TrueType fonts. I don't know what's wrong with your code, but
> you've got the GD part correct. What does your HTML look like?
>
> > > What's the problem and how to solve it??? Does
> > someone have the solution??
> > >
> > > Thanks in advance.
> > >
> > > Stphane
> > >
> > >
> >
> >
> > ---GD is a graphics library that generates images
> > in the GIF format not jpeg format...
> >
> > Change print "Content-type:image/jpeg\n\n";
> > to
> > print "Content-type:image/gif\n\n";
> >
> > Also the new version of GD generates PNG...
> >
> > GD is minimal i reccomend using GIMP on a unix
> > maching... Or atleast GD&TTF (freetype AND gd)
> > from the-labs.com
> >
> > ---krakle
> >
> >
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
>
>
------------------------------
Date: 16 Jul 2000 13:30:03 GMT
From: ecco64@chello.nl.bbs@openbazaar.net (Ecco)
Subject: Getting a random var as output
Message-Id: <3bQO4R$VG0@openbazaar.net>
I need to find a way to have my script randomly pick a variable out of a
list of variables for output...Any suggestions would be appreciated!
--
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/
------------------------------
Date: 16 Jul 2000 16:10:02 GMT
From: tadmc@metronet.com.bbs@openbazaar.net (Tad McClellan)
Subject: Re: Getting a random var as output
Message-Id: <3bQSCQ$Wzt@openbazaar.net>
On Sun, 16 Jul 2000 13:38:22 GMT, Ecco <ecco64@chello.nl> wrote:
>I need to find a way to have my script randomly pick a variable out of a
>list of variables for output...Any suggestions would be appreciated!
I suggest checking the Perl FAQ *before* posting to the Perl newsgroup.
perldoc -q random
"How do I select a random element from an array?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 16 Jul 2000 16:20:02 GMT
From: clintp@geeksalad.org.bbs@openbazaar.net (Clinton A. Pierce)
Subject: Re: Getting a random var as output
Message-Id: <3bQSP2$VGI@openbazaar.net>
[Posted and mailed]
In article <iVic5.394345$k22.1732510@flipper>,
"Ecco" <ecco64@chello.nl> writes:
> I need to find a way to have my script randomly pick a variable out of a
> list of variables for output...Any suggestions would be appreciated!
"out of a list of variables"? Do you mean you have like: $a, $c and $q
and you have to pick one at random?
@varlist=\($a, $c, $q);
$vref=$varlist[rand @varlist];
And then later on:
print $$vref;
The reference allows you to go back and modify the one you selected
also. If references frighten you, you could also use a rand() with a
switch-like statement (perlfaq7) to pick one with a little more code.
A final word, if you've picked this kind of structure and you've got
a lot of variables to choose from...usually it means you've picked
the wrong data representation for your data. Use an array or a hash
instead.
--
Clinton A. Pierce Teach Yourself Perl in 24 Hours!
clintp@geeksalad.org for details see http://www.geeksalad.org
"If you rush a Miracle Man,
you get rotten Miracles." --Miracle Max, The Princess Bride
------------------------------
Date: 16 Jul 2000 18:50:08 GMT
From: ecco64@chello.nl.bbs@openbazaar.net (Ecco)
Subject: Re: Getting a random var as output
Message-Id: <3bQWKW$Tvm@openbazaar.net>
That's wat I needed. Thanx. And Tad, sorry for not feeling like spitting
through an FAQ, I hate those things.
------------------------------
Date: 17 Jul 2000 05:00:02 GMT
From: peter.sundstrom@eds.com.bbs@openbazaar.net (Peter Sundstrom)
Subject: Re: Getting a random var as output
Message-Id: <3bR0F3$VGK@openbazaar.net>
Ecco wrote in message ...
>That's wat I needed. Thanx. And Tad, sorry for not feeling like spitting
>through an FAQ, I hate those things.
Yeh. They serve no purpose at all. Why do people even bother to write
them?
------------------------------
Date: 17 Jul 2000 08:30:04 GMT
From: gellyfish@gellyfish.com.bbs@openbazaar.net (Jonathan Stowe)
Subject: Re: Getting a random var as output
Message-Id: <3bR5bV$USP@openbazaar.net>
On Sun, 16 Jul 2000 18:51:20 GMT Ecco wrote:
> That's wat I needed. Thanx. And Tad, sorry for not feeling like spitting
> through an FAQ, I hate those things.
Thanks fo telling us that.
*plonk*
/J\
--
yapc::Europe in assocation with the Institute Of Contemporary Arts
<http://www.yapc.org/Europe/> <http://www.ica.org.uk>
------------------------------
Date: 17 Jul 2000 11:40:01 GMT
From: mauldin@netstorm.net.bbs@openbazaar.net (Jim Mauldin)
Subject: Re: Getting a random var as output
Message-Id: <3bRAZ2$Va9@openbazaar.net>
"Clinton A. Pierce" wrote:
> $vref=$varlist[rand @varlist];
>
This was a (useful) surprise - that a subscripted fractional number will be
treated as an integer. I see there's a similar example in perlfaq4. This
seems to be almost undocumented - the only reference I can find is on page 537
of "Programming Perl" 2nd edition in a chapter about efficiency:
"Subscripting sometimes forces conversion from floating point to integer ..."
I guess that's why we read this NG.
-- Jim
------------------------------
Date: 17 Jul 2000 00:50:01 GMT
From: gmjohn@home.com.bbs@openbazaar.net (Monty Johnston)
Subject: glob won't find files
Message-Id: <3bQfcQ$VSB@openbazaar.net>
I am trying to learn Perl on Win 32 but the glob function won't work. Here
is the code. Any ideas?
sub init_words {
while (defined ($filename = glob('*.sec'))) {
open (WORDSLIST, $filename) ||
die "can't open wordslist: $!";
if (-M WORDSLIST > 7.0) { # Comply with bureaucratic policy
while (defined ($name = <WORDSLIST>)) {
chomp ($name);
$word = <WORDSLIST>;
chomp ($word);
$words{$name} = $word;
}
}
close (WORDSLIST) || die "couldn't close wordlist: $!";
}
}
--
Monty Johnston (Super Genius)
gmjohn@home.com
Some days you're the windshield, some days you're the bug.
------------------------------
Date: 11 Jul 2000 17:00:01 GMT
From: tangb@pt.cyanamid.com.bbs@openbazaar.net (ARC)
Subject: Guidance appreciated on building Perl 5.6.0 64 bit on Irix 6.5...
Message-Id: <3bMY31$XuK@openbazaar.net>
Dear Perl Support Group,
After many unsuccessful attempts to build the latest production 64-bit
Perl, I wonder if you could
make some suggestions for me to build Perl the right way. I have read
through the Install, the
README.hints, and irix_6.sh hint files the best that I can.
The "Configure" script seems to have run okay. However, no matter what
options
I tried, the "make" process invariably produces the following error message
upon which the compilation
fails:
____________________________________________________________________________
_______
`sh cflags libperl.a perlapi.o` perlapi.c
CCCMD = cc -64 -DPERL_CORE -c -D_BSD_TYPES -D_BSD_TIME -woff
1009,111
0,1174,1184,1552 -OPT:Olimit=0:space=ON -DLANGUAGE_C -O3
rm -f libperl.a
/usr/bin/ar rcu libperl.a perl.o gv.o toke.o perly.o op.o
regcomp.o dum
p.o util.o mg.o hv.o av.o run.o pp_hot.o sv.o pp.o scope.o pp_ctl.o
pp_sys.o doo
p.o doio.o regexec.o utf8.o taint.o deb.o universal.o xsutils.o globals.o
perlio
.o perlapi.o
rm -f opmini.c
/sbin/ln -s op.c opmini.c
`sh cflags libperl.a opmini.o` -DPERL_EXTERNAL_GLOB opmini.c
CCCMD = cc -64 -DPERL_CORE -c -D_BSD_TYPES -D_BSD_TIME -woff
1009,111
0,1174,1184,1552 -OPT:Olimit=0:space=ON -DLANGUAGE_C -O3
rm -f opmini.c
cc -64 -v -o miniperl \
miniperlmain.o opmini.o libperl.a
/usr/lib32/cmplrs/ld64 -call_shared -no_unresolved -transitive_link -elf
-_SYSTY
PE_SVR4 -show -mips4 -64 -L/usr/lib64/mips4/r10000 -L/usr/lib64/mips4
-L/usr/lib
64 /usr/lib64/mips4/crt1.o -o miniperl miniperlmain.o opmini.o libperl.a
-dont_w
arn_unused -Bdynamic -lc /usr/lib64/mips4/crtn.o -warn_unused
ld64: ERROR 33 : Unresolved text symbol "pow" -- 1st referenced by
libperl.a(p
p.o).
Use linker option -v to see when and which objects, archives and
dsos ar
e loaded. "
____________________________________________________________________________
____________
I read the IRIX MIPSpro compiler manual and IRIX man pages and determined
that the
"pow" function is a math function in the libm.so library. That library can
be found in
the /usr/lib64 directory, which I believe I declared during the interactive
configuration. The libm.so library
exists in that directory on the machine. Adding the "-lm" option to the
linker does not help either.
I set the environmental variable SGI_ABI to 64, defined the
/etc/compiler.defaults file to
use abi=64, isa=mips4. I tried setting the LD_LIBRARY_PATH to null.
Nothing helped. Did anyone have
to experiment with these settings to get a successful build?
The following is the output of ./myconfig script, in which I added some
remarks regarding the other options that I have tried as well.
____________________________________________________________________________
____________
maggie:/raid2/ottk/perl-5.6.0 140 >./myconfig
Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
Platform:
osname=irix64, osvers=6.5, archname=IP25-irix64
(# I tried osname=irix.)
uname='irix64 maggie 6.5 07151433 ip25 '
config_args=''
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=define
use64bitint=define use64bitall=define uselongdouble=undef
usesocks=undef
Compiler:
cc='cc -64', optimize='-O3', gccversion=
cppflags='-D_BSD_TYPES -D_BSD_TIME -OPT:Olimit=0:space=ON -DLANGUAGE_C'
ccflags ='-D_BSD_TYPES -D_BSD_TIME -woff 1009,1110,1174,1184,1552
-OPT:Olimit=0
:space=ON -DLANGUAGE_C'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
intsize=4, longsize=8, ptrsize=8, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=8, usemymalloc=n, prototype=define
Linker and Libraries:
ld='cc -64', ldflags ='-v'
(# I tried using ld as the loader.)
libpth=/usr/local/lib /usr/lib64 /lib64
libs=
libc=/usr/lib64/libc.so, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags=' ' (# I tried
using "-shared" as a special flag to pass to)
(# "cc
-64" to create a dynamically loaded library.)
____________________________________________________________________________
______
Could someone offer some suggestions?
Your assistance is appreciated in advance.
Sysadm/BASFS(Formerly American Cyanamid)
Bill Tang
------------------------------
Date: 16 Jul 2000 19:50:08 GMT
From: stefan.jonsson@chello.se.bbs@openbazaar.net (Stefan Jonsson)
Subject: Help - Installation problem !
Message-Id: <3bQXlW$UaJ@openbazaar.net>
Hi! I am a newbeginner on Perl programming. How do I execute an
Perlprogram - from the doswindow by writing "perl helloworld.pl" or how?
When I do this i get a message "wrong commando or filename".
I have installed the "Perl 5.6.0.616" - package on a Window 95 system and a
AMD K6 200 mhz processor. I downloaded InstMsi.exe (Installer 1.1) to make
it possible to install the "Perl 5.6.0.616" - package on to it, and the
installation procedure runned smoth. What am I doing wrong?
------------------------------
Date: 16 Jul 2000 20:30:16 GMT
From: nnickee@nnickee.com.bbs@openbazaar.net (Nnickee)
Subject: Re: Help - Installation problem !
Message-Id: <3bQZ1d$VqF@openbazaar.net>
On Sun, 16 Jul 2000 20:00:51 GMT, someone claiming to be "Stefan
Jonsson" <stefan.jonsson@chello.se> said:
>Hi! I am a newbeginner on Perl programming. How do I execute an
>Perlprogram - from the doswindow by writing "perl helloworld.pl" or how?
Yup, that's how you do it, as long as you aren't leaving in those "
marks.
Try the following from your doswindow: perl -v
Does that come back with wrong command too? If it does, then your
perl didn't install properly. Have you rebooted your system? Checked
your autoexec.bat to make sure perl got added to the path?
If the perl -v came back correctly, are you cd'ing to the directory
where you saved your helloworld.pl script before doing the perl
helloworld.pl ? Have you checked to make sure that that's the actual
name of the script (notepad sometimes adds the .txt extension).
>When I do this i get a message "wrong commando or filename".
>I have installed the "Perl 5.6.0.616" - package on a Window 95 system and a
>AMD K6 200 mhz processor. I downloaded InstMsi.exe (Installer 1.1) to make
>it possible to install the "Perl 5.6.0.616" - package on to it, and the
>installation procedure runned smoth. What am I doing wrong?
Nnickee
------------------------------
Date: 17 Jul 2000 21:50:02 GMT
From: estonebreaker@my-deja.com.bbs@openbazaar.net ()
Subject: HELP - POST to URL and capture results
Message-Id: <3bRQTP$WmO@openbazaar.net>
I'm in desperate need to learn how to POST a request to a URL and
capture the results. I have to mimic some ASP code that I've included
below:
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HttpObj.RequestMethod = "POST" ' GET
HttpObj.FollowRedirects = false
rem HttpObj.TimeOut = 80
HttpObj.Url = "http://" & server_name & ":" & port & path
' HttpObj.Port = port ' This object is buggy, and does not
support this property, despite the documentation
HttpObj.PostData = qs
HttpObj.UserAgent = "Mozilla/2.0 (compatible; MSIE 3.0B;
Windows NT)"
result = HttpObj.GetURL
Set HttpObj = Nothing
HTTPPost = result
Thanks,
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 Jul 2000 01:00:03 GMT
From: tony_curtis32@yahoo.com.bbs@openbazaar.net (Tony Curtis)
Subject: Re: HELP - POST to URL and capture results
Message-Id: <3bRVR2$UOU@openbazaar.net>
>> On Mon, 17 Jul 2000 21:40:04 GMT,
>> estonebreaker@my-deja.com said:
> I'm in desperate need to learn how to POST a request to
> a URL and capture the results.
perldoc LWP
for the overview module documentation,
perldoc lwpcook
for examples.
hth
t
--
"With $10,000, we'd be millionaires!"
Homer Simpson
------------------------------
Date: 17 Jul 2000 15:20:02 GMT
From: suzbik@btinternet.com.bbs@openbazaar.net ()
Subject: Help a newbie please?!
Message-Id: <3bRGM2$SOU@openbazaar.net>
Hello,
I have been working on this script but i cannot get it to work
properly.
The idea is that the customer enters their reference number and
password and the script looks it up from a flat file database.
The problem is that when i type in a reference number it will only find
the details if the reference number is 10233 (which is the first row)
if i try others then it doesnt work.
can someone tell me why?
The script is at: http://www.neighbourscan.co.uk/cgi-bin/check.pl
To see what it should look like enter 10233 as the ref number and the
passwod doesnt matter as i have not made it check that yet.
The code is at: http://www.neighbourscan.co.uk/check.txt
and the database is at: http://www.neighbourscan.co.uk/check-db.txt
Thankyou
Ben Periton
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 17 Jul 2000 15:50:01 GMT
From: mike.solomon@eps.ltd.uk.bbs@openbazaar.net (mike solomon)
Subject: Re: Help a newbie please?!
Message-Id: <3bRHBQ$Vnq@openbazaar.net>
why post this twice ?
if you want help it would be nice if you posted the code you need help with
Regards
Mike Solomon
<suzbik@btinternet.com> wrote in message news:8kv7cu$qun$1@nnrp1.deja.com...
> Hello,
>
> I have been working on this script but i cannot get it to work
> properly.
>
> The idea is that the customer enters their reference number and
> password and the script looks it up from a flat file database.
>
> The problem is that when i type in a reference number it will only find
> the details if the reference number is 10233 (which is the first row)
> if i try others then it doesnt work.
>
> can someone tell me why?
>
> The script is at: http://www.neighbourscan.co.uk/cgi-bin/check.pl
> To see what it should look like enter 10233 as the ref number and the
> passwod doesnt matter as i have not made it check that yet.
>
> The code is at: http://www.neighbourscan.co.uk/check.txt
> and the database is at: http://www.neighbourscan.co.uk/check-db.txt
>
> Thankyou
>
> Ben Periton
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: 17 Jul 2000 16:10:02 GMT
From: newsposter@cthulhu.demon.nl.bbs@openbazaar.net ()
Subject: Re: Help a newbie please?!
Message-Id: <3bRHaQ$X9Y@openbazaar.net>
suzbik@btinternet.com wrote:
> The problem is that when i type in a reference number it will only find
> the details if the reference number is 10233 (which is the first row)
> if i try others then it doesnt work.
> can someone tell me why?
Your code checks the first row, and if that one does not match it
calls the 'error' function. I assume you want to check _all_ rows
before deciding there is an 'error'.
Btw, the /cgi-bin/check.pl script shows up as source code in my browser,
and without flash your site is unusable.
Erik
------------------------------
Date: 16 Jul 2000 21:40:12 GMT
From: nikitta@ica.net.bbs@openbazaar.net (nikita)
Subject: HELP me please!!!!!!!!!!!!
Message-Id: <3bQafC$X1W@openbazaar.net>
Hi everybody.
I need your help.
How to force the program read and show only, in my case, 10 lines of a
database
and then continue until all database are shown?
This fragment of program counts 10 lines of a database and stops.
How to continue next 10 lines until all the database will be shown?
Thanks in advance,
Serguei
# a flat data is written in $filename in this way:
# ($num,$one,$two,$line1,$line2,$line3,$three,$four,$five,$six,$seven,);
#========================================================================
$display_num = 10;
&get_number();
#========================================================================
sub get_number {
open(DATA,"$filename") || die $!;
@datafile = <DATA>;
close(DATA);
my $num_display = @datafile;
my $counter = 0;
my $start_num = $counter;
my $stop_num = $counter + $display_num;
if ($stop_num > $num_display ) {
$stop_num = $num_display;
}
foreach (@datafile) {
chomp;
my @data = split /\|/;
my $number = shift(@data);
if ($number != 0) {
&write data;
$counter++;
until ($counter == $stop_num);
}
return ($num_display, $start_num, $stop_num);
}
------------------------------
Date: 16 Jul 2000 22:30:03 GMT
From: care227@attglobal.net.bbs@openbazaar.net (Drew Simonis)
Subject: Re: HELP me please!!!!!!!!!!!!
Message-Id: <3bQc7Q$Vzn@openbazaar.net>
nikita wrote:
>
> Hi everybody.
Howdy
> I need your help.
Kinda gathered that from your subject. Here's a hint: Alot of people
won't read your message because you didn't select a meaningfull subject.
Next time, make sure the subject actually indicates the nature of the
problem, not of your individual circumstances.
> How to force the program read and show only, in my case, 10 lines of a
> database
> and then continue until all database are shown?
You mean file.
> This fragment of program counts 10 lines of a database and stops.
> How to continue next 10 lines until all the database will be shown?
>
>
> # a flat data is written in $filename in this way:
>
> # ($num,$one,$two,$line1,$line2,$line3,$three,$four,$five,$six,$seven,);
I hope you are ending this with a newline.
> #========================================================================
>
> $display_num = 10;
> &get_number();
Why are you calling your sub in this manner if you aren't passing it
any values?
>
> #========================================================================
>
> sub get_number {
>
> open(DATA,"$filename") || die $!;
DATA, as a filehandle, has special meaning. Best not to use it in
this case.
>
> @datafile = <DATA>;
I think its better to chomp the entries here, instead of when
reading them back out of the array:
chomp(@datafile = <DATA>);
>
> close(DATA);
>
> my $num_display = @datafile;
> my $counter = 0;
Why not take the value of counter as input to the sub, instead of
hard coding it?
> my $start_num = $counter;
> my $stop_num = $counter + $display_num;
> if ($stop_num > $num_display ) {
> $stop_num = $num_display;
> }
>
> foreach (@datafile) {
> chomp;
> my @data = split /\|/;
> my $number = shift(@data);
> if ($number != 0) {
> &write data;
What is &write? did you mean &write_data?
> $counter++;
> until ($counter == $stop_num);
>
> }
> return ($num_display, $start_num, $stop_num);
>
> }
Well, I can think of a couple ways to display only n lines at a time,
but what I don't see in this script is a way for the program to know
_when_ to display the next ten lines. Is this a CGI script? If so,
maybe you could include a hidden field with the value of the last line
printed and then alter $start_num based on that value. If this is
going to be viewed from command line or via some other manner, you'll
be needing to add some code.
Right now, $counter is hardcoded at 0. If you want to allow subsequent
lines to be viewed, you'll need some way to override the 0 value in
$start_num from some as yet undetermined source.
HTH
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 3714
**************************************
