[8921] in Perl-Users-Digest
Perl-Users Digest, Issue: 2538 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri May 8 06:08:04 1998
Date: Fri, 8 May 98 03:00:30 -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 Fri, 8 May 1998 Volume: 8 Number: 2538
Today's topics:
Anagram algorithm anyone. <jerryp.usenet@connected.demon.co.uk>
Re: cgi-lib.pl or CGI.pm? (Danny Aldham)
Re: CPAN & Module gripes (was Re: Ever Wonder...?) <rjk@coos.dartmouth.edu>
Re: Credit Card Verification scripts? (John)
Re: Ever Wonder Why Not Everyone Uses Modules? (Danny Aldham)
Re: Ever Wonder Why Not Everyone Uses Modules? (John Stanley)
Re: From Linux/perl to MS SQL <frankie@etsetb.upc.es>
Help me Please! <nobadnews_yurik5@usa.net>
Help w/ derived class of Net::Cmd and IO::Socket::INET? (Darrell Golliher)
Re: how do i keep range operator in list 'mode'?? <qdtcall@esb.ericsson.se>
Re: How do I return arrays by value from a function? <qdtcall@esb.ericsson.se>
Re: HTML Strip Tags (Earl Hood)
New to Perl - %1 is not a valid Windows NT application. (David Garth-Owen)
Re: Newbie: changing $/ value <rjk@coos.dartmouth.edu>
Perl and Tk: book or documentation? (Jari Aalto+usenet.nil)
Re: PERL aware code editor (Earl Hood)
Perl NT ssShopping cart <integri@kern.com.au>
Please Help ! <fredjoua@club-internet.fr>
RC1867 upload on NT problem <sla@opencon.ch>
Recieving cookies with libwww or something? 101010@kurir.net
Re: removing nested parentheses <rjk@coos.dartmouth.edu>
Re: resources for perl-related jobs (Earl Hood)
Re: returning a list from a recursive function <rjk@coos.dartmouth.edu>
Re: Setting Environment Variables <qdtcall@esb.ericsson.se>
Re: Telnet question <raul@pares.gsyc.inf.uc3m.es>
Re: WIN32 tee command <uwe.honekamp@etas.de>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 8 May 1998 10:48:50 +0100
From: Jerry Pank <jerryp.usenet@connected.demon.co.uk>
Subject: Anagram algorithm anyone.
Message-Id: <Wbs+iDACUtU1Ewe+@connected.demon.co.uk>
Below is my hopeless attempt at an anagram algorithm.
Almost works for 4 letters but (obviously) miserable with n letters.
Does anyone have a ``standard'' algorithm for calculating anagrams?
## muddled thinking below
#!/bin/perl5 -w
use strict;
my @let = split //,"ABCD";
my $size = @let;
my (%hash,$calcs);
$size **=2;
for (my $i = 0;$i <= $size; $i++){
$calcs++;
push @let,shift @let;
$hash{"@let"}++;
for (my $ii = 0 ;$ii <= $size; $ii++) {
$calcs++;
push @let, splice @let ,$ii,1;
$hash{"@let"}++;
}
}
my @result = sort keys(%hash);
local $" = "\n";
print "@result\n".keys(%hash)." solutions ($calcs trys - Yuk!)";
## apt sig ? :-(
--
Jerry Pank mailto:jerryp.usenet@connected.demon.co.uk
Get your perl code checked by a vet
(It probably has developed dengue fever from the symptoms you describe.)
Also for sick code you should post to the doctor's newsgroup.
-- Mishra Aditya <comp.lang.perl.misc>
------------------------------
Date: 8 May 1998 03:19:57 GMT
From: danny@lennon.postino.com (Danny Aldham)
Subject: Re: cgi-lib.pl or CGI.pm?
Message-Id: <6ittkt$q9$1@lennon.postino.com>
X-Newsreader: TIN [version 1.2 PL2]
Yong Huang (yong@shell.com) wrote:
: Thanks, Sir. I wonder if you could give me a more specific example or reason
: why CGI.pm is better than cgi-lib.pl. That is, I don't seme to be fully
: convinced yet.
If you think you might ever change jobs, CGI.pm is the skill set to
take with you, not cgi-lib.pl . Should you ever need to maintain
someone else's code. No, I don't do maintenance either ;-)
--
Danny Aldham SCO Ace, MCSE, JAPH, DAD
------------------------------
Date: Fri, 08 May 1998 01:42:21 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: CPAN & Module gripes (was Re: Ever Wonder...?)
Message-Id: <35529B40.78090BD@coos.dartmouth.edu>
Chris Nandor wrote:
>
> $you->get_off($high_horse);
Pot.
Kettle.
Black.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 8 May 1998 03:25:12 GMT
From: falstaff@lennon.postino.com (John)
Subject: Re: Credit Card Verification scripts?
Message-Id: <6ittuo$18j$1@lennon.postino.com>
X-Newsreader: TIN [version 1.2 PL2]
Abigail (abigail@fnx.com) wrote:
: Zisa (zisa@onramp.net) wrote on MDCC September MCMXCIII in
: <URL: news:35451584.3DB50@onramp.net>:
: ++ I am doing a webpage for a person down the street and she wants Credit
: ++ card Verication Script that will process her orders. I unfortunately do
: ++ not know how to do this.
: ++
: Maybe the best advice is: if you're new, don't do things like
: dealing with credit card numbers.
And if you're crawling don't bother learning how to walk. Stick with
it, it is not black magic. Try a web search at www.altavista.digital.com
--
Falstaff
------------------------------
Date: 8 May 1998 03:35:06 GMT
From: danny@lennon.postino.com (Danny Aldham)
Subject: Re: Ever Wonder Why Not Everyone Uses Modules?
Message-Id: <6ituha$q9$2@lennon.postino.com>
X-Newsreader: TIN [version 1.2 PL2]
Art Cohen (upsetter@shore.net) wrote:
: I'm trying to use Net::SMTP, as most of the gurus on this group recommend
: it over piping commands to sendmail directly.
Go with piping to sendmail. The only time I would use Net::SMTP is
if my scripts are running on an NT box, and I wanted to send mail
with SMTP over the network.
--
Danny Aldham SCO Ace, MCSE, JAPH, DAD
------------------------------
Date: 8 May 1998 05:47:01 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Ever Wonder Why Not Everyone Uses Modules?
Message-Id: <6iu68l$6a5$1@news.NERO.NET>
In article <6itrt4$30o$1@Mercury.mcs.net>, Leslie Mikesell <les@MCS.COM> wrote:
>If you have POP clients you will
>also almost certainly have a reliable SMTP relay, but there is no
>handy way to find it without manual configuration.
I have yet to see a POP client that didn't require manual configuration,
even for those not behind firewalls.
>Likewise you
>won't know if your sendmail (if you have one) is correctly configured.
I will know if my sendmail is correctly configured. It's everyone else's
I don't know about.
>>As for your question why someone who doesn't want email replies would
>>post something with his email address in it -- I think the excuse is
>>"the RFC requires it". At least that is the argument against munging
>>addresses.
>
>There must have been some reasoning behind the RFC requirement. Like
>people generally wanting to be able to get emailed replies...
"People generally wanting" is irrelevant to your question. People who
don't want email replies are putting their email addresses in their
articles because the RFC says they must.
Now, why does the RFC say they must? Certainly not because "people
generally want...". That statement admits that there will be people who
don't want replies, but there is no option in the RFC for those who
don't. If that really were the reason, then the address would be
optional. It would say "if you want replies, use this header...".
In addition, the RFC cannot mandate what people "generally want". What
they want will be determined by themselves. I.e., the RFC does not make
me want email replies to news articles, and it would not even if it
tried to say that I do want them.
No, it seems that that header was intended as a way of identifying the
author of the article. As long as it does that, it is doing its job.
Even if you can't get email to the author. Not even RFC 1036 pretends to
say that you must be able to get email to him.
------------------------------
Date: Thu, 07 May 1998 17:24:14 +0200
From: Francesc Guasch <frankie@etsetb.upc.es>
Subject: Re: From Linux/perl to MS SQL
Message-Id: <3551D21E.CA48F60B@etsetb.upc.es>
Artur R. Czechowski wrote:
>
> Hello
> I have a NT box with MS SQL server. There are some databases which I cannot
> move to other platform. I have a 2nd box with Linux and perl 5.004. I need
> to have to access from perl scripts to data collected on MS-SQL. What I need
> to do it? Please, give me descriptions as for idiot - step by step.
> HELP!
>
see http://www.hermetica.com
> PS. Commercial sollution also will be satisfied for me.
You'll need odbc drivers for linux , you'll have to pay for these.
> PS2. Sorry about my terrible english.
>
mine is worse
--
^-^.-----. mailto:frankie@citel.upc.es
o o ) http://citel.upc.es/~frankie
Y (_ (___(ssss
------------------------------
Date: Thu, 07 May 1998 11:50:25 +0300
From: Yurik <nobadnews_yurik5@usa.net>
Subject: Help me Please!
Message-Id: <355175D1.64ED4AE3@usa.net>
Help me Please!
I've got just one simple (not for me) question:
What kind of WEB server do I need to run perl scripts?
Is it ok to use free web space on www.geocities.com or
www.xoom.com?
Thanks Advance,
Yuri,
Please reply by email to yurik5@usa.net
or remove "nobadnews_" from reply field.
****************
*email prefered*
****************
mailto:yurik5@usa.net
------------------------------
Date: 8 May 1998 02:45:54 GMT
From: golliher@bob.coe.uga.edu (Darrell Golliher)
Subject: Help w/ derived class of Net::Cmd and IO::Socket::INET?
Message-Id: <6itrl2$amf$1@cronkite.cc.uga.edu>
I'm taking my first stab at network programming in Perl and my first
stab at creating my own derived class. I've run into a problem and
I'm hoping someone here can help me.
I'm trying to write a module that interfaces with the CDDB (a
distributed database of CD titles, see www.cddb.com for more info).
This is a message based tcp/up server. I've based my CDDM.pm on
FTP.pm which is derived from Net::Cmd for the message handling methods
and IO::Socket::INET for the networking.
My constructor is apparently not returning an object and I can't
figure out why. My code is below along with a little stub program.
Any help or hints would be appreciated. :)
The error I get is: Can't call method "message" without a package or
object reference at ripper2.pl line 8.
--stub program to test use of CDDM.pm--
#!/usr/bin/perl
use CDDB;
print "Let's begin.\n";
$drg = CDDB->new("www.cddb.com","8080");
print $drg->message();
--my package--
package CDDB;
use IO::Socket;
use Net::Cmd;
@ISA = qw(Net::Cmd IO::Socket::INET);
sub new
{
my $pkg = shift;
my $peer= shift;
my %arg = @_;
my $host = $peer;
print "test1\n";
my $cddb = $pkg->SUPER::new(PeerAddr => $peer,
PeerPort => $arg{Port},
Proto => 'tcp',
Timeout => defined $arg{Timeout}
? $arg{Timeout}
: 120
) or return undef;
print "test2\n";
$cddb->autoflush(1);
unless ($cddb->response() == CMD_OK) {
undef $cddb;
}
return $cddb;
}
so what am I doing wrong?
tia,
--
-Darrell Golliher
http://www.coe.uga.edu/~golliher
------------------------------
Date: 08 May 1998 11:27:38 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: how do i keep range operator in list 'mode'??
Message-Id: <iszpgtf6yd.fsf@godzilla.kiere.ericsson.se>
coleman@library.ucsf.edu (Gregory Coleman) writes:
> However, i am not sure where exactly the range operator changes. My
> initial test showed that it's somewhere between 2147000000 and
> 2148000000
I'm willing to bet that the actual limit is 2147483647 (2^31-1). Which
means that the actual problem is that the number is too large to fit
in an integer variable.
> What would be helpful is a workaround or override that might make
> this possible.
I don't see any easy solution off the top of my head. Stripping off
the beginning of the number with a regexp, doing the work and then
putting it back on might work. Could be worth looking at the
Math::BigInt module (included with the Perl distribution) as well.
--
Calle Dybedahl, UNIX Sysadmin
qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: 08 May 1998 09:43:04 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: How do I return arrays by value from a function?
Message-Id: <isu371b43b.fsf@godzilla.kiere.ericsson.se>
lemb9881@cims.nyu.edu (George Lembersky) writes:
> To make my question more clear, here's a snippet of code that
> doesn't work because I am returning references to arrays that get
> wiped out after the function exits.
No, they don't. Your arrays are still there after your function
returns. But...
> #!/usr/local/bin/perl
>
> sub pass2nums
> {
> my @letters1=("one1", "two1", "three1");
> my @letters2=("one2", "two2", "three2");
>
> return (\@letters1, \@letters2);
> }
>
> my @letters1=("a1", "b1", "c1");
> my @letters2=("a2", "b2", "c2");
>
> (\@nums1, \@nums2) = &pass2nums();
I can't figure out exactly what the above line actually does, but it
sure doesn't do what you think it does. I didn't think \@foo was an
lvalue, but Perl lets you try to assign to it so maybe it is, in some
way.
If you rewrite that line as...
($nums1, $nums2) = pass2nums();
...and...
> print "nums1=@nums1, nums2=@nums2\n";
...this line as...
print "nums1=@{$nums1}, nums2=@{$nums2}\n";
...then it works as you want it to work.
Maybe you should read the perlref manpage a couple of times more?
--
Calle Dybedahl, UNIX Sysadmin
qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: 6 May 1998 17:00:11 GMT
From: ehood@geneva.acs.uci.edu (Earl Hood)
Subject: Re: HTML Strip Tags
Message-Id: <6iq4ur$lch@news.service.uci.edu>
In article <3550173C.371613A8@shipping-guides.co.uk>,
Feargal Hogan <feargalh@shipping-guides.co.uk> wrote:
>Hi
>I have some SGML "snippets" that I would like to convert to straight
>text.
Try the stripsgml program available at
<URL:http://www.oac.uci.edu/indiv/ehood/perlSGML.html>.
There is no single regex that can correctly remove SGML tags
from a string.
--ewh
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: Fri, 08 May 1998 09:39:32 GMT
From: dg-owen@online.no (David Garth-Owen)
Subject: New to Perl - %1 is not a valid Windows NT application. ?
Message-Id: <3552d150.4507321@news.online.no>
Hello
I am new to Perl but have managed to get it working on my NT40
Server with the "OMNI httpd" webserver, however I would really like to
be able to utilize it with NT IIS 40 web server. Unfortunately I can,t
get my scripts to run, I have read as many FAQ's as I can but none
have helped.
I have checked the Registry and have tried both :
.Pl:REG_SZ:c:\perl5\bin\perl.exe %s %s and
.Pl:REG_SZ:c:\perl5\bin\perl.exe.
Niether work I keep getting server areas or :
%1 is not a valid Windows NT application
Any help would be appreciated,thanks.
------------------------------
Date: Fri, 08 May 1998 02:33:34 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: Newbie: changing $/ value
Message-Id: <3552A744.665FBE8F@coos.dartmouth.edu>
Clay Loveless wrote:
>
> How to I return to the default value of $/ ? I've tried the following:
>
> $/="/n";
Did you really try that, or does your actual code look more like $/="\n"; ?
> undef $/;
That is not the default behavior; that will read in until EOF.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 07 May 1998 21:28:41 +0300
From: Jari Aalto <<jari.aalto@poboxes.com> (Jari Aalto+usenet.nil) >
Subject: Perl and Tk: book or documentation?
Message-Id: <tbk97ylyue.fsf@blue.sea.net>
[CC too if you can]
I'm looking for information about how to use Tk with Perl.
I have no prior experience with Tk programming, but I know
Perl 4 and 5 well.
Would someone point me to the URL where to get Perl/Tk
documentation or recommend a good Perl/Tk book
jari
------------------------------
Date: 6 May 1998 17:40:11 GMT
From: ehood@geneva.acs.uci.edu (Earl Hood)
Subject: Re: PERL aware code editor
Message-Id: <6iq79r$mi5@news.service.uci.edu>
In article <35508C7F.1E01ABB5@matrox.com>,
Ala Qumsieh <aqumsieh@matrox.com> wrote:
>> I am wondering if there are such editors developed for PERL that will
>> run under the Windows 95 environment. Also, are there any UNIX based
>> programs that can do this by serving ANSI color codes to a telnet
>> session?
...
> I looked around for a good PERL editor ... the best I could find is EMACS.
Vim (a Vi clone) works under Windoze95. It does syntax highlighting
of Perl and can run in GUI or text mode. Should support ANSI color
codes.
--ewh
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: Fri, 8 May 1998 18:21:24 +0930
From: "Chris Gurney" <integri@kern.com.au>
Subject: Perl NT ssShopping cart
Message-Id: <D44AF30C65C4D111ACE600409500B3D89FA7E3@kernnews.kern.com.au>
There are a lot of Unix Shopping carts around..Can someone direct me to a
script to suit NT.
Thanks
Chris Gurney
integri@kern.com.au
------------------------------
Date: Fri, 08 May 1998 10:35:32 +0200
From: frederic <fredjoua@club-internet.fr>
Subject: Please Help !
Message-Id: <3552C3D4.76A29257@club-internet.fr>
Il s'agit d'un message multivolet au format MIME.
--------------D6A024D3B5850E2EF7639CF4
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hello,
I'm a complete beginner.
Could anyone tell me where I can find a step by step guide that explains
to a simple mind guy how tu use the scripts that are available on the
web ?
I'm especially completely lost with the instruction : chmod 755 ...
Thanks for help.
Frederic
--------------D6A024D3B5850E2EF7639CF4
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Carte pour Fridiric Jouanneau
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Fridiric Jouanneau
n: Jouanneau;Fridiric
email;internet: fredjoua@club-internet.fr
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------D6A024D3B5850E2EF7639CF4--
------------------------------
Date: Fri, 08 May 1998 06:25:45 +0100
From: Martin Schlatter <sla@opencon.ch>
Subject: RC1867 upload on NT problem
Message-Id: <35529759.9E7FB701@opencon.ch>
I've written a upload cgi sript which reads the number of bytes
in CONTENT_LENGTH from stdin. This perl cgi runs fine
on linux but on NT4.0 it starts reading but after a while the
sysread call blocks and the script never returns. I even can't
end the perl task with the task-manager! Does anyone know
about a upload cgi script which also runs on NT?
Thanks,
Martin
--
Martin Schlatter, Oberdorfstr. 31, 8187 Weiach, Phone: +411 8858181
Open Connect AG, Technoparkstrasse 1, 8805 Zurich, Switzerland
Mail: sla@opencon.ch Web: http://www.opencon.ch Phone: +411 4403670
------------------------------
Date: Fri, 08 May 1998 07:41:47 GMT
From: 101010@kurir.net
Subject: Recieving cookies with libwww or something?
Message-Id: <6iucvq$h30$1@nnrp1.dejanews.com>
I wonder if it is possible to recieve cookies when I get a webpage with
the libwww, or if there are some other packages that will do this?
I would also like to make a cookie-file that the webserver I fetch the
document from can read, so it looks like I fetch the document with a normal
browser...
all best,
/Calle
carefully selected adressess, containing spammers.
-------------------
-------------------
gai68@tonline.de
response@mail.usa.com
webmaster@usa.com
postmaster@usa.com
root@usa.com
webmaster@tonline.de
ArtHaven@ghplus.infi.net
root@207.110.0.53
response0@mailexcite.com
postmaster@mailexcite.com
webmaster@mailexcite.com
root@mailexcite.com
admin@mailexcite.com
info@mailexcite.com
webmaster@207.110.0.53
admin@united-cbe.org
webmaster@smallbizcentre.com
root@smallbizcentre.com
webmaster@web-tiger.com
root@207.93.198.153
support@worldgaming.net
postmaster@166.55.39.75
webmaster@207.93.198.153
postmaster@207.93.198.153
greg2@ptdprolog.com
webmaster@myconet.com
root@127.0.0.1
support@127.0.0.1
postmaster@127.0.0.1
webmaster@127.0.0.1
info@127.0.0.1
sales@127.0.0.1
fraud@UU.NET (MassMail Complaint)
spam-complaint@UU.NET (Usenet Complaint)
abuse@hotmail.com
net-abuse@nocs.insp.irs.gov
fraud@uspis.gov
fraudinfo@psinet.com
piracy@spa.org
contact@bsa.nl
downwithwarez@hotmail.com
postmaster@cyberpromotions.com
postmaster@cyberpromo.com
postmaster@mail-promo.com
FreeWay5@dm1.com
georglager@hotmail.com
josel@hem1.passagen.se
toby@becsplace.com
associates@savoynet.com
wmgroupr@pobox.com
51189123456@aol.com
74072325@compuserve.com
abanks@ultramax.net
link-signup@chac.com
frick@bigfoot.daltek.net
05838448@ibm.net
nobber@ibm.net
computerphys@hotmail.com
privuser@mailexcite.com
Important@usa.net
456S15P1008@juno.com
1mktg00@juno.com
members@your.com
netbiz@03403.com
neil@venus.gmds.com
homedirectory@hotmail.com
webtech@mmaildirect.com
dstadler@savoynet.com
Majordomo-Owner@rtfm.be
postmaster@icat.com
webmaster@icat.com
sendnim@15509.com
52614725@ismi.net
Racanaw@TRIValley.com
harmony@ultra-mail.com
39988580@hotmail.com
UcanDoit@hotmail.com
UcanDoit@kolomiec.rosmail.com
charel@cyberopp.com
aarica@chacaltaya.com
nt@ntec.net
1056_fred@flash.net
2760_ur@careeropp.com
deserthome@worldnet.att.net
MoneyMaker18@juno.com
associates@bigfoot.daltek.net
mamba2@hotmail.com
panzer@goplay.com
2700_dave@cymx.net
osgood@aixmiced.mi.unicatt.it
macs@mailnow.org
qazxc3a@sprynet.com
diwaefai82@sprynet.com
postmaster@sprynet.com
postmaster@hexagon.net
info@hexagon.net
order@yug.com
info@yug.com
elmed@yug.com
form@yug.com
tech-support@pmail.gen.nz
support@pmail.gen.nz
ad@info.usa.com
webmaster@lansoft.com
feedback@info.usa.com
webmaster@usa.com
webmaster@imailinfo.com
mglenn01@sprynet.com
i00549@yahoo.com
support@8teen-21.com
sales@MASSMAILER.COM
remote-printer.assholes@17028835450.iddd.tpc.int
sales@bemservice.com
cheaplongdistance@bigfoot.com
kolla.in@home.se
comments@cauce.org
f.mansson@usa.net
psx@hem1.passagen.se
CD-sidan@USA.net
mattias@kinda.mail.telia.com
cdsidan@hem.passagen.se
smillard@webgold.com
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Fri, 08 May 1998 01:56:16 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: removing nested parentheses
Message-Id: <35529E84.D13947CB@coos.dartmouth.edu>
Ala Qumsieh wrote:
>
> Doug E Fresh wrote:
>
> > [...]
> > $string = "2*(3+(4+5))"
>
> Hmmm ... I suggest you take a closer look at the greediness of matching
> operators!
> After you do that, you can try something like this:
> $string =~ s/.*\((.*)\)?/&process($1)/e;
That will match '(4+5))' in the above string, and set $1 to '4+5))'. How
would that be useful, exactly?
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 6 May 1998 17:33:35 GMT
From: ehood@geneva.acs.uci.edu (Earl Hood)
Subject: Re: resources for perl-related jobs
Message-Id: <6iq6tf$md7@news.service.uci.edu>
[mail & posted]
In article <3550889F.8A4773EF@valueweb.net>,
David A. Geller <arpad@valueweb.net> wrote:
>We are having a tough time finding qualified people to work in our
>development department.
I think every company has that problem.
>Is there a unix/perl-centric location for posting job opportunities?
Many resume sites allow recruiters to search the resume database.
You can use keywords like Perl and Unix to see what results you
get.
--ewh
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: Fri, 08 May 1998 02:17:17 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: returning a list from a recursive function
Message-Id: <3552A372.19409DB1@coos.dartmouth.edu>
zbrown@lynx.neu.edu wrote:
>
How about this:
{
my @return;
sub breakwords {
@return = ();
&breakwords_recurse(@_);
return @return;
}
> sub breakwords {
sub breakwords_recurse {
> my ($frag, $words) = @_;
>
> if (! $frag) {
> print join(" ", @$words), "\n";
push @return, join(" ", @$words);
> return;
> }
> for (my $length = 1; $length <= length $frag; $length++) {
> # &hash('word', 'w') returns true if 'word' is in the dictionary
> if (&hash(substr($frag, 0, $length), 'w')) {
> push @$words, substr($frag, 0, $length);
> breakwords(substr($frag, $length), $words);
> pop @$words;
> }
> }
> }
}
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 08 May 1998 10:05:33 +0200
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: Setting Environment Variables
Message-Id: <isra25b31u.fsf@godzilla.kiere.ericsson.se>
Laura Morgan <laura.morgan@itron.com> writes:
> Is there a way to set environment variables from within a Perl script so
> that once I've exited Perl, I can do a "set" and see the environment
> variable that I've set?
Short and 99.9% correct answer: No, not without some kind of active
cooperation from the process whose environment you want to change.
Longer answer: You could, in theory, have your script grovel through
the kernel memory, looking for the right place to edit in order to
change environment variables in other processes. This is highly
nontrivial, utterly unportable even within different versions of the
same OS, requires root/administrator privilege and is more likely to
crash your machine than to do something useful.
--
Calle Dybedahl, UNIX Sysadmin
qdtcall@esavionics.se http://www.lysator.liu.se/~calle/
------------------------------
Date: 06 May 1998 22:16:01 +0200
From: Raul Barral Tamayo <raul@pares.gsyc.inf.uc3m.es>
To: raul
Subject: Re: Telnet question
Message-Id: <4msomnrw8u.fsf@pares.gsyc.inf.uc3m.es>
You can turn echo on the other side sending to the
telnet partner IAC WILL ECHO (\xFF\xFB\x1).
Ra ul.
John Blanco <johnnie@holly.colostate.edu> writes:
> Sorry to post this here, but I know the intelligence of the net is
> in this group. :-) I made a "talk" server, which communicates with the
> telnet program, using sockets. The problem is when people type, they
> SEE what they type on their side (AKA Local echo) And this messes up the
[...]
------------------------------
Date: 8 May 1998 05:03:44 GMT
From: "Uwe Honekamp" <uwe.honekamp@etas.de>
Subject: Re: WIN32 tee command
Message-Id: <01bd7a3e$a44f1890$931a0180@fe13803>
Dennis Kowalski <dennis.kowalski@daytonoh.ncr.com> schrieb im Beitrag =
<35521FF3.AD5@daytonoh.ncr.com>...
> Does anyone know if there is a tool on NT that functions like the UNIX
> tee command ??=20
Try http://www.cygnus.com/misc/gnu-win32/
Regards
Uwe
--
Uwe Honekamp * ETAS GmbH * Borsigstr. 10 * D-70469 Stuttgart =20
uwe.honekamp@etas.de * voice: ++49/(0)711/89661-143 * fax: -107
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 2538
**************************************
