[13017] in Perl-Users-Digest
Perl-Users Digest, Issue: 427 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 9 08:09:01 1999
Date: Mon, 9 Aug 1999 05:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 9 Aug 1999 Volume: 9 Number: 427
Today's topics:
Berkey DB ,PERL NT,java <jkekoni@cc.hut.fi>
Re: CGI Perl Properties (Abigail)
Re: CGI Perl Properties (Abigail)
Re: CGI Perl Properties <uri@sysarch.com>
Re: CGI Perl Properties (Abigail)
Effective Perl Programming? (hoz)
Re: Effective Perl Programming? (Graham Ashton)
Re: Effective Perl Programming? <thomas@bibsyst.no>
Fetch document via proxy <yoursguideline@hotmail.com>
Re: Getting Info (Donovan Rebbechi)
HELP!!! DBI problems. <psychosherry@email.com>
HELP!!! RE: DBI Modules for perl ver. 5.005 <psychosherry@email.com>
HELP...! <kawa@taiwan.com>
Re: kill pid scripts (Anno Siegel)
Re: kill pid scripts (Abigail)
Re: kill pid scripts (Anno Siegel)
Re: Looking for Poll Script that (Anno Siegel)
member data not getting set (perl module) <ramanika@flashmail.com>
Re: perlscript ado error help!!! (asp) (Michel Dalle)
pricing a perl job <max@maxgraphic.com>
Re: pricing a perl job (Abigail)
Re: Quick Question :) (Andreas Fehr)
Re: Quick Question :) (Anno Siegel)
Re: Solved: extracting terminology from text (Anno Siegel)
Re: Spider engine database script <cmd@nospam_altnews.com.au>
Re: Where to find help other than perldoc and books. (Bart Lateur)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 9 Aug 1999 11:35:09 GMT
From: Joonas Timo Taavetti Kekoni <jkekoni@cc.hut.fi>
Subject: Berkey DB ,PERL NT,java
Message-Id: <7omedd$ibn$1@midnight.cs.hut.fi>
Is it possible to build berkey db for perl NT?( berkley db does have
an NT port).
Or is there a java interface for sdbm?
Or is there an interface for java for a db that is compatible with sdm
files?
--
_- Joonas Kekoni OH2MTF I -_
_-internet: jkekoni@cc.hut.fi I DO NOT EAT. -_
_-slowmail: j{mer{ntaival 7a176 I -_
_- 02150Espoo I It is a monitor -_
_- Finland/Europe I -_
------------------------------
Date: 9 Aug 1999 01:11:10 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: CGI Perl Properties
Message-Id: <slrn7qss7f.9fk.abigail@alexandra.delanet.com>
Uri Guttman (uri@sysarch.com) wrote on MMCLXIX September MCMXCIII in
<URL:news:x7iu6pebyo.fsf@home.sysarch.com>:
|| >>>>> "A" == Abigail <abigail@delanet.com> writes:
||
|| A> Uri Guttman (uri@sysarch.com) wrote on MMCLXIX September MCMXCIII in
|| A> <URL:news:x7u2q9ef8y.fsf@home.sysarch.com>:
|| A> $$
|| A> $$ A> * Regular Perl tasts like Coke.
|| A> $$ A> CGI Perl tasts like Pepsi.
|| A> $$
|| A> $$ i hate all colas. i like root beer much better. does that mean i hate perl?
||
|| A> You should use TCL then.
||
|| does that stand for 'the cola language'?
No, it stands for "The Cool Language".
BTW, what does Tom P think of your fetish?
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 9 Aug 1999 01:13:47 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: CGI Perl Properties
Message-Id: <slrn7qsscd.9fk.abigail@alexandra.delanet.com>
Larry Rosler (lr@hpl.hp.com) wrote on MMCLXIX September MCMXCIII in
<URL:news:MPG.12180cfd4aaf245a989e0d@nntp.hpl.hp.com>:
== In article <x7u2q9ef8y.fsf@home.sysarch.com> on 09 Aug 1999 00:42:53 -
== 0400, Uri Guttman <uri@sysarch.com> says...
== > >>>>> "A" == Abigail <abigail@delanet.com> writes:
== >
== ...
== > A> * Regular Perl uses Camels, Rams and Llamas.
== >
== > oh my!
==
== It actually scans better in the proper pedagogic order:
==
== Llamas, Camels and Rams
==
== Oh my!
CLR: Cormen, Leiserson, Rivest
CLR: Camels, Llamas, Rams.
Coincidence? I think not!
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 09 Aug 1999 02:22:44 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: CGI Perl Properties
Message-Id: <x7907leamj.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@delanet.com> writes:
A> Uri Guttman (uri@sysarch.com) wrote on MMCLXIX September MCMXCIII in
A> <URL:news:x7iu6pebyo.fsf@home.sysarch.com>:
A> || A> You should use TCL then.
A> ||
A> || does that stand for 'the cola language'?
A> No, it stands for "The Cool Language".
A> BTW, what does Tom P think of your fetish?
i wouldn't call it a fetish as i am definitely not addicted like most cola
nuts are. and you should ask him yourself (or maybe he will read this
post).
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 9 Aug 1999 01:37:51 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: CGI Perl Properties
Message-Id: <slrn7qstpb.9fk.abigail@alexandra.delanet.com>
Uri Guttman (uri@sysarch.com) wrote on MMCLXIX September MCMXCIII in
<URL:news:x7907leamj.fsf@home.sysarch.com>:
--
-- i wouldn't call it a fetish as i am definitely not addicted like most cola
-- nuts are.
I am *gulp* not add*gulp*icted to *gulp* cola. I can *gulp* quit any time
*gulp* I want to. *gulp* *gulp*. The stories *gulp* you hear *gulp* about
me *gulp* going to the *gulp* 24 hour store *gulp* at weird times *gulp*
are rumours. *gulp*. Just *gulp* rumours. And it's Ms. Hazelnut for you.
Hazelnut.
--
perl -wlne '}for($.){print' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 09 Aug 1999 15:57:19 GMT
From: hoz@rocketmail.com (hoz)
Subject: Effective Perl Programming?
Message-Id: <37aef9ee.424233826@news.netvision.net.il>
What is the general consenus about this book?
Effective Perl Programming: Writing Better Programs With Perl
by Joseph N. Hall
Is it a must have like the camel? Will it dramatically improve my
skill/knowledge?
-hoz
------------------------------
Date: 9 Aug 1999 10:14:01 GMT
From: billynospam@mirror.bt.co.uk (Graham Ashton)
Subject: Re: Effective Perl Programming?
Message-Id: <slrn7qtafa.lo5.billynospam@wing.mirror.bt.co.uk>
In article <37aef9ee.424233826@news.netvision.net.il>, hoz wrote:
>What is the general consenus about this book?
>Is it a must have like the camel? Will it dramatically improve my
>skill/knowledge?
that depends how much you know already! I think it's marvellous,
personally.
if I had to chose a favourite Perl book I'd find it very difficult, but
this one would be a major contender (as would the ram and the panther).
it concentrates on how to write good code, and provides lots of little
tips and tricks. it's also very readable. have you seen the web site?
http://www.effectiveperl.com/ (I think)
--
Graham
P.S. <billynospam@mirror.bt.co.uk> is a fully working address...
------------------------------
Date: Mon, 09 Aug 1999 12:28:15 +0200
From: Thomas Weholt <thomas@bibsyst.no>
Subject: Re: Effective Perl Programming?
Message-Id: <37AEAD3F.40B379E2@bibsyst.no>
hoz wrote:
>
> What is the general consenus about this book?
> Effective Perl Programming: Writing Better Programs With Perl
> by Joseph N. Hall
> Is it a must have like the camel? Will it dramatically improve my
> skill/knowledge?
> -hoz
Being a relative newbie when talking about hardcore/advanced perl, some
topics in this book is not easy to understand. It focuses mostly on
idiomatic(?) way of writing perl, which is sometimes very hard to
understand. ( at least for newbies like me. ) On the other hand, it
seems that almost everything I do in three to five lines can be done in
one, and this book shows alot of neat tricks on how to do this. You
could probably cut down some of your scripts size if you understand the
examples in this book, and get a much more compact, less verbose, style.
This could result in more effective ( faster/smaller ) scripts, but I
think the code would get ( at least sometimes ) harder to understand for
people who haven`t programmed in perl for so long. ( Perhaps I`m wrong?
)
I would concetrate on the camel books first, and buy this book later
when the basics layed out in them seem trivial, and you want to "tweak"
your scripts for ultimate performance. You could surely improve your
scripts and knowledge reading this book, but I think you should
understand *why* the idiomatic-style works before you just copy it, and
that requires a full understanding of the fundamental perl-concepts. If
you use to much code you don`t fully understand it`ll get harder to seek
out bugs later on.
Thomas
------------------------------
Date: Mon, 09 Aug 1999 18:51:41 +0800
From: Guideline Chan <yoursguideline@hotmail.com>
Subject: Fetch document via proxy
Message-Id: <37AEB2BC.C9951682@hotmail.com>
Dear all,
i had written a script to fetch a document directly without using
any modules. It works fine.
Now i want to get document via proxy. So i connect to proxy and send
a command GET absolute_url HTTP/1.0, but it is no response after a long
time wait.
p.s. using netstat -a to check that the state of proxy server is
ESTABLISED and the proxy works fine.
What's problem and any idea???
--
thx
------------------------------
Date: 9 Aug 1999 02:41:32 -0400
From: elflord@news.newsguy.com (Donovan Rebbechi)
Subject: Re: Getting Info
Message-Id: <slrn7qsu0q.7p0.elflord@panix3.panix.com>
On 8 Aug 1999 16:28:26 -0500, Abigail wrote:
>Malcolm Ray (M.Ray@ulcc.ac.uk) wrote on MMCLXVIII September MCMXCIII in
[ snip ]
yeah, I think you really need to use a system specific command ( eg `du` )
to get any reliable information. This kind of info is file-system dependent,
and the shell tools are the only reasonable bet.
--
Donovan
------------------------------
Date: Mon, 9 Aug 1999 14:36:19 +0500
From: "Sherry" <psychosherry@email.com>
Subject: HELP!!! DBI problems.
Message-Id: <37ae9f76.1@spine.brain.net.pk>
Sorry.I know this a PERL group, but I am desparate.
I am having problems installing DBI modules for perl 5.005.
I unzipped the DBI-1.13 module into my c:\perl\lib directory. And then I
typed <perl Makefile.pl> at my MS-DOS prompt in c:\perl\lib\dbi-1.13\.
And then when I type <make> nothing happens.
When I run my script it gives the following error:
Can't locate loadable object for module DBI in @INC (@INC contains
c:\perl\lib c:\perl\site\lib)
Can't locate DBI.pm in @INC.
BEGIN failed.......compilation aborted
Please help me. My job is at stake.
Thankx.
Sherry
email: psychosherry@email.com
------------------------------
Date: Mon, 9 Aug 1999 14:28:59 +0500
From: "Sherry" <psychosherry@email.com>
Subject: HELP!!! RE: DBI Modules for perl ver. 5.005
Message-Id: <37ae9f76.0@spine.brain.net.pk>
Please, I know this is a PERL newsgroup, but I need help!
I am having problems installing the DBI-1.13 module.
The error says it cannot find the loadable object for module dbi in @INC
(@INC contains c:\perl\lib c:\perl\site\lib)
DBI.pm failed....
Please tell me why this is happening. My job is at stake!!!!
Thankx,
Sherry
email: psychosherry@email.com
------------------------------
Date: Mon, 09 Aug 1999 15:38:36 +0800
From: Kevin <kawa@taiwan.com>
Subject: HELP...!
Message-Id: <37AE857C.B5B4C586@taiwan.com>
Hi,
In a web page, I want to write a perl program that can receives surfer's
inputs and
I already done it. But I don't know how to accept the inputs with
alphanumeric only,
can anybody tell me how to set this restriction? Thanks.
Kawa ~
------------------------------
Date: 9 Aug 1999 09:20:44 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: kill pid scripts
Message-Id: <7om6hc$kic$1@lublin.zrz.tu-berlin.de>
Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>Dutch McElvy (dutch@mindspring.com) wrote on MMCLXVIII September MCMXCIII
>in <URL:news:7ol1k0$is0$1@nntp6.atl.mindspring.net>:
>``
>`` kill -9 `ps -ef | grep foo | awk -e '{print $2}'`
>
>That doesn't compile. You need a , after the -9. Are your sure you want
>to kill process groups? With a SIGKILL? Shouldn't you first try a more
How would that try to kill process *groups*?
>friendly SIGTERM? And what is the value of $2? You know that you are
>interpolating, don't you? If, after you fixed the bugs, it still doesn't
>kill what you want it to kill, check $!.
Oh, and the original poster complained about grepping more than one
process. That's because the ps will as often as not list the process
running 'grep foo'. Which 'grep foo' will promptly match.
Anno
------------------------------
Date: 9 Aug 1999 04:30:47 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: kill pid scripts
Message-Id: <slrn7qt7to.9fk.abigail@alexandra.delanet.com>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCLXIX September
MCMXCIII in <URL:news:7om6hc$kic$1@lublin.zrz.tu-berlin.de>:
&& Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
&& >Dutch McElvy (dutch@mindspring.com) wrote on MMCLXVIII September MCMXCIII
&& >in <URL:news:7ol1k0$is0$1@nntp6.atl.mindspring.net>:
&& >``
&& >`` kill -9 `ps -ef | grep foo | awk -e '{print $2}'`
&& >
&& >That doesn't compile. You need a , after the -9. Are your sure you want
&& >to kill process groups? With a SIGKILL? Shouldn't you first try a more
&&
&& How would that try to kill process *groups*?
Because the manual says so:
=item kill LIST
Sends a signal to a list of processes. The first element of
the list must be the signal to send. Returns the number of
processes successfully signaled.
$cnt = kill 1, $child1, $child2;
kill 9, @goners;
--> Unlike in the shell, in Perl if the I<SIGNAL> is negative, it kills
--> process groups instead of processes. (On System V, a negative I<PROCESS>
number will also kill process groups, but that's not portable.) That
means you usually want to use positive not negative signals. You may also
use a signal name in quotes. See L<perlipc/"Signals"> for details.
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 9 Aug 1999 09:51:54 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: kill pid scripts
Message-Id: <7om8bq$kl4$1@lublin.zrz.tu-berlin.de>
Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCLXIX September
>MCMXCIII in <URL:news:7om6hc$kic$1@lublin.zrz.tu-berlin.de>:
>&& Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>&& >Dutch McElvy (dutch@mindspring.com) wrote on MMCLXVIII September MCMXCIII
>&& >in <URL:news:7ol1k0$is0$1@nntp6.atl.mindspring.net>:
>&& >``
>&& >`` kill -9 `ps -ef | grep foo | awk -e '{print $2}'`
>&& >
>&& >That doesn't compile. You need a , after the -9. Are your sure you want
>&& >to kill process groups? With a SIGKILL? Shouldn't you first try a more
>&&
>&& How would that try to kill process *groups*?
>
>Because the manual says so:
...as it does indeed. Perceptive overload, I guess. Cohabitation of
one perl function with three unix commands on a single line do that
to me every time.
kill $signal ( split / +/, ( grep /foo/, `ps -ef`)[ 0])[ 1];
would alleviate that, along with other problems.
Anno
------------------------------
Date: 9 Aug 1999 08:51:03 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Looking for Poll Script that
Message-Id: <7om4pn$kf7$1@lublin.zrz.tu-berlin.de>
[posted and mailed]
QuestionExchange <USENET@questionexchange.com> wrote in comp.lang.perl.misc:
>Try
>
>http://theory.uwinnipeg.ca/scripts/CPAN/authors/id/M/MG/MGAMMON/WWW-Poll-0.01.readme
>
>http://theory.uwinnipeg.ca/scripts/CPAN/authors/id/M/MG/MGAMMON/WWW-Poll-0.01.tar.gz
>
What is this doing on usenet?
Question Exchange is a web based commercial enterprise. If your experts
want to participate in usenet discussions, they're free to do so under
their own name. Anonymously posting unsolicited answers *as* Question
Exchange is spam. Stop it.
Anno
------------------------------
Date: Mon, 09 Aug 1999 03:41:39 +0100
From: Ramanika <ramanika@flashmail.com>
Subject: member data not getting set (perl module)
Message-Id: <37AE3FE3.510A007B@flashmail.com>
I almost have it. But figureing this out is driving me a little crazy.
I have a subroutine that is passed a hashref. I want to select out of
a database only those values (names) passed in the hashref. I have
created new() and getdata() (part of USER.pm package/module) but the
member data
is not being set. member data is anon hash ref.
so I want the following to happen:
$r_user = {
"user_id" => "ramanika",
"user_password" => ""
};
# now make calls to package
$r_person = USER::new($r_person);
$r_person->getdata(); # should fill in "user_password"
Here is what I have:
# select info from database
sub getdata {
my $m_user = shift;
$mydbh = open; # open connection to database
# dynamically build query string
$stmt = 'SELECT ' . join( ', ', sort keys %$m_user) . ' FROM user
WHERE user_id=\'' . $m_user->{'user_id'} . '\'';
$sth = $mydbh->prepare($stmt);
$sth->execute;
# fetch into member data
# why is member data not being set?
$m_user = $sth->fetchrow_hashref;
# at this point I can printout $m_user{'user_password'} correctly
# but the member data is not permanently set so the calling program
# cannot see the values. any ideas as to what up?
$sth->finish;
};
# new() is called first. creates member data
sub new {
my $m_user = $_[0];
bless $m_user;
return $m_user;
}
------------------------------
Date: Mon, 09 Aug 1999 11:08:42 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: perlscript ado error help!!! (asp)
Message-Id: <7omd05$307$1@news.mch.sbs.de>
In article <7ofcer$lkj$1@nnrp1.deja.com>, cramey@my-deja.com wrote:
>I know that i am getting ado errors from my database (sybase) how can i
>print those errors out?...
>
>i know that there is a 'collection' under the ado object in perlscript,
>but how do i access / see that...
There was a similar question a few weeks ago in alt.perl. Have a look at
http://www.deja.com/getdoc.xp?AN=506601037
Don't know if it works for PerlScript, though...
Michel.
------------------------------
Date: Mon, 09 Aug 1999 00:37:31 -0700
From: Max Pinton <max@maxgraphic.com>
Subject: pricing a perl job
Message-Id: <090819990037311725%max@maxgraphic.com>
Hi,
I just finished my largest perl project to date, and I'm wondering what
to bill. It took me about 16 hours, but I'm a newbie and much of that
time was debugging and head-scratching. It's a job-tracking site, and
can:
* accept a job order from a form
* save the entire order and a brief status line
* show all status lines in a table, with links to the complete job order
* color the status lines according to data in the order (rush = yellow)
* let the user change data in the status lines as the job progresses
* let the user's client view (but not edit) the status lines
* let the user's client enter a change order
* most activities are also e-mailed to the user
* let the user hide, delete & archive status lines
So, none of this stuff is rocket science, but it all works well and the
client & client's clients are pleased.
How much would you charge for such a script?
Thanks (& please e-mail too),
Max
max@maxgraphic.com
------------------------------
Date: 9 Aug 1999 03:21:26 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: pricing a perl job
Message-Id: <slrn7qt3ro.9fk.abigail@alexandra.delanet.com>
Max Pinton (max@maxgraphic.com) wrote on MMCLXIX September MCMXCIII in
<URL:news:090819990037311725%max@maxgraphic.com>:
;;
;; I just finished my largest perl project to date, and I'm wondering what
;; to bill. It took me about 16 hours, but I'm a newbie and much of that
;; time was debugging and head-scratching. It's a job-tracking site, and
;; can:
;;
;; How much would you charge for such a script?
Nothing at all.
But I'll charge you $0.20 for giving an answer.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 09 Aug 1999 07:45:55 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: Quick Question :)
Message-Id: <37ae86f8.8690336@news.uniplus.ch>
On Fri, 06 Aug 1999 21:26:16 GMT, bart.lateur@skynet.be (Bart Lateur)
wrote:
>>
>>For instance, how would one add '011' and 100' and get '111'??
>
>Convert the numbers to decimal, add, and then convert to binary again.
^^^^^^^
Might be octal or hex too.
Andreas
------------------------------
Date: 9 Aug 1999 11:24:12 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Quick Question :)
Message-Id: <7omdos$ksm$1@lublin.zrz.tu-berlin.de>
Andreas Fehr <backwards.saerdna@srm.hc> wrote in comp.lang.perl.misc:
>On Fri, 06 Aug 1999 21:26:16 GMT, bart.lateur@skynet.be (Bart Lateur)
>wrote:
>
>>>
>>>For instance, how would one add '011' and 100' and get '111'??
>>
>>Convert the numbers to decimal, add, and then convert to binary again.
> ^^^^^^^
>
>Might be octal or hex too.
Ugg. The reply was bad and your followup makes it worse. Instead
of saying "convert the *numbers* to *decimal*" it should have been
"convert the binary strings to numeric", that is, convert them to
whatever representation your computer uses internally. Whether this
is binary (most likely), or decimal, balanced ternary or a mixed
radix system (less likely) is of no concern.
The facts that Perl understands decimal strings as numbers by default,
and octal or hex strings with a little help, and that it converts
numbers to decimal strings if required (and to hex or octal with
a bit more help) blurs these matters.
Another thread dear and near to me suggests the required conversions
are, for three digit binaries:
$num = ord pack 'b3', $bin; $bin = unpack 'b3', chr $num;
Anno
------------------------------
Date: 9 Aug 1999 10:42:34 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Solved: extracting terminology from text
Message-Id: <7ombaq$kq4$1@lublin.zrz.tu-berlin.de>
Bob Walton <bwalton@rochester.rr.com> wrote in comp.lang.perl.misc:
>>
>
>...
>
>> Also, there was a problem with regex \W+ as word delimiter (does not
>> take into account existence of various accented chars in various
>> languages), so that required a simple solution, too...
>> ...
>
><long script deleted>
>...
>Would
>
>use locale;
>
>have been a bit easier?
That depends on what exactly is needed. Locales are not very language
specific. When this was discussed here a while back, it turned out
that there seems to be one locale for English, one for Russian, and
one for most other European languages (probably the ISO Latin 1
character set). This could render (say) \w bigger than you want it.
Anno
------------------------------
Date: Mon, 09 Aug 1999 18:15:08 +1000
From: Craig <cmd@nospam_altnews.com.au>
Subject: Re: Spider engine database script
Message-Id: <37AE8E0C.9DB7F3A2@nospam_altnews.com.au>
Found one thanks...
Tom Phoenix wrote:
> On Sun, 8 Aug 1999, Craig wrote:
>
> > I am looking for a script
>
> If you're wishing merely to _find_ (as opposed to write) programs,
> this newsgroup may not be the best resource for you. There are many
> freeware and shareware archives which you can find by searching Yahoo
> or a similar service. Hope this helps!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 09 Aug 1999 11:47:00 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Where to find help other than perldoc and books.
Message-Id: <37b0beef.13449979@news.skynet.be>
Abigail wrote:
>I very seldomly write programs of the form:
>
> sub1;
> sub2;
> sub3;
> sub4;
> exit;
>
>What's the point?
>
Because you can easily
- swap two blocks
- repeat blocks, perhaps with different parameters.
- test sections of the program independently of each other.
It clearly shows you the layout of the program flow, but you'd better
use mainingful names.
Bart.
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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 V9 Issue 427
*************************************
