[12552] in Perl-Users-Digest
Perl-Users Digest, Issue: 6152 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 28 05:07:16 1999
Date: Mon, 28 Jun 99 02:00:19 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 28 Jun 1999 Volume: 8 Number: 6152
Today's topics:
Re: Comparing two associative arrays (Bart Lateur)
Re: FAQs and attitudes (was Re: How can I read a whole (Bart Lateur)
HELP: recv() failed in Solaris 2.6 kclau@my-deja.com
Re: How to store hashes (Bart Lateur)
Re: How to store hashes (Abigail)
Re: Linux better than perl? <JFedor@datacom-css.com>
London.pm Meeting <dave@dave.org.uk>
Re: MX record validation <gellyfish@gellyfish.com>
Re: MX record validation (Jim Britain)
Re: New Site about East Timor <gellyfish@gellyfish.com>
Re: NEWBIE TRYING TO CODE (Abigail)
Re: Perl under Win32--file date. <JFedor@datacom-css.com>
Re: Regular expressions <hvermeulen@correctnl.com>
Returning output from a secondary perl script? <alister@ihug.co.nz>
Re: Returning output from a secondary perl script? <swiftkid@bigfoot.com>
Storing "Complex" datastructures <thomas@bibsyst.no>
Re: TIMEOUT <bsemrau@nuernberg.netsurf.de>
Re: values obtained from a browser in a multiple option <swiftkid@bigfoot.com>
Re: Where can I download Perl? (Abigail)
Re: Where can I download Perl? (Iain Chalmers)
Re: Where can I download Perl? <JFedor@datacom-css.com>
Re: Where can I download Perl? <swiftkid@bigfoot.com>
Re: Why is this broken... (Abigail)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 28 Jun 1999 07:01:15 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Comparing two associative arrays
Message-Id: <377a1aa7.1299250@news.skynet.be>
bAbigail wrote:
>However, Bart is wrong, and Larry is right.
Thank you. All I did point out, was how it's not uncommon for hashes
with only identical keys to result in the same order in keys(). It did
not take into account that:
- hashes with the same number of keys may nevertheless have a different
shape. Your example, with one hash preallocated, is an example of such
hashes. I can imagine that the shape of hashes where keys have been
deleted, may differ too.
- as John Cochran wrote: if different keys happen to yield the same
hash value, their position in the hash tree, and therefore their order
in keys(%hash) is NOT fixed. I can accept John's words: it's their
addition order that determines their relative order in keys(), either
the same or reversed.
In short: it's not a good idea.
Bart.
------------------------------
Date: Mon, 28 Jun 1999 07:01:11 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: FAQs and attitudes (was Re: How can I read a whole file in one go ?)
Message-Id: <37781962.974314@news.skynet.be>
Abigail wrote:
>I guess this is another example of the twisty little maze of Unix tools,
>all different.
Heh heh. PoB strikes back.
Bart.
------------------------------
Date: Mon, 28 Jun 1999 08:22:23 GMT
From: kclau@my-deja.com
Subject: HELP: recv() failed in Solaris 2.6
Message-Id: <7l7bbp$bgb$1@nnrp1.deja.com>
Hi,
I try to write a Perl CGI program to use Socket, I tested it in Linux
and it worked just fine. But after moving to my webhosting site, running
Solaris 2.6 in Sun UltraSPARC II, it always failed at following line:
$nRecv = read(SOCK, $ResponseMessage, $MSG_SIZE) or die "recv: $!";
And the problem is, I don't know why? Because the error message always
content nothing! Totally blank message.
The server is running Apache 1.2.4 and the process for my CGI program
is always my login id (not 'nobody' or some other non-important id).
What possible reasons could make this situation happen?
Thanks for your help!!
Regards,
KC Lau
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 28 Jun 1999 07:01:13 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: How to store hashes
Message-Id: <377919bb.1063348@news.skynet.be>
Abigail wrote:
>What if either the key or the value has either a newline, or a tab in it?
>Then it would fail, wouldn't it?
Yes.
In case it didn't occur to you yet: you can't have tabs or newlines in
spreadsheet cells. It rarely's rarely necessary in data that ordinary
humans need.
And firing up a DB engine everytime a script starts, isn't too fast
either.
Bart.
------------------------------
Date: 28 Jun 1999 03:19:53 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to store hashes
Message-Id: <slrn7nec0s.v72.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCXXVII September MCMXCIII
in <URL:news:377919bb.1063348@news.skynet.be>:
== Abigail wrote:
==
== >What if either the key or the value has either a newline, or a tab in it?
== >Then it would fail, wouldn't it?
==
== Yes.
==
== In case it didn't occur to you yet: you can't have tabs or newlines in
== spreadsheet cells. It rarely's rarely necessary in data that ordinary
== humans need.
That's why there are no newlines in this posting. And tabs never appear
in source code. No sir. Ordinary humans don't need them.
I don't understand your point about spreadsheet cells. We're talking
about hashes, don't we?
== And firing up a DB engine everytime a script starts, isn't too fast
== either.
Well, yes, but that's why your DB engine runs 24x365, and you get paged
if it goes down, right?
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 28 Jun 1999 05:00:29 -0400
From: "Jody Fedor" <JFedor@datacom-css.com>
Subject: Re: Linux better than perl?
Message-Id: <7l7bp1$je3$1@plonk.apk.net>
J.Y. wrote in message <7l6lmt$vio$10@newsfeed.smartt.com>...
>Linux better than perl?
>-JY
>
Human better than English?
------------------------------
Date: Mon, 28 Jun 1999 07:55:08 GMT
From: Dave Cross <dave@dave.org.uk>
Subject: London.pm Meeting
Message-Id: <7l79oq$b40$1@nnrp1.deja.com>
The July meeting of the London Perl M[ou]ngers will take place this
Thursday (July 1st). As usual, we'll be in the cellar bar of Penderel's
Oak on High Holborn. We'll be there from about 6:30pm.
Anyone with any interest in Perl who lives, works or can be in London on
the night will be made very welcome.
Dave...
p.s. As always, no dancing canines - but we *do* have thirsty camels!
--
Dave Cross
<http://www.dave.org.uk>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 28 Jun 1999 09:11:12 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: MX record validation
Message-Id: <37772e20@newsread3.dircon.co.uk>
David L. Nicol <david@kasey.umkc.edu> wrote:
>
> This issue is not dealt with at
>
> http://language.perl.com/newdocs/pod/perlfaq9.html#How_do_I_send_mail_
>
> Who has a good method for validating an e-mail domain exists?
>
> I'm looking for something tighter than
>
> sub GoodMXp($){my $hostname=shift;
> my $digreply=`(dig +pfmin $hostname; dig MX +pfmin $hostname)|grep -v
> ^\;\;`;
> $digireply =~ m/\S/s and return 1;
> return 0;
> };
>
The module Net::DNS available from CPAN will do what you want ...
/J\
--
"I must call a man in - I want to get felt laid down in the loft" -
Graham Norton
------------------------------
Date: Mon, 28 Jun 1999 08:41:14 GMT
From: jbritain@home.com (Jim Britain)
Subject: Re: MX record validation
Message-Id: <377833ea.67160378@news>
On Mon, 28 Jun 1999 05:33:15 +0000, "David L. Nicol"
<david@kasey.umkc.edu> wrote:
>Who has a good method for validating an e-mail domain exists?
>
>I'm looking for something tighter than
>
>sub GoodMXp($){my $hostname=shift;
> my $digreply=`(dig +pfmin $hostname; dig MX +pfmin $hostname)|grep -v
>^\;\;`;
> $digireply =~ m/\S/s and return 1;
> return 0;
>};
This validates for syntactical correctness, and checks that a
mailserver is available for the given address..
It needs the CPAN Email module to do the long dirty work..
#!/usr/bin/perl -w
#@# verify e-mail addresses for syntactical correctness and
#@# perform a check for a system that will accept mail for
#@# each address.
#@# Does NOT verify the user exists. Send mail to do that
#@# jim britain, 05/27/99
use diagnostics;
use strict;
use Carp qw(verbose);
use Email::Valid;
use vars qw( $sourcelist $goodlist $badlist $check);
$sourcelist = "/home/lists/verify.these";
$goodlist = "/home/lists/goodlist2";
$badlist = "/home/lists/badlist2";
$check = new Email::Valid;
open (LIST, $sourcelist) || die $!;
open (BADLIST, ">>$badlist") || die $!;
open (GOODLIST, ">>$goodlist") || die $!;
foreach (<LIST>){
chomp;
if ( $check->address( -address, "$_", -mxcheck, 1)){
print GOODLIST "$_\n";
}else{
print BADLIST "$_\n";
}
}
------------------------------
Date: 28 Jun 1999 09:12:59 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: New Site about East Timor
Message-Id: <37772e8b@newsread3.dircon.co.uk>
Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "D" == DrCursor <drcursor@leirianet.pt> writes:
>
> D> See http://www.leirianet.pt/~drcursor,
> D> a new page about East-Timor, and politics...
> D> You can publish your own texts or images
> D> in this site.
>
> is this an announcement of an East-Timor perl monger's group?
>
> otherwise, why did you post it here? do you even know where you posted
> it? or did you just spam us? do you even care? have you a clue?
>
I always thought that a Java.pm group would be a good idea.
/J\
--
"The internet is like a car boot sale" - Jon Sopel, BBC News
------------------------------
Date: 28 Jun 1999 01:59:46 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: NEWBIE TRYING TO CODE
Message-Id: <slrn7ne7ak.v72.abigail@alexandra.delanet.com>
Cameron Graham (cameron.graham@dse.gen.nz) wrote on MMCXXVII September
MCMXCIII in <URL:news:930536214@dse.gen.nz>:
{} ok guys ive been doing perl for maybe 3 weeks, i think i have (some of)
{} it sussed. i got a script that im writing that takes INPUTS from my
{} Applications page and writes the details in an appending txt file...now
{} i dont think this is extremely hard to do but i am having troubles....
{} heres the script:-
{}
{} #!perl
^^^^ Where is the -w???
{} ### START OF SCRIPT ###
{}
{} use strict;
{}
{} read(@input); # PAGE DATA IS RECIEVED HERE
You do know that read() is a core function, don't you?
{} @pairs = split(/&/, $input);
What is $input? How can you use @input, @pairs and $input without
my()ing them first (or the use of 'use vars'), when having 'use strict;'?
{} # INPUTS FROM THE PAGE ARE
{} # TAKEN FROM HERE ON AND
{} # ASSIGNED VARIABLES.
{}
{} main: {
Urg. Why the label and the block?
{} my $name=@input{"name"};
Where does %input come from? And why do you assign a slice to a scalar?
{} if ( $name='' ) { my $error_string="Please give me your real name";
{} }
Since '' is false, the block will never be executed. Not that it would
be very useful; it will set $error_string, and then immediately forget
about it.
{} [ Same errors repeated many times ]
{}
{} &savefile;
{}
{} sub savefile { # SAVES EVERYTHING TO A FILE
{}
{} my $filename="apps.txt";
{}
{} open(FILE, ">>$filename") || &html;
Shouldn't you at least inform someone *what* went wrong?
{} print FILE "********************************\n";
Why not a here document?
{} sub html {
{} #
{} # Prints a error message depending on the variables left out
{} # or if all ok, sends you to the page main.htm.
This comment doesn't have anything to do with the actual code.
{} #
{} # $error_string = $_[0];
{}
{} print "Content-type: text/html\n\n"; #80
{}
{} print <<HTML;
{} <HTML>
{} <HEAD>
{} <TITLE>WHOOPS! - SOMETHING WENT WRONG!<TITLE>
{} </HEAD>
{} <BODY>
{} <h1>HAY!! $error_string</h1>
But $error_string isn't defined.
{} </BODY>
{} </HTML>
{}
{} HTML
{} exit;
{} }
{}
{} use CGI qw(:standard);
That's a funny place for a 'use'.
{} print redirect('thanx.htm');
{}
{} # I KNOW NOTHING ABOUT CGI OR PERL ;)
Then why are you making Perl programs? First learn the language *then*
program in it.
{} NOW!!
{} can someone please help me with this? i really need this done soon,
{} thanx ppl...
I'd suggest removing the script, learn Perl, and start over.
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 28 Jun 1999 04:51:27 -0400
From: "Jody Fedor" <JFedor@datacom-css.com>
Subject: Re: Perl under Win32--file date.
Message-Id: <7l7b84$j5n$1@plonk.apk.net>
Jeremy wrote in message ...
> How do I retrieve the date on a file with Perl under Win32?
>
> -Jeremy
>
>
If you are using ActiveState Perl,
Click Start, Programs, ActivePerl, Online Documentation
Then on your left, you will see about 3/4 of the way down something
called perlfunc
Click on perlfunc and search in the right window for stat
Have fun with Epoch Seconds!
Jody
------------------------------
Date: Mon, 28 Jun 1999 10:28:38 +0200
From: Henry Vermeulen <hvermeulen@correctnl.com>
Subject: Re: Regular expressions
Message-Id: <37773236.9B1EFE4F@correctnl.com>
>
> ----------------------
> #!/usr/bin/perl -w
> use strict;
>
> while (<DATA>) {
> print if m#<TABLE>#i .. m#</TABLE>#i;
>
> last if m#</TABLE>#i;
> }
>
This will not work with nested structures.
Regards Henry
------------------------------
Date: Mon, 28 Jun 1999 19:16:39 +1200
From: "Aaron Lister" <alister@ihug.co.nz>
Subject: Returning output from a secondary perl script?
Message-Id: <7l78g9$ps1$1@newsource.ihug.co.nz>
I'm stumped, I'm sure it's an easy task, but I've been unable to solve it.
How do I run a perl script from within another and get output from the
called script in order to use it in the calling script?
i.e.
A.pl contains:
$a = `b.pl`;
b.pl should return a string of text.
I want to get that string into the variable $a.
For now I've got around it by writing out to a file and reading the contents
for $a. I'd like to do it a simpler way than this.
can anyone help????
Aaron
------------------------------
Date: Mon, 28 Jun 1999 12:51:41 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: Returning output from a secondary perl script?
Message-Id: <7l8cqc$3uo3@news.cyber.net.pk>
It works for me!
$output = `/dir/myscript.pl`; # linux
$output = `perl /dir/myscript.pl`; #win32
You can get each line of the output in an array by:
@output = `/dir/myscript.pl`; #linux
..
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Faisal Nasim (the Whiz Kid)
Web: http://wss.hypermart.net/
AOL: Whiz Swift
ICQ: 4265451
FAX: (815) 846-2877
Aaron Lister <alister@ihug.co.nz> wrote in message
news:7l78g9$ps1$1@newsource.ihug.co.nz...
> I'm stumped, I'm sure it's an easy task, but I've been unable to solve it.
>
> How do I run a perl script from within another and get output from the
> called script in order to use it in the calling script?
>
> i.e.
>
> A.pl contains:
>
> $a = `b.pl`;
<snip>
------------------------------
Date: Mon, 28 Jun 1999 09:31:41 +0200
From: Thomas Weholt <thomas@bibsyst.no>
Subject: Storing "Complex" datastructures
Message-Id: <377724DD.9115BB74@bibsyst.no>
Hi,
I got a database-like structure I`d want to store to disk. I have tried
the text-approach, using delimeters and split, now I`m looking at
examples in the Perl Cookbook and discovers that there are allready ways
of doing this that seem safer and more "correct perl".
There data I am talking about are files on cd-roms. I want to store
name, path, size, modification date, type ( java, c, html, exe, pl etc.
), if mp3 = info about artists, title, etc., if image = info about size
and type, if archive = info about uncompresed size, number of files etc.
You see that the structure isn`t the same for all files. In the
text-delimeter-approach I`ve used so far, the type-content defines how
to process the content of a specs-var containing info related to the
file-type.
Eg.
If mp3-file, type mp3, the the specs-var holds
<artist-name>$<song-title>$<ablum-title>..., where $ is a delimeter.
If jpg, type image, specs = <width>$<height> ...
Typical entries for some files would be ( # is a delimeter )
/someplace/mp3/#john denver_some-crap.mp3#3,4mb#date#mp3#john
denver$some crap$best of ....$56khz
/someplace/images/#cindy_crawford-cindy132143242.jpg#150kb#date#image#1200$800
and each entry would be processed like
$tmp = <entry-fetched-from-hash>
my ($path, $name, $size, $date, $type, $specs) = split(/#/, $tmp);
if ($type eq "mp3") { my ($artist, $title, $album ...) = split(/$/,
$specs); }
if ($type eq "image") { my ($width, $height) = split(/$/, $specs); }
etc.
This seemed like a working-solution. At least I haven`t runned into any
problems so far. I read that I could use a record-like structure and
store this to a tied hash using a module, but that it used Data::Dumper
to stringify the entries. Isn`t that what I`m doing manually?
Now the second thing I wanted to do, was build an index of the entries
in the filename-hash, for full-text searching.
I used a similar apporach like the above
An entry in the index-hash looks like
keyword=values
The values is structured like this
y.x, where y is the uniq cd-number, and x is the id used to fetch the
entry in the filename-hash.
eg. 32.5433 = cd number 32, filename 5433
A typical entry in the index-hash look like
"perl"=32.43434$23.55$123.432$...
( where $ is a delimeter )
To look up a filename, or several filenames, I used something like
@to_lookup = split(/$/, $index_hash{$keyword});
and processed each entry in the @to_lookup-list, like so
foreach $filename_id (@to_lookup){
$tmp = $filename_hash{$filename_id};
# and then the split-function is applied, like shown above, to extract
each part of the entry to vars.
}
Reading The Perl Cookbook ( THE perl book :-> ), I started thinking
about making the structure a bit different, using tip 11.9 in the
Cookbook and storing it like shown in tip 11.14.
What I am conserned about is what happens when the values in the
index-hash starts getting big. How will that affect the speed, size and
stability when I use delimeters and split etc? Allthough it`s working
fine now, size and speed wise, I haven`t tested this on larger amounts
of data.
Secondly, I hope people can use and improve my scripts, and the
readability would increase if I used an apporach more similar to that
described in the Cookbook. How is the speed and size aspect of the tips
lined up in this great book?
Being a perl newbie I`d like some input on this issue, but please keep
in mind that things like these aren`t that easy to understand coming
from a Windows platform, using pre-built tools like Database Wizards and
blahblahblah. In short, - be gentle.
Thanks!
I`ll be silent now.
Best regards,
Thomas Weholt,
Norway
------------------------------
Date: Sun, 27 Jun 1999 22:40:00 +0200
From: Bruno Semrau <bsemrau@nuernberg.netsurf.de>
To: GiN <Ch1ckEn@hotmail.com>
Subject: Re: TIMEOUT
Message-Id: <37768C20.BD7CDF51@nuernberg.netsurf.de>
Hello GIN!
GiN wrote:
>
> i have a question:
>
> i opened i socket S
>
> and i expect a line: $line = <S>;
> but when the line doesn't come (a timeout) then: $line = "timeout\n";
>
> how do i do this?
>
> thanks advanced!
>
> Gin
#!/usr/local/bin/perl
$SIG{'ALRM'} = alarm_handler;
$ttw = 5; # time to wait
$line = &getline_timeout($ttw+2);
print $line;
#
# alarm_handler()
#
sub alarm_handler
{
die "timeout! dying...\n";
}
sub getline_timeout
{
my($secs) = @_;
my $line;
alarm($secs);
$line = <S>;
alarm(0);
$line;
}
# end
bye
Bruno
------------------------------
Date: Mon, 28 Jun 1999 12:44:08 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: values obtained from a browser in a multiple option list
Message-Id: <7l8cc7$3uo1@news.cyber.net.pk>
@list = param ( 'multiple' );
# will return an array of chosen fields
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Faisal Nasim (the Whiz Kid)
Web: http://wss.hypermart.net/
AOL: Whiz Swift
ICQ: 4265451
FAX: (815) 846-2877
Derek Lavine <derek@realware.com.au> wrote in message
news:3777011E.19DEF9C0@realware.com.au...
> Hi all
>
> I have an HTML page that contains the following option controll. That
> will allow the user to specifiy multiple OS's
<snip>
------------------------------
Date: 28 Jun 1999 02:01:49 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Where can I download Perl?
Message-Id: <slrn7ne7eg.v72.abigail@alexandra.delanet.com>
Martien Verbruggen (mgjv@comdyn.com.au) wrote on MMCXXVII September
MCMXCIII in <URL:news:DUBd3.179$W92.6680@nsw.nnrp.telstra.net>:
,, In article <7l6jjc$hre$1@imsp009a.netvigator.com>,
,, "Patrick" <pat4b@hongkong.com> writes:
,, > As title
,,
,, From the web. Try the first sitename that comes to mind, and you'll
,, very likely be successful.
I didn't find perl on www.p0rn.com.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 28 Jun 1999 17:18:16 +1000
From: bigiain@mightymedia.com.au (Iain Chalmers)
Subject: Re: Where can I download Perl?
Message-Id: <bigiain-2806991718160001@bigman.mighty.aust.com>
In article <slrn7ne7eg.v72.abigail@alexandra.delanet.com>,
abigail@delanet.com wrote:
> ,, From the web. Try the first sitename that comes to mind, and you'll
> ,, very likely be successful.
>
>
> I didn't find perl on www.p0rn.com.
>
>
you need to follow the "HOT LIVE TEEN PROGRAMMING LANGUAGES FROM CALIFORNIA"
link
(or so I'm told:-)
Iain
------------------------------
Date: Mon, 28 Jun 1999 05:04:18 -0400
From: "Jody Fedor" <JFedor@datacom-css.com>
Subject: Re: Where can I download Perl?
Message-Id: <7l7c07$jki$1@plonk.apk.net>
Patrick wrote in message <7l6jjc$hre$1@imsp009a.netvigator.com>...
>As title
>
>Patrick
>
>
What flavor of Perl are you looking for? Win32 or Unix?
Try www.activestate.com for Win32
Try www.perl.com for Unix
Ever heard of a search engine?
Jody
------------------------------
Date: Mon, 28 Jun 1999 12:47:48 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: Where can I download Perl?
Message-Id: <7l8cj2$3uo2@news.cyber.net.pk>
You post from Outlook! if you are looking for Perl for Win 9x/NT, go to:
http://www.activestate.com/ActivePerl/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Faisal Nasim (the Whiz Kid)
Web: http://wss.hypermart.net/
AOL: Whiz Swift
ICQ: 4265451
FAX: (815) 846-2877
Patrick <pat4b@hongkong.com> wrote in message
news:7l6jjc$hre$1@imsp009a.netvigator.com...
> As title
>
> Patrick
------------------------------
Date: 28 Jun 1999 03:25:01 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Why is this broken...
Message-Id: <slrn7necaf.v72.abigail@alexandra.delanet.com>
Mitch (portboy@home.com) wrote on MMCXXVII September MCMXCIII in
<URL:news:3777136D.6F715406@home.com>:
|| Does anyone have any ideas why this doesn't work? I'm still totally stumped
|| as to why it is broken?????? I've put in print statements all over the
|| place, but can't figure out why it is writing just the portion I want to the
|| file, and wiping everything else out.
use ESP;
my $program = ESP -> fetch ("Mitches program", YOU_KNOW_WHERE_TO_GET_IT);
print "You have a ", ($program -> error_types) [0], " error on line ",
($program -> lines_with_errors) [0], "\n";
__END__
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
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 6152
**************************************
