[8330] in Perl-Users-Digest
Perl-Users Digest, Issue: 1947 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Feb 21 21:10:26 1998
Date: Sat, 21 Feb 98 18:00:24 -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 Sat, 21 Feb 1998 Volume: 8 Number: 1947
Today's topics:
Re: "Learning Perl" questions and frustrations <leviro@yahoo.com>
Re: 5.004 bug? invisible object dereferencing bill.gates@aol.com
Re: Cacheing and Back Button question. (Jonathan Feinberg)
Re: Can you read AND write to a child process? (David Efflandt)
Changing FILE contents <m_elkor@utumno.student.utwente.nl>
Re: Collon-seperated files? (Jonathan Feinberg)
do I need file locking? (Tom)
Re: eval, s//e, and uninitialized values: seeking $.02 <joseph@5sigma.com>
Re: eval, s//e, and uninitialized values: seeking $.02 (Jonathan Feinberg)
Re: for my $i (...) doesn't work on Win32? (Jeffrey Drumm)
Re: for my $i (...) doesn't work on Win32? (Martin Vorlaender)
Help! OLE calls for Word <Phil.Kime@ed.ac.uk>
How does the Perl-Interpreter works? <ingo.ruth@stud.uni-erlangen.de>
Re: How does the Perl-Interpreter works? <beans@bedford.net>
Re: I need HELP!!!!!!! (David Efflandt)
Re: lwp-mirror: at vs cron (Paul J. Schinder)
need help on search routines <jahnel@xarch.tu-graz.ac.at>
Re: need help on search routines <corky@ma.ultranet.com>
Re: Please help (Martin Vorlaender)
Powered by Perl logo <jscofield@mindspring.com>
Re: Sort help please! <joseph@5sigma.com>
Re: URL returned in HTML form from script concantenates (David Efflandt)
Win95 dial-up network programming <lenherr@tiac.net>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 21 Feb 1998 08:42:08 -0500
From: "Les" <leviro@yahoo.com>
Subject: Re: "Learning Perl" questions and frustrations
Message-Id: <6cmlkj$omv@bgtnsc01.worldnet.att.net>
David Pinkerton wrote in message <34ee3454.50494916@news.csrlink.net>...
>I've been starting to work my way through this book recently and have
>come across several operators (?) that have not worked. The first is
>the "chomp" command. This is the example:
>
>$name = <STDIN>;
>chomp ($name);
>
>and here is the error I receive:
>
>syntax error in file hello.sh at line 5, next 2 tokens "chomp ("
>Execution of hello.sh aborted due to compilation errors.
>
>*Luckily* I happened to read (somewhere else) that "chop" can be
>substitued for "chomp." So far this has worked but can anyone tell me
>why "chomp" will not work?
"chomp" is only available in Perl 5.0 or higher. You must be using Perl 4.
Les O'Connor
webmaster@pnlweb.com
------------------------------
Date: Sat, 21 Feb 1998 13:59:30 GMT
From: bill.gates@aol.com
Subject: Re: 5.004 bug? invisible object dereferencing
Message-Id: <34ee9ed2.274158982@nntp.ix.netcom.com>
1-What code are you reverse programming?
2-If a referenced object has been blessed into a package, then that
package name is returned.
Yes aolers it is me, we are one. I have wealth, but we share an ISP.
> . . .
> $self->thread_find_by_time( $aref ); # aref is from package AppTime.pm
> . . .
>
> sub thread_find_by_time
> {
> my $self = shift;
> my($rap_time) = @_;
>
> print "type is ", ref( $rap_time ), "\n"; ##### type of reference
> if ( ref ( $rap_time ) ) {
> print "It is a reference\n"; ##### double check it is a reference
> }
> print "mytime is " . $rap_time->stringize() . "\n"; # error!! executes
> # without dereference
>
>
>================================================================
>It prints out:
>
> type is AppTime ##### type of reference
> It is a reference ##### double check it is a reference
> my_time [0.830217: 4: 97] ##### error, method called without
> ##### an explicit dereference
>
>
>Has this problem been seen before? Is there a patch available? I
>am submittint this to perlbug@perl.com.
>
>Do the CPAN sites have a list of known bugs for a perl version?
>
>Thanks for your time.
>
>Curtis
>
>
>--
>_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
>_/ Curtis Hrischuk (PhD Cand) "in reality that comes from above _/
>_/ ceh @ sce . carleton . ca God is calling _/
>_/ Carleton University there's no bigger love _/
>_/ Ottawa, On., Canada, K1S-5B6 It's his reality that welcomes us back_/
>_/ Ph (613) 520-2600 x1762 Trust and obey _/
>_/ FAX (613) 520-5727 there is no other way..." the newsboys_/
>_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
------------------------------
Date: Sat, 21 Feb 1998 10:14:39 -0500
From: jdf@pobox.com (Jonathan Feinberg)
Subject: Re: Cacheing and Back Button question.
Message-Id: <MPG.f58b968c95f63ed98971d@news.concentric.net>
[courtesy cc of this posting sent to cited author via email]
ldn123NOSPAM@pobox.com said...
: Hello. I've been trying without luck to figure out how to prevent the
: user from using the back button from a certain page.
Hello. Perhaps one of the following resources will provide you with the
information you seek.
[This list courtesy of Tom Christiansen.]
CGI FAQ
http://www.webthing.com/page.cgi/cgifaq
The CGI Newsgroup (NOT THIS ONE):
comp.infosystems.www.authoring.cgi
CPAN's Web-related modules in Perl:
http://www.perl.com/CPAN/modules/by-category/15_World_Wide_Web_HTML_HTTP_CGI/
The Idiot's Guide to solving Perl/CGI problems
http://www.perl.com/perl/faq/idiots-guide.html
Perl FAQs
http://www.perl.com/CPAN/doc/FAQs/
Perl Manpages (old)
http://www.perl.com/CPAN/doc/manual/html/
WWW Security FAQ
www-genome.wi.mit.edu/WWW/faqs/www-security-faq.html
Web FAQ
http://www.boutell.com/faq/
HTTP Spec
http://www.w3.org/pub/WWW/Protocols/HTTP/
HTML Spec
http://www.w3.org/pub/WWW/MarkUp/
CGI Spec
http://hoohoo.ncsa.uiuc.edu/cgi/interface.html
--
#!/usr/bin/perl -w -- Just another Perl hacker,
(open 0),$_=<0>,s,.*- +,,,chop;for(split?@*?){($$_++or$}=$_,y,y \,\
y,<STDIN>,,$$=~s\^\"sub $_ {print'$}'};7"\ee),y,} \,},>STDOUT,,&$_}
# Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Sat, 21 Feb 1998 11:04:40 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Can you read AND write to a child process?
Message-Id: <34f6aedb.25789309@flood.xnet.com>
Mark McKay <kitfox@golden.net> wrote:
>Hi. I'm tyring to get perl to communicate with a small program I wrote
>(in C++) through STDIN & STDOUT. I've been through my Camel book, but
>can't seem to get the thing to work. Right now I have a copy of the
>binary (called 'db_access') both in my ~/bin and ./ directories. The
>general idea is you send one (fairly short) string to it's STDIN, and it
>spits out a formatted database query at it's STDOUT. Here's my code so
>far:
>
> use IPC::Open2;
>
> open2(PFROM_QRY, PTO_QRY, 'db_access');
>
> print PTO_QRY "select * from tuna";
> close(PTO_QRY);
>
> $f = <PFROM_QRY>;
> print $f;
>
>The error messages I'm getting are coming from my binary and indicate
>that it is not receiveing any input. Any suggestions? Please email me.
>
>Mark
I don't think I have the IPC module on my system, so I have forked a
copy of the script to feed a FIFO (see 'man perlipc') which in turn
feeds a third party program from what looks like a standard file. I
then opened the program from the original script with output piped
back to the script.
# Set up $fifo, fork to feed it, and then:
$cmd = 'somecmd -f $fifo'; # or whatever so cmd gets file input
open(IN, "$cmd |") or die "$cmd problem: $!";
while (<IN>) {
push $foo, $_;
}
close IN;
waitpid($fork, 0); # clear fork zombie
unlink $fifo; # remove fake file
For a more complete example similar to open3 using (2) fifos for
in/out while monitoring progress from stderr, see the 'mainmenu' sub
in http://www.xnet.com/~efflandt/pub/quickspy2.pl
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Sat, 21 Feb 1998 16:11:29 +0100
From: "Thomas van Gulick" <m_elkor@utumno.student.utwente.nl>
Subject: Changing FILE contents
Message-Id: <6cmqr3$lsf$1@dinkel.civ.utwente.nl>
What I do now is simply scan the file, write the lines until I find the
entry I need, then I write the new string and stop. I there an nicer way to
do this, without writing a lot of data to the file that hasn't changed at
all?
#burps
$test = "test";
if( open FILE,"+<test.file" ) {
flock FILE,2;
@content = <FILE>;
seek FILE,0,SEEK_SET;
foreach $line (@content) {
print "LINE($line)\n";
if( (index $line,"even") != -1 ) {
print "FOUND(even)\n";
print FILE "NEWNEWNEWNEW\n";
end;
} else {
print FILE $line;
}
}
flock FILE,8;
close FILE;
}
Thomas
--
m_elkor@utumno.student.utwente.nl
Remove the _underscore to reply privately.
------------------------------
Date: Wed, 18 Feb 1998 10:23:55 -0500
From: jdf@pobox.com (Jonathan Feinberg)
Subject: Re: Collon-seperated files?
Message-Id: <MPG.f54c71a6a8805e9896fa@news.concentric.net>
[courtesy cc of this posting sent to cited author via email]
ajh@ibe.dtu.dk said...
: How can I seperate collonseperated files (or semi-collon ...)?
perldoc -f split
--
#!/usr/bin/perl -w -- Just another Perl hacker,
(open 0),$_=<0>,s,.*-+ ,,,chop;for(split?@*?){($$_++or$}=$_,y,
y \,y,<STDIN>,,eval"sub $_ {print'$}'}"),y,} \,},>STDOUT,,&$_}
# Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Sat, 21 Feb 1998 16:01:26 GMT
From: boson@earthlink.net (Tom)
Subject: do I need file locking?
Message-Id: <34eef79d.7437827@news.earthlink.net>
Hi,
I have read that you use file locking if you suspect that a file will
be accessed many times simultaniously. I still don't grasp the file
locking idea completely, like in this (sketchy) example:
open FILE
[ do stuff here]
close FILE
[some code inbetween]
open FILE
[ do more stuff here]
close FILE
This program will never be used more than once at the same time. Will
the program proceed to the second open FILE statement before the first
one is finished, and file locking is needed?
Thanks for any answers.
Tomas Karlsson
------------------------------
Date: Sat, 21 Feb 1998 03:46:20 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: eval, s//e, and uninitialized values: seeking $.02
Message-Id: <34EEB07C.ADBE1A05@5sigma.com>
Mostly it has to do with the fact that the eval doesn't return
a value.
{joseph}:11% perl -we '$_ = "foo"; s/./undef/e'
Use of uninitialized value at -e line 1.
{joseph}:12% perl -we '$_ = "foo"; s/./""/ee'
Use of uninitialized value at -e line 1.
{joseph}:13% perl -e 'print "undef" unless defined eval "sub foo {}"'
undef
Jonathan Feinberg wrote:
> I'm guessing that this has to do with the difference between compile-time and
> run-time evaluation. I'd welcome some more precise insight from anyone who's
> got it to spare.
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
Date: Sat, 21 Feb 1998 10:18:44 -0500
From: jdf@pobox.com (Jonathan Feinberg)
Subject: Re: eval, s//e, and uninitialized values: seeking $.02
Message-Id: <MPG.f58ba64635456cf98971e@news.concentric.net>
joseph@5sigma.com said...
: Mostly it has to do with the fact that the eval doesn't return
: a value.
Yes. With the help of Paul Makepeace (with whom I corresponded privately) I
figured that out, and was thereby able to "improve" the ugly hack you see
below.
--
#!/usr/bin/perl -w -- Just another Perl hacker,
(open 0),$_=<0>,s,.*- +,,,chop;for(split?@*?){($$_++or$}=$_,y,y \,\
y,<STDIN>,,$$=~s\^\"sub $_ {print'$}'};7"\ee),y,} \,},>STDOUT,,&$_}
# Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Sat, 21 Feb 1998 13:39:29 GMT
From: drummj@mail.mmc.org (Jeffrey Drumm)
Subject: Re: for my $i (...) doesn't work on Win32?
Message-Id: <34eed50c.2007606@news.mmc.org>
On Sat, 21 Feb 1998 09:15:24 +0200, john.brownie@pp.inet.fi (John Brownie)
wrote:
>I took a working MacPerl script and tried it on the ActiveState port on
>Windows 95, and it complained about all the "for my $i (...)" constructs,
>claiming that there was a missing $ on the for variable. Removing the "my"
>made it work, but then I had to declare a useless my variable in
>surrounding code (I'm using strict) to get it to work.
>
>Is this a known problem with Win32? I couldn't find anything in the FAQ.
>Is it a difference between 5.003 and 5.004?
>
>I can live with this, but I'd like to know why.
>
>Thanks,
>John Brownie
It's a 5.003 thing. 5.004 gives you much more flexibility in the placement
of my(). Gurusamy Sarathy's port for Win32 is 5.004.02-based, and in my
experience, is significantly superior to ActiveState's port. It's found at
the usual place . . . http://www.perl.com (sorry, don't have the path
handy; I'm doing this off-line).
--
Jeffrey R. Drumm, Systems Integration Specialist
Maine Medical Center Information Services
420 Cumberland Ave, Portland, ME 04101
drummj@mail.mmc.org
------------------------------
Date: Sat, 21 Feb 1998 14:25:37 +0100
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: for my $i (...) doesn't work on Win32?
Message-Id: <34eed5d1.524144494f47414741@radiogaga.harz.de>
John Brownie (john.brownie@pp.inet.fi) wrote:
: I took a working MacPerl script and tried it on the ActiveState port on
: Windows 95, and it complained about all the "for my $i (...)" constructs,
: claiming that there was a missing $ on the for variable. Removing the "my"
: made it work, but then I had to declare a useless my variable in
: surrounding code (I'm using strict) to get it to work.
: Is this a known problem with Win32? I couldn't find anything in the FAQ.
: Is it a difference between 5.003 and 5.004?
: I can live with this, but I'd like to know why.
>From the perldelta POD ("What's new") of 5.004:
You can now use my() (with or without the parentheses) in
the control expressions of control structures
[...]
Also, you can declare a foreach loop control variable as
lexical by preceding it with the word "my".
The binaries for Win95 of the standard distribution port (based on 5.004)
are at $CPAN/ports/win95/standard/ .
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
Ceterum censeo | work: mv@pdv-systeme.de
Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: Sat, 21 Feb 1998 14:37:55 GMT
From: Phil Kime <Phil.Kime@ed.ac.uk>
Subject: Help! OLE calls for Word
Message-Id: <exgen0xf2gs.fsf@ed.ac.uk>
Greetings,
I'm trying to do some things with Word via OLE calls from a
PerlW32 script. I realise Word does not have full OLE support: you
can only get in via Word Basic using the "Basic" OLE object. Here
is the script:
use OLE;
$word = CreateObject OLE 'Word.Basic';
print $word->Bold; # prints 0
??
print $word->Bold; # prints 0
The problem is that for many Word Basic commands, there is a
"statement" and also a function. For example, the statement for
switching bold on is "Bold". There is also a function "Bold()" which
checks the current bold status. My problem is that I can't access the
statement, only the function. Meaning, I can't switch bold on or
off. This goes for a lot of Word functionality too. In place of ??
above, I have tried
$word->Bold = 1; # error
$word->Bold(1); # does nothing
$word->{Bold} = 1; # does nothing
etc.
How do I get access to the Word Basic *statements* rather than
functions? In VB you'd do word.Bold for the statement and
word.Bold() for the function, for example.
I think it's the same problem as this:
the FileOpen WB statement opens a file. It is used like this:
FileOpen .Name = filename
I can't use this from Perl using OLE. None of these work:
$word->FileOpen('.Name = C:\autoexec.bat');
$word->FileOpen->Name = 'C:\autoexec.bat';
or anything like them. I get the feeling that the OLE interface is
making it impossible to get at the necessary WB? Any help (by mail too
please) much appreciated.
p
--
= Phil Kime (Phil.Kime@ed.ac.uk) =
= Dept of Philosophy/Centre for Cognitive Science =
= University of Edinburgh =
------------------------------
Date: Sat, 21 Feb 1998 12:46:04 +0100
From: Ingo Ruth <ingo.ruth@stud.uni-erlangen.de>
Subject: How does the Perl-Interpreter works?
Message-Id: <34EEBE7C.7F1C@stud.uni-erlangen.de>
Hallo!
I just coded a little perl-program and started it using the
timex-command to measure time for executing it.
I found out, that the first time the program took more time
for executing than any further time. I think its because of the
interpreter.
Can anybody explain, how the interpreter works?
Thanks.
Ingo Ruth
------------------------------
Date: 21 Feb 98 12:37:25 GMT
From: "TomH" <beans@bedford.net>
Subject: Re: How does the Perl-Interpreter works?
Message-Id: <01bd3e4f$bf5e2ac0$159163ce@beans.bedford.net>
More likely you are seeing caching in the operating system.
...
> I found out, that the first time the program took more time
> for executing than any further time. I think its because of the
> interpreter.
>
> Can anybody explain, how the interpreter works?
...
------------------------------
Date: Sat, 21 Feb 1998 11:13:41 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: I need HELP!!!!!!!
Message-Id: <34f7b614.27638256@flood.xnet.com>
Eric <"Keric@pacific.net.sg"@pacific.net.sg> wrote:
>Hi, I am a student studying in Singapore. Can anyone help with the
>project I am doing right now? I have to get 2 input from the HTML
>document(windows 95/NT), add the 2 inputs using a simple perl
>script(Windows 95/NT) and then return the result to the HTML document.
>The interface can be kept simple.
>
>I hope anyone out there who have a working program can send them(perl &
>HTML) to me via e-mail(attachment if size too big).
>
>I really need the codes!!!!
>
>Thank you, GUYS
>
>Eric Kuo
For perl CGI scripts see: http://worldwidemart.com/scripts/
For info on how to get CGI to run on your server, see some other
newsgroup (something related to www.servers).
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Sat, 21 Feb 1998 11:08:17 -0500
From: schinder@leprss.gsfc.nasa.gov (Paul J. Schinder)
Subject: Re: lwp-mirror: at vs cron
Message-Id: <schinder-2102981108170001@schinder.clark.net>
In article <y4du39ufdbv.fsf@sdrc.com>, Paul Joslin <paul.joslin@sdrc.com> wrote:
} Apologies in advance if there isn't enough perl in this to interest you...
}
} I have a shell script which uses lwp-mirror to fetch a page, and then process
} it. The script runs correctly from the command line, and from at or batch,
} but not from cron. The error message is "lwp-mirror: 501 Not Implemented".
} Env problem, right? Especially since I'm behind a firewall and have to
} specify proxies via variables...
}
} If I save the environment from the command line (env | perl -pe
} 's/^(.*)=(.*)$/$1="$2"/gio' > FILE), and dot the file into the script, it
} still doesn't work from cron.
}
} What am I overlooking?
Just a guess, but how do you feed your script the list of URL's to
mirror? From a file on the command line, perhaps? If so, are you giving
cron (or your shell script) the *full path* to the file? I haven't used
at/batch in a while, but as I recall it cd's to the directory it's invoked
from, and of course running from the command line you'll usually get the
path right.
} --
} Paul R. Joslin paul.joslin@sdrc.com +1 513 576 2012
} Paul R. Joslin paul.joslin@sdrc.com +1 513 576 2012
} What about WRITING it first and rationalizing it afterwards? :-)
} --Larry Wall in <8162@jpl-devvax.JPL.NASA.GOV>
--
Paul J. Schinder
NASA Goddard Space Flight Center
Code 693, Greenbelt, MD 20771
schinder@leprss.gsfc.nasa.gov
------------------------------
Date: Sat, 21 Feb 1998 14:41:10 +0100
From: Jahnel Klaus <jahnel@xarch.tu-graz.ac.at>
Subject: need help on search routines
Message-Id: <34EED976.21F9F3AF@xarch.tu-graz.ac.at>
i had a look on the faqs and manuelsbut i did not get any serious
suggestions:
Hoe can i search a string weather it contains some characters:
i get the string with <stdin>.
i want know search another string weather it contains the input string:
how ca i do this?
TIA KLAUS
------------------------------
Date: Sat, 21 Feb 1998 10:58:03 -0500
From: Bob Trieger <corky@ma.ultranet.com>
To: jahnel@xarch.tu-graz.ac.at
Subject: Re: need help on search routines
Message-Id: <34EEF98A.232A@ma.ultranet.com>
Jahnel Klaus wrote:
>
> i had a look on the faqs and manuelsbut i did not get any serious
> suggestions:
> Hoe can i search a string weather it contains some characters:
> i get the string with <stdin>.
> i want know search another string weather it contains the input string:
> how ca i do this?
> TIA KLAUS
In your search of the FAQs and manuals you must have missed the
"little"[sic] section on RegExp. The natives call it perlfaq6.
HTH
Bob Trieger
corky@ultranet.com
------------------------------
Date: Sat, 21 Feb 1998 08:55:50 +0100
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: Please help
Message-Id: <34ee8886.524144494f47414741@radiogaga.harz.de>
Dao Phan (dphan@hal-pc.org) wrote:
: I am new to Perl and Perl 5.0 was installed on SCO5.02. I don't how to
: fix this problem.
: > The crypt() function is unimplemented due to excessive paranoia. at
: > /usr/local/e
: The Discus program uses the crypt function to encrypt user and
: moderator passwords. Because your Perl interpreter does not
: implement the crypt function, you will not be able to use Discus.
: Sorry... :(
I re-wrote a Java software implementation of crypt() as a Perl module.
Unfortunately, I don't have it handy right now (at home). As soon as I
get back to work (probably on monday), I'll put it up for download at
http://www.pdv-systeme.de/users/martinv/Crypt.pm
Then, if you put Crypt.pm into a path in @INC, and if you include some
lines like
eval { my $test = crypt('test','test'); }
if ($@ =~ /is unimplemented/) { use Crypt; }
in the script requiring crypt(), you should be set.
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
Ceterum censeo | work: mv@pdv-systeme.de
Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: Sat, 21 Feb 1998 08:14:12 -0500
From: "Jim Scofield" <jscofield@mindspring.com>
Subject: Powered by Perl logo
Message-Id: <6cmjtt$b8d@camel19.mindspring.com>
Some time ago, I saw a nice Powered by Perl logo. It was a small rectangle
with the Camel pictured. Does anybody know where I can get a copy of this?
Thanks,
Jim Scofield
jscofield@mindspring.com
------------------------------
Date: Sat, 21 Feb 1998 03:54:00 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Sort help please!
Message-Id: <34EEB248.AC7AE6BD@5sigma.com>
Yes, the rumors are true--Randal wrote the first draft of the
description of the ST in Effective Perl Programming. However,
I did somewhat brutally reword/rewrite it later on. Whatever the
process, it seems to have turned out well. :-)
Sort::Fields is still betaware but it should be perfectly useful
for most prototype and/or hacking purposes. Works for me!
-joseph
Randal Schwartz wrote:
>
> >>>>> "Jon" == Jon Drukman <jsd@hudsucker.gamespot.com> writes:
>
> Jon> Joseph's book (Effective Perl Programming) improved my soul. I
> Jon> never understood the S.T. until reading the EPP description.
> Jon> Very lucid.
>
> That may have a little to do with some correlation between the author
> of the first draft of those few pages, and the S in ST. :-)
>
> Jon> Now that I know how it works, I will happily install Sort::Fields
> Jon> so I never have to think about it again. :)
>
> Yes. Now that we know how to put a V8 under that hood, we don't have
> to keep the hood propped open. Cool.
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
Date: Sat, 21 Feb 1998 11:43:32 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: URL returned in HTML form from script concantenates in browser.
Message-Id: <34f8b803.28133882@flood.xnet.com>
Michael Telep <cybercomm@flinet.com> wrote:
>This one is a puzzler. I'm returning an URL
>
>
>
>print<<"EOP" ;
>
>Content-text/html\n\n
>
><HTML><BODY>
><A HREF="http://www.domain.com">GO HERE</A>
></BODY></HTML>
>
>EOP
>
>When the link is clicked on the returned page, the URL is added to the
>URL of the cgi-bin and script the page was returned from. Obviously you
>can't link this way.
>
>Anyoene ever deal with this or know how to fix it?
>
>Mike
Try "View Source" in your browser to see if it is a browser or server
problem or a typo. Not sure if those quotes around EOP do anything
unexpected (not needed). Also your Content line appears to be munged
and probably should not have a blank line before it. Since it is
followed by a blank line, you really only need one \n in this case.
Try:
print<<EOP ;
Content-type: text/html\n
<HTML><BODY>
<A HREF="http://www.domain.com">GO HERE</A>
</BODY></HTML>
EOP
David Efflandt/Elgin, IL USA
efflandt@xnet.com http://www.xnet.com/~efflandt/
------------------------------
Date: Sat, 21 Feb 1998 07:42:29 -0500
From: "Fred K. Lenherr" <lenherr@tiac.net>
Subject: Win95 dial-up network programming
Message-Id: <34EECBB5.AF25A30F@tiac.net>
I've used Perl for networking on UNIX systems, but can't get it to work
on my home Win 95 system (dial-up access with dynamic IP addresses).
The ports and FAQ's for Win32 all seem to assume you're running NT.
I've got Perl installed and working fine, but how do I do a connect()
and
other network stuff?
- The ActiveState port of chat2.pl expects to be able to do a
`hostname`,
which wouldn't help even if it succeeded.
- The "simple client" example on page 349 of Camel II uses inet_*
functions
which I don't seem to have.
Is there a port specifically for Win95 anywhere? Or at least non-trivial
documentation on using the NT ports on Win95?
If anybody is actually running Win95 and doing networking, please get in
touch
Thanks very much.
Fred
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
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 1947
**************************************
