[16340] in Perl-Users-Digest
Perl-Users Digest, Issue: 3752 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 19 21:05:23 2000
Date: Wed, 19 Jul 2000 18:05:11 -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: <964055111-v9-i3752@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 19 Jul 2000 Volume: 9 Number: 3752
Today's topics:
Re: ATTENTION PERL MEATHEADS <smerr612@mailandnews.com>
Comparing dates in perl steveeq1@earthlink.net
Re: Comparing dates in perl <agarian.no@spam.yahoo.com>
Confusion about local() <lmdm@lanl.gov>
Re: Counter Problem (Christian Kaufhold)
Re: counting substrings <bart.lateur@skynet.be>
Re: Date on Win32 <lauren_smith13@hotmail.com>
Re: Date on Win32 <peter.sundstrom@eds.com>
Re: Do YOU use taint-checking? <linux@worsdall.demon.co.uk>
Error messages not displaying under PWS <rglasser@texas.net>
Re: Explanation needed for "Security Audit and Taint Ch (Brandon Metcalf)
How can I make an .EXE with Perl <johnson3NOjoSPAM@iserv.net.invalid>
Re: How do you pass objects to a subroutine? <bart.lateur@skynet.be>
How to write data into file ... ? tvn007@my-deja.com
Re: How to write data into file ... ? tvn007@my-deja.com
Re: humbly parsing Perl <bart.lateur@skynet.be>
multiline regex <xsNOxsSPAM@korekom.com.invalid>
NT4-IIS-MSSQL7 <clcollie@mindspring.com>
passing through a proxy server <lab.sistemas@est.ipcb.pt>
Patternmatch and replace values?? <John_member@newsguy.com>
Re: perl -lpi.bak -e "s/old/new/g" *.* broken on NT? atramos_us@my-deja.com
perl rendering html tables - slow <linux@worsdall.demon.co.uk>
PLEASE HELP!!!! <kj0@mailcity.com>
Re: Reading first MX (exchange record) <scrampton71NOscSPAM@hotmail.com.invalid>
Re: Suggestion for syntax change <bart.lateur@skynet.be>
Re: Topaz source? (Leon Brocard)
Re: What does this mean? <bart.lateur@skynet.be>
Re: while (readdir DIR) (Christian Kaufhold)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 19 Jul 2000 23:49:48 GMT
From: Steven Merritt <smerr612@mailandnews.com>
Subject: Re: ATTENTION PERL MEATHEADS
Message-Id: <8l5eqn$hsc$1@nnrp1.deja.com>
In article <397618E7.2B2C336F@stomp.stomp.tokyo>,
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote:
> Are you suggesting all these previous claims and factual
> pronouncements by long time regulars here, of Ganesha
> being none other than myself, are false? Well I'll be.
<snip>
> Ganesha, don't you think me the best mistress of subtlety.
> Tell ya, these boys have permanently misplaced common sense.
> They truly need to get their snoopy ways better organized.
I have no interest in finding out who/what you are. If I did I doubt
I'd have a problem doing so. Randal made an assertion that he had some
kind of clue who p3r1c0dr is. Even though I have no interest in "her"
identity either, it was unclear to me what he was suggesting so I
thought up several intrepretations of what he might have meant and asked
for clarification. I have _no_ interest in piercing the "mystery" of
either you or Ganesha's real identity. Why spend the time and energy it
would take when you know that at the end of the search all you'll find
is a pain in the neck who'll just change ISP's and continue to troll.
Steven
--
King of Casual Play
The One and Only Defender of Cards That Blow
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 20 Jul 2000 00:42:43 GMT
From: steveeq1@earthlink.net
Subject: Comparing dates in perl
Message-Id: <8l5hu1$jtg$1@nnrp1.deja.com>
I have a string variable "19/Jul/2000". Is there an easy way to convert
this string into the perl date format (that weird number or whatever).
I need to compare two dates, but one of them is a string.
I understand that there is some sort of "date module" to do this
conversion, but I don't know what it's called. I can't seem to find it
anywhere on Deja. . .
- Steve
--
--------------------------------------
If you want to send me an email, send it to:
steve{at_sign}tripperjones{dot_com}
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 20 Jul 2000 01:01:29 GMT
From: "Agarian" <agarian.no@spam.yahoo.com>
Subject: Re: Comparing dates in perl
Message-Id: <Jbsd5.139048$HK2.2475933@news20.bellglobal.com>
Steve,
You're looking for a module called DateManip
This link will get you to the right page on CPAN
http://cpan.valueclick.com/modules/by-category/06_Data_Type_Utilities/Date/
Hope this helps,
Agarian
------------------------------
Date: Wed, 19 Jul 2000 18:24:39 -0600
From: "Michael D. McKay, Jr." <lmdm@lanl.gov>
Subject: Confusion about local()
Message-Id: <397646C7.C9A9B37F@lanl.gov>
Hey,
I'd appreciate any insight to this...
I have the following perl script (followed by output)
---begin script---
print "\nSet 1:\n";
&sub_1( *a );
print "5: &main \$a [", $a,"]\n";
print "6: &main \$b [", $b,"]\n";
print "7: &main \$c [", $c,"]\n";
print "\nSet 2:\n";
&sub_1( *c );
print "5: &main \$a [", $a,"]\n";
print "6: &main \$b [", $b,"]\n";
print "7: &main \$c [", $c,"]\n";
sub sub_1
{
local( *b ) = @_;
local( $a );
$a = "foo";
print "1: &sub_1 \$a [",$a,"]\n";
print "2: &sub_1 \$b [",$b,"]\n";
$b = "hello";
print "3: &sub_1 \$a [",$a,"]\n";
print "4: &sub_1 \$b [",$b,"]\n";
}
---end script---
---begin output---
Set 1:
1: &sub_1 $a [foo]
2: &sub_1 $b [foo]
3: &sub_1 $a [hello]
4: &sub_1 $b [hello]
5: &main $a []
6: &main $b []
7: &main $c []
Set 2:
1: &sub_1 $a [foo]
2: &sub_1 $b []
3: &sub_1 $a [foo]
4: &sub_1 $b [hello]
5: &main $a []
6: &main $b []
7: &main $c [hello]
---end output---
I am confused as to why line 2 of set 1 has "$b" a value of "foo" when I have
changed a "local" variable. Also, why doesn't line 5 of set 1 show "$a" having
a new value of "hello"?
The output of set 2 makes sense to me...
I am running version 5.005_03 built for sun4-solaris.
-- Mike
---------------------
Mike McKay
lmdm@lanl.gov
505-665-2714
---------------------
------------------------------
Date: Wed, 19 Jul 2000 22:05:10 +0200
From: ch-kaufhold@gmx.de (Christian Kaufhold)
Subject: Re: Counter Problem
Message-Id: <8l57kg$e32$6@f40-3.zfn.uni-bremen.de>
SteveSingletary <steve@gte.net> wrote:
[...]
> $comment_file = "/home/www/guest/comments.txt";
>
> if (-e $comment_file) {
> open (FILE,">>$comment_file");
The file doesn't need to exist for ">>" to work.
Always check the result of open!
open FILE, ">>$comment_file"
or die "Could not open $comment_file for writing: $!";
(though you probably want "+<$comment_file")
> $NBR = 0;
> }
> else {
> open (FILE,">$comment_file");
> $NBR = 1;
What does $NBR mean?
> }
> #
> # Calculate the comment number
> #
> if ($NBR != 1) {
> @comm_count = <FILE>;
You cannot read from a filehandle opened for writing.
perldoc -f open
> foreach $line (@comm_count) {
> $NBR++
> }
$NBR += @comm_count;
Christian
------------------------------
Date: Thu, 20 Jul 2000 00:26:41 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: counting substrings
Message-Id: <0phcnsole1rpus2b1b3d29ij6u5kbkq0tf@4ax.com>
Jim Quinn wrote:
>I need to count how many purely numeric substrings are contained in a
>string such as
>156-161 6 FILECODE (PGM ID, LIST, DB IDENT)
Homework?
If you don't know this, then I don't know how you ever succeeded in
finding Perl.
--
Bart.
------------------------------
Date: Wed, 19 Jul 2000 13:54:23 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: Date on Win32
Message-Id: <8l54fv$1d9$1@brokaw.wa.com>
Lance Hoffmeyer <vibrato@my-deja.com> wrote in message
news:8l51sp$7q9$1@nnrp1.deja.com...
> How can I get the date on Win95?
A friend of mine registered http://www.bidadate.com so keep your eyes
peeled.
In the meantime, read the documentation on localtime().
perldoc localtime
or
Start->Programs->ActivePerl->Online Docs->perlfunc
Lauren
------------------------------
Date: Thu, 20 Jul 2000 10:14:13 +1200
From: "Peter Sundstrom" <peter.sundstrom@eds.com>
Subject: Re: Date on Win32
Message-Id: <8l598p$crb$1@hermes.nz.eds.com>
Lance Hoffmeyer wrote in message <8l51sp$7q9$1@nnrp1.deja.com>...
>How can I get the date on Win95?
The same way you do it on Win98, Win2000, NT, Unix, Mac etc, etc.
perldoc -f localtime
------------------------------
Date: Thu, 20 Jul 2000 00:51:05 +0100
From: Mark Worsdall <linux@worsdall.demon.co.uk>
Subject: Re: Do YOU use taint-checking?
Message-Id: <+OPj0rAp7jd5Ewjg@worsdall.demon.co.uk>
In article <brian-1505001646060001@1cust82.tnt1.durham.nc.da.uu.net>,
brian d foy <brian@smithrenaud.com> writes
>In article <8fplt3$l9$1@nnrp1.deja.com>, webqueen, queen of the web
><webqueen@my-deja.com> wrote:
>
>>So, again, are YOU a taint-checker?
>
>of course.
>
Yep, I have seen a US Navy originated machine send dubious stuff via the
POST method, luckily the taint stopped anything happening, (after
complaining to that particular website abuse@ We got 30 minutes worth of
tainted requests!!)
Also at the start of the code I would definitely check the referrer to
ensure only valid sites are calling your program, had incident last
night when over 60 named programs (of which we have none) where trying
to be run, just brute force guessing, now whether these programs are of
the shelf/known programs that are known not to check for tainted data or
valid referrer, I have no idea, but if they had located one of them,
would they have started with sending tainted data?
Stupidly they assumed we used cgi-bin, they could have at least had the
decency to parse the site looking for where are program are stored!!
Anyway point being don't drop your guard, check for tainted data.
If you want to see a log of the attempt:-
http://www.wizdom.org.uk/attack.txt
Note:-
wizdom is my site, this attack was NOT to my wizdom site
The last 3 IP Nums have been changed while we investigate
/usr/www/foobar was something else
My thoughts are what is insecure in good old wwwboard.pl?
or was this an attempt to see who is running what?
M.
--
Mark Worsdall - Oh no, I've run out of underpants :(
Home:- jaydee@wizdom.org.uk http://www.wizdom.org.uk
Shadow:- webmaster@shadow.org.uk http://www.shadow.org.uk
Work:- netman@hinwick.demon.co.uk http://www.hinwick.demon.co.uk
Web site Monitoring:- http://www.shadow.org.uk/SiteSight/
------------------------------
Date: Wed, 19 Jul 2000 22:16:47 GMT
From: Russell Glasser <rglasser@texas.net>
Subject: Error messages not displaying under PWS
Message-Id: <8l59bv$e2t$1@nnrp1.deja.com>
I'm using MS Personal Web Server 4.0 under Windows NT, developing a CGI
project with Active Perl.
For some mysterious reason, my error messages don't show up anymore.
For instance, if I type:
die "This will not show up";
I don't see any text, the page simply terminates.
This hasn't happened to me in previous projects. The error messages
have always been output to the HTML markup, which makes debugging a lot
easier. In fact, I can go back to those projects on the same server
using the same browser (IE 5), in different script directories, and
they still show error messages correctly.
Can anyone imagine what might cause standard error output not to show
up in the page?
--
"The reasonable man adapts himself to the world;
the unreasonable one persists in trying to adapt
the world to himself. Therefore all progress
depends on the unreasonable man."
-- George Bernard Shaw
Russell may be heckled at
http://rglasser.home.texas.net
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 19 Jul 2000 23:30:08 GMT
From: bmetcalf@nortelnetworks.com (Brandon Metcalf)
Subject: Re: Explanation needed for "Security Audit and Taint Check" on perldoc ...
Message-Id: <8l5dm0$10f$1@bcrkh13.ca.nortel.com>
tangb@pt.cyanamid.com writes:
> Dear Perl Support Group,
>
> I have just built Perl 5.6.0 and perl itself is working properly. As I
> tried to run the "perldoc perldoc" command, I got the response:
>
> "Superuser must not run perldoc without security audit and taint checks."
>
> I am running on an IRIX 6.5 system. Could someone please explain to me
> what that means and what I need to do to get the perldoc command working.
Err, uh, don't run perldoc as root.
Brandon
------------------------------
Date: Wed, 19 Jul 2000 16:13:29 -0700
From: jjmi50 <johnson3NOjoSPAM@iserv.net.invalid>
Subject: How can I make an .EXE with Perl
Message-Id: <2697cf81.05c56b7d@usw-ex0103-024.remarq.com>
I am new to Perl.
I also am new to C++.
I can make an .EXE in C++.
I know Perl is an Interpreted Language........But I have read
that if you convert Perl into C language you can make it
an .EXE.
How do I turn Perl Code into C Code ???
What I have read already doesn't really tell me how to convert
the Perl source into C source. It just says convert it to C.
Thanks
Jay
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Thu, 20 Jul 2000 00:27:49 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: How do you pass objects to a subroutine?
Message-Id: <grhcnsocjouhb6d0q6nikp3bk801vdrd02@4ax.com>
Frederic wrote:
>How do you pass a reference to an object to a subroutine? I
>created a new Net::FTP object ($ftp = Net::FTP->new
>("some.host.name");) and I want to pass a reference to it to a
>subroutine where it's going to be dereferenced.
The "object" *is* a reference.
--
Bart.
------------------------------
Date: Wed, 19 Jul 2000 23:17:12 GMT
From: tvn007@my-deja.com
Subject: How to write data into file ... ?
Message-Id: <8l5ctb$gj0$1@nnrp1.deja.com>
Hi,
Could someone please tell me what I did wrong with the script below ?
The input file has the following format:
xyzabc
dbf
abcde
aaaa;
and I would like to put it in the following format:
xyzabcdbf;
abcdeaaa;
However, it does not do what I want to .
Also, Do I really need to open another file to accomplish the task.
Can I just write to the same file
#!/usr/local/bin/perl5
$/=")";
$data_file ='x.test';
open(SCORES,$data_file)|| die "cannot open test file";
($output,$extension)= (split /\./,$data_file);
$output_file = $output."_amt.test";
open(AMT_FILE,">$output_file")|| die "cannot open $output_file";
while(<SCORES>){
$_ =~ /s/^\s+|s*\n$//g;
print AMT_FILE "$_\n";
}
close SCORES;
close AMT_FILES;
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 20 Jul 2000 00:37:51 GMT
From: tvn007@my-deja.com
Subject: Re: How to write data into file ... ?
Message-Id: <8l5hku$jqo$1@nnrp1.deja.com>
Sorry for the confusion:
The input should have the following format:
xyzabc
dbf;
abcde
aaaa;
Thanks,
In article <8l5ctb$gj0$1@nnrp1.deja.com>,
tvn007@my-deja.com wrote:
> Hi,
>
> Could someone please tell me what I did wrong with the script below ?
>
> The input file has the following format:
>
> xyzabc
> dbf
>
> abcde
> aaaa;
>
> and I would like to put it in the following format:
>
> xyzabcdbf;
> abcdeaaa;
> However, it does not do what I want to .
> Also, Do I really need to open another file to accomplish the task.
> Can I just write to the same file
>
> #!/usr/local/bin/perl5
> $/=")";
> $data_file ='x.test';
> open(SCORES,$data_file)|| die "cannot open test file";
> ($output,$extension)= (split /\./,$data_file);
> $output_file = $output."_amt.test";
> open(AMT_FILE,">$output_file")|| die "cannot open $output_file";
> while(<SCORES>){
> $_ =~ /s/^\s+|s*\n$//g;
> print AMT_FILE "$_\n";
> }
>
> close SCORES;
> close AMT_FILES;
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 20 Jul 2000 00:24:56 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: humbly parsing Perl
Message-Id: <n7hcns481qgutve7vkbhnmojb4ev4579ug@4ax.com>
jdimov@cis.clarion.edu wrote:
> So... Any help / pointers to possible help / thoughts / whatever?
Maybe process the perl code through B::Deparse. That will probably
format the code in a rather standardized way. Postprocessing shoudld
then be a little simpler?
Command line only.
perl -MO=Deparse yourscript.pl
One serious problem is that missing modules are unacceptable.
--
Bart.
------------------------------
Date: Wed, 19 Jul 2000 16:33:38 -0700
From: somniculosus <xsNOxsSPAM@korekom.com.invalid>
Subject: multiline regex
Message-Id: <15dfa70c.565e6197@usw-ex0104-087.remarq.com>
Hi everyone,
I have the following code:
---
my $line = "<%OUTPUT HERE%>line no. 1\n";
$line .= "second line of text\n";
$line .= "last line <%/OUTPUT%>";
my ($format) = ($line =~ m|<%OUTPUT HERE%>(.+)<%/OUTPUT%>|s);
# $format now contains <%OUTPUT HERE%>line no. 1\n
---
why doesn't the \s modofier work, to match all the lines up to
the closing OUTPUT tag?
Thanks for your help!
Peter
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Wed, 19 Jul 2000 20:42:10 -0400
From: "clayton collie" <clcollie@mindspring.com>
Subject: NT4-IIS-MSSQL7
Message-Id: <8l5hjl$b6b$1@nntp9.atl.mindspring.net>
hello,
ive searched CPAN, but i cant find a DBD module for MSSQL7 (im running
ActiveState). Any leads ?
thanks...
------------------------------
Date: Thu, 20 Jul 2000 01:17:26 +0100
From: "claudio" <lab.sistemas@est.ipcb.pt>
Subject: passing through a proxy server
Message-Id: <8l5gr2$mva$1@duke.telepac.pt>
Hi!
I have a CGI, where i have a socket. How can i configure the
cgi to pass through a proxy ?
Thank you...!
------------------------------
Date: 19 Jul 2000 16:38:25 -0700
From: John Casey <John_member@newsguy.com>
Subject: Patternmatch and replace values??
Message-Id: <8l5e5h$6u7@drn.newsguy.com>
Hi,
$initial_new = "10 k"
$next_new = "25 k"
$pctincrease_new = "35"
I would like to do a pattern match on the following statement ($line) :
***
create unique index TABLE_IDX on TABLE_G(DD) storage (initial 30 k next 35 k
pctincrease 10) tablespace idxts
****
and replace the values after initial (30 k), next (35 k), pctincrease (10)
with values from variables $initial_new, $next_new and $pctincrease_new
respectively.
I tried ,
$line =~
s/storage\s+\(initial\s+(\d+)\sk\s+next\s+(\d+)\sk\s+pctincrease\s+(\d+)\s+\)/storage\s+\(initial\s+\Q$initial_new\sk\s+next\s+\Q$next_new\sk\s+pctincrease\s\Q$pctincrease_new\)/
(whew!)... but it does not work.
Please help.
thanks
John
------------------------------
Date: Wed, 19 Jul 2000 23:48:11 GMT
From: atramos_us@my-deja.com
Subject: Re: perl -lpi.bak -e "s/old/new/g" *.* broken on NT?
Message-Id: <8l5enm$hrq$1@nnrp1.deja.com>
Thanks for the reply!
I'm pretty sure though older versions of Perl compiled
for NT did the globbing automatically. I think it was
a pre-ActiveState build. Maybe the DJGPP one.
In article <8l1o06$m2u$1@uns-a.ucl.ac.uk>,
"George Karpodinis" <ucesgka@ucl.ac.uk> wrote:
> If you run the following program:
>
> perl -e "print join ',' => @ARGV" *.*
>
> you'll see that $ARGV[0] is the string "*.*". To get around this, you
> might want to consider doing:
>
> perl -pi.bak -e "BEGIN { @ARGV = map /[*?]/ ? glob($_) : $_, @ARGV }
> s/foo/bar/ig"
>
> That will modify @ARGV at the beginning, changing any element with a
* or
> ? in it into the corresponding list of files matching the glob.
>
> Credit goes to Jeff "japhy" Pinyan(japhy@pobox.com) who answered the
same
> question for me.
>
> George
>
> <atramos_us@my-deja.com> wrote in message news:8kl8rh$r6
$1@nnrp1.deja.com...
> >
> >
> > My fovorite Perl one-liner (multi-file global search/replace)
> > fails on NT with an "Invalid Argument" error.
> >
> > Is there something I need to reconfigure?
> >
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 20 Jul 2000 00:32:07 +0100
From: Mark Worsdall <linux@worsdall.demon.co.uk>
Subject: perl rendering html tables - slow
Message-Id: <juYkMWA3pjd5EwiT@worsdall.demon.co.uk>
Hi,
I am rendering an html table from a data file, this csv file is 67K in
size, it has 887 records, each record has 6 fields, it takes over
1minute 8 seconds an an ISDN 64K link.
Is this long?
Is it the browsers rendering that takes time?
The browser does not display anything until all data is fetched, how can
I make it start to display?
Do you find this time excessive if you wanted to display this catalog?
Here is the url if you want to see what I mean.
http://www.purepleasuremusic.com/cgi-bin/display-genre.pl?&show=reggae-
lps--oldclassic.txt&title=Reggae-Old-Deleted-Classic-LP-CD
It is normally displayed within a frame, this also slow down rendering
time.
http://www.purepleasuremusic.com/frameset.shtml
Then Click on Catalog, then Reggae, then LP / CD under Old / Deleted /
Classic
So how to render partially as we get the data or to speed up generally?
M.
--
Mark Worsdall - Oh no, I've run out of underpants :(
Home:- jaydee@wizdom.org.uk http://www.wizdom.org.uk
Shadow:- webmaster@shadow.org.uk http://www.shadow.org.uk
Work:- netman@hinwick.demon.co.uk http://www.hinwick.demon.co.uk
Web site Monitoring:- http://www.shadow.org.uk/SiteSight/
------------------------------
Date: 19 Jul 2000 20:07:02 -0400
From: kj0 <kj0@mailcity.com>
Subject: PLEASE HELP!!!!
Message-Id: <8l5fr6$elm$1@panix3.panix.com>
Please, HELP!!!! I'm at wits' end here!
I'm trying to debug the following test cgi perl script:
#!/usr/bin/perl -w
use CGI ':standard';
print header;
print start_html('-script' => {'-src' => "hi.js"});
print start_form('-onSubmit' => "hi()");
print submit;
print end_form;
print end_html;
The file hi.js consists of the line
function hi() { alert("Hi!"); return false; }
When I point the browser to the cgi script's url, I get the error
message
Internal Server Error
The server encountered an internal error or misconfiguration and
was unable to complete your request.
Please contact the server administrator, xyz-web@mpi.com and
inform them of the time the error occurred, and anything you might
have done that may have caused the error.
More information about this error may be available in the server
error log.
The server error log says
httpd: [Wed Jul 19 19:35:39 2000] [error] (8)Exec format error: exec of /home/doe/xyz/www/cgi/hi.js failed
httpd: [Wed Jul 19 19:35:39 2000] [error] [client ***.***.**.***] Premature end of script headers: /home/doe/xyz/www/cgi/hi.js
Does anybody know what this means? The file permissions are all OK.
The server (apache) is configured to export javascript.
Must javascripts be placed in a special directory before they can be
run?
Any suggestions would be most welcome!
KJ
------------------------------
Date: Wed, 19 Jul 2000 15:52:32 -0700
From: steve cramton <scrampton71NOscSPAM@hotmail.com.invalid>
Subject: Re: Reading first MX (exchange record)
Message-Id: <13daf5e8.2d46ea4c@usw-ex0105-036.remarq.com>
use Net::DNS;
$name = "foo.com";
$res = new Net::DNS::Resolver;
@mx = mx($res, $name) ;
if (@mx) {
foreach $rr (@mx) {
print $rr->preference, " ", $rr->exchange, "\n";
}
}
else {
print "can't find MX records for $name: ", $res-
errorstring, "\n";
}
$mailhost = $name ;
-----------------------------------------------------------
I've just been reading my post. The question i posted does not
make it clear what i am trying to achive.
Of course I know how to get the value of the mailhost.
What i am trying to do is to get rid of the foreach part and
just read the first returned exchange record (if present) into a
varible and move on.
Grateful for help as am stuck on this.
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Wed, 19 Jul 2000 22:07:10 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Suggestion for syntax change
Message-Id: <tm8cnsgrb1jjqe29en4hu7bgkmnje1joqp@4ax.com>
Abigail wrote:
>Have you tried this?
>
> @somelist = ('a' .. 'z');
> @rest = @somelist [2 .. -1];
Have you followed the thread?
We have been talking on how some people would like Perl to do "the right
thing" with this syntax, i.e. give everything from item 2 (third item)
till the end of the list. Applescript understands it. Applescript must
be one of the most brainless languages ever invented (apart from the DOS
batch files syntax).
--
Bart.
------------------------------
Date: Wed, 19 Jul 2000 22:56:01 GMT
From: acme@ns0.astray.com (Leon Brocard)
Subject: Re: Topaz source?
Message-Id: <slrn8nc95r.9ap.acme@ns0.astray.com>
Matthew Cline typed out randomly:
> Is there anywhere to download the latest Topaz source?
Yes: http://topaz.sourceforge.net/
Note however that Topaz will not be Perl 6:
http://www.perl.org/perl6/pr/initial.txt
HTH, Leon
--
Leon Brocard.............................http://www.astray.com/
yapc::Europe - September 22-24 London - http://yapc.org/Europe/
... Error 404: .signature generator ran out of tuits
------------------------------
Date: Wed, 19 Jul 2000 23:08:20 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: What does this mean?
Message-Id: <g6dcnsohag2sodtc07tqf5cgaj2pojej0u@4ax.com>
Graham Wood wrote:
>print $headinter{"Skill"};
>
>will print "None"
Er...
print $headinter{"property\\Skill"};
--
Bart.
------------------------------
Date: Wed, 19 Jul 2000 22:06:27 +0200
From: ch-kaufhold@gmx.de (Christian Kaufhold)
Subject: Re: while (readdir DIR)
Message-Id: <8l57kh$e32$7@f40-3.zfn.uni-bremen.de>
melet@my-deja.com wrote:
> hello
>
> you must affect the result of readdir(DIR) in a table.
This is necessary because of what reason?
Christian
------------------------------
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 3752
**************************************
