[9735] in Perl-Users-Digest
Perl-Users Digest, Issue: 3329 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 3 15:05:29 1998
Date: Mon, 3 Aug 98 12:00:19 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 3 Aug 1998 Volume: 8 Number: 3329
Today's topics:
"print" or something deeper? <mike@newfangled.com>
Re: $form_data{'$variable'} question dturley@pobox.com
Re: calling exe scott@softbase.com
Re: Change Unix NIS password though the WEB interface <mostafa@monisys.ca>
Re: comp.lang.perl.announce redux (John Stanley)
Re: comp.lang.perl.announce redux lvirden@cas.org
Re: comp.lang.perl.announce redux (John Stanley)
Re: comp.lang.perl.announce redux (Chris Nandor)
Re: comp.lang.perl.announce redux (John Stanley)
DDE and Perl <arkady@globes.co.il>
Re: getting the right modules for windows95? scott@softbase.com
Re: Good Book? <upsetter@ziplink.net>
Re: hiding user input (Steve Linberg)
Re: hiding user input (Gary L. Burnore)
Re: hiding user input <upsetter@ziplink.net>
Re: hiding user input (Chris Nandor)
Re: hiding user input <upsetter@ziplink.net>
Re: Interesting Question needs Quick Answer (Jeffrey R. Drumm)
Re: luser is spelt L-O-S-E-R was Re: hiding user input (Steve Linberg)
MacPerl fully compatible? (directory problems) <eijkhout@prancer.cs.utk.edu>
mirror.pl 2.4, is there anything better or newer availa (Raul Almquist)
Re: mirror.pl 2.4, is there anything better or newer av (Kelly Hirano)
Re: mirror.pl 2.4, is there anything better or newer av (Michael J Gebis)
Perl in Multithreaded Applications???? (UofDAlum)
Re: regex question (Larry Rosler)
sockets brejen@intercall.com
Sort <cobalt@dircon.co.uk>
Re: Using pointers (John Moreno)
viterbi <santori@mail.viplink.it>
Re: viterbi <thomas@daimi.aau.dk>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 03 Aug 1998 14:43:49 -0400
From: "Michael S. Brito, Jr." <mike@newfangled.com>
To: mike@newfangled.com
Subject: "print" or something deeper?
Message-Id: <35C604E5.7F36C6EF@newfangled.com>
Hey,
This script keeps dying at line 7 (or so the error log would like me
to believe). I have retyped and cursed and nothing has worked. Basically
I would like this bad-boy to open up etonic.dbf, see if the user input
for the field named 'dealer' matches that lines $place and if it does
print all the info on $place to the browser. Here is some info that you
may need:
Perl, version 5.003 with EMBED
Red Hat Linux release 4.1 (Vanderbilt)
Kernel 2.1.99 on an i586
CGI.pm Library Version 2.36
Executable Path: /usr/bin/perl
'etonic.dbf' is a plain text database file that goes line with 8 fields
across each line seperated by '|'
I'm fairly new to cgi with perl so please, if my message is composed
so horribly that no one wants to offer their help please advise me on
posting better!
<------------------- ERROR LOG MESSAGE START -------------------->
[Mon Aug 3 14:11:56 1998] access to
/home/mike/www/etonic/cgi-bin/search.cgi fa
iled for xxx.xxx.xx.x, reason: Premature end of script headers
syntax error at /home/mike/www/etonic/cgi-bin/search.cgi line 7, near
"print"
Execution of /home/mike/www/etonic/cgi-bin/search.cgi aborted due to
compilation
errors.
<------------------- ERROR LOG MESSAGE END -------------------->
<------------------- SCRIPT START -------------------->
#!/usr/bin/perl
# Lets DEFINE!!!!
$filename = "etonic.dbf"
# Go get the query string
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$FORM{$name} = $value;
}
# Start the results page
print "Content-type:text/html\n\n";
print "<html><head><title>Search Results Page</title></head><body>";
# Open the database and grab all the dealers and info
open(INF,$filename);
@indata = <INF>;
close(INF);
# Header for list
print "<p>A dealer near you is:<br><ul>";
# Take each field and seperate
foreach $i (@indata) {
chop($i);
($place,$addr1,$addr2,$addr3,$city,$state,$zip,$phone) =
split(/\|/,$i);
foreach $dealer (@dealer) {
if (!($place =~ /$dealer/i)) {
print "<li>$place,$addr1,$addr2,$addr3,$city,$state,$zip,$phone<br>";
}
}
}
# Finish up HTML
print "<br></ul></body></html>";
<------------------- SCRIPT END -------------------->
-----------------------------------------------------------
Michael S. Brito, Jr., Web Developer
Newfangled Graphics Co. Inc.
mike@newfangled.com
-----------------------------------------------------------
------------------------------
Date: Mon, 03 Aug 1998 17:55:46 GMT
From: dturley@pobox.com
Subject: Re: $form_data{'$variable'} question
Message-Id: <6q4tj3$jeb$1@nnrp1.dejanews.com>
In article <6q4d4n$t9e$1@nnrp1.dejanews.com>,
bfredett@my-dejanews.com wrote:
>
>
> for($i=1,$i<=$total,$i++) { # $total is set earlier
> $new_data = $form_data{'editcol$i'};
> } /|\
> |
> |
try using doble quotes (", not ')
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 3 Aug 1998 18:11:43 GMT
From: scott@softbase.com
Subject: Re: calling exe
Message-Id: <35c5fd5f.0@news.new-era.net>
Brad Legge (blegge@iafrica.com) wrote:
> Can anyone tell me whether there is a limit to length of the argument that
> you can send to an exe program...
Not that I've ever heard of. Some *shells* have limits to how long
a command line can be. Anything larger than 255 bytes is probably
data better suited for files.
> $var = 'miapi @array';
Are you sure about this? First of all, single ticks stops variable
interpolation in the string. Perl used to not join the array with
a delimiter when you just stuck @whatever in the array itself.
You probably want to use join with a space delimiter.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: Mon, 03 Aug 1998 14:12:02 -0400
From: Mostafa Kassem <mostafa@monisys.ca>
To: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Change Unix NIS password though the WEB interface
Message-Id: <35C5FD72.8AD8D992@monisys.ca>
Greetings:
There is an article the Perl Jounal issue #10 that deals with this topic.
The source code for it can be found at:
http://orwant.www.media.mit.edu/tpj/programs/Issue_10_CGI/
I am trying to implement it on redhat 5.0 but I am having a tough time with
Ioctl.pm.
I am new to perl, so I do not know where my problem is. The error I am
getting when I run the test.pl program is as follows:
Can't locate loadable object for module Ioctl in @INC
I do not know what loadable object is that. Perhaps somebody can shed some
light on what the object in question is.
Regards,
Mostafa
Tom Phoenix wrote:
> On 30 Jul 1998, Mr Lo Kai Cheong wrote:
>
> > Newsgroups: comp.lang.perl.misc
> > Subject: Change Unix NIS password though the WEB interface
> >
> > Where can I find any info about changing the Unix NIS password through
> > the Web Interface?
>
> I'd recommend that you check the docs, FAQs, and newsgroups about Unix
> (and your particular system), NIS, and web-related topics. Good luck!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 3 Aug 1998 18:30:32 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q4vk8$cdj$1@news.NERO.NET>
In article <6q4caj$gvp$2@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
>Why do we have `English-only' laws in various places around America, or
>`French-only' laws in others? Unabashed cultural imperialism is my take,
>something that has no business in law.
I am not aware of any 'X-only' laws around America. There have been
attempts at creating them, but they usually don't pass.
But it isn't "cultural imperialism", it's simple economics. It costs
money to produce every piece of government literature in multiple
languages.
------------------------------
Date: 3 Aug 1998 18:37:08 GMT
From: lvirden@cas.org
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q500k$jkv$1@srv38s4u.cas.org>
According to Mark-Jason Dominus <mjd@op.net>:
:reject the article. Either way, I don't understand why it is
:necessary to state in advance that all such articles will be
:rejected.
Because if it's in a language Randall cannot read, then he cannot properly
determine whether the article should be rejected or not!
--
<URL:mailto:lvirden@cas.org> Quote: In heaven, there is no panic,
<*> O- <URL:http://www.teraform.com/%7Elvirden/> only planning.
Unless explicitly stated to the contrary, nothing in this posting
should be construed as representing my employer's opinions.
------------------------------
Date: 3 Aug 1998 18:48:15 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q50lf$d24$1@news.NERO.NET>
In article <8chfzukmra.fsf@gadget.cscaper.com>,
Randal Schwartz <merlyn@stonehenge.com> wrote:
Regarding announcements of code that are not in CPAN:
CPAN may be where some of the community "shares", but there is no limit
on where the community can share. I think a CPAN-only limitation is not
necessary.
>CLPA is a wide forum. I've seen announcements to underpowered websites
>that got swamped. If something's in CLPA, it should be in CPAN for that
>sort of protection.
Protecting people from themselves is not a valid reason to remove the
code from the author's control.
Here are two excellent reasons for someone not to use CPAN to
distribute their code. 1. If they find a serious flaw in the code, they
can withdraw it immediately (O 30secs), and/or replace the code with a
fixed version without any delay. 2. If such a flaw is found, the author
can contact the people who retrieved the software and advise them,
because he has a log of who retrieved it. (Does CPAN provide authors a
list of people who downloaded their code?)
>Also, CLPA is archived in the CPAN. If there's a pointer, it should
>be to something as permanent as CPAN, not some transitory web site.
Some sites have been up longer than CPAN. Mine, for example. Were I to
announce code in clpa, I would find it amusing for you to reject it
because my site was 'transitory' compared to CPAN, and would shrug my
shoulders and write it off as another attempt to share that was rebuffed
by those who claim sharing is next to godliness.
------------------------------
Date: Mon, 03 Aug 1998 14:48:31 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <pudge-0308981448310001@192.168.0.3>
In article <6q4vk8$cdj$1@news.NERO.NET>, stanley@skyking.OCE.ORST.EDU
(John Stanley) wrote:
# In article <6q4caj$gvp$2@csnews.cs.colorado.edu>,
# Tom Christiansen <tchrist@mox.perl.com> wrote:
# >Why do we have `English-only' laws in various places around America, or
# >`French-only' laws in others? Unabashed cultural imperialism is my take,
# >something that has no business in law.
#
# I am not aware of any 'X-only' laws around America. There have been
# attempts at creating them, but they usually don't pass.
Not that it matters in this forum, but California has such laws. One
recent one affecting bilingual education is being appealed.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: 3 Aug 1998 18:58:03 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q517r$d9l$1@news.NERO.NET>
In article <pudge-0308981448310001@192.168.0.3>,
Chris Nandor <pudge@pobox.com> wrote:
>In article <6q4vk8$cdj$1@news.NERO.NET>, stanley@skyking.OCE.ORST.EDU
>(John Stanley) wrote:
># I am not aware of any 'X-only' laws around America. There have been
># attempts at creating them, but they usually don't pass.
>
>Not that it matters in this forum, but California has such laws. One
>recent one affecting bilingual education is being appealed.
Actually, the bilingual law in Ca. is not "English Only", it is "you
get one year of education in non-English, then we stop providing
special education and you get what everyone else gets." It's similar to
'mainstreaming', which is supposed to be good.
"English Only" would mean NO bilingual education at all.
------------------------------
Date: Mon, 03 Aug 1998 21:02:53 +0300
From: Arkady Karpman <arkady@globes.co.il>
Subject: DDE and Perl
Message-Id: <35C5FB4D.4D2C824B@globes.co.il>
Can I use DDE methods with Perl in Windows NT?
Thank you!!
------------------------------
Date: 3 Aug 1998 18:13:01 GMT
From: scott@softbase.com
Subject: Re: getting the right modules for windows95?
Message-Id: <35c5fdad.0@news.new-era.net>
Dan Baker (dtbaker_@flash.net) wrote:
> Although my questions are about CGI libraries in particular... please
> don't unload on me. I'm having trouble understanding where to get Perl
> modules for win32 (windows95) ;)
Remember a lot of these modules simply don't work now, either period
or under certain versions of the ported Perl interpreter. 5.005 is
supposed to be the grand unification of Win32 Perl.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: 3 Aug 1998 18:39:06 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Good Book?
Message-Id: <6q504a$g37@fridge.shore.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
: Perhaps you might rephrase your followup in a less
: confrontational and antogonistic style, lest it be
: inadvertently placed in the destructive pile rather
: than the constructive one, since I'm nearly certain
: you're really just trying to help.
Thanks for a good laugh!
--Art
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Mon, 03 Aug 1998 14:02:43 -0400
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: hiding user input
Message-Id: <linberg-0308981402430001@projdirc.literacy.upenn.edu>
In article <35C4ACE3.48686576@m.block>, sp@m.block wrote:
> Or set up another news group, say
comp.perl.do.not.post.if.you.have.not.read.the.faq.or.are.not.equipped.with.a.doctorate.in.the.subject.
No need for that; comp.lang.perl.do.not.post.if.you.have.not.read.the.faq
now exists, and is called c.l.p.moderated. No doctorate required.
Of course, that used to be the idea here. People just ignore it now.
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Mon, 03 Aug 1998 18:02:13 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: hiding user input
Message-Id: <35cdfb1d.91197385@nntpd.databasix.com>
On Mon, 03 Aug 1998 13:42:59 -0400, in article
<pudge-0308981342590001@192.168.0.3>, pudge@pobox.com (Chris Nandor) wrote:
>In article <35c5eaad.86989000@nntpd.databasix.com>,
>whatpartofdontemailme@dontyouunderstand wrote:
>
># Your opinion is that it's a troll. Your opinion means jack shit.
>
>If you do not care about his opinion that you are trolling, why should he
>(or I, or anyone) care about your opinion that e-mails to Usenet posts are
>not appropriate?
>
>Whoops, I cc:d you again ... darnit. I keep forgetting.
Aug 3 10:51:15 dtbsx.databasix.com sendmail[22885]: connect from
alpha.ply.adelphia.net
Aug 3 10:59:07 dtbsx.databasix.com sendmail[23095]: connect from
alpha.ply.adelphia.net
Aug 3 11:00:15 dtbsx.databasix.com sendmail[23137]: connect from
alpha.ply.adelphia.net
Aug 3 11:21:24 dtbsx.databasix.com sendmail[23647]: connect from
alpha.ply.adelphia.net
Aug 3 11:26:50 dtbsx.databasix.com sendmail[23796]: connect from
alpha.ply.adelphia.net
Aug 3 11:41:54 dtbsx.databasix.com sendmail[24167]: connect from
alpha.ply.adelphia.net
Aug 3 11:42:01 dtbsx.databasix.com sendmail[24169]: connect from
alpha.ply.adelphia.net
Aug 3 13:43:02 dtbsx.databasix.com sendmail[27224]: refused connect from
alpha.ply.adelphia.net
Aug 3 13:46:35 dtbsx.databasix.com sendmail[27327]: refused connect from
alpha.ply.adelphia.net
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: 3 Aug 1998 18:22:50 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: hiding user input
Message-Id: <6q4v5q$g37@fridge.shore.net>
Michael J Gebis <gebis@fee.ecn.purdue.edu> wrote:
: Then, when I call him on this, he follows it up with an attack
: questioning my buddha-nature.
The cad! :)
--Art
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Mon, 03 Aug 1998 14:41:30 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: hiding user input
Message-Id: <pudge-0308981441300001@192.168.0.3>
In article <35ccf8e9.90632679@nntpd.databasix.com>,
whatpartofdontemailme@dontyouunderstand wrote:
# On Mon, 03 Aug 1998 13:42:59 -0400, in article
# <pudge-0308981342590001@192.168.0.3>, pudge@pobox.com (Chris Nandor) wrote:
#
# >In article <35c5eaad.86989000@nntpd.databasix.com>,
# >whatpartofdontemailme@dontyouunderstand wrote:
# >
# ># Your opinion is that it's a troll. Your opinion means jack shit.
# >
# >If you do not care about his opinion that you are trolling, why should he
# >(or I, or anyone) care about your opinion that e-mails to Usenet posts are
# >not appropriate?
# >
# >Whoops, I cc:d you again ... darnit.
#
# That's ok. Your domain and that of those you email from have been added to
# hosts.deny. Won't see your shit. It'll go right back where it came from.
Suit yourself. I am just following what I see as proper netiquette. If
you disagree with my view of netiquette, as you so eloquently put it, it
doesn't mean jack shit.
# > I keep forgetting.
#
# You keep harassing in private email. Typical asshole that you are.
OK. Hm. You called people jerkoff, bitch, asshole, etc. All I did was
reprove your posts and cc: you. And for that, *I* am the asshole. Hm.
And you are trying to tell ME what netiquette is?
Bitch.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: 3 Aug 1998 18:40:40 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: hiding user input
Message-Id: <6q5078$g37@fridge.shore.net>
Gary L. Burnore <gburnore@databasix.com> wrote:
: On 3 Aug 1998 15:00:45 GMT, in article <6q4jat$auq@fridge.shore.net>,
: Scratchie <upsetter@ziplink.net> wrote:
:>
:>That is a threat. Buy a dictionary.
:>
: You have yours handy? Look up promise.
My mistake. I didn't realize you were a tough guy.
--Art
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Mon, 03 Aug 1998 18:35:51 GMT
From: drummj@mail.mmc.org (Jeffrey R. Drumm)
Subject: Re: Interesting Question needs Quick Answer
Message-Id: <35c702c5.273730503@news.mmc.org>
On Mon, 3 Aug 1998 08:11:40 GMT, ijg@csc.liv.ac.uk (I.J. Garlick) wrote:
(snip)
>> perl -we 'seek DATA, 0, 0 and print <DATA> __DATA__'
> ^^^^^^
>I may be being a bit picky here but doesn't the above thing mean you are
>reading something in? which was deffinately a no no. Besides we did come
>up with that (or something very similar) within 5 to 10 minutes of the
>problem being set. It was immediately discarded for the reasons I have just
>pointed out.
So perl can't even read in the program you wish to have evidence the required
behavior? Pretty restrictive, I'd say.
The above snippet doesn't "read in" any external data, so why should it be any
different than printing the contents of a variable?
--
Jeffrey R. Drumm, Systems Integration Specialist
Maine Medical Center - Medical Information Systems Group
drummj@mail.mmc.org
"Broken? Hell no! Uniquely implemented!" - me
------------------------------
Date: Mon, 03 Aug 1998 15:01:33 -0400
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: luser is spelt L-O-S-E-R was Re: hiding user input
Message-Id: <linberg-0308981501330001@projdirc.literacy.upenn.edu>
In article <35C51585.B580B486@m.block>, sp@m.block wrote:
> Abigail wrote:
> > ++
> > ++
> > ++ BTW luser is spelt L-O-S-E-R
> >
> > No, it's not.
>
> Umm lemme just check my dictionary - oh yeah you're right it doesn't have any
> hyphens. You don't spell "cool" - "kewl" either (just in case you use
that one too)
In the programming environment I came of age in (way back in the early
80s), "Luser" became a humorous substitute for "user" in program
comments. As in:
jsr _CheckArgs ; luser?
bcs _DieHorribly ; luser didn't sign in
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: 03 Aug 1998 14:00:58 -0400
From: Victor Eijkhout <eijkhout@prancer.cs.utk.edu>
Subject: MacPerl fully compatible? (directory problems)
Message-Id: <om90l6rllx.fsf@prancer.cs.utk.edu>
It looks like "opendir(HANDLE,path)" does not work, but "opendir HANDLE,path"
does. I cannot get "readdir" to work at all. It returns a null result
whatever I do.
Is MacPerl fully compatible? Where do I go for more information?
--
Victor Eijkhout
"The Navy began running shipboard applications under Microsoft Windows NT [..]
The ship had to be towed into the Naval base at Norfolk, Va., because
a database overflow caused its propulsion system to fail [...]" (GCN)
"Commander Hsu, the American ship is just sitting there not doing anything."
"Lieutenant Wang, do you think it's a trap of some sort? They couldn't be
that stupid".
"I read that they're using Windows NT on their battle ships. Maybe they
_are_ that stupid."
"Fire at will". [Joe Ragosta]
------------------------------
Date: Mon, 03 Aug 1998 13:23:24 -0500
From: strider@ShadowMAC.org (Raul Almquist)
Subject: mirror.pl 2.4, is there anything better or newer available?
Message-Id: <strider-0308981323240001@ppp-67-194.dialup.winternet.com>
Currently we are using software listed in the subject, but several
functions are either no longer supported in this version or else not even
listed as having been available at any time.
We need to have the archives which aged aged off of a few mirror sites
(usually not because of their age but because the originating site could
not deal with their sizes for very long) moved to a dir for safe keeping,
mirror.pl lists this function as being old and after trying to use it
several times it appears that old means no longer functional. We are
trying to keep archives which other sites age off of their sites on our
site, as we have plenty of capacity to hold them online.
Since mirror.pl is starting to look like the "old" software, I am
wondering what else is available that a site like ours can use.
System hardware config - 170mhz Sun Sparc under the Solaris 2.5.1 OS.
Mirror config - Currently mirror some 16 sites for about 35Gbs of files
and archives for free public access, as well as mirroring our own site in
minature as a small test area on an admin only drive for those admins who
want to play with scripts and such in relation to our files and filebase
without actually doing so in our main server.
We would prefer perl, but javascript is ok, and we are willing to look
at other options if need be.
--
BulkMailers and Email address compilers may purchase this
email address for $25000.00 for use in their products.
Anyone selling this email address or utilizing this email
address for any commercial usage without a license from
ShadowMAC is in violation of private property rights and
violators WILL be be invoiced for usage.
Selling what you do not own is THEFT of private property!!!
This is domain policy.
------------------------------
Date: 3 Aug 1998 11:29:18 -0700
From: hirano@Xenon.Stanford.EDU (Kelly Hirano)
Subject: Re: mirror.pl 2.4, is there anything better or newer available?
Message-Id: <6q4vhu$s8b@Xenon.Stanford.EDU>
i'm not sure about other products, but a search for "mirror.pl" on yahoo!
brought me to the url:
http://www.falcon.ru/Archive/lang/perl/mirror/
that has a directory listing with mirror.pl 2.8.
In article <strider-0308981323240001@ppp-67-194.dialup.winternet.com>,
Raul Almquist <admin1@shadowmac.org> wrote:
> Currently we are using software listed in the subject, but several
>functions are either no longer supported in this version or else not even
>listed as having been available at any time.
>
> We need to have the archives which aged aged off of a few mirror sites
>(usually not because of their age but because the originating site could
>not deal with their sizes for very long) moved to a dir for safe keeping,
>mirror.pl lists this function as being old and after trying to use it
>several times it appears that old means no longer functional. We are
>trying to keep archives which other sites age off of their sites on our
>site, as we have plenty of capacity to hold them online.
>
> Since mirror.pl is starting to look like the "old" software, I am
>wondering what else is available that a site like ours can use.
>
>System hardware config - 170mhz Sun Sparc under the Solaris 2.5.1 OS.
>
>Mirror config - Currently mirror some 16 sites for about 35Gbs of files
>and archives for free public access, as well as mirroring our own site in
>minature as a small test area on an admin only drive for those admins who
>want to play with scripts and such in relation to our files and filebase
>without actually doing so in our main server.
>
> We would prefer perl, but javascript is ok, and we are willing to look
>at other options if need be.
>--
>BulkMailers and Email address compilers may purchase this
>email address for $25000.00 for use in their products.
>Anyone selling this email address or utilizing this email
>address for any commercial usage without a license from
>ShadowMAC is in violation of private property rights and
>violators WILL be be invoiced for usage.
>Selling what you do not own is THEFT of private property!!!
>This is domain policy.
--
Kelly William Hirano Stanford Athletics:
hirano@cs.stanford.edu http://www.gostanford.com/
hirano@alumni.stanford.org (WE) BEAT CAL (AGAIN)! 100th BIG GAME: 21-20
------------------------------
Date: 3 Aug 1998 18:34:33 GMT
From: gebis@fee.ecn.purdue.edu (Michael J Gebis)
Subject: Re: mirror.pl 2.4, is there anything better or newer available?
Message-Id: <6q4vrp$57n@mozo.cc.purdue.edu>
strider@ShadowMAC.org (Raul Almquist) writes:
} Currently we are using software listed in the subject, but several
}functions are either no longer supported in this version or else not even
}listed as having been available at any time.
} Since mirror.pl is starting to look like the "old" software, I am
}wondering what else is available that a site like ours can use.
I don't have any practical experience with it, but it does appear that
2.4 is an older version. Check out the homepage at:
http://sunsite.doc.ic.ac.uk/packages/mirror/
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: 3 Aug 1998 18:20:03 GMT
From: uofdalum@aol.com (UofDAlum)
Subject: Perl in Multithreaded Applications????
Message-Id: <1998080318200300.OAA15421@ladder03.news.aol.com>
Can anyone tell me if embedded Perl C functions can safely be used in a
(Solaris native threads) multithreaded application? My program crashs inside
Perl C functions while processing strings above a certain rate. It seems to me
the perl fucntions (see man page on perlembed) are non-reentrant. I am using
Perl v5.00403 with Solaris v2.6.
If anyone has any insight into this, I'd appreciate the feedback. Do not e-mail
to this address. I have my e-mail filtered here. Send to: pchan@bbn.com
Peter Chan
Software Engineer
GTE Internetworking (soon to be Bell Atlantic)
Columbia, MD 21045
e-mail> pchan@bbn.com
PH> 410-309-8448
FAX> 410-309-8315
------------------------------
Date: Mon, 3 Aug 1998 11:43:11 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: regex question
Message-Id: <MPG.102fa496288bb47698974f@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <35C5ED31.EFC95D96@shaw.wave.ca> on Mon, 03 Aug 1998 16:56:39
GMT, Rick Delaney <rick.delaney@shaw.wave.ca> says...
> Actually the original poster asked, " What does the regex have to look
> like to match only the 2nd time the 'a' occurs?" So in the spirit of
> generalizing the solution:
>
> $var = 'abcdabcdabcd';# characters not necessarily consecutive
> $var =~ s/(.)/$count{$1}++ == 1 ? 'b' : $1/gse;
That is nice, but it replaces the second occurrence of *every* character.
How about this, for just a single, specified character:
$var =~ s/a([^a]*)a/a$1b/s;
or (where the 'a' appears only once instead of four times):
$var =~ s/((a).*?)\2/$1b/s;
However, these don't generalize to members of a character class, even
with a /g modifier, because they don't overlap matches. In that case,
replacing your '.' by the character class would be a good way to go.
The original 'probably a dumb question...' has turned out to be somewhat
interesting, at least to me.
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 03 Aug 1998 18:39:34 GMT
From: brejen@intercall.com
Subject: sockets
Message-Id: <6q505a$nab$1@nnrp1.dejanews.com>
I am trying a little program to look up stock prices from my PC.
1) when I use an address "www.(whatever)" I can connect the socket but when I
use "http://(whatever)" it NEVER works. Why is this?
the subroutine for connecting looks like this:
---------------------------------
sub open_TCP
{
my ($FS,$dest,$port) = @_;
print "$FS,$dest,$port\n";
my ($proto) = getprotobyname('tcp') || die "can't get protocol";
socket ($FS,PF_INET,SOCK_STREAM,$proto);
my $sin = sockaddr_in(80,inet_aton($dest));
connect($FS,$sin) || return undef;
my $old_fh = select ($FS);
$| = 1; #don't buffer output
select($old_fh);
1;
}
1;
---------------------------------
and ideas??
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 3 Aug 1998 19:37:12 -0100
From: "Jennifer Philips" <cobalt@dircon.co.uk>
Subject: Sort
Message-Id: <01bdbe3d$2c5a9ba0$0100007f@vmayadas>
Hi
When using sort to sort a hash, is there a way of passing the hash I want
to sort into the
sort subroutine rather than declaring a global hash?
Thanks
------------------------------
Date: Mon, 3 Aug 1998 14:38:02 -0400
From: phenix@interpath.com (John Moreno)
Subject: Re: Using pointers
Message-Id: <1dd6sdj.1tsdqul1pwbx82N@roxboro0-060.dyn.interpath.net>
Craig Berry <cberry@cinenet.net> wrote:
> John Moreno (phenix@interpath.com) wrote:
> : I want to use perl to test out some C code which deals with a null
> : terminated string (i.e. translate the C code to perl to test out the
> : algorithm). The problem? I don't understand perl pointers.
>
> Not surprising, as Perl doesn't have 'pointers' per se. References are
> about the closest thing in the language, but often idioms in other
> languages that involve pointers don't even involve references when
> expressed in Perl.
That's kind of what I thought, but still couldn't figure out how to do
what I want (maybe it's not possible) - print $$pointer; doesn't seem
to do anything (print $pointer prints out some junk which I assumed is
the location in memory of the string expresses as a string).
> : I'm using:
> :
> : $teststr="this is a test\x0";
>
> At this point, $teststr 'contains' your string in sort of the same sense
> as the C fragment
>
> char* teststr = "this is a test";
>
> would have. Just as you can pass the pointer around a C program, you can
> pass the scalar containing the string around a Perl program.
I think pascal's string type is a better match.
> There's no need for 'pointers' (references, really) in most simple
> programs; the scalar mechanism mirrors the C pointer-based idiom well.
>
> : $pointer = pack ("p", $teststr);
> :
> : to get the pointer, but that doesn't seem to be doing what I expect (I'm
> : obviously misreading pack in the perlfunc).
>
> That does indeed put a pointer to the data in $teststr into $pointer, but
> at that point $pointer is of no further use to Perl. pack/unpack are
> intended (among other things) to munge data to and from external formats
> needed by other languages and applications.
Well, I'm trying to eliminate "bad" items from a string by copying it
onto itself while it's good and then back tracking when I find out it's
bad, I want to make sure I don't have any fence post errors and perl
seems to be the best way of looking at it (very easy to input the
different test cases and not a lot involved in setting up a test
program, unlike for C - I'm doing this on a Mac, and setting up small
programs isn't MW codewarriors strong suite).
So what I wanted to do is use $pointer++ to move around in the C string
and also do the equivalent of the C *pointer==' '. If I can't do that I
guess it shouldn't be too hard to do it as a array and then use
indexing.
> : This is probably covered in one of the books - but I don't have any of
> : them, just the standard installation, which doesn't seem to deal with
> : pointers much.
>
> Well, I'd certainly recommend getting at least the Llama and the Camel.
> Your learning curve will be much less painful.
At this moment, in a time vs money argument, money is more valuable, so
I'm not afraid of the learning curve.
--
John Moreno
------------------------------
Date: Sat, 01 Aug 1998 19:56:09 +0200
From: santori <santori@mail.viplink.it>
Subject: viterbi
Message-Id: <35C356B9.F4A134FC@mail.viplink.it>
i need any matlab file of viterbi algorithm and the eqauation for to
calculate the metrics in the viterbi algorithm with code rate
2/3.....help me!!!!
santori fabio
santori@mail.viplnik.it
------------------------------
Date: Mon, 03 Aug 1998 20:25:47 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: viterbi
Message-Id: <35C600AB.31283553@daimi.aau.dk>
santori wrote:
>
> i need any matlab file of viterbi algorithm and the eqauation for to
> calculate the metrics in the viterbi algorithm with code rate
> 2/3.....help me!!!!
Did the people at comp.soft-sys.matlab tell you to post here?
They were wrong
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3329
**************************************
