[24895] in Perl-Users-Digest
Perl-Users Digest, Issue: 7147 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 16 14:06:55 2004
Date: Thu, 16 Sep 2004 11:05:13 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 16 Sep 2004 Volume: 10 Number: 7147
Today's topics:
Re: $| (undocumented) magic? (krakle)
Re: $| (undocumented) magic? (krakle)
Re: CGI.pm textfield problem drove me crazy ctcgag@hotmail.com
define regex in prefix of Text::Balanced functions (Wenjie)
Extremely off topic :Re: Xah Lee's Unixism <proto@panix.com>
Re: hv_iterinit has side effects - who cares about PL t (Ozgun Erdogan)
Is my algorithm wrong? <adsense@whitehouse.com>
Re: Is my algorithm wrong? <thundergnat@hotmail.com>
Re: Is my algorithm wrong? <adsense@whitehouse.com>
Re: Is my algorithm wrong? <adsense@whitehouse.com>
Re: killing a "nobody's" process and its group <1usa@llenroc.ude.invalid>
Re: newbie question (krakle)
Re: newbie question <spamtrap@dot-app.org>
script portability problem develop@gistenson.com
Re: Why this Regex not working? <adsense@whitehouse.com>
Re: Why this Regex not working? <adsense@whitehouse.com>
Re: Why this Regex not working? <adsense@whitehouse.com>
Re: Why this Regex not working? <mark.clements@kcl.ac.uk>
Re: Why this Regex not working? <mark.clements@kcl.ac.uk>
Re: Xah Lee's Unixism <proto@panix.com>
Re: Xah Lee's Unixism <cbfalconer@yahoo.com>
Re: Xah Lee's Unixism <proto@panix.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 16 Sep 2004 09:10:40 -0700
From: krakle@visto.com (krakle)
Subject: Re: $| (undocumented) magic?
Message-Id: <237aaff8.0409160810.50af7e42@posting.google.com>
Michele Dondi <bik.mido@tiscalinet.it> wrote in message news:<f8kek09p6h3v9j3v069dra66t8qj66dkuh@4ax.com>...
> On 13 Sep 2004 21:16:37 -0700, krakle@visto.com (krakle) wrote:
>
> >> While trying my hand at a new japh[*],
> >
> >Why why and why?
>
> Fun?!? Fun, Fun and more Fun?
>
If that's your idea of a fun time I feel bad for your
wife/husband/girlfriend/children/friends/co-workers...
------------------------------
Date: 16 Sep 2004 09:16:49 -0700
From: krakle@visto.com (krakle)
Subject: Re: $| (undocumented) magic?
Message-Id: <237aaff8.0409160816.72bef8b@posting.google.com>
hydroxide@inorbit.com (T. Ogawa) wrote in message news:<da01153a.0409160033.79797da0@posting.google.com>...
> Ala Qumsieh <notvalid@email.com> wrote in message news:<B1_1d.21323$7W3.102@newssvr29.news.prodigy.com>...
> > Sherm Pendley wrote:
> > > Also, JAPHs as sigs tend to give a bad impression of the language to
> > > those who've never seen any other Perl. They promote the idea of an
> > > insular community that delights in writing obscure code that's difficult
> > > for newbies and outsiders to grok.
> >
> > They're just jealous because they can't write any valid Python program
> > in just four lines (/me ducks and runs for cover).
> Well we can't write _any_ valid program in four lines
#!/usr/bin/perl -w
print "What's your name?";
my $name = <STDIN>;
print "Hi $name I just wanted to show you a valid Perl program in 4
lines. Isnt this valid?\n";
------------------------------
Date: 16 Sep 2004 17:35:01 GMT
From: ctcgag@hotmail.com
Subject: Re: CGI.pm textfield problem drove me crazy
Message-Id: <20040916133501.923$yq@newsreader.com>
ioneabu@yahoo.com (wana) wrote:
> I was going crazy over this stupid thing because the second text field
> wouldn't display $a.
I assume what you mean by that is that the 2nd time the cgi is invoked,
it returns "chicken" with the values that were submitted after the first
time the script was invoked, rather than the edited values you think it
should have. Right?
> I had to put in -force=>1 for it to work. Is
> that normal?
Yes. Without 'force' or some equivalent, when CGI regenerates the same
form that was just submitted, it uses the values that that parameter
currently has (i.e. It only uses your default value if there is no already
existing value in that parameter).
As an alternative to using force, you could just set the parameter to what
you want to be sometime before you print the form element:
param('chicken',$a);
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 16 Sep 2004 09:53:14 -0700
From: gokkog@yahoo.com (Wenjie)
Subject: define regex in prefix of Text::Balanced functions
Message-Id: <d2804eb3.0409160853.201d35ee@posting.google.com>
Hello,
I have a task to check things within some block in a file:
----%<-----
# this is the block to be analyzed:
{
Item one;
Item two
} quantity: 3
----%<-----
I want to get:
a):
Item one;
Item two
b): a) has quantity 3
Text::Balanced seems to be useful but I have met the problem to
specify "prefix":
use Text::Balanced qw(extract_bracketed);
use strict;
my $objfile = shift;
open (PAT, "< $objfile") or die "couldn't open $objfile for reading: $!\n";
my $text;
{
local $/;
$text = <PAT>;
}
my ($extracted, $remainder) =
extract_bracketed ($text, '{', "What_to_fill_here_?");
# What to do to extract quantity for the block?
Thanks for your helps,
Wenjie
------------------------------
Date: Thu, 16 Sep 2004 12:28:00 -0400
From: Walter Bushell <proto@panix.com>
Subject: Extremely off topic :Re: Xah Lee's Unixism
Message-Id: <proto-260822.12280016092004@reader1.panix.com>
In article <10kcn40mkm43c8f@corp.supernews.com>,
SM Ryan <wyrmwif@tango-sierra-oscar-foxtrot-tango.fake.org> wrote:
<snip>
> A soveign Iraq has the right to demand the USA leave. Do you think Iraq
> wants to become a target of Al Qaeda the way Saudi Arabia has been simply
> for the honor of having USA soldiers in their country?
<snip>
We have to expect a sovereign Iraq will be US hostile at best. And a
state with a state Mosque at best.
--
Guns don't kill people; automobiles kill people.
------------------------------
Date: 16 Sep 2004 10:26:28 -0700
From: ozgune@gmail.com (Ozgun Erdogan)
Subject: Re: hv_iterinit has side effects - who cares about PL theory
Message-Id: <48b43181.0409160926.6e4c4c1e@posting.google.com>
> In my book, things that "are supposed to do reads" generally don't end
> in "init".
>
> Xho
Thanks for backing me up Xho. That's what I was trying to say the
whole thread. If I want to do a hash read from the beginning, why
would I need to call init (change) the hash structure, right? Take
init out of the picture in T1/T2, and you'd get completely
non-deterministic behavior.
------------------------------
Date: Thu, 16 Sep 2004 15:43:20 GMT
From: "Looking" <adsense@whitehouse.com>
Subject: Is my algorithm wrong?
Message-Id: <swi2d.18480$Q7D.7175@twister01.bloor.is.net.cable.rogers.com>
Here is what I am trying to do:
For a given string, break it into two parts. The first part should be as
long as possible but less than 25 characters. The SPLIT key is a whitespace.
The second part is whatever left in the string;
My algorithm is to break the string to into many small parts the join them
with space.
@parts= split (/\W/, $original);
$thelength=0;$newpart1='';
foreach (@parts) {
$thelength=$thelength+length($_)+1;
if ($thelength > 25) {break;}
else {$newpart1=$newpart1.$_;}
}
I think my algorithm has problem. The simple task should be done within 2
lines of regex.
I am thinking of substr(); but I don't know how to find the position of the
last whitespace before character #25. Or I can do substr($original, 0, 25)
then check if the 25 is a whitespace etc... if not then go to #24.
Both my algorithms take n*n, which is really bad speed.
------------------------------
Date: Thu, 16 Sep 2004 12:50:34 -0400
From: thundergnat <thundergnat@hotmail.com>
Subject: Re: Is my algorithm wrong?
Message-Id: <4149c445$0$2678$61fed72c@news.rcn.com>
Looking wrote:
> Here is what I am trying to do:
>
> For a given string, break it into two parts. The first part should be as
> long as possible but less than 25 characters. The SPLIT key is a whitespace.
> The second part is whatever left in the string;
>
> My algorithm is to break the string to into many small parts the join them
> with space.
>
> @parts= split (/\W/, $original);
>
> $thelength=0;$newpart1='';
> foreach (@parts) {
> $thelength=$thelength+length($_)+1;
> if ($thelength > 25) {break;}
> else {$newpart1=$newpart1.$_;}
> }
>
> I think my algorithm has problem. The simple task should be done within 2
> lines of regex.
>
> I am thinking of substr(); but I don't know how to find the position of the
> last whitespace before character #25. Or I can do substr($original, 0, 25)
> then check if the 25 is a whitespace etc... if not then go to #24.
>
> Both my algorithms take n*n, which is really bad speed.
>
>
(edited message; I cancelled a previous one but it may still show up)
How about somthing like:
use warnings;
use strict;
my $original = 'This is a test string about 46 characters long';
my $end = $original;
my $start = substr($end,0,25,'');
$start =~ s/\s+(\S+)$//;
$end = $1.$end if defined $1;
print "$start --- $end\n";
print '$original length - '.length($original).' --- $start length - '.
length($start).' --- $end length - '.length($end)."\n";
If there is no space in the first 25 characters, it will just return
the first 25 characters as the start value, otherwise it will return the
longest string smaller than 25 characters of space delimited character
groups. It allows for multiple spaces between words. Check the length of
the $start value to determine if there was a space or not. 24 or less
means there WAS a space. 25 means there wasn't.
------------------------------
Date: Thu, 16 Sep 2004 16:56:30 GMT
From: "Looking" <adsense@whitehouse.com>
Subject: Re: Is my algorithm wrong?
Message-Id: <2Bj2d.19593$Q7D.7125@twister01.bloor.is.net.cable.rogers.com>
> Here is what I am trying to do:
>
> For a given string, break it into two parts. The first part should be as
> long as possible but less than 25 characters. The SPLIT key is a
whitespace.
> The second part is whatever left in the string;
>
> My algorithm is to break the string to into many small parts the join them
> with space.
>
> @parts= split (/\W/, $original);
>
> $thelength=0;$newpart1='';
> foreach (@parts) {
> $thelength=$thelength+length($_)+1;
> if ($thelength > 25) {break;}
> else {$newpart1=$newpart1.$_;}
> }
>
> I think my algorithm has problem. The simple task should be done within 2
> lines of regex.
>
> I am thinking of substr(); but I don't know how to find the position of
the
> last whitespace before character #25. Or I can do substr($original, 0, 25)
> then check if the 25 is a whitespace etc... if not then go to #24.
>
> Both my algorithms take n*n, which is really bad speed.
>
Here is my new code, Please tell me if there are better ways:
$s=qq("sadf content= "this is what i' want " asd " sdf " adfa " sdf');
$sub= substr ($s, 0, 25);
$offset=0;
while ($sub=~ m/ /g) {$offset=$-[0];}; #find the offset of the last space
print $offset."\n";
$sub= substr ($s, 0, $offset); # from start to offeset
print "$sub\n";
$sub= substr ($s, $offset+1); # from the offset to end
print "$sub\n";
i still think i did something wrong at
while ($sub=~ m/ /g) {$offset=$-[0];};
it got to be a better way to run the loop.
------------------------------
Date: Thu, 16 Sep 2004 17:01:13 GMT
From: "Looking" <adsense@whitehouse.com>
Subject: Re: Is my algorithm wrong?
Message-Id: <tFj2d.19615$Q7D.13707@twister01.bloor.is.net.cable.rogers.com>
> i still think i did something wrong at
> while ($sub=~ m/ /g) {$offset=$-[0];};
> it got to be a better way to run the loop.
>
$sub=~ s/\s//g;
does the same thing, faster without loop;
------------------------------
Date: 16 Sep 2004 13:35:58 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: killing a "nobody's" process and its group
Message-Id: <Xns956661A6DDBA0asu1cornelledu@132.236.56.8>
"A. Sinan Unur" <1usa@llenroc.ude.invalid> wrote in
news:Xns95665BC226989asu1cornelledu@132.236.56.8:
> hard task so long as one sticks with simple structures. IMNSHO,
> choosing not to write in not in fully formed sentences, dropping
How ironic ... I meant to write "... choosing not to write in fully formed
sentences ..." and meant no disrespect :)
Sinan.
------------------------------
Date: 16 Sep 2004 09:20:12 -0700
From: krakle@visto.com (krakle)
Subject: Re: newbie question
Message-Id: <237aaff8.0409160820.9a8b3ec@posting.google.com>
"Tintin" <tintin@invalid.invalid> wrote in message news:<2qnvbrF11ec9aU1@uni-berlin.de>...
> "krakle" <krakle@visto.com> wrote in message
> news:237aaff8.0409132008.2f48a3bb@posting.google.com...
> > To run as CGI you must include a content header
> >
> > so while the Perl script:
> >
> > #!/usr/bin/perl -w
> > print "Perl works\n";
> >
> > prints "Perl works" from the command line if you requested it from a
> > browser you would receive a "Premature end of script headers" error.
> > You'd have to define mime content header since the output of a CGI
> > script can be anything from text to images to anything. So try this:
> >
> > #!/usr/bin/perl -w
> > print "Content-type: text/html\n\n";
> > print "Perl works\n";
>
> So where's the HTML?
>
> I think you meant
>
> print "Content-type: text/plain\n\n";
No.. I meant just as I said text/html... Because don't you want the
browser to parse and read HTML to form a web page? text/plain is just
plain ol' useless text in a browser...
------------------------------
Date: Thu, 16 Sep 2004 13:25:47 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: newbie question
Message-Id: <cYGdnbPtpc8GUdTcRVn-gg@adelphia.com>
krakle wrote:
>>>#!/usr/bin/perl -w
>>>print "Content-type: text/html\n\n";
>>>print "Perl works\n";
>
> No.. I meant just as I said text/html... Because don't you want the
> browser to parse and read HTML to form a web page?
Parse and read *what* HTML? Your output here is a single line of plain
text, and the correct MIME type for that is text/plain.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Thu, 16 Sep 2004 17:17:58 +0000 (UTC)
From: develop@gistenson.com
Subject: script portability problem
Message-Id: <cichs6$s56$1@new7.xnet.com>
Hi,
At the beginning of each perl cgi script is the #! line. I'm assuming that
this is an http directive that executes perl and indicates thedirectory in
which perl is found.
I'm developing scripts for a client. The problem is that he is using a
different web host than I am, and perl is found in different directories,
so I need to use different #! directives at the beginning of the scripts.
I don't want to have to change the scripts when I move them from my host
to the client's host. Is there a '#if' '#else' type of directive pair, and
if there is, what is the syntax and what test could I use to have the
script know whether it's running on my host or the client's host?
(Possibly the environment, $ENV{'???'}.)
Is there another way to accomplish this?
Thanks,
Dan
------------------------------
Date: Thu, 16 Sep 2004 15:29:49 GMT
From: "Looking" <adsense@whitehouse.com>
Subject: Re: Why this Regex not working?
Message-Id: <Nji2d.18309$Q7D.8201@twister01.bloor.is.net.cable.rogers.com>
> Looking wrote:
> > $s='sadf content= "this is what i want " asd " sdf " adfa " sdf';
> > $s =~ s/.*content=.*?["|'](.*)?["|'].*/$1/si;
> > #$s =~ s/.*content=.*?["|']([^"|']*)["|'].*/$1/si;
> > print "$s\n";
> >
> > The scond regex works. I wonder why the first regex not working?
>
> That is because *, + and ? are greedy and will match as many characters as
> possible so (.*) will match everything to the end until the last ", | or '
> character. (Why are you trying to match the | character?) You probably
want
> something like:
>
> $s =~ s/.*content=.*?(["'])([^\1]*)[\1].*/$2/si;
May I ask what \1 is? I am trying to do a search of \1 on google but this
string is too short.
I need to get whatever is between the first 2 pairs of "" or '' after
content=
>
>
> John
> --
> use Perl;
> program
> fulfillment
------------------------------
Date: Thu, 16 Sep 2004 15:33:43 GMT
From: "Looking" <adsense@whitehouse.com>
Subject: Re: Why this Regex not working?
Message-Id: <rni2d.18368$Q7D.5528@twister01.bloor.is.net.cable.rogers.com>
> Looking wrote:
> > $s='sadf content= "this is what i want " asd " sdf " adfa " sdf';
> > $s =~ s/.*content=.*?["|'](.*)?["|'].*/$1/si;
> > #$s =~ s/.*content=.*?["|']([^"|']*)["|'].*/$1/si;
> > print "$s\n";
> >
> > The scond regex works. I wonder why the first regex not working?
> > I am trying to get whatever is between the first pair of "" or '' after
> > content=. It is parsing the header file of HTML pages.
> >
> > The first regex gave me this:
> > "this is what i want " asd " sdf " adfa
> >
> > But I need this:
> > this is what i want
> You may want to check out HTTP::Headers rather than doing this yourself.
>
If you mean HTML::HeadParser
I tried it and it is not working!.
That is the sample it gave:
$h = HTTP::Headers->new;
$p = HTML::HeadParser->new($h);
$p->parse(<<EOT);
<title>Stupid example</title>
<base href="http://www.linpro.no/lwp/";>
Normal text starts here.
EOT
undef $p;
print $h->title; # should print "Stupid example"
I tried to use $h->description, it does not return anything. I am trying to
get keywords, description etc, but got nothing.
If you know where the bugs are, let me know.
------------------------------
Date: Thu, 16 Sep 2004 16:09:54 GMT
From: "Looking" <adsense@whitehouse.com>
Subject: Re: Why this Regex not working?
Message-Id: <mVi2d.18869$Q7D.3859@twister01.bloor.is.net.cable.rogers.com>
> > $s='sadf content= "this is what i want " asd " sdf " adfa " sdf';
> > $s =~ s/.*content=.*?["|'](.*)?["|'].*/$1/si;
> > #$s =~ s/.*content=.*?["|']([^"|']*)["|'].*/$1/si;
> > print "$s\n";
> >
> > The scond regex works. I wonder why the first regex not working?
>
> That is because *, + and ? are greedy and will match as many characters as
> possible so (.*) will match everything to the end until the last ", | or '
> character. (Why are you trying to match the | character?) You probably
want
> something like:
>
> $s =~ s/.*content=.*?(["'])([^\1]*)[\1].*/$2/si;
>
By the way, I assume \1 is same as $1 but on the left side. Your code is not
working. It does not match anything. Although, I think your idea is right
$s=qq( "sadf content= "this is what i' want " asd " sdf " adfa " sdf' );
#$s =~ s/.*content=.*?["'](.*?)["'].*/$1/si;
$s =~ s/.*content=.*?(["'])([^\1]*)[\1].*/$2/si;
print "$s\n";
I hope it can return
this is what i' want
but yours return
"sadf content= "this is what i' want " asd " sdf " adfa " sdf'
so, no match.
------------------------------
Date: Thu, 16 Sep 2004 19:05:26 +0200
From: Mark Clements <mark.clements@kcl.ac.uk>
Subject: Re: Why this Regex not working?
Message-Id: <4149c7d6$1@news.kcl.ac.uk>
Looking wrote:
>>
>>$s =~ s/.*content=.*?(["'])([^\1]*)[\1].*/$2/si;
>
>
> May I ask what \1 is? I am trying to do a search of \1 on google but this
> string is too short.
> I need to get whatever is between the first 2 pairs of "" or '' after
> content=
you need to read up on regexps. check out
man perlre
For the record, \1 is a backreference ie it refers to a previously
matched and captured part of the regexp.
so
(["'])([^\1]*)[\1]
matches " or ', followed by any character other than these zero or more
times, followed by whichever of " and ' was matched the first time.
\1, \2 etc are typically used within the regexp itself, and $1, $2 etc
outside it (or in the second part of a s/// operation).
Mark
------------------------------
Date: Thu, 16 Sep 2004 19:15:33 +0200
From: Mark Clements <mark.clements@kcl.ac.uk>
Subject: Re: Why this Regex not working?
Message-Id: <4149ca36@news.kcl.ac.uk>
Looking wrote:
> If you mean HTML::HeadParser
> I tried it and it is not working!.
Er - I misread your requirement as parsing HTTP headers rather than the
<HEAD> section of an HTML document. Sorry for leading you down the wrong
path. Try this
use strict;
use warnings;
use HTML::HeadParser;
my $p = HTML::HeadParser->new();
$p->parse(<<EOT);
<title>Stupid example</title>
<base href="http://www.linpro.no/lwp/";>
Normal text starts here.
EOT
print $p->header("title");
------------------------------
Date: Thu, 16 Sep 2004 11:50:46 -0400
From: Walter Bushell <proto@panix.com>
Subject: Re: Xah Lee's Unixism
Message-Id: <proto-0613B5.11504616092004@reader1.panix.com>
In article <ud612rket.fsf@mail.comcast.net>,
Anne & Lynn Wheeler <lynn@garlic.com> wrote:
> Alan Balmer <albalmer@att.net> writes:
> > I don't really know what imagination has to do with the question. I
> > can imagine it being carved into 1277 pieces, but won't offer that
> > as a meaningful argument.
> >
> > Here in Arizona, we recently had a transformer delivered. On a
> > 800,000 pound, 280 foot long rig. By highway. No barges involved.
> >
> > As for the reference to Hatch, that's exactly what the OP was
> > writing about.
> >
> > I apologize for not having the time to read and research your
> > comments properly, so if it seems that I'm just picking on your
> > logic, or lack thereof, you are correct.
>
> my uncle moved houses ... i helped on maybe a dozen or so ... needed
> special permits ... and wide load escorts ... and carefully planned
> routes ... frequently for relatively controlled distances.
>
> if you choose your road routes carefully enuf ... you can miss a lot
> of the problems that you would run into moving by train. we had one
> route where i was on the peak of the house and had to grab wires over
> the side .... lift the wires up to clear the peak and walk the wires
> back as the house moved under.
I had an uncle in the business, his job was to check the route, they
didn't want him to retire. (O baby, when it comes time to move, nothing
beats the feeling of finding out by experience that the route is
untenable and no one wanted to put their career on the line, I suppose.)
But he finally convinced them, that he couldn't do the job forever.
--
Guns don't kill people; automobiles kill people.
------------------------------
Date: Thu, 16 Sep 2004 15:51:05 GMT
From: CBFalconer <cbfalconer@yahoo.com>
Subject: Re: Xah Lee's Unixism
Message-Id: <4149B516.17F7F078@yahoo.com>
Chuck Dillon wrote:
>
... snip ...
>
> Going into Iraq was IMHO justified without consideration of 9/11
> or the war on terror. Setting up a more democratic and educated
> Afghanistan and Iraq blows a big whole in Islam's isolation
> efforts and forces them to deal with the reality of the 21st
> century. The process will be bumpy but we can no longer be
> patient when the mainstream of Islam allow violence on the scale
> of 9/11 or beyond to occur.
I disagree. Afghanistan, yes. Chasing Bin Laden, yes. They were
the direct cause of 9/11 (which was not a unique occurance, except
in degree). Iraq, no. That was the descendent of "avenge
disrespect to Daddy" syndrome, and has been shown to have no
connection with either 9/11 nor with WMDs.
The whole business has effectively ended the punishment phase of
9/11 and justified it in the minds of many Moslems. For a short
while there was an opportunity to do an exemplary job in
Afghanistan and show the Islamic world the possibilities. That
has been thrown away by our Glorious Inept Leaders.
--
"This is a wonderful answer. It's off-topic, it's incorrect,
and it doesn't answer the question." -- Richard Heathfield
"I support the Red Sox and any team that beats the Yankees"
------------------------------
Date: Thu, 16 Sep 2004 11:57:31 -0400
From: Walter Bushell <proto@panix.com>
Subject: Re: Xah Lee's Unixism
Message-Id: <proto-1E36DE.11573116092004@reader1.panix.com>
In article <tqm7jqwrdxc.fsf@drizzle.com>,
Patrick Scheible <kkt@drizzle.com> wrote:
> Morten Reistad <firstname@lastname.pr1v.n0> writes:
>
> > I do not agree. Kennedy and Clinton had a lousy foreign-policy
> > record. The Bay of Pigs, Vietnam, the Cuba crisis were all
> > examples of glorious miscalculations. Ditto Rwanda, Somalia, and
> > the
>
> Vietnam was certainly a catastrophe, but the blame goes to Johnson,
> not Kennedy. There were only a few thousand U.S. troops in training
> and advisory roles in Vietnam by Kennedy's assassination. Johnson
> decided to escalate the war and have U.S. forces fight directly.
>
> Even the best presidents can't have nothing but successes. The Bay of
> Pigs was a failure, but at least Kennedy didn't compound the mistake
> by sending in U.S. troops where Cuban expats failed.
>
> -- Patrick
His mistake, was IIRC, promising air cover and then not delivering. Hey,
that's a mistake that has been made by real military leaders.
--
Guns don't kill people; automobiles kill people.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 7147
***************************************
