[18238] in Perl-Users-Digest
Perl-Users Digest, Issue: 406 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Mar 3 14:05:41 2001
Date: Sat, 3 Mar 2001 11:05:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <983646312-v10-i406@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 3 Mar 2001 Volume: 10 Number: 406
Today's topics:
Re: about dying ()
ANNOUNCE: cvs-repository.pl -- change contents of CVS/* (Jari Aalto+mail.emacs)
Can't start new process from Perl CGI script <henrik.martensson@swipnet.se>
check open files ? <joel.nyholm@home.se>
Re: check open files ? (Garry Williams)
checkbox problem <gi59@dial.pipex.com>
Re: deep recursion error (Tassilo von Parseval)
Re: gif problems!!! <gtoomey@usa.net>
Re: gif problems!!! (Tassilo von Parseval)
Re: gif problems!!! <c_clarkson@hotmail.com>
handling arrows keys <Ardok.f@voila.fr>
Re: Having trouble with variable scoping <Jonathan.L.Ericson@jpl.nasa.gov>
Re: Having trouble with variable scoping <c_clarkson@hotmail.com>
Re: Help Matt with small programs (Abigail)
Re: Help with sockets (Garry Williams)
length op <eg344@nyu.edu>
Re: Newbie - Perl for Win32 (Gasp!) ()
Parsing with Parse::RecDescent <andrew@nextra.com>
Re: Perl, Cookies, and Apache. <iltzu@sci.invalid>
Re: Problem with #! line using RedHat 7 (Garry Williams)
Re: Question! <godzilla@stomp.stomp.tokyo>
Re: retrieving ip adress <c_clarkson@hotmail.com>
Re: Server Push for IIS (Abigail)
Re: shell environement variables <alanc@alum.calberkeley.org>
Re: something unique <flavell@mail.cern.ch>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Mar 2001 18:09:58 GMT
From: rfield@best.com ()
Subject: Re: about dying
Message-Id: <97rc1m$2it0$1@nntp1.ba.best.com>
Why not have your own function
sub byebye($)
{
my $msg = shift;
print($msg);
exit(0);
}
where, strictly, the shift into $msg is redundant. You can also exit
with non-zero status, add text to frame the message, make it as fancy as you
want it.
emelin <emelin@my-deja.com> writes:
>> man CGI::Carp
>>
>> if you
>>
>> use CGI::Carp qw/ fatalsToBrowser / ;
>>
>> I believe this will get you what you are after....
>Okay, so I did this...
>This prints out lots of stuff...
>How do I print out ONLY my own error message, not all that junk from
>the server? (I know how to change the "contact webmaster for help" etc,
>but I want to get rid of EVERYTHING, including the info on where the
>script died)...
>Sent via Deja.com
>http://www.deja.com/
------------------------------
Date: 01 Mar 2001 23:13:17 +0200
From: jari.aalto@poboxes.com (Jari Aalto+mail.emacs)
Subject: ANNOUNCE: cvs-repository.pl -- change contents of CVS/* files
Message-Id: <ta23vcegmaec70@corp.supernews.com>
Keywords: repository,cvs,files,time,root,perl,www,name
All of you that need to chnage repository locations from time to time,
here is script that has been uploaded to CPAN.
http://www.cpan.org/modules/by-authors/id/J/JA/JARIAALTO/
NAME
@(#) cvs-repository.pl - Change CVS repository file contents
README
CVS is a concurrent version control system and available for multiple
platforms at `http://www.cvshome.com'. This program will help changing
the content of client files Root, Repository, Entries and Tag. From time
to time there is a need to change the repository locations and this
needs immediate changin in following files:
Before:
CVS/Root /cygdrive/g/data/version-control/cvsroot
CVS/Repository emacs/gnu-emacs/lisp
After:
CVS/Root /cygdrive/h/data/version-control/cvsroot
CVS/Repository emacs/gnu-emacs/lisp
In the above example, the Win32 http://www.cygwin.com/ hard disk
repository was changed from disk g (that possibly filled up) to a
partition h. Any similar change can be carried out with any of these
files. The changes to the files are made using perl code that is evaled
and for the above situation the command line parameters in Win32 would
be:
perl -S cvs-repository.pl --name "/Root$" --eval "s,/g/,/h/," .
SYNOPSIS
cvs-repository.pl --name FILE-REGEXP --eval PERL-CODE DIR [DIR DIR ..]
OPTIONS
Gneneral options
--name FILE-REGEXP
Search files that match regexp for modification. The regexp is
amtched against absolute path name, so don't use "^Repository$" to
match file exactly, but the leasing forward slash for absolute name:
"/Repository$"
--eval PERL-CODE
Evaluate perl code for each line in the found file. The current line
is available at $ARG, so simple substrirutions s/search/substitute/
are the most used ones. However, you can include any valid perl e.g
in "do{ the; code; here }".
------------------------------
Date: Sat, 3 Mar 2001 15:43:35 +0100
From: "Henrik Martensson" <henrik.martensson@swipnet.se>
Subject: Can't start new process from Perl CGI script
Message-Id: <go7o6.5955$hi2.17382@nntpserver.swip.net>
I have a Perl script that reads an XML file and converts it to FrameMaker
MIF format. After the MIF conversion, the Perl script is supposed to start
another program, DZBatcher, that in its turn runs FrameMaker and produces a
Postscript file.
The script runs very well when launched from the command line, but when I
try to start the process from a CGI script, everything works to the point
where the CGI script is supposed to start a new process. The new process is
apparently launched, but nothing actually happens. DZBatcher never runs.
I have tried launching the new process with system(), exec() and
Win32::Process. I have run the the CGI script under both Apache and Internet
Information Server.
I have taken care to use full path names everywhere. I am aware that a CGI
script does not know what directory it was started from.
I have even tried using
@command = ("start","anabsolutepath/ascript.pl");
exec(@command);
I have tried running the whole thing under Win2000, Win NT4 and even Win98.
I have tried launching other things besides DZBatcher, like other Perl
scripts.
No matter what i've tried, the result is the same:
Everything works fine as long as I am running the process from the command
line. When I run the CGI version of my script, everything works to the point
where I try to launch a new process. Though I get return values that
indicate that a new process has been launched, the new process doesn't do
anything. It just starts up and immediately dies.
I am probably missing something obvious, but what?
/Henrik Martensson
------------------------------
Date: Sat, 03 Mar 2001 16:19:53 +0100
From: Joel Nyholm <joel.nyholm@home.se>
Subject: check open files ?
Message-Id: <3AA10B98.E578B4A0@home.se>
Hello,
How can i check if a file is open with perl ?
Thanks,
Joel
------------------------------
Date: Sat, 03 Mar 2001 18:56:19 GMT
From: garry@zvolve.com (Garry Williams)
Subject: Re: check open files ?
Message-Id: <n7bo6.117$mU5.3097@eagle.america.net>
On Sat, 03 Mar 2001 16:19:53 +0100, Joel Nyholm <joel.nyholm@home.se> wrote:
>Hello,
>
>How can i check if a file is open with perl ?
Wrap your I/O operation in eval {}; and examine $@ after that.
--
Garry Williams
------------------------------
Date: Sat, 3 Mar 2001 16:38:57 -0000
From: "Alan Hood" <gi59@dial.pipex.com>
Subject: checkbox problem
Message-Id: <97r50i$p85$1@lure.pipex.net>
I seem to have a problem passing a check box value to a CGI script.
If the box is NOT checked then the script returns an error.
If it is all seems OK.
Can anybody help?
Many Thanks
Alan Hood
------------------------------
Date: Sat, 03 Mar 2001 15:25:20 GMT
From: Tassilo.Parseval@post.rwth-aachen.de (Tassilo von Parseval)
Subject: Re: deep recursion error
Message-Id: <3aa10bf7.10234916@news.rwth-aachen.de>
Hi,
On Fri, 2 Mar 2001 21:02:45 -0600, "David Smith"
<dsmith@fitnessontherun.com> wrote:
>Thanks, but I am not aware if the redirect returns anything, so I have no
>way to do an if else.
No matter whether you need a return value or not: No one forces you to
store the value returned by your function. In your case (as in any
recursion) there must be a condition under which the recursion stops.
So, you let it recurse in a if-clause, like.
sub recursion {
if (cond1) {
&::recursion;
else # we have done what we wanted
return 0;
}
}
Greetings,
Tassilo
------------------------------
Date: Sun, 4 Mar 2001 00:10:45 +1000
From: "Gregory Toomey" <gtoomey@usa.net>
Subject: Re: gif problems!!!
Message-Id: <rJ6o6.7336$v5.27823@newsfeeds.bigpond.com>
How is your web server set up?
Which directory is the web server using as its starting directory?
Does it have read access to "img/hr.gif"?
What does this have to do with Perl?
-----------
"ToDa" <to.da@spray.se> wrote in message
news:1G6o6.5948$hi2.17318@nntpserver.swip.net...
> Why doesn't my gif-images shows? It works when I run the code as html
> document but not as perl code.
>
> print <<"HTML";
>
> <body bgcolor="#FFFFFF">
> <img src="img/hr.gif" width="500" height="3">
> </body>
>
> HTML
>
> Best regards // Tony
>
>
------------------------------
Date: Sat, 03 Mar 2001 15:11:28 GMT
From: Tassilo.Parseval@post.rwth-aachen.de (Tassilo von Parseval)
Subject: Re: gif problems!!!
Message-Id: <3aa107b6.9146372@news.rwth-aachen.de>
Hi,
On Sat, 3 Mar 2001 14:58:08 +0100, "ToDa" <to.da@spray.se> wrote:
>Why doesn't my gif-images shows? It works when I run the code as html
>document but not as perl code.
I suppose you want to dynamically generate html via CGI?
>
>print <<"HTML";
>
><body bgcolor="#FFFFFF">
><img src="img/hr.gif" width="500" height="3">
></body>
>
>HTML
If you want to send the above code to a webbrowser you first need to
give a minimal header. This would be:
print <<HTML;
Content-type: text/html\n\n
<body bgcolor> etc...
.
HTML
And do not forget the two newlines, they are required.
Or much better:
use CGI;
$cgi->new CGI;
print $cgi-> header,
$cgi->start_html,
$cgi->img {alt=>undef, src=>'img/hr.gif',align=>'LEFT'},
$cgi->end_html;
Hope that helps,
Tassilo
------------------------------
Date: Sat, 3 Mar 2001 09:24:10 -0600
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: gif problems!!!
Message-Id: <5B6F84580C067C33.A17D73FBE4E1CAEA.55C8390796D985D6@lp.airnews.net>
ToDa <to.da@spray.se> wrote:
: Why doesn't my gif-images shows? It works when I run the code as html
: document but not as perl code.
:
: print <<"HTML";
:
: <body bgcolor="#FFFFFF">
: <img src="img/hr.gif" width="500" height="3">
: </body>
:
Did you print headers from your perl code?
Can you show us which header you used?
HTH,
Charles K. Clarkson
------------------------------
Date: Sat, 03 Mar 2001 16:46:44 +0100
From: "Ardok" <Ardok.f@voila.fr>
Subject: handling arrows keys
Message-Id: <97r4m6$j93$1@reader1.fr.uu.net>
Hi all,
Beginner in perl, I have a little problem.
My program should display data by "slices" of 20
lines.
I would like to use the down and up arrow keys to
pass from a screen to another one.
Here is my question: How can I know that the user hit one of the these keys?
thanks in advance,
Ardok
PS: All my apologies for my bad english, but school time is far !
------------------------------
Date: 03 Mar 2001 03:45:21 -0800
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: Having trouble with variable scoping
Message-Id: <m34rxbrs8e.fsf@jpl.nasa.gov>
"Charles K. Clarkson" <c_clarkson@hotmail.com> writes:
> Jeffry A. Nokes <jeff_nokes@yahoo.com> wrote:
[snip many misunderstanding that could be resolved by reading perlmod
and perlsub]
> : I have just started using "use strict;" in all my Perl programs, since
> : it seems prudent to do so. If I took out the "use strict;" and the "my"
> : declaration, the above program works fine. Also, if I leave in the
> : "use strict;", the "my" declaration, and just type the code for the sub
> : definition into "main.pl" (comment out the "require ..." statemnt) it
> : works fine as well. I guess I have a few questions that I need help
> : with:
> :
> : (1) If I use "my" to declare variables in the largest scope of the
> : application, are these variables still global by definition?
> : (3) If I do use the "my" declaration, why can't my "required sub" see
> : the variable anymore?
>
> No. 'my' declares a variable locally aka lexically. You can declare
> a variable global by placing it before use strict. Try this:
>
> #!/usr/bin/perl
> $string = 'Global'; # This is a BAD thing
> use strict;
> require "subs.pl";
>
> &print_string;
> --------------------
>
> This will make $string global. Notice that we had to turn off
> warnings, but what you presented above indicates you didn't
> have them turned on anyway.
What a minute! You can still make $string "global". (I prefer the
term package variable). The way to quiet strict (and warnings) is to
declare globals with "our" (or "use vars"). The above code is silly.
> : (2) Why does "use strict" not allow the script to compile unless all
> : declared variables have a "my", "our" or "local" in front of it?
>
> 'use strict;' incorporates use strict 'vars'. Global variables are
> not safe and strict 'vars' is trying to keep you safe. Let's say your
> programming an application for a bank, You probably don't
> want some outside program accessing your $account_balance
> variable. You also wouldn't want someone changing a variable
> in subs.pl that you didn't expect would change when you wrote
> the subroutines.
This is just paranoid. You can still get global variables with strict
'vars' and it's impossible for an "outside program" to access them.
Reliance on package variables adds to the complexity of programs and
modules, which makes them more difficult to understand and maintain.
But sometimes it's useful.
[snip some good advice illuminated in perlsub]
> Note that you're when you require another program, your
> importing all its subroutines and any of its global variables
> into your programs namespace. You might want to use a
> module for your subroutines and common variables.
Not necessarily. Read perlfunc/require. Further, if you put a
package statement in the required file, "your" namespace (normally
"main") won't be affected. While you're at it take a look at
perlfunc/use.
Scope (especially across file and package bounds) can be confusing.
Your best bet is to read the documentation, play with simple scripts
and modules, and take a look at well writen modules in core Perl. In
general, either objects or functions should be the interface across
modules.
Jon
------------------------------
Date: Sat, 3 Mar 2001 10:15:09 -0600
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: Having trouble with variable scoping
Message-Id: <ACC6E0686D231DDC.8C824F30E3518ADA.6A656290DDD59BCB@lp.airnews.net>
Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov> wrote:
: Charles K. Clarkson <c_clarkson@hotmail.com> writes:
:
: > Jeffry A. Nokes <jeff_nokes@yahoo.com> wrote:
:
: [snip]
:
: What a minute! You can still make $string "global". (I prefer the
: term package variable). The way to quiet strict (and warnings) is to
: declare globals with "our" (or "use vars"). The above code is silly.
I constantly learn more from teaching than reading.
Thanks Jon,
Charles K. Clarkson
------------------------------
Date: 3 Mar 2001 15:07:00 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Help Matt with small programs
Message-Id: <slrn9a224k.gnu.abigail@tsathoggua.rlyeh.net>
Ren Maddox (ren@tivoli.com) wrote on MMDCCXL September MCMXCIII in
<URL:news:m3itlreqjv.fsf@dhcp9-175.support.tivoli.com>:
"" On 02 Mar 2001, ren@tivoli.com wrote:
""
"" > Or, for in a more Perl-ish way:
"" >
"" > int($_/5) == $_/5 and print "$_ " for 0..99; # requires 5.6
""
"" I left off the obvious enhancement of:
""
"" $_ % 5 or print "$_ " for 0..99;
{local $, = " ";
print grep {$_ % 5 == 0} 0 .. 99
}
with the added benefit of not printing a trailing space.
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
------------------------------
Date: Sat, 03 Mar 2001 18:02:14 GMT
From: garry@zvolve.com (Garry Williams)
Subject: Re: Help with sockets
Message-Id: <Gkao6.113$mU5.2806@eagle.america.net>
On Fri, 2 Mar 2001 16:00:01 -0800, Ben L. <um@no.com> wrote:
>Yes, the IPC page DOES have an example, exactly the same one that I pointed
>out. I understand what you are trying to do, and you can't do it the same
>way in Perl that you do in C.
Why not? Could you provide an example?
>In Perl, if you open a socket to a remote
>host, and you write to the socket and then right after that you try to read
>from the socket to get the remote host's response, it WILL NOT WORK.
Why not? I have lots of running code doing exactly that. The CPAN is
full of modules that do just that.
Of course this depends entirely on the *protocol*.
>If you
>fork() your process, and write in the parent and read in the child, you are
>still using the same socket, and you can then send and receive with your
>remote host without your script failing.
But now you are implementing a different protocol.
>If you were to actually look at the example I mentioned, *INTERACTIVE*
>client example using IO::Socket, you would see that the example SENDS and
>RECEIVES using the SAME socket, like your C program does.
Perhaps the OP did read that section. It describes a solution to a
different problem than the OP presented.
The problem the OP describes does not require two threads of
execution. It is a synchronous protocol. It's not clear why he has a
problem, but Chris Stith responded with good advice.
--
Garry Williams
------------------------------
Date: Sat, 3 Mar 2001 12:59:48 -0500
From: "Eduard Grinvald" <eg344@nyu.edu>
Subject: length op
Message-Id: <fCao6.2$K9.406@typhoon.nyu.edu>
hello,
Am i correct in assuming that length, given a pointer, only returns the size
of the pointer in bytes, an not the actual object referenced? Also, is there
any place on the web or is there a book that gives a listing of what the
sizes of different data types are (int,strings, arrays, arrayrefs, etc).
Thank You.
eduard grinvald
------------------------------
Date: 3 Mar 2001 18:24:45 GMT
From: rfield@best.com ()
Subject: Re: Newbie - Perl for Win32 (Gasp!)
Message-Id: <97rctd$2jtk$1@nntp1.ba.best.com>
>TJ Pontious wrote:
>>
>> I have Perl 5.6.0 installed on Windows 2000 server, and the command line
>> runs scripts perfectly. However, when I submit a form from a web page, it
>> displays the perl script instead of running the script. Did I miss a
>> setting I'm supposed to use somewhere in NT or IIS5 ?
>>
>> [Yes, I know that Win32 thing makes me the oddball in a Unix/Linux world,
>> but hey, somebody has to do it, right?] Thanks.
Under Win32 a script is not a "first class object", you may need to wrap
each and every script in its own executable wrapper. If your script is
named "foo", you would have a "foo.exe" which, somewhere, would contain
code somewhat like
spawnv(P_WAIT, "\\somewhere\\perl.exe", arglist);
where arglist is something like
char * arglist [] = { "perl.exe", "foo.pl", <args from command line>, 0};
The final 0 in arglist is a terminator, and the P_WAIT tells the invoking
program to wait for the spawned program to complete. I have left out the
capturing of return codes, etc.
The problem is that foo.pl is not really exeutable under Win32, and even a
batch file actually has an exec of something like "command /c foo.bat" hidden
somewhere. Hence the ugly cruft I describe above.
------------------------------
Date: Sat, 03 Mar 2001 18:46:39 +0100
From: Andrew Zhilenko <andrew@nextra.com>
Subject: Parsing with Parse::RecDescent
Message-Id: <3AA12DFF.4CFFE8DD@nextra.com>
Hello!
I'm trying tow rite a parser for orders for Atlantis (PBEM game).
Syntax is pretty simple: one line per command, each command
starts with name, followed by list of parameters. Basically it's
something like this (grammar for parsing one line):
Statement: Comment | Command Comment(?)
Comment: /;.*/
Command: '#atlantis' <commit> FactionID String
Command: 'attack' <commit> Number(s)
....
However I have problems to make it work as I want:
1) In case of failed parsing (syntax error, not allowey keyword, ...)
I want to store error messages in variable (not to be
just printed), so I can process them later.
2) In case if user types "attack bastards" I want to give him
error message that "list of numbers expected" instead
of just saying the "cannot parse this line". The only
thing that I came up with now was defining every command
like this:
Command: Attack
Attack: 'attack' AttackParams
AttackParams: Number(s) | <error>
...
Any better solutions?
WBR, Andrew
--
Andrew Zhilenko, AZ283-RIPE, System Manager
Nextra Czech Republic s.r.o.
tel.+42-02-96355111 fax. +42-02-96355112
e-mail: andrew@nextra.com http://www.nextra.cz
Millenium Plaza, V Celnici 10, Praha 1 - 11721
Czech Republic
------------------------------
Date: 3 Mar 2001 16:58:39 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: Perl, Cookies, and Apache.
Message-Id: <983637463.10011@itz.pp.sci.fi>
In article <MC4o6.302324$Pm2.4386543@news20.bellglobal.com>, Parrot wrote:
>
>Of course not, and why? Because the doctor is there to help people, and
>sometimes the help a person needs isn't so much medical.
You wouldn't trust a doctor to give you legal advice, would you? So why
do you think people here should be trusted on anything but Perl issues?
>The people here are giving Perl help for free - you'd assume that the
>reason they're doing it is because they like to help people.
See signature below.
Sorry, you just pushed one of my buttons. I may sometimes help people I
see are in need of it. Sometimes that's because I feel pity for them,
sometimes because I believe helping them will ultimately help everyone,
and sometimes because I hope they'll then go away. But by $DEITY that's
not what I'm here to do.
--
Ilmari Karonen -- http://www.sci.fi/~iltzu/
"Get real! This is a discussion group, not a helpdesk. You post
something, we discuss its implications. If the discussion happens to
answer a question you've asked, that's incidental." -- nobull in clpm
Please ignore Godzilla / Kira -- do not feed the troll.
------------------------------
Date: Sat, 03 Mar 2001 18:11:34 GMT
From: garry@zvolve.com (Garry Williams)
Subject: Re: Problem with #! line using RedHat 7
Message-Id: <qtao6.114$mU5.2806@eagle.america.net>
On 2 Mar 2001 22:24:05 GMT, Ben Okopnik <ben-fuzzybear@geocities.com> wrote:
>The ancient archives of 2 Mar 2001 21:34:06 GMT showed
>Rollin Thomas of comp.lang.perl.misc speaking thus:
>>"Gregory Toomey" <gtoomey@usa.net> JEOPARDY POSTED:
>>><mwhyte@pmds.com> wrote in message news:97ovnq$5hm$1@news.netmar.com...
>>>>
>>>> When I run "perl hello.pl", everything works fine. I've changed the
>>>> permissions of the file hello.pl to be 777, but I am unable to run the
>>>> program by simply typing "hello". When I do, I get this message:
>>>>
>>>> bash: hello: command not found
>>
>>Of course it doesn't work. It doesn't matter where the hell perl
>>is, and even if your current directory is in your path, IT WON'T
>>WORK UNLESS YOU TYPE IN THE NAME OF THE SCRIPT, WHICH IS
>>
>> hello.pl
>>
>>AND NOT
>>
>> hello
>
>...which makes this the FOURTH wrong answer, by your count, since it
>_still_ will not execute.
>
>./hello.pl
>
>And it may _still_ fail to execute if the path to perl is wrong.
But _that_ reason will not produce the error message that the OP
posted. _That_ reason will produce:
bash: ./hello.pl: No such file or directory
--
Garry Williams
------------------------------
Date: Sat, 03 Mar 2001 08:53:07 -0800
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Question!
Message-Id: <3AA12173.1827D12@stomp.stomp.tokyo>
Simon wrote:
> Godzilla! wrote:
> > Simon wrote:
> Thanks Godzilla! did you take a look at the URL
> I posted with teh question? Do you think that that
> is what they are doing?
(snipped)
This is impossible to determine. This ihavemoved.com
exhibits looping internet transaction returns when
no input data stream is provided. However, I can say
your URL cited contains no valid html tags. A lack of
html and looping transactions does suggest a program
of unknown type is being executed via an html extension.
This site also has a certificate problem, which can
indicate an attempt to intercept transaction data
although I seriously doubt this. It appears they
simply haven't formatted their certificate
correctly; it contains an incorrect site name.
**
Certificate for: ihavemoved.com Limited
Signed by: Thawte Consulting cc
Encryption: Highest Grade (RC4 with 128-bit secret key)
This Certificate belongs to:
www.ihavemoved.com
ihavemoved.com Limited
London, UK
This Certificate was issued by:
Thawte Server CA
server-certs@thawte.com
Certification Services Division
Thawte Consulting cc
Cape Town, Western Cape, ZA
Serial Number: 01:25:91
This Certificate is valid from
Thu Jun 29, 2000 to Sat Jul 14, 2001
Certificate Fingerprint:
F8:CB:95:B0:94:08:6C:78:B0:7A:33:24:FB:D9:29:7E
**
Godzilla!
--
@ø=(a .. z);@Ø=qw(6 14 3 25 8 11 11 0 17 14 2 10 18);
$§="\n";$ß="\b";undef$©;print$§x($Ø[4]/2);
for($¡=0;$¡<=$Ø[2];$¡++){foreach$¶(@Ø){
$ø[$¶]=~tr/A-Z/a-z/;if(($¡==1)||($¡==$Ø[2]))
{$ø[$¶]=~tr/a-z/A-Z/;}print$ø[$¶];if($¶==0)
{print" ";}if($¶==$Ø[12]){print" !";}&D;}
print$ßx($Ø[4]*2);}print$§x($Ø[10]*2);
sub D{select$©,$©,$©,.25;}exit;
------------------------------
Date: Sat, 3 Mar 2001 10:06:40 -0600
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: retrieving ip adress
Message-Id: <F170B878E5FD4D47.76534F5831310A38.58610A5A2B73AA54@lp.airnews.net>
Martien Verbruggen <mgjv@tradingpost.com.au> wrote:
: On Sat, 03 Mar 2001 09:28:06 GMT,
: Waarddebon <Waarddebon@chello.nl> wrote:
: > How can I retrieve the ip adress of a person ?
:
: Unfortunately, we're not at the stage yet that each person has an IP
: address. Since most people don't have implants addressable over TCP/IP
: anyway, there really is no need for it. Apart from that, there aren't
: enough IP addresses in the IPv4 address space to give each person a
: unique one. If you wait a little while, IPv6 will be in use everywhere,
: and you will have enough IP addresses to allocate one for each cell in
: each living organism on Earth. Maybe even enough to address each
: organism in the whole universe, once they are all equipped with network
: interfaces.
Rumor has it the implementation of IPv6 has a small bug in it.
Seems everyone is assigned 6.6.6 as an IP address. ;)
------------------------------
Date: 3 Mar 2001 15:17:15 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Server Push for IIS
Message-Id: <slrn9a22nr.gnu.abigail@tsathoggua.rlyeh.net>
same@make-it-online.com (same@make-it-online.com) wrote on MMDCCXLI
September MCMXCIII in <URL:news:MPG.150aee03f0e56abb989683@news.newsguy.com>:
^^ Hi,
^^
^^ Is there a way to implement server-push using Perl in IIS 5.0?
That question shouldn't be asked here, but in a forum dealing with IIS,
because it would be the same for Python, C, APL, etc.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: 3 Mar 2001 18:53:44 GMT
From: Alan Coopersmith <alanc@alum.calberkeley.org>
Subject: Re: shell environement variables
Message-Id: <97rejo$dcm$4@agate.berkeley.edu>
"Gregory Toomey" <gtoomey@usa.net> writes in comp.unix.solaris:
|There is a linux command called "source" which runs a script as part of the
|current process
|and does not invoke a new shell.
Believe it or not, "source" is NOT a linux command but a built-in
feature of UNIX shells since long before linux was created. ("source"
is the csh/tcsh equivalent of sh/ksh's "." built-in command.)
--
________________________________________________________________________
Alan Coopersmith alanc@alum.calberkeley.org
http://soar.Berkeley.EDU/~alanc/ aka: Alan.Coopersmith@Sun.COM
Working for, but definitely not speaking for, Sun Microsystems, Inc.
------------------------------
Date: Sat, 3 Mar 2001 15:31:28 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: something unique
Message-Id: <Pine.LNX.4.30.0103031526290.32282-100000@lxplus003.cern.ch>
On Sat, 3 Mar 2001, Waarddebon wrote:
> How can I retrieve something unique (there may not be 2 the same) from each
> visitor to my website ?
What led you to believe that this would be any different with Perl
than it would be for any other programming language?
It sounds as if you need to familiarise yourself with some CGI FAQs.
Try this for example:
http://www.htmlhelp.org/faq/cgifaq.3.html#1
and take up any further questions of this nature on the CGI
programming group comp.infosystems.www.authoring.cgi
The short answer is that you can't do this reliably. It might work
in a proportion of cases, maybe even in a majority of cases; but
you'll have no clear idea which cases those are.
------------------------------
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 V10 Issue 406
**************************************
