[24042] in Perl-Users-Digest
Perl-Users Digest, Issue: 6239 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 9 14:05:39 2004
Date: Tue, 9 Mar 2004 11:05:05 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 9 Mar 2004 Volume: 10 Number: 6239
Today's topics:
Re: $result = system('/usr/bin/cksum TEST.mp3 >&1'); <1usa@llenroc.ude>
Re: $result = system('/usr/bin/cksum TEST.mp3 >&1'); <ittyspam@yahoo.com>
Re: $result = system('/usr/bin/cksum TEST.mp3 >&1'); <matternc@comcast.net>
Re: Automating Processes? <jgibson@mail.arc.nasa.gov>
Re: Calling a remote ASP script from my Perl Script -li <Spam Free>
Re: Calling a remote ASP script from my Perl Script -li <jgibson@mail.arc.nasa.gov>
Re: Calling a remote ASP script from my Perl Script -li <ceo@nospan.on.net>
file upload and STDIN <nospam@nospam.net>
Re: file upload and STDIN <nobull@mail.com>
Find your match in Russia <akondr@yahoo.com>
Re: function override <nobull@mail.com>
How to redirect headers in Perl? (Crazy Monkey)
Multiple compares -- TMTOWTDI (Steve The Geek)
Re: Multiple compares -- TMTOWTDI <perl@my-header.org>
Re: Multiple compares -- TMTOWTDI <ittyspam@yahoo.com>
No more handles error with DBD::DB2 on Linux <shah@typhoon.xnet.com>
Re: Ordering large files (in perl?) ctcgag@hotmail.com
Re: Rockets Alternative <jwkenne@attglobal.net>
Re: Rockets Alternative <ceo@nospan.on.net>
Re: Rockets Alternative <jwillmore@remove.adelphia.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 9 Mar 2004 16:37:42 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude>
Subject: Re: $result = system('/usr/bin/cksum TEST.mp3 >&1');
Message-Id: <Xns94A7764BEE931asu1cornelledu@132.236.56.8>
"Ewald van Gemert" <news@vangee.nl> wrote in news:404db668$0$80589
$ee9da40f@news.wanadoo.nl:
> Hi,
>
> I would like to get the output:
> 1306701436 266 TEST.mp3
> in the $result string.
Output from what?
Where does $result come from?
--
A. Sinan Unur
1usa@llenroc.ude (reverse each component for email address)
------------------------------
Date: Tue, 9 Mar 2004 11:40:19 -0500
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: $result = system('/usr/bin/cksum TEST.mp3 >&1');
Message-Id: <20040309113930.E27834@dishwasher.cs.rpi.edu>
On Tue, 9 Mar 2004, A. Sinan Unur wrote:
> "Ewald van Gemert" <news@vangee.nl> wrote in news:404db668$0$80589
> $ee9da40f@news.wanadoo.nl:
>
> > Hi,
> >
> > I would like to get the output:
> > 1306701436 266 TEST.mp3
> > in the $result string.
>
> Output from what?
> Where does $result come from?
>
In his subject line. Someone already responded to him that he should look
at the faq. Someone should also probably tell him to read the posting
guidelines.
Paul Lalli
------------------------------
Date: Tue, 09 Mar 2004 13:57:25 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: $result = system('/usr/bin/cksum TEST.mp3 >&1');
Message-Id: <8sqdnTPmZN4IjtPdRVn-tA@comcast.com>
Ewald van Gemert wrote:
> Hi,
>
> I would like to get the output:
> 1306701436 266 TEST.mp3
> in the $result string.
>
> This doen't work.
> What does?
>
$result="1306701436 266 TEST.mp3";
This seems a trifle simple. Perhaps you meant to ask
some other question.
Chris Mattern
------------------------------
Date: Tue, 09 Mar 2004 09:53:27 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Automating Processes?
Message-Id: <090320040953274615%jgibson@mail.arc.nasa.gov>
In article <c2cje3$74d$2@mamenchi.zrz.TU-Berlin.DE>, Anno Siegel
<anno4000@lublin.zrz.tu-berlin.de> wrote:
> Bumble <bumble@what.the.heck> wrote in comp.lang.perl.misc:
> > Basically I have my script that retrieves data from another site, the data
> > is update say every hour. Is there anyway I could automate my script to look
> > for updated data every hour? Is there any kind of 'wait' command or time
> > checking command?
>
> perldoc -f sleep
>
> Anno
and, if you are using Unix, check out "man crontab".
------------------------------
Date: Tue, 9 Mar 2004 16:49:53 -0000
From: "Dave Smithz" <Spam Free>
Subject: Re: Calling a remote ASP script from my Perl Script -libwww?
Message-Id: <404e0772$1@news1.homechoice.co.uk>
Hey guys,
Thanks for both replies. I started to look at Chris' reply and just got the
revlevant PERL module isntalled on my server. Looks like I did not need to.
I will go back to my investigation into LWP. I wish there was some infor on
tihs in my O'reilly Programmin Perl book.
Thanks and Regards,
Dave
------------------------------
Date: Tue, 09 Mar 2004 09:58:15 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Calling a remote ASP script from my Perl Script -libwww?
Message-Id: <090320040958151948%jgibson@mail.arc.nasa.gov>
In article <404e0772$1@news1.homechoice.co.uk>, Dave Smithz wrote:
> Hey guys,
>
> Thanks for both replies. I started to look at Chris' reply and just got the
> revlevant PERL module isntalled on my server. Looks like I did not need to.
> I will go back to my investigation into LWP. I wish there was some infor on
> tihs in my O'reilly Programmin Perl book.
>
> Thanks and Regards,
>
> Dave
>
>
There are a few pages of info about LWP in O'Reilly's "Perl in a
Nutshell" book.
------------------------------
Date: Tue, 09 Mar 2004 18:17:20 GMT
From: Chris <ceo@nospan.on.net>
Subject: Re: Calling a remote ASP script from my Perl Script -libwww?
Message-Id: <QSn3c.56885$BH3.16613@newssvr33.news.prodigy.com>
Dave Smithz wrote:
> Hey guys,
>
> Thanks for both replies. I started to look at Chris' reply and just got the
> revlevant PERL module isntalled on my server. Looks like I did not need to.
> I will go back to my investigation into LWP. I wish there was some infor on
> tihs in my O'reilly Programmin Perl book.
>
Well, getting CGI setup (which really should have been installed by
default with any good Perl installation?) probably will only save you
time in the future. The scenario I described is very common, just
mistakenly relayed as Matt pointed out. I'm glad to know you didn't
waste much time with any actual implementation.
O'Reilly has a book dedicated to Perl and LWP called... "Perl & LWP".
You could at least check it out on Safari if not find it in a zShop on
Amazon somewhere I would imagine. Very cool stuff.
-ceo
------------------------------
Date: Tue, 09 Mar 2004 17:55:17 GMT
From: "Jeff Thies" <nospam@nospam.net>
Subject: file upload and STDIN
Message-Id: <9yn3c.3952$Cm3.770@newsread3.news.pas.earthlink.net>
I'm having some trouble understanding how STDIN is handled under CGI and
perl.
It appears to me that a file that is uploaded from a form (with
enctype="multipart/form-data") must be entirely slurped in before cgi/perl
can do any processing.
#!/usr/bin/perl -w
$|=1;
print "Content-type: text/html
It seems that the uploaded file must be transfered before this is printed";
Is that right? Is that the nature of perl or CGI? Or something else?
And perhaps OT:
How would I create a file upload progress bar that works on *nix platform?
I tried to post this earlier, apologies if someone sees this as a duplicate.
It didn't propagate to my news server after two days.
Jeff
------------------------------
Date: 09 Mar 2004 18:33:00 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: file upload and STDIN
Message-Id: <u9ishd98gz.fsf@wcl-l.bham.ac.uk>
"Jeff Thies" <nospam@nospam.net> writes:
> I'm having some trouble understanding how STDIN is handled under CGI and
> perl.
>
> It appears to me that a file that is uploaded from a form (with
> enctype="multipart/form-data") must be entirely slurped in before cgi/perl
> can do any processing.
>
> Is that right?
Yes.
> Is that the nature of perl or CGI?
It cerntainly is not to do with the nature perl or even Perl. It has
a bit to do with design decisions in the Perl module CGI which in turn
have to do with the nature of CGI.
When you instanciate the CGI object it wants to create the whole
thing complete with all the parameter values. I can only do this by
reading the whole of the CGI request.
Maybe you could add a callback that would be called during constuction
of the CGI object.
Of course such callbacks would be called with an incomplete CGI
object.
>
> How would I create a file upload progress bar that works on *nix platform?
1) Find an open source web browser that currently lacks an upload progress bar.
2) Add one.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 09 Mar 2004 20:58:26
From: "Alex Wealth" <akondr@yahoo.com>
Subject: Find your match in Russia
Message-Id: <c2l0n7$11g5$59@news.f.de.plusline.net>
If you are still alone and looking for Russian Match!
Welcome to New Russian Marriage Agency - RussianWifeDating.com at http://www.russianwifedating.com
For add new profile visit: http://www.russianwifedating.com/index.php?op=add_men
More information about Russia: http://www.russianwifedating.com/index.php?op=page&name=allrussia
We pay 50% per sale! Join Affiliate program:
http://www.russianwifedating.com/index.php?op=partner_reg
Join membership only for $19.95 Today:
http://www.russianwifedating.com/index.php?op=join
---
MAF Anti-Spam ID: 20030827040438P2j7OjG9
------------------------------
Date: 09 Mar 2004 18:51:31 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: function override
Message-Id: <u9ad2p97m4.fsf@wcl-l.bham.ac.uk>
zhao_wu@pmc-sierra.com (Zhao Wu) writes:
> How do I override a member function temporarily?
> For example, redirect_ok() is a function defined in LWP::UserAgent.
> I can override it with:
> sub LWP::UserAgent::redirect_ok { .... }
>
> However, what if I want to revert the override? Or how do I make it
> only effective in one subroutine?
As others have pointed out you'd do better to rebless into a subclass
of LWP::UserAgent an override that way.
> Another related question is I always get a warning from this.
> How do I supress the warning message (I still want warnings but just
> not on this one)?
If you really wanted to mung LWP::UserAgent
{
no warnings 'redefine';
local *LWP::UserAgent::redirect_ok = sub {
# whatever
};
# stuff
}
Note is is dynamic - any code called in "stuff" that calls
LWP::UserAgent will also use the munged version.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 9 Mar 2004 10:57:06 -0800
From: wlin98004@hotmail.com (Crazy Monkey)
Subject: How to redirect headers in Perl?
Message-Id: <db81df92.0403091057.2dc22a66@posting.google.com>
Hi:
I am new to Perl. I need to write a Perl page on the server that
will do an auto login to a site. I have got the following code. It
works for the first page, but on subsequent page, user is prompted for
credential again. I suspected the issue has something to do with
cookies. I want to pass the header from the secure site to the
client, but I don't know how to do it. May be I approached the
problem the wrong way. Thanks for the help.
use LWP;
use CGI;
# get input parameters
my $user = "user1";
my $password = "password1";
my $url = 'http://pages_need_authentication';
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request (GET => $url);
$req->authorization_basic ($user, $password);
my $request = $ua->request ($req);
my $page = $request->content;
# I generate a new header here, because I don't know how to grab the
header from request.
print "Content-type: text/plain\n\n";
print $page;
Crazy Monkey
------------------------------
Date: 9 Mar 2004 09:37:44 -0800
From: slkleine@hotmail.com (Steve The Geek)
Subject: Multiple compares -- TMTOWTDI
Message-Id: <863f122c.0403090937.688d1c2d@posting.google.com>
The logic works, but there's gotta be a better way.
FUNCTION
The job of this subroutine is to filter out TRAP codes from our daily
syslog files, specifically Generic TRAP 6 in combination with specific
trap 1, 2, 418 or 419.[1]
I've searched through Perl CD Bookshelf 4.0 to little gain[2].
FWIW, I'm of classification 'Newbie'.
Thanks in advance!
Steve the (Just Another Perl Hacker Wannabe) Geek
<begin paste>
sub RemoveIrrelevantCodes
{$ReturnCode = ''; #Initialize $ReturnCode
if ((@DataLine[14] == "6")) #General class of TRAP
{
if (@DataLine[15] == "1") #RMON exceeded
{return}
if (@DataLine[15] == "2") #RMON in spec
{return}
if (@DataLine[15] == "418") #Port up
{return}
if (@DataLine[15] == "419") #Port down
{return}
}
$ReturnCode = join (",", @DataLine[1,2,5,7..9,14,15])
}
<end paste>
[1] Yes, our logging method blows goats.
[2] At least $ORKPLACE got me this. Toyz are good.
------------------------------
Date: Tue, 09 Mar 2004 19:12:48 +0100
From: Matija Papec <perl@my-header.org>
Subject: Re: Multiple compares -- TMTOWTDI
Message-Id: <qk1s40d9hmc8bns9v2q9du8uk0vujv2nc8@4ax.com>
X-Ftn-To: Steve The Geek
slkleine@hotmail.com (Steve The Geek) wrote:
>Thanks in advance!
>
>Steve the (Just Another Perl Hacker Wannabe) Geek
>
><begin paste>
I think you could benefit from "use strict;" on top of your script. There is
also "use diagnostics;" which is very useful.
>sub RemoveIrrelevantCodes
>{$ReturnCode = ''; #Initialize $ReturnCode
^^^^^^^^^^^-- do you really need it?
> if ((@DataLine[14] == "6")) #General class of TRAP
$DataLine[14] not @DataLine[14], you want one scalar, not slice.
You shouldn't quote numbers, also read about differences between == and eq.
#untested
sub RemoveIrrelevantCodes {
my %err = map { $_ => 1 } (1, 2, 418, 419);
#General class of TRAP
return if $DataLine[14] == 6 and $err{ $DataLine[15] };
return join (",", @DataLine[1,2,5,7..9,14,15]);
}
--
Matija
------------------------------
Date: Tue, 9 Mar 2004 13:21:14 -0500
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: Multiple compares -- TMTOWTDI
Message-Id: <20040309131135.F27834@dishwasher.cs.rpi.edu>
On Tue, 9 Mar 2004, Steve The Geek wrote:
> The logic works, but there's gotta be a better way.
>
> FUNCTION
> The job of this subroutine is to filter out TRAP codes from our daily
> syslog files, specifically Generic TRAP 6 in combination with specific
> trap 1, 2, 418 or 419.[1]
>
> I've searched through Perl CD Bookshelf 4.0 to little gain[2].
>
> FWIW, I'm of classification 'Newbie'.
>
> Thanks in advance!
>
> Steve the (Just Another Perl Hacker Wannabe) Geek
>
> <begin paste>
>
> sub RemoveIrrelevantCodes
> {$ReturnCode = ''; #Initialize $ReturnCode
Don't do this. Variables are undef (which evaluates to the empty string)
by default. You should, of course, be using strict, in which case you
really want:
my $ReturnCode;
insetad
> if ((@DataLine[14] == "6")) #General class of TRAP
Don't use @ when you mean $. You're actually taking a one element slice
of the array @DataLine, which isn't what you want. You should be using
warnings, of course, in which case you'd be warned about this. Make it
$DataLine[14] == "6"
Also, don't use double quotes when there's no reason to use double quotes.
Here, you're specifically looking for the one character string containing
the character '6'. Is there a reason you want that instead of simply the
number 6? Make it
$DataLline[14] == 6
> {
> if (@DataLine[15] == "1") #RMON exceeded
> {return}
> if (@DataLine[15] == "2") #RMON in spec
> {return}
> if (@DataLine[15] == "418") #Port up
> {return}
> if (@DataLine[15] == "419") #Port down
> {return}
> }
I would combine all of these by making a small hash, and avoiding the
compound if statement:
my %errs = (1=>1, 2=>1, 418=>1, 419=>1);
return if ($errs{$DataLine[15]);
> $ReturnCode = join (",", @DataLine[1,2,5,7..9,14,15])
Are you returning this from the function? Or is this a global variable?
If so, well, first I'd consider that bad form, but second you should
ignore my assertion to declare a lexical above.
And actually, if it is a value to be returned (which, IMHO, it should be),
there's no need to have a variable at all, since you're only using it
once.
> }
>
To put it all together:
sub RemoveIrrelevantCodes {
if ($DataLine[14] == 6){
my %errs = (1=>1, 2=>1, 418=>1, 419=>1);
return if ($errs{$DataLine[15];
}
return join (',', @DataLine[1,2,5,7..9,14,15]);
}
Paul Lalli
------------------------------
Date: Tue, 9 Mar 2004 17:54:28 +0000 (UTC)
From: Hemant Shah <shah@typhoon.xnet.com>
Subject: No more handles error with DBD::DB2 on Linux
Message-Id: <c2l0ck$f5o$1@flood.xnet.com>
Folks,
I am not sure if this is a perl of DB2 problem. I had posted this
problem last week but did not get any reply. I am posting it again
with some more info to see it someone can identiry the problem.
I have DB2 UDB 7.2 EE installed on AIX 5.2 system. I think I am at
latest fixpack,
db2_07_01.db2.engn 7.1.0.72 COMMITTED Engine
db2_07_01.db2.rte 7.1.0.72 COMMITTED Run-time Environment
bos.rte 5.2.0.11 COMMITTED Base Operating System Runtime
I am also running perl 5.8.3 on it.
# perl -v
This is perl, v5.8.3 built for aix
I am using DBD::DB2 version 0.76 from DB2.pm and DBI version 1.39 from
DBI.pm.
I have a Perl/TK GUI that users use to access the database, after
using it for some time they get wierd errors.
It displays one of the following errors:
"no more handles error",
"function sequence error", or
"Can't call method" error.
I wrote a test perl program which calls a function to select a row
from a table in a loop. It errors out after looping for 386 iteration.
Here is the fragment of sample program:
---------cut-------------cut-------------cut-------------cut----
sub GetFragmentFromNumber
{
# This function will return a fragment from the fragment table for a given
# fragment number and language.
# Call: $Fragment = GetFragmentFromNumber(1001, 'EN1');
my($FragNum, $Language) = @_;
my($FileName) = "adb.frag.".$FragNum;
my($SqlStmt) = "SELECT SRC_NUM FROM GBLCODE.SOURCENAME
WHERE SRC_NAME = \'$FileName\'
FOR READ ONLY";
eval
{
$SqlStmtHdl = $DbHandle->prepare($SqlStmt);
$SqlStmtHdl->execute();
};
if ($@)
{
print STDERR "GetFragmentFromNumber: $@";
$ErrorCode = 1;
return;
}
$SourceNum = $SqlStmtHdl->fetchrow();
$SqlStmtHdl->finish();
if ($SourceNum)
{
$SqlStmt = "SELECT RTRIM(FRAGMENT) FROM GBLCODE.FRAGMENT
WHERE SRC_NUM = $SourceNum
AND LANGUAGE = \'$Language\'
FOR READ ONLY";
eval
{
$SqlStmtHdl = $DbHandle->prepare($SqlStmt);
$SqlStmtHdl->execute();
};
if ($@)
{
print STDERR "GetFragmentFromNumber: $@";
$ErrorCode = 1;
return;
}
$Fragment = $SqlStmtHdl->fetchrow();
$SqlStmtHdl->finish();
if ($Fragment)
{
return $Fragment;
}
else
{
return;
}
}
else
{
return;
}
}
---------cut-------------cut-------------cut-------------cut----
Here is the loop
---------cut-------------cut-------------cut-------------cut----
SetupDatabaseEnvironment;
for ($i = 0; $i < 1000; $i++)
{
$Fragment = GetFragmentFromNumber(12805,'EN1');
if ($ErrorCode != 0)
{
TerminateDatabaseEnvironment;
exit(1);
}
print "$i: Fragment = $Fragment\n";
}
TerminateDatabaseEnvironment;
exit(0);
---------cut-------------cut-------------cut-------------cut----
Here is the output of one the runs:
384: Fragment = Source
385: Fragment = Source
386: Fragment = Source
DBD::DB2::db prepare failed: [IBM][CLI Driver] CLI0120E Memory allocation failure. SQLSTATE=HY001 at ./tsttie.pl line 174.
GetFragmentFromNumber: Can't call method "execute" on an undefined value at ./tsttie.pl line 175.
Line 175 in the script is the second execute statement where it tries to
get fragment from the table.
I ran following BIND command and re-started the databae, but that did not
help.
db2 "BIND @db2cli.lst BLOCKING ALL CLIPKG 6 grant public"
LINE MESSAGES FOR db2cli.lst
------ --------------------------------------------------------------------
SQL0061W The binder is in progress.
SQL0091N Binding was ended with "0" errors and "0" warnings.
What else do I need to change?
Thanks.
--
Hemant Shah /"\ ASCII ribbon campaign
E-mail: NoJunkMailshah@xnet.com \ / ---------------------
X against HTML mail
TO REPLY, REMOVE NoJunkMail / \ and postings
FROM MY E-MAIL ADDRESS.
-----------------[DO NOT SEND UNSOLICITED BULK E-MAIL]------------------
I haven't lost my mind, Above opinions are mine only.
it's backed up on tape somewhere. Others can have their own.
------------------------------
Date: 09 Mar 2004 18:33:48 GMT
From: ctcgag@hotmail.com
Subject: Re: Ordering large files (in perl?)
Message-Id: <20040309133348.553$fg@newsreader.com>
ohmy9od@yahoo.com (Oeln) wrote:
> I've got a large file in which there is one word on each line. I've
> got to output each word it includes to a new file, in order. I've
> currently got the following:
>
> @order = <INFILE>;
> @ordered = sort(@order);
>
> foreach $o (@ordered) {
> print OUTFILE "$o";
> }
>
> In general this is working fine; but if I've got to open a larger file
> (over 1gb, for example, or even 10 gb..whatever) it fails.
>
> I've found this issue being gone over to an extent; but the
> information is not clear to me. I've got a few ideas on how to get
> this to work (for instance, if I could get one word out of the infile
> at a time and insert it to the outfile, in order in the first place;
> but I'd imagine this would be incredibly inefficient).
Yes, it would be incredibly inefficient.
> One idea I came upon implied that exec(sort) would be a good option.
> I'd imagine like exec(sort INFILE -o OUTFILE); but I'm not certain, or
> clear on the other options it offers.
This is just using Perl to invoke the system sort utility. While this is
an excellent idea, it doesn't really have much to do with Perl. You will
have to look into your systems sort command.
> Is that good enough by itself
> for large files? I get the impression there is a way to output to a
> group of temp files, and then 'integrate' them into one file, etc.
> etc.
Most unix-like systems' sort command will do this automatically if they
need to. They usually write these files to the /tmp drive, so either make
sure /tmp is large enough, or tell it to put them somewhere else (usually
the -T switch).
I wish there were a way to tell it to gzip those temp files, so that you
could sort files larger than the available disk, but as far as I can tell,
there isn't.
> I guess what I'm looking for is either guidance to further info on
> this, or example code. I'd like to 'get' what's going on tho either
> way, though. I'm interested in the learning experience, too - not only
> in getting it to work.
>
> I'm on fedora linux/perl 5.8.3 installed. I've only got 128mb on here,
> which I imagine is on of my issues..
Be aware of the Locale settings you operate under, as they cause a lot of
head scratching with "sort".
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Tue, 09 Mar 2004 16:14:54 GMT
From: "John W. Kennedy" <jwkenne@attglobal.net>
Subject: Re: Rockets Alternative
Message-Id: <24m3c.44509$Ak2.13908812@news4.srv.hcvlny.cv.net>
George Kinley wrote:
> Is there any way for rockets to fly in space , other then throwing mass
> out in one direction and moving in other
Apart from the fact that this is wildly off-topic, have you considered
looking up the definition of the word "rocket"?
Assuming that you meant "space vessel", and not "rocket", the answer is
that gravity can be used for certain purposes, under certain conditions,
but you couldn't get anywhere using gravity alone; in general, there is
no known way other than reaction. (Again, under certain circumstances,
for certain purposes, ridiculously powerful magnets or electrostatic
charges could be used in theory, but such devices would be neither
practical nor safe.)
--
John W. Kennedy
"But now is a new thing which is very old--
that the rich make themselves richer and not poorer,
which is the true Gospel, for the poor's sake."
-- Charles Williams. "Judgement at Chelmsford"
------------------------------
Date: Tue, 09 Mar 2004 18:24:36 GMT
From: Chris <ceo@nospan.on.net>
Subject: Re: Rockets Alternative
Message-Id: <EZn3c.56891$XJ3.31606@newssvr33.news.prodigy.com>
George Kinley wrote:
> Hi
> Is there any way for rockets to fly in space , other then throwing mass
> out in one direction and moving in other
>
Please check CPAN before posting any questions about "Is _____
possible?" There are lots of "modules" in CPAN for doing just about
anything required for churls, uh, I'm mean Perl...
-ceo
------------------------------
Date: Tue, 09 Mar 2004 13:43:50 -0500
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Rockets Alternative
Message-Id: <pan.2004.03.09.18.43.48.868838@remove.adelphia.net>
On Tue, 09 Mar 2004 14:17:51 +0000, George Kinley wrote:
> Hi
> Is there any way for rockets to fly in space , other then throwing
> mass out in one direction and moving in other
http://www.alcyone.com/max/physics/laws/n.html
See Newton's laws of motion.
Guess what I did to find this ... go ahead, guess ...
I used Google :-)
Next time, start there instead of having someone else do the work for you
:-)
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Going to church does not make a person religious, nor does going
to school make a person educated, any more than going to a garage
makes a person a car.
------------------------------
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 6239
***************************************
