[16622] in Perl-Users-Digest
Perl-Users Digest, Issue: 4034 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 16 14:05:35 2000
Date: Wed, 16 Aug 2000 11:05:22 -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: <966449121-v9-i4034@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 16 Aug 2000 Volume: 9 Number: 4034
Today's topics:
Re: archive of perl scripts- first language <jack.timmons@kodak.com>
Re: archive of perl scripts- first language <sales@uniconart.com>
Re: archive of perl scripts <newsg@IKN.uk.com>
Calling C code from perl script <ramcguig@us.ibm.com>
Re: Certain Items in a string <bkennedy99@home.com>
Re: Certain Items in a string <godzilla@stomp.stomp.tokyo>
Re: Certain Items in a string (Brandon Metcalf)
Re: Certain Items in a string <lr@hpl.hp.com>
Re: Certain Items in a string <bkennedy@hmsonline.com>
Connect to a oracle-db via perl on linux michael.scheferhoff@ltl.dlh.de
Re: Connect to a oracle-db via perl on linux <care227@attglobal.net>
Re: Connect to a oracle-db via perl on linux frederic_grondin@my-deja.com
cookie problem <martinqz@taiwan.com>
Re: cookie problem (Rafael Garcia-Suarez)
Re: cookie problem <martinqz@taiwan.com>
Re: cookie problem nobull@mail.com
Re: crypt function sankarmukh@my-deja.com
Re: form <sami.ylonen@mediamikkeli.fi>
GD.pm Test Fails? brudden@goebusiness.com
Re: glob error on AIX <guenther.degenfelder@datev.de>
Re: glob error on AIX <care227@attglobal.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 16 Aug 2000 13:14:12 -0400
From: John A Timmons <jack.timmons@kodak.com>
Subject: Re: archive of perl scripts- first language
Message-Id: <399ACBE4.BE3052E1@kodak.com>
--------------15AB651E973EA712106CF006
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
jm wrote:
> I'm learning Perl as a first language too and do not mind admitting that
> I'm struggling.
> How are you doing???
> Does any seasoned programmer reading this have a view on learning this a
> a first language?
> what should we avoid and what will catch us out??
>
> by the way John "Elements of programming Perl" has been a great book so
> far, recommended.
>
> regards and luck
> john moylan
>
> John A Timmons wrote:
>
> > I'm learning perl as my first language. I'm looking for an archive of
> > perl scripts of varying difficulty that are well documented.
> >
> > I am in the process of reading some good books on the language but I
> > seem to have this brain that learns best through example.
> >
> > Thank you,
> >
> > Jack
I was fortunate enough to find Johnson's "Elements of programming with Perl"
early. You're right, it's a great book and , most importantly, it teaches a
structured approach to programming.
I also have Lemay's "Perl in 21 days". It's good, with lot's of examples but
I've found a few typos that kind of screwed me up for a while.
>> How are you doing???
Could be better. I just need some serious uninterrupted time to sit down and
whip this thing. ummer is bad time for that but I need to get this done for
my job.
Good luck to you and let's stay in touch and help each other through this.
Jack
--------------15AB651E973EA712106CF006
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
jm wrote:
<blockquote TYPE=CITE>I'm learning Perl as a first language too and do
not mind admitting that
<br>I'm struggling.
<br>How are you doing???
<br>Does any seasoned programmer reading this have a view on learning this
a
<br>a first language?
<br>what should we avoid and what will catch us out??
<p>by the way John "Elements of programming Perl" has been
a great book so
<br>far, recommended.
<p>regards and luck
<br>john moylan
<p>John A Timmons wrote:
<p>> I'm learning perl as my first language. I'm looking for an archive
of
<br>> perl scripts of varying difficulty that are well documented.
<br>>
<br>> I am in the process of reading some good books on the language but
I
<br>> seem to have this brain that learns best through example.
<br>>
<br>> Thank you,
<br>>
<br>> Jack</blockquote>
I was fortunate enough to find Johnson's "Elements of programming with
Perl" early. You're right, it's a great book and , most importantly, it
teaches a structured approach to programming.
<p>I also have Lemay's "Perl in 21 days". It's good, with lot's of examples
but I've found a few typos that kind of screwed me up for a while.
<p>>> <i>How are you doing???</i>
<p>Could be better. I just need some serious uninterrupted time to sit
down and whip this thing. ummer is bad time for that but I need to get
this done for my job.
<p>Good luck to you and let's stay in touch and help each other through
this.
<p>Jack
<br> </html>
--------------15AB651E973EA712106CF006--
------------------------------
Date: Wed, 16 Aug 2000 18:29:37 +0100
From: jm <sales@uniconart.com>
Subject: Re: archive of perl scripts- first language
Message-Id: <399ACF80.5EED6C62@uniconart.com>
Good to hear from you jack and yes we must stay in touch......if only as
moral support when things get heavy.
I'm not using Perl in my work at the moment as I don't know enough, but
hope to use it as a step to a new career.
I'm finding the fact that I'm not getting to use it in even small
production jobs a hindrence, although loading Linux on my laptop has
speeded things up for me as far as gettin from source code to compiler
just seems more efficient.
where in the world are you (I'm in london)
regards
john moylan
rain@england.com
------------------------------
Date: Wed, 16 Aug 2000 17:26:52 +0100
From: "IKnowNothing" <newsg@IKN.uk.com>
Subject: Re: archive of perl scripts
Message-Id: <lrzm5.10494$pR4.179122@news6-win.server.ntlworld.com>
I learned German as my first language, then English as my second. I too have
a go at Perl now ... I wonder how it will go though as I havn't really
mastered the first two yet
John A Timmons <jack.timmons@kodak.com> wrote in message
news:399A7AE6.3534E68E@kodak.com...
> I'm learning perl as my first language. I'm looking for an archive of
> perl scripts of varying difficulty that are well documented.
>
> I am in the process of reading some good books on the language but I
> seem to have this brain that learns best through example.
>
> Thank you,
>
> Jack
>
------------------------------
Date: Wed, 16 Aug 2000 11:45:02 -0400
From: regina mcguigan <ramcguig@us.ibm.com>
Subject: Calling C code from perl script
Message-Id: <399AB6FE.1FF96784@us.ibm.com>
does anyone have any experience interfacing C code with perl scripts?
I am trying to do this, and I am having some problems. I have created
all of the neccessary files (.xs, .pm, etc.), and my make works fine.
however, when i try to run my test.pl with "make test" it comes back
saying that the name of one of the C functions that i am calling is an
undefined symbol:
[Functions] make test
PERL_DL_NONLAZY=1 /afs/tr/proj/tools/bin/perl -I./blib/arch -I./blib/lib
-I/afs/transarc.com/project/tools/lib/perl5/sun4-solaris/5.003
-I/afs/transarc.com/project/tools/lib/perl5 test.pl
1..1
Can't load './blib/arch/auto/SSL/Functions/Functions.so' for module
SSL::Functions: ld.so.1: /afs/tr/proj/tools/bin/perl: fatal: relocation
error: file ./blib/arch/auto/SSL/Functions/Functions.so: symbol
ibm_set_unrestricted_cipher_support: referenced symbol not found at
/afs/transarc.com/project/tools/lib/perl5/DynaLoader.pm line 140.
at blib/lib/SSL/Functions.pm line 19
BEGIN failed--compilation aborted at test.pl line 11.
not ok 1
*** Error code 2
make: Fatal error: Command failed for target `test_dynamic'
However, I am linking the library (libgsk4us.a) that defines the
function ibm_set_unrestricted_cipher_support in my Makefile.PL:
'LIBS' => ['-lintl -lposix4 -lsocket -lnsl -lm -ldl -lresolv
-lpthread -L/afs/tr/fs/third-party/gskit/current/@sys/lib -lgsk4ssl
-lgsk4cms -lgsk4sys -lgsk4us
-L. -lssl'],
since libgsk4us.a is a static library does it need to be linked in
another way?
does anyone have any suggestions?
thanks,
regina
------------------------------
Date: Wed, 16 Aug 2000 15:30:44 GMT
From: "Ben Kennedy" <bkennedy99@home.com>
Subject: Re: Certain Items in a string
Message-Id: <Esym5.105742$A%3.1395543@news1.rdc2.pa.home.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message
news:399A3CDA.D0918939@stomp.stomp.tokyo...
> mrxjkj123 sets his parameters:
>
> > > > Result would should look like, $test = "Workarea\\WL_Property_WA";
>
>
> My results match his parameters:
>
> > > PRINTED RESULTS:
>
> > > Workarea\\WL_Property_WA
He said the results should look like
$test = "Workarea\\WL_Property_WA";
In this context, the first backslash escapes the second, meaning that this
would happen
$test = "Workarea\\WL_Property_WA";
print "$test\n";
Result: - Workarea\WL_Property_WA (only one backslash!)
Your solution actually printed out "Workarea\\WL_Property_WA", which was not
what he wanted at all. The two backslashes in his desired results translate
to only one actual backslash in the string. It doesn't even really make
sense that he would want double backslashes, since I don't think it is valid
syntax. In general, its easier to write Win32 filenames as
$filename = 'c:\long\path\to\filename.txt';
This is a lot easier on the eyes.
--Ben Kennedy
------------------------------
Date: Wed, 16 Aug 2000 09:26:48 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Certain Items in a string
Message-Id: <399AC0C8.D0464473@stomp.stomp.tokyo>
Ben Kennedy drooled:
> "Godzilla! wrote:
> > mrxjkj123 sets his parameters:
> > > > > Result would should look like, $test = "Workarea\\WL_Property_WA";
> > My results match his parameters:
> > > > PRINTED RESULTS:
> > > > Workarea\\WL_Property_WA
> He said the results should look like
> $test = "Workarea\\WL_Property_WA";
> In this context, the first backslash escapes the second,
> meaning that this would happen
> $test = "Workarea\\WL_Property_WA";
> print "$test\n";
> Result: - Workarea\WL_Property_WA (only one backslash!)
> Your solution actually printed out "Workarea\\WL_Property_WA"
This is precisely as he asks. Work on your reading
comprehension skills. He did not set his parameters
as an escaped backslash. You, like Rosler, have elected
to afford yourself a chance to be hateful and like
Rosler, have elected to tell lies.
I clearly noted this notion in my article, both of you
elected to delete those comments of mine and lie.
You can shove your mule manure in the same manner
I suggested Rosler do. You and Rosler should get
together, enroll in a course of study in Bonehead
English and help each other attain a skill level
in use of language beyond a functional illiterate
skill level.
Then see your Parish Priest about this problem both
of you have with hatred and lies. You need help.
Godzilla!
------------------------------
Date: 16 Aug 2000 16:30:18 GMT
From: bmetcalf@nortelnetworks.com (Brandon Metcalf)
Subject: Re: Certain Items in a string
Message-Id: <8nefiq$85e$1@bcrkh13.ca.nortel.com>
bkennedy99@home.com writes:
> syntax. In general, its easier to write Win32 filenames as
>
> $filename = 'c:\long\path\to\filename.txt';
>
> This is a lot easier on the eyes.
Or even
$filename = 'c:/long/path/to/filename.txt';
Brandon
------------------------------
Date: Wed, 16 Aug 2000 10:36:06 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Certain Items in a string
Message-Id: <MPG.140470e029099b1b98ac84@nntp.hpl.hp.com>
In article <399AC0C8.D0464473@stomp.stomp.tokyo> on Wed, 16 Aug 2000
09:26:48 -0700, Godzilla! <godzilla@stomp.stomp.tokyo> says...
...
> This is precisely as he asks. Work on your reading
> comprehension skills. He did not set his parameters
> as an escaped backslash. You, like Rosler, have elected
> to afford yourself a chance to be hateful and like
> Rosler, have elected to tell lies.
>
> I clearly noted this notion in my article, both of you
> elected to delete those comments of mine and lie.
Here are some of your comments:
G> Once you straighten out your data, these two snippets:
G>
G> $string =~ s!\\!//!g;
G>
G> $new_string =~ s!//!\\\\!g;
G>
G> can be removed for a quicker and more efficient script.
You disagree with me and others about how many actual backslashes each
"\\" represents in these snippets from the original post:
M> $iw_Workarea =
M> "Y:\\default\\main\\Web_Logic\\Workarea\\WL_Property_WA
M>
M> Result would should look like, $test = "Workarea\\WL_Property_WA";
But no matter whether each "\\" represents one backslash or two
backslashes, the result of your two transformations is that the output
string has two backslashes for each backslash in the input string.
This is clearly erroneous, and further discussion of it is fruitless.
> You can shove your mule manure in the same manner
> I suggested Rosler do. You and Rosler should get
> together, enroll in a course of study in Bonehead
> English and help each other attain a skill level
> in use of language beyond a functional illiterate
> skill level.
>
> Then see your Parish Priest about this problem both
> of you have with hatred and lies. You need help.
Yawn.
Sorry again, Abigail.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 16 Aug 2000 18:03:31 GMT
From: "Ben Kennedy" <bkennedy@hmsonline.com>
Subject: Re: Certain Items in a string
Message-Id: <THAm5.105781$A%3.1396820@news1.rdc2.pa.home.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message
news:399AC0C8.D0464473@stomp.stomp.tokyo...
> Ben Kennedy drooled:
>
> > "Godzilla! wrote:
> > > mrxjkj123 sets his parameters:
>
> > > > > > Result would should look like, $test =
"Workarea\\WL_Property_WA";
>
> > > My results match his parameters:
>
> > > > > PRINTED RESULTS:
>
> > > > > Workarea\\WL_Property_WA
>
> > He said the results should look like
>
> > $test = "Workarea\\WL_Property_WA";
>
> > In this context, the first backslash escapes the second,
> > meaning that this would happen
>
> > $test = "Workarea\\WL_Property_WA";
> > print "$test\n";
>
> > Result: - Workarea\WL_Property_WA (only one backslash!)
>
> > Your solution actually printed out "Workarea\\WL_Property_WA"
>
>
> This is precisely as he asks. Work on your reading
> comprehension skills. He did not set his parameters
> as an escaped backslash. You, like Rosler, have elected
> to afford yourself a chance to be hateful and like
> Rosler, have elected to tell lies.
Woah, settle down there tiger. Take your blinders off for a second. Here
is what he asked for, cut and paste:
> Result would should look like, $test = "Workarea\\WL_Property_WA";
Notice the '$test =' - this is a request for perl code. His request for a
result does in fact contain an escaped backslash. As such, the perl string
"Workarea\\WL_Property_WA" is acutally equal to the literal string
'Workarea\WL_Property_WA'. He did not ask for literal output of
"Workarea\\WL_Property_WA", but rather for the ability to set a variable
equal to "Workarea\\WL_Property_WA", in this case $test. But $test would
contain only one backslash. Try this code:
$test = "Workarea\\WL_Property_WA"; # this is what he wanted
print "This string contains:\n$test\n"; # this displays the output
of what he wanted - one \
$test2 = 'Workares\WL_Property_WA';
print "This string contains:\n$test2\n";
All I am saying is that your code had printed output containing two
backslashes. He actually asked for this value to be set into a scalar, not
for printed output, and this was really asking for a solution with only one
backslash. It was just the way the question was worded, and it was a
subtlety I missed the first time.
> You can shove your mule manure in the same manner
> I suggested Rosler do. You and Rosler should get
> together, enroll in a course of study in Bonehead
> English and help each other attain a skill level
> in use of language beyond a functional illiterate
> skill level.
>
> Then see your Parish Priest about this problem both
> of you have with hatred and lies. You need help.
I appreciate your posts because they help me work on my patience skills. If
only people were more patient!
--Ben Kennedy
------------------------------
Date: Wed, 16 Aug 2000 16:39:22 GMT
From: michael.scheferhoff@ltl.dlh.de
Subject: Connect to a oracle-db via perl on linux
Message-Id: <8neg3m$4bc$1@nnrp1.deja.com>
Hello,
can anybody tell me, which software I need on my Suse-Linux server to
connect to a oracle database?
Which perl-modules do I need?
Which oracle-software or environment?
Which additional software?
Thanks for your help
Michael
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 16 Aug 2000 12:53:30 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: Connect to a oracle-db via perl on linux
Message-Id: <399AC70A.E5C6CC60@attglobal.net>
michael.scheferhoff@ltl.dlh.de wrote:
>
> Hello,
>
> can anybody tell me, which software I need on my Suse-Linux server to
> connect to a oracle database?
>
> Which perl-modules do I need?
Try out http://search.cpan.org/search?dist=DBD-Oracle
> Which oracle-software or environment?
One made for Linux. =)
> Which additional software?
perl is generally packaged with the most common Linux distros,
so you should be good to go. If not, you'll need perl.
------------------------------
Date: Wed, 16 Aug 2000 17:11:19 GMT
From: frederic_grondin@my-deja.com
Subject: Re: Connect to a oracle-db via perl on linux
Message-Id: <8nehv4$6mf$1@nnrp1.deja.com>
In article <8neg3m$4bc$1@nnrp1.deja.com>,
michael.scheferhoff@ltl.dlh.de wrote:
> Hello,
>
> can anybody tell me, which software I need on my Suse-Linux server to
> connect to a oracle database?
>...
>
> Michael
>
Hello,
This Url should give you more information :
http://www.symbolstone.org/technology/perl/DBI/index.html
Regards, F.Grondin.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 17 Aug 2000 00:00:21 +0800
From: MartinQz <martinqz@taiwan.com>
Subject: cookie problem
Message-Id: <399ABA95.A495BF93@taiwan.com>
I have a form which contains two values "scpid" and "scqty" and a submit
button "show".
When I pressed the submit button, I will pass the two values to the
cookies.cgi, and saved them as "$scpid" and "$scqty".
Below is the code segment of cookies.cgi:
$domain="www.mydomain.com";
$path="/";
if ($FORM{'action'} =~ /show/i){
&pushCookies;
&showCookies;
}
sub pushCookies{
&getCookies;
@thename = @getckpid;
@thevalue = @getckqty;
push(@thename, $scpid);
push(@thevalue, $scqty);
$arraycount = $#thename;
for ($i=0; $i<=$arraycount; $i++){
&setCookies($thename[$i], $thevalue[$i], $path, $domain);
}
}
sub showCookies{
&getCookies;
&header;
&htmlhead;
print "arraycount is $arraycount<br>";
print "cookies name are:<br>";
print @getckpid;
print "<p>cookies value are:<br>";
print @getckqty;
&htmlfoot;
}
sub getCookies{
local(@cookies) = split(/; /, $ENV{'HTTP_COOKIE'});
foreach $cookie (@cookies){
($ckpid, $ckqty) = split (/=/, $cookie);
$ckpid =~ tr/+/ /;
$ckqty=~ tr/+/ /;
push(@getckpid, $ckpid);
push(@getckqty, $ckqty);
}
}
sub setCookies{
local($name, $value, $path, $domain, $secure) = @_;
print "Set-Cookie: ";
print ($name, "=", $value, "; path=", $path, "; domain=", $domain, ";
", $secure, "\n");
}
#------------------------------Problem :
I don't know why the cookies showed after I pressed TWICE the "show"
button in the submit form?
Thanks for any kindly helps!
Martin.Qz
------------------------------
Date: Wed, 16 Aug 2000 16:18:33 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: cookie problem
Message-Id: <slrn8plg1b.7cf.rgarciasuarez@rafael.kazibao.net>
MartinQz wrote in comp.lang.perl.misc:
>I have a form which contains two values "scpid" and "scqty" and a submit
>button "show".
>When I pressed the submit button, I will pass the two values to the
>cookies.cgi, and saved them as "$scpid" and "$scqty".
[snip...]
Use the CGI.pm module and its excellent cookie-handling methods.
Alternatively, use CGI::Cookies.
Reimplementing cookie-handling methods is difficult and bug-prone.
--
Rafael Garcia-Suarez
------------------------------
Date: Thu, 17 Aug 2000 00:45:37 +0800
From: MartinQz <martinqz@taiwan.com>
Subject: Re: cookie problem
Message-Id: <399AC531.74F53800@taiwan.com>
Rafael Garcia-Suarez ¼g¤J¡G
>
> Use the CGI.pm module and its excellent cookie-handling methods.
> Alternatively, use CGI::Cookies.
> Reimplementing cookie-handling methods is difficult and bug-prone.
>
> --
> Rafael Garcia-Suarez
Thanks for your help first, but because I am new to perl programming and the
deadline is coming, I don't have enough time to study the CGI.pm, so I need
to use the current method to implement the cookie program.
And I just get some idea on why the cookie will be displayed after I pressed
TWICE the show button, I think the cookie can not be showing when the cookie
is setting.
As I posted before:
&pushCookies; # this is used for pushing the cookie into array
&showCookies; # this is used for showing the cookie
but as you may see that they running at the same time, so i think the problem
may be this point, and do you agree with me?
Martin.Qz
------------------------------
Date: 16 Aug 2000 17:48:12 +0100
From: nobull@mail.com
Subject: Re: cookie problem
Message-Id: <u9aeednodv.fsf@wcl-l.bham.ac.uk>
MartinQz <martinqz@taiwan.com> writes:
> I have a form which contains two values "scpid" and "scqty" and a submit
> button "show".
> I don't know why the cookies showed after I pressed TWICE the "show"
> button in the submit form?
Think about what your script does!
It displays the cookies that are present in the HTTP request and at
the same time sets cookies on the HTTP client.
The first request has no cookies so the body of the first response
will not display any.
BTW: Your code contains many examples of poor programming style that
will come back to bite you one day. Before you go too far down that
road I think you should read a decent book on Perl programming.
Yes it will take some time initially but the time saved by using
appropriate modules should outweigh that. When you add on the time
saved debugging over the next few years a week spent leaning Perl
properly will seem like a tiny investment. Note also that many "good
programming practice" skill are fairly portable between languages so
having learnt to program well in Perl you will need to make much less
effort to program well in C, Pascal, C++, Java, LISP, MUMPS or
whatever.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Wed, 16 Aug 2000 15:08:28 GMT
From: sankarmukh@my-deja.com
Subject: Re: crypt function
Message-Id: <8neaoq$tid$1@nnrp1.deja.com>
In article <3999d081.10891009@news1.tninet.se>,
jonas.nilsson@mbox326.swipnet.se (Jonas Nilsson) wrote:
> I have a text file with username:password, the password is crypt. I
> want to have an: "e-mail me my password because I forgot it"
> -function. When I do that I only get the crypted version. How do I
> decrypt the password.
>
> Thanks.
> Jonas N
>
Apparently there is: I posted the following mail, but nobody replied.
May be you can figire it out.
*******************************************************************
I copied the decrypt subroutine from a FAQ:
But this is giving me syntax error. What is wrong here?
Any advice is appreciated.
**************************************************************
#!/usr/local/bin/perl -w
$crypted=crypt(smuk_012,"cm");
print "$crypted";
print "\n";
&decrypt;
sub decrypt {
$crypted = shift;
local $" = "";
foreach $x[0] ("\x00" .. "\xFF") { foreach
$x[1] ("\x00" .. "\xFF") { foreach $x[2] ("\x00" .. "\xFF")
{
foreach $x[3] ("\x00" .. "\xFF") { foreach $x[4]
("\x00" .. "\xFF") { foreach $x[5] ("\x00" .. "\xFF") {
foreach $x[6] ("\x00" .. "\xFF") { foreach $x[7] ("\x00" ..
"\xFF") { return "@x" if $crypted eq crypt "@x",
$crypted; }}}}}}}}
}
print "\n";
print "$crypted";
~
~
"crypt_san.pl" 21 lines, 669 characters
devwk77:/u/ctssmuk> crypt_san.pl
syntax error at crypt_san.pl line 9, near "$x["
syntax error at crypt_san.pl line 18, near "}}"
Execution of crypt_san.pl aborted due to compilation errors.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 16 Aug 2000 20:00:40 +0300
From: "Sami Ylönen" <sami.ylonen@mediamikkeli.fi>
Subject: Re: form
Message-Id: <8nehf9$hio$1@news.koti.tpo.fi>
"Colin Keith" <newsgroups@ckeith.clara.net> wrote in message
news:xCtm5.147$DT4.3830639@nnrp2.clara.net...
> In article <8nckb7$r0n$1@news.koti.tpo.fi>, "Sami Ylönen"
<sami.ylonen@mediamikkeli.fi> wrote:
> >I need to send same variable to 2 different perl programs
> >using form How?
>
------------------------------------------
Sorry, this is the first time i use newsgroups
im trying to learn cgi programming with perl
and i made 3 programs to handle files
1.pl 2.pl 3.pl
1.pl should send same variable to 2.pl and 3.pl
but my newbie mind doesnt know any way.
Sami.
------------------------------------------
> *sigh* This is a group for discussing Perl itself, not for discussing how
to
> code your HTML to send data to Perl scripts. I could reel off some crappy
> way using javascript/frames/dhtml/popup windows, but you would get a much
> better answer from someone in comp.infosystems.www.*
>
> Of course that making assumptions. You *might* be wanting to have your
Perl
> program that processes data entered by a user via curses interface, from a
> database via DBI or pulled from something via the OLE module (or maybe
even
> from e-mail) ... in which case you can call external programs using
> open()
> ``
> system() (exec())
>
> depending on your needs. If the programs need to run simultaneously try
> fork()'ing a child process to handle each file opening. ... but somehow I
> think you're risking getting a crap answer from me that someone in one of
> the above groups could answer much more clearly.
>
> Col.
>
>
> ---
> Colin Keith
> Systems Administrator
> Network Operations Team
> ClaraNET (UK) Ltd. NOC
------------------------------
Date: Wed, 16 Aug 2000 17:23:59 GMT
From: brudden@goebusiness.com
Subject: GD.pm Test Fails?
Message-Id: <20000816.17235908@anubis.goebusiness.com>
I'm having problems with the GD.pm module on sun sparc solaris 2.6=20
system.
No errors durring make, only in the test:
PERL_DL_NONLAZY=3D1 /raid1/perl5.6.0/bin/perl -Iblib/arch -Iblib/lib=20=
-I/raid1/perl5.6.0/lib/5.6.0/sun4-solaris -I/raid1/perl5.6.0/lib/5.6.0 -=
e=20
'use Test::Harness qw(&runtests $verbose); $verbose=3D0; runtests @ARGV;=
' t/*.t
t/GD................Can't load './blib/arch/auto/GD/GD.so' for module GD=
:=20
ld.so.1: /raid1/perl5.6.0/bin/perl: fatal: relocation error: file=20
/usr/local/lib/libgd.so.4: symbol jpeg_resync_to_restart: referenced=20=
symbol not found at /raid1/perl5.6.0/lib/5.6.0/sun4-solaris/DynaLoader.p=
m=20
line 200.
at t/GD.t line 11
Compilation failed in require at t/GD.t line 11.
BEGIN failed--compilation aborted at t/GD.t line 11.
t/GD................dubious =
=20
=20
Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-10
Failed 10/10 tests, 0.00% okay
Failed Test Status Wstat Total Fail Failed List of failed
------------------------------------------------------------------------=
-------
t/GD.t 255 65280 10 10 100.00% 1-10
Failed 1/1 test scripts, 0.00% okay. 10/10 subtests failed, 0.00% okay.=
make: *** [test_dynamic] Error 2
I have the libs installed :libpng, libz. Everything built with the same=
=20
compiler (gcc). Looking at the README.unix, they mention a similar issu=
e=20
on Linux related to dynamicaly loading modules but no mention of how to =
fix it on solaris(if that issue is even related). Any ideas?=20
------------------------------
Date: Wed, 16 Aug 2000 17:09:45 +0200
From: "Guenther Degenfelder" <guenther.degenfelder@datev.de>
Subject: Re: glob error on AIX
Message-Id: <399aaf3c$1@news.datev.de>
<daydon@my-deja.com> schrieb im Newsbeitrag
news:8ne1ib$i31$1@nnrp1.deja.com...
> hi,
...
> * if ( $Config{'osname'} ne 'VMS' )
...
> The line indicated prints the following error:
> internal error: glob failed at /.../stopFE.pl
> line 728, <_GEN_0> chunk 1
>
> The script is trying to glob specific files in a
> directory.
> The error occurs on AIX, 4.3.2, using perl
> 5.005.02.
>
> cheers,
> cu don
I got same errors by running ANY perl script with a copy of the AIX 4.3 perl
on a AIX 4.2 machine...
Regards
Guenther
------------------------------
Date: Wed, 16 Aug 2000 12:06:53 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: glob error on AIX
Message-Id: <399ABC1D.98C04691@attglobal.net>
Guenther Degenfelder wrote:
>
> I got same errors by running ANY perl script with a copy of the AIX 4.3 perl
> on a AIX 4.2 machine...
>
Perhaps you shouldn't be running a binary built for a later version?
Can't you get a binary of perl built for 4.2? Or get the source
and compile it locally...
------------------------------
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 4034
**************************************
