[18283] in Perl-Users-Digest
Perl-Users Digest, Issue: 451 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 9 03:10:30 2001
Date: Fri, 9 Mar 2001 00:10:15 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <984125415-v10-i451@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 9 Mar 2001 Volume: 10 Number: 451
Today's topics:
Re: if($array1[1] eq $string1) DOESN'T WORK?? <fayolle@enseirb.fr>
Re: pack double-network-order <daniel.heiserer@bmw.de>
Re: Programmer with vision required <jsw+nospam@five-elements.com>
Re: Programmer with vision required <jsw+nospam@five-elements.com>
Re: Programmer with vision required <jsw+nospam@five-elements.com>
Re: Programmer with vision required <jsw+nospam@five-elements.com>
Question on Net::Telnet <hafateltec@hotmail.com>
Re: Question on Net::Telnet <hafateltec@hotmail.com>
Re: Question on Net::Telnet <hafateltec@hotmail.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 9 Mar 2001 08:51:00 +0100
From: "Pierre-Alain Fayolle" <fayolle@enseirb.fr>
Subject: Re: if($array1[1] eq $string1) DOESN'T WORK??
Message-Id: <98a21p$mqq$1@news.u-bordeaux.fr>
in contrary to C you can't use :
if (expr) action;
without the brakets around action.
I think
if (expr) {action;}
should work.
"Wannabe Perl Guru" <donotreply@interbulletin.bogus> a écrit dans le message
news: 3AA6B1B9.56610105@interbulletin.com...
> I have @array1 filled with strings, and have $string1 = "somestring";
> But when I use this statement:
>
> if($array1[1] eq $string1)
> print "yes";
>
> Then Perl throws up!
> Why can't I do this this Perl?
> What alternatives are there to the above statement??
>
> TIA
>
>
> _______________________________________________
> Submitted via WebNewsReader of http://www.interbulletin.com
>
------------------------------
Date: Fri, 09 Mar 2001 07:24:23 +0100
From: Daniel Heiserer <daniel.heiserer@bmw.de>
Subject: Re: pack double-network-order
Message-Id: <3AA87717.D1009BA9@bmw.de>
Bart Lateur wrote:
>
> Daniel Heiserer wrote:
>
> >I looked at the template list for pack and I didn't find
> >how to pack a double using the network-order , which is IEEE-be.
>
> I think floating point is native format only. What you can do, is
> reverse() on the packed string, if your native format isn't big-endian.
pretty bad when I packed with "d10" before. this wold work ONLY if I
have only 1 value. The key-thing is that I use the binary
representation is that I need to pack tons of data.
I know that there is the "d" option, but that is native only.
daniel
------------------------------
Date: Fri, 09 Mar 2001 06:20:30 GMT
From: "Jeff S Wheeler" <jsw+nospam@five-elements.com>
Subject: Re: Programmer with vision required
Message-Id: <OC_p6.916$GV5.129988@newsread1.prod.itd.earthlink.net>
He's also not an EOE. Discriminating against the blind is against the law in
the US.
- jsw
David H. Adler <dha@panix6.panix.com> wrote in message
news:slrn9agjnm.aoa.dha@panix6.panix.com...
> On Thu, 8 Mar 2001 16:41:05 -0500, Fred Srock wrote:
> >
> >We are currently searching for an individual who
>
>
> You have posted a job posting or a resume in a technical group.
>
> Longstanding Usenet tradition dictates that such postings go into
> groups with names that contain "jobs", like "misc.jobs.offered", not
> technical discussion groups like the ones to which you posted.
>
> Had you read and understood the Usenet user manual posted frequently to
> "news.announce.newusers", you might have already known this. :) (If
> n.a.n is quieter than it should be, the relevent FAQs are available at
> http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
> Another good source of information on how Usenet functions is
> news.newusers.questions (information from which is also available at
> http://www.geocities.com/nnqweb/).
>
> Please do not explain your posting by saying "but I saw other job
> postings here". Just because one person jumps off a bridge, doesn't
> mean everyone does. Those postings are also in error, and I've
> probably already notified them as well.
>
> If you have questions about this policy, take it up with the news
> administrators in the newsgroup news.admin.misc.
>
> There is a Perl Jobs Announce list that may be more helpful to you. See
> <http://www.pm.org/mailing_lists.shtml> for details.
>
> *And* you posted to multiple groups individually instead of
> crossposting. Not a good thing.
>
> Yours for a better usenet,
>
> dha
>
> --
> David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
> Trust the computer industry to shorten the term "Year 2000" to Y2K.
> It was this kind of thinking that got us in trouble in the first
> place. - Adrian Tyvand
>
------------------------------
Date: Fri, 09 Mar 2001 06:21:28 GMT
From: "Jeff S Wheeler" <jsw+nospam@five-elements.com>
Subject: Re: Programmer with vision required
Message-Id: <ID_p6.918$GV5.130201@newsread1.prod.itd.earthlink.net>
He's also not an EOE. Discriminating against the blind is against the law in
the US.
Beyond that note that this guy's posting does nothing but offer fractions of
net revenues off products, and we all know how mismanaged dot-coms can make
a negative net revenue off their products...:)
- jsw
David H. Adler <dha@panix6.panix.com> wrote in message
news:slrn9agjnm.aoa.dha@panix6.panix.com...
> On Thu, 8 Mar 2001 16:41:05 -0500, Fred Srock wrote:
> >
> >We are currently searching for an individual who
>
>
> You have posted a job posting or a resume in a technical group.
>
> Longstanding Usenet tradition dictates that such postings go into
> groups with names that contain "jobs", like "misc.jobs.offered", not
> technical discussion groups like the ones to which you posted.
>
> Had you read and understood the Usenet user manual posted frequently to
> "news.announce.newusers", you might have already known this. :) (If
> n.a.n is quieter than it should be, the relevent FAQs are available at
> http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
> Another good source of information on how Usenet functions is
> news.newusers.questions (information from which is also available at
> http://www.geocities.com/nnqweb/).
>
> Please do not explain your posting by saying "but I saw other job
> postings here". Just because one person jumps off a bridge, doesn't
> mean everyone does. Those postings are also in error, and I've
> probably already notified them as well.
>
> If you have questions about this policy, take it up with the news
> administrators in the newsgroup news.admin.misc.
>
> There is a Perl Jobs Announce list that may be more helpful to you. See
> <http://www.pm.org/mailing_lists.shtml> for details.
>
> *And* you posted to multiple groups individually instead of
> crossposting. Not a good thing.
>
> Yours for a better usenet,
>
> dha
>
> --
> David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
> Trust the computer industry to shorten the term "Year 2000" to Y2K.
> It was this kind of thinking that got us in trouble in the first
> place. - Adrian Tyvand
>
------------------------------
Date: Fri, 09 Mar 2001 06:21:36 GMT
From: "Jeff S Wheeler" <jsw+nospam@five-elements.com>
Subject: Re: Programmer with vision required
Message-Id: <QD_p6.920$GV5.130302@newsread1.prod.itd.earthlink.net>
He's also not an EOE. Discriminating against the blind is against the law in
the US.
Beyond that note that this guy's posting does nothing but offer fractions of
net revenues off products, and we all know how mismanaged dot-coms can make
a negative net revenue off their products...:)
- jsw
David H. Adler <dha@panix6.panix.com> wrote in message
news:slrn9agjnm.aoa.dha@panix6.panix.com...
> On Thu, 8 Mar 2001 16:41:05 -0500, Fred Srock wrote:
> >
> >We are currently searching for an individual who
>
>
> You have posted a job posting or a resume in a technical group.
>
> Longstanding Usenet tradition dictates that such postings go into
> groups with names that contain "jobs", like "misc.jobs.offered", not
> technical discussion groups like the ones to which you posted.
>
> Had you read and understood the Usenet user manual posted frequently to
> "news.announce.newusers", you might have already known this. :) (If
> n.a.n is quieter than it should be, the relevent FAQs are available at
> http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
> Another good source of information on how Usenet functions is
> news.newusers.questions (information from which is also available at
> http://www.geocities.com/nnqweb/).
>
> Please do not explain your posting by saying "but I saw other job
> postings here". Just because one person jumps off a bridge, doesn't
> mean everyone does. Those postings are also in error, and I've
> probably already notified them as well.
>
> If you have questions about this policy, take it up with the news
> administrators in the newsgroup news.admin.misc.
>
> There is a Perl Jobs Announce list that may be more helpful to you. See
> <http://www.pm.org/mailing_lists.shtml> for details.
>
> *And* you posted to multiple groups individually instead of
> crossposting. Not a good thing.
>
> Yours for a better usenet,
>
> dha
>
> --
> David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
> Trust the computer industry to shorten the term "Year 2000" to Y2K.
> It was this kind of thinking that got us in trouble in the first
> place. - Adrian Tyvand
>
------------------------------
Date: Fri, 09 Mar 2001 06:21:50 GMT
From: "Jeff S Wheeler" <jsw+nospam@five-elements.com>
Subject: Re: Programmer with vision required
Message-Id: <2E_p6.921$GV5.117731@newsread1.prod.itd.earthlink.net>
He's also not an EOE. Discriminating against the blind is against the law in
the US.
Beyond that note that this guy's posting does nothing but offer fractions of
net revenues off products, and we all know how mismanaged dot-coms can make
a negative net revenue off their products...:)
- jsw
David H. Adler <dha@panix6.panix.com> wrote in message
news:slrn9agjnm.aoa.dha@panix6.panix.com...
> On Thu, 8 Mar 2001 16:41:05 -0500, Fred Srock wrote:
> >
> >We are currently searching for an individual who
>
>
> You have posted a job posting or a resume in a technical group.
>
> Longstanding Usenet tradition dictates that such postings go into
> groups with names that contain "jobs", like "misc.jobs.offered", not
> technical discussion groups like the ones to which you posted.
>
> Had you read and understood the Usenet user manual posted frequently to
> "news.announce.newusers", you might have already known this. :) (If
> n.a.n is quieter than it should be, the relevent FAQs are available at
> http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
> Another good source of information on how Usenet functions is
> news.newusers.questions (information from which is also available at
> http://www.geocities.com/nnqweb/).
>
> Please do not explain your posting by saying "but I saw other job
> postings here". Just because one person jumps off a bridge, doesn't
> mean everyone does. Those postings are also in error, and I've
> probably already notified them as well.
>
> If you have questions about this policy, take it up with the news
> administrators in the newsgroup news.admin.misc.
>
> There is a Perl Jobs Announce list that may be more helpful to you. See
> <http://www.pm.org/mailing_lists.shtml> for details.
>
> *And* you posted to multiple groups individually instead of
> crossposting. Not a good thing.
>
> Yours for a better usenet,
>
> dha
>
> --
> David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
> Trust the computer industry to shorten the term "Year 2000" to Y2K.
> It was this kind of thinking that got us in trouble in the first
> place. - Adrian Tyvand
>
------------------------------
Date: Fri, 9 Mar 2001 15:23:01 +1000
From: "Copenhagen" <hafateltec@hotmail.com>
Subject: Question on Net::Telnet
Message-Id: <%MZp6.574$h9f.10486063@news.randori.com>
Question ... Why is this script always timing out on me ?
#!/usr/bin/perl -w
use strict;
use Net::Telnet ();
my $username = "XXXXXXX";
my $passwd = "XXXXXXXXX";
my $t = new Net::Telnet (Host => "192.168.1.1",
Timeout => 10,
Prompt => '/bash\$ $/');
$t->open(Host => "192.168.1.1",
Port => "23",
Timeout => 20) || die "Can't open";
$t->login($username, $passwd);
my @lines = $t->cmd("who");
print @lines;
$t->close;
exit;
--
##############Þ
print "\n Welcome to NEPP";$Þ=1;while ($Þ){
print "\n$Þ";$Þ++;if ($Þ == 1000) {
print "\n$Þ"."\nWell almost never ending :þ";exit;}}
##############Þ
------------------------------
Date: Fri, 9 Mar 2001 15:26:22 +1000
From: "Copenhagen" <hafateltec@hotmail.com>
Subject: Re: Question on Net::Telnet
Message-Id: <8QZp6.597$h9f.24314052@news.randori.com>
One addition in troubleshooting this I ran netstat and it is deffinatly
trying to connect... But it always times out... Doesnt' matter what telnet
server I try to connect to ...
"Copenhagen" <hafateltec@hotmail.com> wrote in message
news:%MZp6.574$h9f.10486063@news.randori.com...
> Question ... Why is this script always timing out on me ?
>
> #!/usr/bin/perl -w
> use strict;
> use Net::Telnet ();
>
> my $username = "XXXXXXX";
> my $passwd = "XXXXXXXXX";
>
> my $t = new Net::Telnet (Host => "192.168.1.1",
> Timeout => 10,
> Prompt => '/bash\$ $/');
> $t->open(Host => "192.168.1.1",
> Port => "23",
> Timeout => 20) || die "Can't open";
> $t->login($username, $passwd);
> my @lines = $t->cmd("who");
> print @lines;
>
> $t->close;
> exit;
>
> --
> ##############Þ
> print "\n Welcome to NEPP";$Þ=1;while ($Þ){
> print "\n$Þ";$Þ++;if ($Þ == 1000) {
> print "\n$Þ"."\nWell almost never ending :þ";exit;}}
> ##############Þ
>
>
------------------------------
Date: Fri, 9 Mar 2001 16:56:39 +1000
From: "Copenhagen" <hafateltec@hotmail.com>
Subject: Re: Question on Net::Telnet
Message-Id: <T8%p6.826$h9f.23789796@news.randori.com>
"Copenhagen" <hafateltec@hotmail.com> wrote in message
news:%MZp6.574$h9f.10486063@news.randori.com...
> Question ... Why is this script always timing out on me ?
>
> #!/usr/bin/perl -w
> use strict;
> use Net::Telnet ();
>
> my $username = "XXXXXXX";
> my $passwd = "XXXXXXXXX";
>
> my $t = new Net::Telnet (Host => "192.168.1.1",
> Timeout => 10,
> Prompt => '/bash\$ $/');
> $t->open(Host => "192.168.1.1",
> Port => "23",
> Timeout => 20) || die "Can't open";
> $t->login($username, $passwd);
> my @lines = $t->cmd("who");
> print @lines;
>
> $t->close;
> exit;
>
More on this subject... After making some modifications I have determined
that it is timing out on the $t->login call... If I modify the code to
#!/usr/bin/perl -w
use Net::Telnet ();
$t = new Net::Telnet;
$t->open("192.168.1.1") || die "Can't open $!";
## Wait for second prompt and respond with city code.
$t->waitfor('/login:/') || die "Bad";
$t->print("xxxx");
$t->waitfor('/Password:/') || die "Bad";
$t->print("xxxx");
$t->waitfor('/sonata.tel118.\d\d\d/') || die "Bad";
$t->print("exit");
$t->close;
exit;
This works ??? Any help is appriciated.
> --
> ##############Þ
> print "\n Welcome to NEPP";$Þ=1;while ($Þ){
> print "\n$Þ";$Þ++;if ($Þ == 1000) {
> print "\n$Þ"."\nWell almost never ending :þ";exit;}}
> ##############Þ
>
>
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 451
**************************************
