[11576] in Perl-Users-Digest
Perl-Users Digest, Issue: 5175 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 19 09:07:31 1999
Date: Fri, 19 Mar 99 06:00:23 -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 Fri, 19 Mar 1999 Volume: 8 Number: 5175
Today's topics:
Re: [Q] Big-endian IEEE floats I/O with perl <loulou@ltt.ntua.gr>
Re: Array of Hash Problem <dave@mag-sol.com>
Re: Better Sort, Please (Larry Rosler)
by the way... <bcornwell@mail.peds.lsumc.edu>
Re: chdir : how do I pass parameters to this function?? <droby@copyright.com>
Re: Determining GIf and JPG's dimensions <dturley@pobox.com>
Re: Exact match, but Insensitive (Larry Rosler)
Re: Finding end of line (Larry Rosler)
Help please....... <oursDELETE-THIS@casema.net>
Re: how do I add values in a text delimited file? (Larry Rosler)
Re: How to let users of website know there are others p <dturley@pobox.com>
Re: Need Faster Approach (Larry Rosler)
Re: Passing Multiple Variables to a Sub (Larry Rosler)
Re: perl win32 serial (COM port) setup question (Bbirthisel)
Re: Please can we stop this PIII thread RIGHT HERE? As (James Stevenson)
Re: Please can we stop this PIII thread RIGHT HERE? As <edward_hill@gec.nospam.com>
Re: Reading Directory (Larry Rosler)
script to find user's email or name? <bahram@onpulse.com>
Re: Somebody help me with this script please! (Larry Rosler)
Re: SSI query <csspdh@mailhub.dcs.hull.ac.uk>
Re: test.pl is running on a local maschine, in www i se <dturley@pobox.com>
Testing if variable contains a certain word..... <oursDELETE-THIS@casema.net>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 19 Mar 1999 14:47:59 +0200
From: Costis Angelis <loulou@ltt.ntua.gr>
Subject: Re: [Q] Big-endian IEEE floats I/O with perl
Message-Id: <36F2477F.439C0BAD@ltt.ntua.gr>
I had posted the following message (see below). After a private
communication with Larry Rosler (very helpful, public thanks), the end
conclusion is that one can safely presume that IEEE floats are used across
different architectures and just take care of endianess, reversing floats
with 'reverse' used in a scalar context.
There does not seem, though, to be a way to write a 'network' kind of
float, as happens with integers.
Costis Angelis wrote:
> I handle very often large files containing float numbers, single
> precision in binary format. Since I work both on Linux and IRIX, I would
> like to know if there is any easy way to deal with portability problems.
>
> Though I guess those who could help me out understand what I mean, let
> me explain a little better what I am looking for. I am no Perl expert,
> but I managed to find in the man pages that you can write 'network'
> format integers consistently, so that they are portable across various
> CPU architectures. However, the man page says that this is not
> respectively implemented for floats, as there is no similar standard
> convention. What I am looking for is some kind of module(?) which might
> deal with the problem in this same way, regardless of the machine on
> which I sit. The script executes, actually.
>
> I don't care much about speed, despite the large size of the files. The
> inconvenience has just been larger...
>
> Thank you for any answers,
>
> Costis 'Mirni' Angelis
> --
> cangelis@hpc.ntua.gr <--- Preferred
> loulou@ltt.ntua.gr
------------------------------
Date: Fri, 19 Mar 1999 13:17:47 GMT
From: Dave Cross <dave@mag-sol.com>
Subject: Re: Array of Hash Problem
Message-Id: <7ctipl$pv6$1@nnrp1.dejanews.com>
In article <36F217A3.C7B64DB7@dachs.de>,
redaktion@dachs.de wrote:
> Hello,
>
> I hope someone can help me with that problem.
> I have created an array of a hash.
>
> $sites = [{"link" => "www.programmersparadise.com", "titel"=>"How to
> use Perl"},{...}];
>
> #Now I am saving it to a file.
>
> open (DATEI, ">f:\\sites.dat");
> print DATEI @sites;
> close DATEI;
>
> OK so far;
> In another sub I am trying to read it now.
>
> sub headlines {
> open (DATEI, "<f:\\sites.dat");
> @sites = <DATEI>;
> close DATEI;
> print @sites; #gives me something like "HASH(0x0d234)
>
> ..."
> print $sites[0]{"link"}; #gives me an error
> }
>
> What have I missed ?
You've missed the fact that an array of hashes is, in fact, an array of
*references* to hashes. When you write the array to your file you only write
the references, not the actual arrays. When you read the data back, you get a
reference, but there's no array to be referenced! There's a good chapter on
this problem in O'Reilly's 'Advanced Perl Programming" book.
To make your life easier, you should look at the DataDumper, Storable and
FreezeThaw modules from CPAN <http://www.perl.com/CPAN/>.
hth,
Dave...
--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 15 Mar 1999 23:32:59 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Better Sort, Please
Message-Id: <MPG.1157a8fe88f32933989760@nntp.hpl.hp.com>
In article <m3iuc2hkj4.fsf@joshua.panix.com> on 15 Mar 1999 09:53:03 -
0500, Jonathan Feinberg <jdf@pobox.com >says...
...
> my $sort = build_sort_sub();
> my @sorted = sort { &$sort } @a;
> for (@sorted) { print "$_->{key}\n" }
Last month, Andrew Langmead showed how to avoid the overhead of a
subroutine call on each comparison, using a typeglob. Paraphrasing:
{
local *sub_sort = build_sort_sub();
@sorted = sort sort_sub @a;
}
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personl/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 19 Mar 1999 13:41:12 GMT
From: "Brent Cornwell, Pediatrics Computer Administrator" <bcornwell@mail.peds.lsumc.edu>
Subject: by the way...
Message-Id: <7ctk5o$pt6$1o8@199.201.191.2>
take this thread to: comp.sys.intel
it's more relevant there..
------------------------------
Date: Fri, 19 Mar 1999 12:46:59 GMT
From: Don Roby <droby@copyright.com>
Subject: Re: chdir : how do I pass parameters to this function???
Message-Id: <7cth01$ogk$1@nnrp1.dejanews.com>
In article <36F055F8.A2A65D22@worldnet.att.net>,
knataraj <knataraj@worldnet.att.net> wrote:
> AAAAAAAAAAAAAAHHHHHh!!!!
>
> Here's is the pbm. I'll be grateful if anyone of ou can give me
> a solution..
>
> #!/usr/bin/perl
>
> while(<STDIN>) {
>
> $dir=$_;
> chdir $dir
> or print " Couldn't change dir to $dir reason: $!\n";
> print `pwd` ;
> }
>
> this script always gives me "directory not found" error
>
> if I define $dir="/root" then the script works fine !!!!! ?????
> what's the reason & how do I pass variable values to chdir function.
>
You've no problem with passing parameters. But the parameters you're passing
aren't valid directories on your system. That's probably because your
directory names don't contain newlines.
perldoc -f chomp
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Mar 1999 13:17:07 GMT
From: David Turley <dturley@pobox.com>
Subject: Re: Determining GIf and JPG's dimensions
Message-Id: <7ctiod$puq$1@nnrp1.dejanews.com>
In article <36f12753.13657588@news1.icl.net>,
John.Swainston@iclweb.com (John Swainston) wrote:
> Hi all,
> I want to write a PERL script to determine the dimensions of
> an image, so that I can restrict the size of images uploaded to a
> site.
>
> I have a vorking routine for GIFs, but I can't find the information to
> determine the dimensions of JPGs.
Image::Size module. (Isn't this a FAQ by now?) Not sure how you are going to
block a file upload since the file has to be uploaded to the server before
your script can get the dimensions.
--
David Turley
dturley@pobox.com
http://www.binary.net/dturley
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 15 Mar 1999 17:28:12 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Exact match, but Insensitive
Message-Id: <MPG.1157538b46a13cd798975c@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <36EDA30A.A5EDB2F1@xs4all.nl> on Tue, 16 Mar 1999 01:17:14
+0100, Frank de Bot <debot@xs4all.nl> says...
> How can I search for an exact match, but insensitive.
> I know you can compare strings on 2 ways:
> if ($a eq "X") { } and ($a =~ /X/i) I the second case I can chose if
> it must be capital sensitive or not. But I can't with the first one.
Yes you can.
> Example:
>
> This is the Input : LITTLE . In the database is " little " (Lower
> Case) . I don't want it "react" on Lit, but only Little or LITTLE or
> LiTtLe .
if (lc $a eq 'little') { ... }
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 15 Mar 1999 17:22:10 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Finding end of line
Message-Id: <MPG.1157521867e2f18b98975b@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <fred222-ya023580001503991910240001@news.bellatlantic.net> on
Mon, 15 Mar 1999 19:10:24 -0500, George <fred222@mauimail.com> says...
> In article <7cjj51$84a$1@nnrp1.dejanews.com>, mmartina@my-dejanews.com wrote:
>
> > I an trying to scan characters in one at a time using getc(). This is working
> > but I an unable to determine when I hit the end of line character. I am
> > running perl5 on a HP Unix machine. Any suggestions.
>
> I could be horribly wrong, but I think the end-of-line "character" is
> actually two characters (backslash-n, or "\n") and therefore going through
> the text character by character wouldn't pick it out (it would only see a
> single backslash, followed by a single n).
Quatsch! "\n" is the Perl representation of a single character.
> Hope this helps, and hope I'm not entirely off base ;-) .. of course the
> newline might be different, i.e. with Mac platforms it's like \012 or \015
> or something like that :)
Please, George, learn *some* Perl before answering here!
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 19 Mar 1999 14:53:32 +0100
From: "MW" <oursDELETE-THIS@casema.net>
Subject: Help please.......
Message-Id: <7ctkt7$bg1$1@news.casema.net>
Hi All,
How can I test if a variable contains a certain word?
I want to test $ENV{'HTTP_ACCEPT_LANGUAGE'} for 'nl'
to redirect people to other pages.
Thanks a lot,
MW
------------------------------
Date: Mon, 15 Mar 1999 17:59:08 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: how do I add values in a text delimited file?
Message-Id: <MPG.11575ac5718d10ea98975e@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <7ckb5i$oju$1@news1.fast.net> on Mon, 15 Mar 1999 20:16:25 -
0800, TinP <tgj@snip..net> says...
> Does anyone know how I can add the values of a text delimited file?
> For example the file looks like this:
>
> Tom | 2 | 2 | 3 |1 | 4
> Bill | 3 | 4 | 2 | 1 | 6
> Sue | 8 | 2 | 1 | 5 | 3
>
> I want to be able to add up the values and print the name and the added
> value to another text file.
> There would only be about 5 values plus the name on each line.
Perl doesn't care much how many values there are.
> The results would look like this:
>
> Tom | 12
> Bill | 16
> Sue |19
Five-finger exercise for today (gotta keep in trim):
#!/usr/local/bin/perl -w
use strict;
for (<DATA>) {
my ($name, @values) = split /\|/;
my $sum = 0;
$sum += $_ for @values;
print "$name| $sum\n"
}
__END__
Tom | 2 | 2 | 3 |1 | 4
Bill | 3 | 4 | 2 | 1 | 6
Sue | 8 | 2 | 1 | 5 | 3
Output:
Tom | 12
Bill | 1
Sue | 19
This preserves the spacing after the name, but I couldn't reproduce the
quirky spacings for 'Sue' conveniently. :-) A better approach might be
to make the regex in the 'split' /\s*\|\s*/ and put spaces or tabs in
the output as you see fit.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 19 Mar 1999 13:26:16 GMT
From: David Turley <dturley@pobox.com>
Subject: Re: How to let users of website know there are others present
Message-Id: <7ctj9g$qe1$1@nnrp1.dejanews.com>
In article <36f18b11$0$26630@newton>,
"Carlo" <news@ntt.nl> wrote:
> Hello,
>
> im looking for a way to let visitors of my site know if there are others at
> the time.
Your visitors are not "at" your web page. The browser downloads the page from
the server and displays it. There is no lingering connection. There is no way
you can know how long somebody is looking at the page in the browser on their
machine. The server doe snot know if soemone closed the browser window, or is
starin at the page for 20 minutes.
So, this isn't a perl question anyway.
--
David Turley
dturley@pobox.com
http://www.binary.net/dturley
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 15 Mar 1999 17:40:45 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Need Faster Approach
Message-Id: <MPG.11575678b709089798975d@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <7ckafs$es1@news.service.uci.edu> on 16 Mar 1999 01:00:44
GMT, Earl Hood <ehood@medusa.acs.uci.edu> says...
> In article <7ck0hd$krn$1@nnrp1.dejanews.com>,
> <frogsmock@my-dejanews.com> wrote:
>
> >However,
> >what I'm hoping for is a faster way (impossible?) to get to the 75,000th item
> >instead of splitting off each preceding item.
>
> Have looked into using index()/rindex()?
How would one use either of those functions effectively to find the
75,000th item in a comma-delimited string, as requested? Looping
through 75000 index() calls to find the 75,000th comma sounds like a
*very* costly procedure.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 15 Mar 1999 17:18:27 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Passing Multiple Variables to a Sub
Message-Id: <MPG.115751421a0bfebf98975a@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <fred222-ya023580001503991856520001@news.bellatlantic.net> on
Mon, 15 Mar 1999 18:56:52 -0500, George <fred222@mauimail.com> says...
> In article <36ECA582.C92FEA88@counter.w-dt.com>, Mike
> <support@counter.w-dt.com> wrote:
...
> Mmm.. well, try
Did *you* try it?
> #... main program ... call the subroutine like:
> &openit(JOEFILE,/home/httpd/html/file.txt);
^ ^ ^
superfluous wrong bareword
> #... subroutine ...
> sub openit ($filehandle,$path) {
Do you think Perl is C? Have you *ever* written a Perl subroutine and
passed arguments to it? Sheesh!!!
> open($filehandle,"+<$path");
> #... and so forth
> }
>
> I could have made some horrible horrible mistake, of course, but other than
> that I think something along those lines ought to work. :-)
You made several horrible horrible mistakes, the worst of which was
posting untested code. You should develop the habit of testing code you
post, preferably with the '-w' flag and 'use strict;' Conjectures eat
up bandwidth for those who read your posts and those who correct them.
Especially when this is covered well in the FAQ.
perlfaq5: "How can I make a filehandle local to a subroutine? How do I
pass filehandles between subroutines? How do I make an array of
filehandles?"
perlfaq7: "How can I pass/return a {Function, FileHandle, Array, Hash,
Method, Regexp}?"
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 19 Mar 1999 13:49:20 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: perl win32 serial (COM port) setup question
Message-Id: <19990319084920.15304.00000421@ng-fq1.aol.com>
Hi Tony:
>BUT: is there any established way
>of setting the COM port parameters via perl in win32 (Win 98). The perl
>doco suggests that perl for win32 "may work on Win 95/98 but it's only
>been tested on NT".
The Win32::SerialPort module handles this, and reading from the
port as well ;-)
Available at your favorite CPAN site or from
# http://members.aol.com/bbirthisel/alpha.html
There is a tutorial on its use in TPJ #13 (out later this month if
not already - snail mail is extra slow here in the boonies).
-bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: 19 Mar 1999 13:34:36 GMT
From: James@DX2.home (James Stevenson)
Subject: Re: Please can we stop this PIII thread RIGHT HERE? As it's off-topic for everybody!
Message-Id: <7ctjpc$pt6$1h8@199.201.191.2>
On Mon, 15 Mar 1999 12:51:05 -0700, Kenny A. Chaffin <kenny@kacweb.com> wrote:
>In article <01be6f1a$1298f700$2a01a8c0@arc7>, binary@eton.powernet.co.uk
>says...
>> Subject line says it all - we've been through this subject ad nauseam
>> already, after all.
>>
>>
>
>you must be from the .c newsgroup.....
>
>--
>KAC Website Design
>Custom Programming, Web Design, and Graphics
>kenny@kacweb.com - http://www.kacweb.com
Hi
just to add to the point
it would be impossible to do
eg would it know what os you are running???
talk the the correct cp stack etc......
And of course it has a serial number so there
can work out who steals them if ppl do that sort of thing :)
cya
--
Check Out: http://www.users.zetnet.co.uk/james/
E-Mail: mistral@zetnet.co.uk
------------------------------
Date: 19 Mar 1999 13:35:12 GMT
From: Edward Hill <edward_hill@gec.nospam.com>
Subject: Re: Please can we stop this PIII thread RIGHT HERE? As it's off-topic for everybody!
Message-Id: <7ctjqg$pt6$1hr@199.201.191.2>
James@DX2.home (James Stevenson) was too tempted to not write:
> Hi
>
> just to add to the point
> it would be impossible to do
> eg would it know what os you are running???
> talk the the correct cp stack etc......
>
> And of course it has a serial number so there
> can work out who steals them if ppl do that sort of thing :)
It's amazing how a post entitled along the lines of
'don't reply to this thread' is just too tempting for james.
Is this the same as having a big red button with 'do not push
me on?'
Ed
-followups means adjusted
------------------------------
Date: Mon, 15 Mar 1999 18:02:41 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Reading Directory
Message-Id: <MPG.11575ba09aef605a98975f@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <35njc7.a36.ln@magna.metronet.com> on Mon, 15 Mar 1999
14:30:43 -0500, Tad McClellan <tadmc@metronet.com> says...
...
> : @files = readdir(DIR);
> : print "@files\n;
> : exit 0;
>
> There are three lines that look OK to me :-)
Not to me! Look again... :-)
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 19 Mar 1999 13:32:46 GMT
From: "Bahram Pourghadiri" <bahram@onpulse.com>
Subject: script to find user's email or name?
Message-Id: <01be724f$e55e54e0$0101020a@bahram>
Does anyone know of a script for secretly finding out a user's name or
email address (for example when they click on a link) or basically as much
info as possible.
I have a very good reason for wanting this script. There is somebody
annoying me and I want to find out who they are.
Best regards
Bahram Pourghadiri
bahram@onpulse.com
------------------------------
Date: Mon, 15 Mar 1999 16:54:35 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Somebody help me with this script please!
Message-Id: <MPG.11574ba6553ecf4d989759@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <36ed951c.0@news3.enter.net> on Mon, 15 Mar 1999 18:20:52 -
0500, Rollo Lawson <rollo@enter.net> says...
...
> I have seen some scripts that send back an image to the page and it is
> displayed instead of the broken image. I have tried this but it does not
> send the image back the image stays broken. Below is the html code then the
> script. PLEASE SOMEONE HELP!!!!!!!!!!!!
...
> !/perl/bin/perl
I assume you mean
#!/perl/bin/perl -w
> open(Count,"<remote.txt");
I assume you mean to deal with failure to open the file.
> $total = <Count>;
> close(Count);
> $total++;
> open(Count,">remote.txt");
I assume you mean to deal with failure to open the file.
> print Count $total;
> close(Count);
You are not dealing with what happens if more than one user accesses the
file at the same time. If the hit rate is significant, you'd better
learn about file locking.
> print "Content-Type: image/gif\n\n";
> print "<img src=\"http://rollo/mirv.gif\">";
^.wherever.com
This is not a complete URL (nor is the one that invokes your script in
the first place). It needs a Fully Qualified Domain Name for anyone
outside your local subnet to run it.
Other than that, it should work if the file is a valid GIF image. (Many
such services send back a 1 pixel x 1 pixel transparent GIF.) Though I
think you are executing on a Unix server, there is no harm in doing
binmode STDOUT;
before writing to it.
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 16 Mar 1999 09:21:46 +0000
From: Phil Helliwell <csspdh@mailhub.dcs.hull.ac.uk>
Subject: Re: SSI query
Message-Id: <Pine.SUN.3.91.990316091724.12145A-100000@scarlet>
On Fri, 12 Mar 1999, Mike Cardosa wrote:
> Is it possible to use a query string while calling an SSI? I need this to
> work!
yes!
>
> EX:
> <!--#exec cgi="scriptname.cgi?this=should&work=nicely"-->
>
> I know that when you call the html file that calls the ssi, you can use the
> query string there, but that is not efficient in my case. For example, I
> don't want to rename all of the links to index.html to
> index.html?variable=something.
When using #exec cgi='blah.cgi' you can't send any query strings.
Another thing is that sometimes #exec is turned off in the server config
(for security 'cos you can run anything from #exec cmd). Try *including* a
cgi program, that way the server includes the file, sees that it's a cgi and
executes it. so:
<!--#include virtual="scriptname.cgi?this=should&work=nicely" -->
will work :)
> ANY help would be greatly appreciated!
> -Mike
Phil
--
All views are my own etc ...
------------------------------
Date: Fri, 19 Mar 1999 13:13:10 GMT
From: David Turley <dturley@pobox.com>
Subject: Re: test.pl is running on a local maschine, in www i see the only the source
Message-Id: <7ctih0$pr7$1@nnrp1.dejanews.com>
In article <7cr2ig$8c1$1@black.news.nacamar.net>,
"Andy Rundholz" <rundholz@wabe.de> wrote:
> my programm test.pl is running like a rabbit on a local maschine. /:-)
> but if i call the programm from a webserver i see only the source code?
>
Wouldn't you call it "from" a web browser. :-)
Anyway, do you actually have web server running? Is the web server configured
to execute the script? If we knew what web server you were using, we might be
able to provide some specific answers.
Details, details, details.
--
David Turley
dturley@pobox.com
http://www.binary.net/dturley
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Mar 1999 14:24:29 +0100
From: "MW" <oursDELETE-THIS@casema.net>
Subject: Testing if variable contains a certain word.....
Message-Id: <7ctj6o$9lf$1@news.casema.net>
Hi All,
How can I test if a variable contains a certain word?
I want to test $ENV{'HTTP_ACCEPT_LANGUAGE'} for 'nl'
to redirect people to other pages.
Thanks a lot,
MW
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 5175
**************************************
