[13754] in Perl-Users-Digest
Perl-Users Digest, Issue: 1164 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 24 07:05:25 1999
Date: Sun, 24 Oct 1999 04: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)
Message-Id: <940763108-v9-i1164@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 24 Oct 1999 Volume: 9 Number: 1164
Today's topics:
can't resolve symbol sidstergrr@my-deja.com
Re: CGI script to start a perl script in the background <gellyfish@gellyfish.com>
CGI[perl] output picture <air_space@yahoo.com>
Re: CGI[perl] output picture <jtribbeck@argogroup.com>
Re: Comments in Perl (Bart Lateur)
Re: Help................ <jtribbeck@argogroup.com>
Re: How can I make to print the times that I input wor <hmaster@factory.co.kr>
Re: How can I make to print the times that I input wor <hmaster@factory.co.kr>
Re: Jeff Murphy Are You Available???? <gellyfish@gellyfish.com>
Re: linux perl editor? (Abigail)
Re: Long menus -- any solutions? <gellyfish@gellyfish.com>
Re: New short cut assignment operators? (Abigail)
Re: New short cut assignment operators? (Abigail)
Re: New short cut assignment operators? (Abigail)
Re: New short cut assignment operators? (Abigail)
Re: Newbie: graphic counter:shes-a no work! <gellyfish@gellyfish.com>
Re: Perl vs. REBOL <gellyfish@gellyfish.com>
Re: Regular Expression...to remove last Field!!!! (Bart Lateur)
Re: SIMPLE scripts to help me learn??? (chen shapira)
Re: SIMPLE scripts to help me learn??? <gellyfish@gellyfish.com>
Something like DEFINE?? <rwhitfie@speedlink.com.au>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 24 Oct 1999 09:00:31 GMT
From: sidstergrr@my-deja.com
Subject: can't resolve symbol
Message-Id: <7uuhrf$1mj$1@nnrp1.deja.com>
Hello,
I have just wasted my entire Saturday messing with perl5.005_03. Please
don't envy me.
I'm quite upset, frustrated and have just about given up on getting perl
working.
I thought I had compiled and installed perl properly a couple of weeks
ago when today I noticed that dynamic loading was not compiled in perl.
So I started all over again. The difference being that this time `make
test' failed.
Taking the advice of the the documents with the distro I tried running
the tests manually out of the ./t directory.
The following is the results of one such test.
// begin paste
/usr/local/src/perl5.005_03/t% ./perl lib/db-hash.t
./perl: can't resolve symbol 'PL_markstack_ptr'
./perl: can't resolve symbol 'PL_na'
./perl: can't resolve symbol 'PL_sv_yes'
./perl: can't resolve symbol 'PL_stack_base'
./perl: can't resolve symbol 'PL_stack_sp'
./perl: can't resolve symbol 'PL_sv_undef'
./perl: can't resolve symbol 'PL_stack_max'
./perl: can't resolve symbol 'PL_markstack_ptr'
./perl: can't resolve symbol 'PL_markstack_max'
./perl: can't resolve symbol 'PL_tmps_ix'
./perl: can't resolve symbol 'PL_na'
./perl: can't resolve symbol 'PL_sv_yes'
./perl: can't resolve symbol 'PL_stack_base'
./perl: can't resolve symbol 'PL_stack_sp'
./perl: can't resolve symbol 'PL_tmps_floor'
Can't load '../lib/auto/DB_File/DB_File.so' for module DB_File: Unable
to resolve symbol at ../lib/DynaLoader.pm line 169.
at lib/db-hash.t line 12
BEGIN failed--compilation aborted at lib/db-hash.t line 12.
// end paste
So I start searching every possible search engine I know for solutions.
No luck. I finally turn to deja and find similar problems with older
versions of perl. However, either I have *no clue* as to how to use
deja or there were *NO* solutions posted in reply to the problems.
I'm not really a perl person, I just use it for dirty tasks that I can't
use C/C++. So I'm not on any perl list. I tried looking for such lists
that might mention my problem. Guess what? I was unsuccessful in
finding information on such a list @ www.perl.com (again I will excuese
this and blame it on my ignorance of the site ... ie. i probably didn't
know how to navigate that site)... btw.. if you are getting the feeling
that i'm a tad bit frustrated guess what? ... I AM! ... but just a
tinsy bit. >:-|
Is there a kind person out there with some knowledge as to what I am
doing wrong where? Please CC me on your reply.
I thank you in advance for any suggestions that might get my work going
again.
And please someone consider adding this item to a perl faq or something.
again TIA,
sidster
ps. my platform is i686, Linux 2.0.35, libc5, egcs1.1.2 if this at all
matters.
I'm trying to build dynamic loading in perl while not building the perl
library shared (libperl.so). I would like to keep the perl lib a static
library (libperl.a).
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 24 Oct 1999 10:45:38 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: CGI script to start a perl script in the background.
Message-Id: <7uuo0i$fqg$1@gellyfish.btinternet.com>
On 23 Oct 1999 22:37:35 GMT QaJurria wrote:
> Col <newsgroups@selectweb.co.uk> wrote:
>> I've read something about fork but haven't got a clue how to use this and
>> can't find any 'dummy' guides.
>
> Try something like this in your code:
>
> unless($pid = fork)
> {
> unless(fork)
> {
> print "Forked in the background with pid: $$\n";
> # put the code to fork here
> }
> }
>
Of course in a CGI environment the child process will need to close its
STDOUT otherwise the server will keep the browser connection open in
the expectation of more output to send.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 24 Oct 1999 17:32:24 +0800
From: "airspace" <air_space@yahoo.com>
Subject: CGI[perl] output picture
Message-Id: <7uujmb$4sb$1@umacss2.umac.mo>
i want to write a counter, but how to output with gif file?
------------------------------
Date: Sun, 24 Oct 1999 12:47:09 +0100
From: Jason P Tribbeck <jtribbeck@argogroup.com>
Subject: Re: CGI[perl] output picture
Message-Id: <3812F1BD.A0999D9A@argogroup.com>
airspace wrote:
>
> i want to write a counter, but how to output with gif file?
1) Go to CPAN, and look up GD.
1b) You want GD-1.22.
2) Install it.
3) perldoc GD.
4) Use it.
--
Jason Tribbeck Argo Interactive ltd
Senior Design Engineer 7 Dukes Court, Chichester
West Sussex, PO19 2FX
Tel: +44 1243 815 815 Fax: +44 1243 815 805 England
------------------------------
Date: Sun, 24 Oct 1999 09:26:57 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Comments in Perl
Message-Id: <3817d08d.2942606@news.skynet.be>
Abigail wrote:
>~~ > One byte less on Unix, same amount of bytes on Windows.
>~~
>~~ Only in a file. :)
>
>I assume you're not going to comment out stuff for things you
>type interactively....
I guess Martien ment that on Windows, CRLF is converted to LF when
reading from a text file, and back to CRLF when writing to it. So, in
memory, it's the same amount of bytes, likely even the same bytes, as on
Unix.
--
Bart.
------------------------------
Date: Sun, 24 Oct 1999 12:48:20 +0100
From: Jason P Tribbeck <jtribbeck@argogroup.com>
Subject: Re: Help................
Message-Id: <3812F204.E39C7289@argogroup.com>
Fleet Admiral Peter Hodder wrote:
>
> In other words how do I let users run CGI/Perl scripts? Thats for
> Apache on Linux.
>
> Eg. http://www.blabla.com.au/~user/cgi-bin/script.
Why not have a look at the Apache web site? This isn't a PERL question,
it's a server issue.
--
Jason Tribbeck Argo Interactive ltd
Senior Design Engineer 7 Dukes Court, Chichester
West Sussex, PO19 2FX
Tel: +44 1243 815 815 Fax: +44 1243 815 805 England
------------------------------
Date: Sun, 24 Oct 1999 19:16:44 +0900
From: "Yeong Mo/Director Hana co." <hmaster@factory.co.kr>
Subject: Re: How can I make to print the times that I input word ?
Message-Id: <kcbCwcgH$GA.235@news.thrunet.com>
Marcel Grunauer 이(가) 메시지에서 작성하였습니다...
>On Sat, 23 Oct 1999 20:15:31 +0900, "Yeong Mo/Director Hana co."
><hmaster@factory.co.kr> wrote:
>
>[snip code]
>
>> There is little of your misunderstanding;
>> I want print only one aaa and bbb....
>> and when I try aaa or bbb again from the from method
>> I don't want it to be printed again like;
>> aaa
>> bbb
>> bbb
>> aaa
>>
>> I hope it to be printed
>> aaa|2
>> bbb|2
>
>Well, that's what the code I posted earlier does.
>
>HTH. HAND.
>
>
>--
>Marcel, Perl Padawan
>sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Perl_Hacker;
Thank you Marcel Grunauer
I am talking about not html output page, but data.db file.....
See ===> print FILE "$mID\n";
open(FILE, ">>data.db") || die "I can't open data.db file \n";
flock (FILE, 2) or die "can't lock data file\n";
print FILE "$mID\n";
close(FILE);
Thank you in advance...
------------------------------
Date: Sun, 24 Oct 1999 19:23:02 +0900
From: "Yeong Mo/Director Hana co." <hmaster@factory.co.kr>
Subject: Re: How can I make to print the times that I input word ?
Message-Id: <WOQ4dggH$GA.132@news.thrunet.com>
Ken Hirsch 이(가) 메시지에서 작성하였습니다...
>[This followup was posted to comp.lang.perl.misc and a copy was sent to
>the cited author.]
>
>In article <63Fo47TH$GA.218@news.thrunet.com>, hmaster@factory.co.kr
>says...
>>
>> With this code, it prints "aaa" as same times as I input "aaa" like
>> following;
>> aaa
>> aaa
>> aaa
>> .....
>>
>> Here is my question.
>> How can I make to print only one line of "aaa" and print the times that
I
>> input "aaa" as follows ?
>> aaa|18
>> bbb|7
>> ccc|52
>>
>
>If you're on Unix, you can do this after the file is closed:
> sort data.db | uniq -c
>which will give, e. g.,
> 18 aaa
> 7 bbb
> 52 ccc
>which is what you want IF there is one line per word.
>
Do you mean this ?
But it meets error.
$datadb= "link/data/member.db";
open(FILE, ">>$datadb") || die "I can't open $datadb file for \n";
flock (FILE, 2) or die "can't lock data file\n";
print FILE "$mID\n";
close(FILE);
sort $datadb | uniq -c
------------------------------
Date: 24 Oct 1999 10:35:02 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Jeff Murphy Are You Available????
Message-Id: <7uuncm$fq8$1@gellyfish.btinternet.com>
On Sat, 23 Oct 1999 18:35:39 -0000 Natasha Manning wrote:
> Jeff,
> We spoke about a Perl / Sybase opening in Chicago about 3+ months ago,
> are you available????>
>
Wow, we are a dating agency now as well ;-}
This possibly the most unprofessional thing I have ever seen a recruiter
do. What if this persons current employer were to be reading the group ?
I certainly wouldnt be using your services if you are capable of a gaffe
like this.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 24 Oct 1999 04:54:32 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: linux perl editor?
Message-Id: <slrn815lq1.fji.abigail@alexandra.delanet.com>
Elaine -HFB- Ashton (elaine@chaos.wustl.edu) wrote on MMCCXLI September
MCMXCIII in <URL:news:380DDDB5.647B3D86@chaos.wustl.edu>:
`` Kent Perrier wrote:
`` > I like echo.
``
`` Real men use ed :)
Pfff. ed is for wussies. Real (wo)men toggle front panels.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
-----------== 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: 24 Oct 1999 10:41:05 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Long menus -- any solutions?
Message-Id: <7uuno1$fqc$1@gellyfish.btinternet.com>
In comp.lang.perl.misc Makarand Kulkarni <makkulka@cisco.com> wrote:
> Stacy Doss wrote:
>
>> Is there any way to have a menu widget display in multiple columns?
>
> assuming that you are talking about menu widgets in the inside
> HTML forms
I think that the original poster was talking about Tk - I know we get
punch drunk facing the constant rain of HTML questions, but there is
always the possibility that when someone asks about menus that they
are talking about some other GUI.
Anyhow I have written precisely one Perl/Tk program and that didnt use
menus ...
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 24 Oct 1999 05:09:38 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: New short cut assignment operators?
Message-Id: <slrn815mmb.fji.abigail@alexandra.delanet.com>
Email55555 (email55555@aol.com) wrote on MMCCXLII September MCMXCIII in
<URL:news:19991021170203.15878.00000104@ng-cr1.aol.com>:
{} Hello All,
{}
{} This is not a discussion about operator "??" (hookhook)!
{} This is about short cut assignment operators : +=, -=, *=, ... etc
{}
{} When I use Perl (or C/C++), I always have this question in my mind:
{} we have invented +=, -=, *=, >>= ... etc for facility, why do we not have
{} similar shortcut assignment operators for no commutative operation?
{}
{} For example :
{} We have $a -= $b; which is like $a = $a - $b;
{} And for $a = $b - $a; why not $a =- $b;
Thatwouldhaveworkedgreat,weren'titforthefactwhitespacearoundoperatorsisoptional,andtoomanypeoplehaveproblemsfindingthespacebar.Somanypeoplewritecodelikethis:$a=-7;whentheyactuallymean:$a = -7.Forsomereason,that'sconsideredtobeacceptable.Justliketextlikethis.Cusedtohave=-,butduetoallthosepeoplewithoutspacebars,it'snowgone.Anditisn'tinPerleither,formuchthesamereason.Notputtinginspaceswheretheyshouldbesucksofcourse.
{} Another example :
{} $a .= $b; ( it's like $a = $a . $b; )
{} Why not $a =. $b; (it's like $a = $b . $a; )
{} ... etc
Again,forthesamereason.Peopleliketowritewhitespacefreecodelike:$a=.7;whentheyactuallymean:$a = .7;Itisofcoursetoolatetodotherightthingandchange.
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: 24 Oct 1999 05:15:13 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: New short cut assignment operators?
Message-Id: <slrn815n0p.fji.abigail@alexandra.delanet.com>
Craig Berry (cberry@cinenet.net) wrote on MMCCXLII September MCMXCIII in
<URL:news:s0v7e3lcr018@corp.supernews.com>:
"" Email55555 (email55555@aol.com) wrote:
"" [snip]
"" : For example :
"" : We have $a -= $b; which is like $a = $a - $b;
"" : And for $a = $b - $a; why not $a =- $b;
""
"" C actually used this form as the only op= form, way back when the world
"" was young. The problem is that it leads to ambiguities. If I write
""
"" $a=-7;
""
"" do I mean "Set $a to the value -7" or "Subtract 7 from $a"? (The
"" maximum-munch rule would argue the latter, but this is awfully thin
"" syntactic ice to make programmers traverse).
""
"" Once the Gods of C noticed this problem, they shifted to the modern op=
"" rather than =op forms.
""
"" By the way, in C the old style could lead to some really migraine-inducing
"" behavior. For example,
""
"" a=*b;
""
"" should mean "multiply a by b and assign the result back to a" by
"" maximum-munch. But a whitespace-hostile programmer could very easily have
"" meant "assign to a what b is pointing to". Try debugging that one at
"" 3am... :)
Trydebugging*any*codewithoutspaces.That'saboutassaneasdebuggingprozawithoutspaces.Nooneisgoingtodothat.Whyacceptitinprogrammingtext?
"" : Another example :
"" : $a .= $b; ( it's like $a = $a . $b; )
"" : Why not $a =. $b; (it's like $a = $b . $a; )
""
"" I've yearned for that one, sometimes. But again, what do you do with
""
"" $a=.7;
Easy.Hadtheprogrammermeantassigningsevententhsofaunitto$atheprogrammerwouldhaveindicatedthatbyputtingtheappropriatespacingwhereitbelongs.
"" Is that an assignment of 0.7 to $a-as-a-number, or prepending '7' to
"" $a-as-a-string? The lexer knows, but do you? Even at 3am?
Look.Whocares?Ifonewriteobscurecodebyomittingwhitespace,thensuffer.Don'tcomewhiningtolanguagedesignersforyourowninabilitytofindthespacebar!
"" : The space (or newline) between operator and operant is important to avoid
"" : ambiguity,
""
"" But it's already firmly established by more than two decades of C and Perl
"" practice that (most) whitespace in expressions is optional. Far, far too
"" late to change that now, even if we wanted to.
AnotheroppertunityLarrymissed.InmyopinionLarrylookedtoomuchtoCandfixednotenoughofitsproblems;-).
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
-----------== 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: 24 Oct 1999 05:25:26 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: New short cut assignment operators?
Message-Id: <slrn815nju.fji.abigail@alexandra.delanet.com>
Ala Qumsieh (aqumsieh@matrox.com) wrote on MMCCXLIII September MCMXCIII
in <URL:news:x3yln8v8n3b.fsf@tigre.matrox.com>:
''
'' Yes, which makes life VERY HARD and defeats the whole purpose of those
'' new operators (which I guess was to make life a bit simpler). If you
'' want to know the agony of significant whitespace, then you should try
'' Python for a while, which gives a whole new meaning to the term
'' "cut-and-paste".
''
'' If you misplace a space character by mistake, then you'll create a bug
'' that is impossible to track down.
''
'' Is it worth it?
Oh. So, we should get rid of ++ and -- as well? After all, lose a
space in: $a = + +$b, or $a = - -$b, and suddenly you have something
else.
Lose a space in "$foo [2]" and you have something else too!
There are numerous of places in Perl where whitespace is significant;
making your argument quite bogus.
Another example: $a = 0.0; vs $a = 0 .0;
Abigail
--
package Z;use overload'""'=>sub{$b++?Hacker:Another};
sub TIESCALAR{bless\my$y=>Z}sub FETCH{$a++?Perl:Just}
$,=$";my$x=tie+my$y=>Z;print$y,$x,$y,$x,"\n";#Abigail
-----------== 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: 24 Oct 1999 05:28:38 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: New short cut assignment operators?
Message-Id: <slrn815npv.fji.abigail@alexandra.delanet.com>
Craig Berry (cberry@cinenet.net) wrote on MMCCXLIII September MCMXCIII in
<URL:news:s11dkh435n676@corp.supernews.com>:
--
-- Benchmark: timing 500000 iterations of a += b, a = a + b...
-- a += b: 10 secs ( 5.71 usr 0.01 sys = 5.72 cpu)
-- a = a + b: 16 secs (10.74 usr 0.00 sys = 10.74 cpu)
--
-- Oops, guess Perl's expression optimizer isn't as good as most modern C
-- compilers'.
Maybe, maybe not. Since the arguments are strings, and not coderefs,
you are measuring here the *compile time* and the execution time.
Perhaps the extra 5 secs were spend in the compiler....
Abigail
--
split // => '"';
${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
-----------== 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: 23 Oct 1999 12:02:52 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Newbie: graphic counter:shes-a no work!
Message-Id: <7us85c$egl$1@gellyfish.btinternet.com>
On Fri, 22 Oct 1999 22:08:05 -0400 Dan Krause wrote:
> I am new to writing CGI scripts in PERL and have hit a wall. I can fully
> read in form data, analyze it, file it, send e-mail and respond with a
> new HTML. But my new effort in getting a graphic counter to work is a
> no-show. I have copied several examples but none seem to work, just a
> broken gif picture.
>
> Anybody have a good perl script that works and the needed HTML SRC line
> needed to call it?
>
Two other alternatives :
A) You post your code so that we can actually see what is wrong with it
B) You post to comp.infosystems.www.authoring.cgi
Oh BTW that is Perl not PERL - please see perlfaq1.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 24 Oct 1999 09:31:52 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl vs. REBOL
Message-Id: <7uujm8$fpg$1@gellyfish.btinternet.com>
On Sat, 23 Oct 1999 23:49:27 -0400 Billy Zhao wrote:
>
> "Keep in mind that it is intended to help inform newcomers." That's in the
> email from Nathan Torkington. I count myself as a newcomer. If you feel
> like patronizing me, email the reponse to me, there's no need to post
> sarcastic comments to the group. If you don't feel like helping, don't.
> But please keep your mean spirited arrogance to yourself.
>
I think that Martien's comments are correct - it does appear that you
are asking us to do your work for you. Moreover he is correct in saying
that a language specific group is probably not the best place to be
asking for a balanced comparison with another language - if you want
to see the result please search Deja News for a subject line similar to
yours but substituting REBOL for some other language <Java, Python, etc>.
I would also suggest that accusing a regular and valued contributor to
this group of "mean spirited arrogance" does much to help your cause.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 24 Oct 1999 09:52:32 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Regular Expression...to remove last Field!!!!
Message-Id: <3818d5b0.4257071@news.skynet.be>
Govindaraj wrote:
>I don't know how difficult/easy this question would be...!!!
>
>I have input like below:
>
>R:|6||3EB-04-24190||CLAMP||2||||||||2501
>R:|6||3EB-04-24190||CLAMP||2||||||||test2501
>
>How can I remove the last field (i.e |2501 and |test2501) from the above
>line with the Reqular expression. I don't want to use
>the Array/split options for this one... I really want to achieve this
>with our great Regular Expersion.
s/(.*)\|.*/$1/s;
It makes use of the gready nature of RE's, so (.*) slurps up as much as
possible, i.e. everything up to, but excluding, the last "|".
--
Bart.
------------------------------
Date: 24 Oct 1999 11:37:51 +0200
From: chen.shapira@usa.net (chen shapira)
Subject: Re: SIMPLE scripts to help me learn???
Message-Id: <8E69756C7cheneusanet@news.barak.net.il>
bmccoy@foiservices.com (Brett W. McCoy) wrote in
<slrn813jkt.sdh.bmccoy@moebius.foiservices.com>:
>Also Sprach Max S. <intbyte@aol.com>:
>
>>Can I get some very simple scripts to help me understand perl...like a
>>really simple guestbook, or anything I could understand easily, thanks.
>>
>
>Try www.perl.com for Perl tutorials, or get the excellent _Learning
>Perl_ at your local bookseller.
>
Also Perl Cookbook has some excellent sample scripts
And Perl How-To
Chen.
------------------------------
Date: 24 Oct 1999 10:32:05 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: SIMPLE scripts to help me learn???
Message-Id: <7uun75$fq5$1@gellyfish.btinternet.com>
On 23 Oct 1999 13:46:17 GMT Max S. wrote:
> Can I get some very simple scripts to help me understand perl...like a really
> simple guestbook, or anything I could understand easily, thanks.
>
Whilst I wholeheartedly agree with Tad that this newsgroup is a very
good source for program examples it might be worthwhile making explicit
why this is the case.
Out there on the wider Internet there are thousands of places that you
can find Perl programs : various 'Script Archives' and directories of
free resources - largely these programs are presented uncritically as
the production of the owner of the site. The newcomer to Perl has no
real way of determining the quality of these programs, some of these
sites look superficially very professional and plausible, and very
often the programs are at best poor examples for a beginner and at
worst positively dangerous. There are many examples, often cited here,
where a snippet of code for a particular purpose which was already less
than good, has been cut and pasted by unwitting beginners into sundry
other programs which themselves have been presented on the 'net, thus
perpetuating bad or even dangerous programming practice.
On the other hand code snippets, techniques and even full programs
presented in this group are subjected to the full force of peer review:
it would be rare for a questionable piece of code posted here to escape
criticism, indeed even basically sound code will be improved upon.
This is part of the reason that people insist on replying to the group
rather than solely by mail where bogus advice will go undetected, even
those who might be considered experts might make a mistake occasionally
but it would be unusual if they were allowed to pass without comment -
people on this group are seldom afraid of committing 'lais� majeste'
by criticizing palpably bad code whoever it was that posted the code in
the first place.
Of course all this not to say that there are no good programs available
on the 'net - many regular and well regarded posters to this group have
sites with programs, examples and articles about Perl - the difference
here is that this material, if it were of questionable value, would
be unlikely to escape public criticism given the public profile of the
authors here and elsewhere.
So read this group, take away the good stuff and learn what is considered
bad. In the long wrong perhaps make a contribution yourself, even asking
a question might be of value if it draws forth interesting, imaginative
or exciting responses.
Have Fun.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 24 Oct 1999 19:11:28 +1000
From: Stephen J Whitfield <rwhitfie@speedlink.com.au>
Subject: Something like DEFINE??
Message-Id: <3812CD40.E882B6C@speedlink.com.au>
Hi,
Is there something in Perl similar to DEFINE in C?? I haven't seen
anything in the documentation.
Thanks, Stephen.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 1164
**************************************
