[17112] in Perl-Users-Digest
Perl-Users Digest, Issue: 4524 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 4 21:10:23 2000
Date: Wed, 4 Oct 2000 18:10:13 -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: <970708212-v9-i4524@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 4 Oct 2000 Volume: 9 Number: 4524
Today's topics:
Re: Reverse by paragraphs - NOT! <anmcguire@ce.mediaone.net>
Re: Reverse by paragraphs - NOT! ollie_spencer@my-deja.com
Re: Reverse by paragraphs - NOT! ollie_spencer@my-deja.com
Re: Reverse by paragraphs - NOT! ollie_spencer@my-deja.com
Re: Reverse by paragraphs - NOT! ollie_spencer@my-deja.com
Re: Reverse by paragraphs - NOT! <flavell@mail.cern.ch>
Re: Reverse by paragraphs - NOT! ollie_spencer@my-deja.com
Re: Reverse by paragraphs - NOT! ollie_spencer@my-deja.com
Re: Running scripts from the Bash Shell <peter.sundstrom@eds.com>
Re: SSI in a CGI <david.obrien@ssmb.com.au>
Re: System call works at command line but not within CG <peter.sundstrom@eds.com>
Re: Threads and SMP (Gwyn Judd)
Re: Threads and SMP (Gwyn Judd)
unix database access? (DuBduBdu2)
Re: unix database access? <david.obrien@ssmb.com.au>
Re: What does PERL stand for? (Brandon Metcalf)
Re: What does PERL stand for? <anmcguire@ce.mediaone.net>
Re: What does PERL stand for? <harrisr@bignet.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 4 Oct 2000 18:34:46 -0500
From: "Andrew N. McGuire " <anmcguire@ce.mediaone.net>
Subject: Re: Reverse by paragraphs - NOT!
Message-Id: <Pine.LNX.4.21.0010041833040.9310-100000@hawk.ce.mediaone.net>
On Mon, 2 Oct 2000, ollie_spencer@my-deja.com quoth:
> Thanks for the reply.
>
> I discovered "$\" *AFTER* I posted. I will experiment with that
> tomorrow. I early recognized that "$/" dealt with file input, and tried
> writing and re-reading a temp file to get the "reverse-by-paragraph"
> working, but with no success(but I really didn't spend much time with it
> after the first failure).
>
> I'll post any results.
Did you try something like this?
#!/usr/bin/perl -w
use strict;
$, = $/;
$/ = q++;
print reverse <DATA>;
__DATA__
This is a paragraph of text.
It is first in the data but
we wish to print it to standard
out such that it is last. ##1##
This is a paragraph of text.
It is last in the data but
we wish to print it to standard
out such that it is first. ##2##
anm
--
perl -wMstrict -e '
$a=[[qw[J u s t]],[qw[A n o t h e r]],[qw[P e r l]],[qw[H a c k e r]]];$.++
;$@=$#$a;$$=[reverse sort map$#$_=>@$a]->[$|];for$](--$...$$){for$}($|..$@)
{$$[$]][$}]=$a->[$}][$]]}}$,=$";$\=$/;print map defined()?$_:$,,@$_ for @$;
'
------------------------------
Date: Wed, 04 Oct 2000 23:27:10 GMT
From: ollie_spencer@my-deja.com
Subject: Re: Reverse by paragraphs - NOT!
Message-Id: <8rgec7$rmv$1@nnrp1.deja.com>
Thanks for the reply.
I clarify further: I am following the nomenclature in O'Reilly's "Perl
Cookbook" by Christianson & Torkington.
Specifically section 8.4, "Reading a File BackWards by Line or
Paragraph".
I am guilty of generalizing to use the term "reverse by paragraph"
rather than stating " reversing the file using delineations that
consist of groups of lines ". I thought I defined (somewhere in the
flood of posts this has generated, maybe in my original post) a
adequate definition of paragraph.
I am further guilty of not clearly stating that I wanted a procedure
similar to that in the Cookbook, but that instead worked on array
"paragraphs".
From your insightful comment that you can't reverse an array by
anything, I've had the following thought:
I think now I need to express the file I need to "reverse by paragraph"
as one long "super"string, not as an array at all, and reverse that
string on a chosen delimiter, rather than try to do it with an array
whose components are strings(if I can do it in a perl-ish manner). In
other posts I noted that I have code(2 approaches, actually) that does
what I desire, buth both are clumsy and, if you would, non-perlish.
Well, I didn't mean to get wordy, but I did. Thanks again for the input.
So far, no solutions 7pmEDT 10/4/00! But I sure have seen the derndest
number of criticisms, only few touching my problem.
ollie spencer
In article <8rfgmo$kl9$1@news.mch.sbs.de>,
michel.dalle@usa.net (Michel Dalle) wrote:
> In article <8rfcjl$sj4$1@nnrp1.deja.com>, ollie_spencer@my-deja.com
wrote:
> [snip]
> >I thought I might temporarily change $/, $\, or $" so I could
> >reverse an *array* by paragraph, in the same manner as I reverse a
> >file, as I read it in, by paragraph.
> >
> >Thus far, I am defeated. Nothing has worked for me in this vein.
> >That's why I posted. My posted code snippet seems to have been
garbled
> >both times I posted it, but it should be readable if you realize the
> >original code actually ran - it just didn't reverse by paragraph. I
> >will repost anew, checking that the post is true to the original, if
> >anyone thinks they will benefit by it---
> >
> >So I have a working program. But, I want (if possible) a more
perl-ish
> >way to do the same thing, hopefully with an elegant solution. maybe
it
> >doesn't exist - at least NO POSTER HAS SAID THAT YET!
>
> I haven't followed this thread from the beginning, but it seems to me
> that your problem description is a bit strange. You can't reverse an
> array *by anything*. You simply reverse the order of its elements,
> independently of what those elements contain (characters, lines,
> paragraphs, numbers, hashes, ... whatever).
>
> So if your original array contains paragraphs as elements and you
> reverse the array, you will get the paragraphs in reverse.
> But if your array contains lines, you will have lines in reverse
order,
> and if it contains individual characters, you will have the characters
> in reverse.
>
> Garbage in, garbage out :)
>
> Michel.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 04 Oct 2000 23:57:25 GMT
From: ollie_spencer@my-deja.com
Subject: Re: Reverse by paragraphs - NOT!
Message-Id: <8rgg52$t4s$1@nnrp1.deja.com>
Thank you for your reply, even though you can't know what my knowledge
level is.
To cases: I early on tried "\n\n" as the separator. I tried it(and other
combos) with $\. with $\, and $,. I think now that my error has been
that the code that reads-in the file finds it on the disk as one large
string which can be delineated, hence reversed, while once in an array
it is ALREADY dilineated.
<Rebuttal flame on>
True, I'm no computer scientist, but a physicist, PhD variety. I don't
use "interpolated" for "substitute", "deprecated" for "discouraged", or
any of the other perlisms but I go along, since every discipline has its
jargon.
You seem to discourage part-time programmers (I assure you I have other
things to do) from using perl to write efficient, simple, maintainable,
multi-platform code (it does, you know: I've used it for NT, AIX, linux,
HP-UX, and SPARC) for associates to use. In other perl codings I have
used hohoh's and other "constructs" to great advantage, and have long
abandoned using "C"-line sybtax. But I don't care to "fork" and I hope I
never have to write cgi code. Don't criticize - I probably know more
that you think about "my" parts of perl. Since "TMTOWTDI", is it so
wrong to want to know a way different from the one I have already used
to solve a problem? I thought that was the way we (*ALL*) learned!
<rebuttal flame off>
That said, I apologise for having said it. From 3 years of lurkng
perl.misc, I recognise you as a guru. As you point out, I am not. I also
don't seem able to structure a posting so it csn be unambiguously
understood. I'm working on both that and my understanding of perl.
ollie spencer
In article <x7u2as4ooq.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
> >>>>> "os" == ollie spencer <ollie_spencer@my-deja.com> writes:
>
> os> I then do the {local $/=''; @ROF=reverse <INFILE>) bit and,
after
> os> closing the block to restore $/, get the result I desire: The
file
> os> reversed by paragraph.
>
> os> That way WORKS. But it seems a bit clumsy!
>
> clumsy? by what definition of clumsy? you don't know enough perl to
> decide if something is clumsy.
>
> try File::ReadBackwards and set the input record separator to "\n\n".
> assuming clean paragraphs with only one blank line between each of
them
> it will do the job and possible faster than the other methods. whether
> it is clumsy is up to you.
>
> uri
>
> --
> Uri Guttman --------- uri@sysarch.com ----------
http://www.sysarch.com
> SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX
Consulting
> The Perl Books Page -----------
http://www.sysarch.com/cgi-bin/perl_books
> The Best Search Engine on the Net ----------
http://www.northernlight.com
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 05 Oct 2000 00:07:20 GMT
From: ollie_spencer@my-deja.com
Subject: Re: Reverse by paragraphs - NOT!
Message-Id: <8rggnl$tjv$1@nnrp1.deja.com>
Thanks for the reply.
I've had a few thoughts on the situation since my original post.
Writing the array out to file and reading it in in reversed manner is
OK, I just wondered why it couldn't be done directly on array that is
written out.
I now think that's becaue the file is written-out as one long string
on disk, which on read-in can be dilineated on something other than used
to delineate it on writing. A file in an array has ALREADY been
delineated!
Hmm.. Perhaps writing it to one long string variable and splitting it on
the desired dilineating pattern will work... Back to the salt mines!
ollie spencer
In article
<Pine.A41.4.21.0010041104080.12946-100000@ginger.libs.uga.edu>,
Brad Baxter <bmb@ginger.libs.uga.edu> wrote:
> On Wed, 4 Oct 2000 ollie_spencer@my-deja.com wrote:
> > Hi and thanks for the reply.
> >
> > Perhaps I wasn't clear. The file in question has a HEADER PARAGRAPH
> > every 60 lines - in other words, it is a file that was intended to
be
> > printed, not processed by another program. By reading-in
line-by-line,
> > I can elimnate all header data with the
> > while (/\(GTLT\)/ ... /"-"x45/) {next;} # OR SIMILAR
> > code line, thus removing any header data, since the header first
line
> > always contains (GTLT) and the header last line always contains 45
> > adjacent "-" characters.
> >
> > I wish I'd not mentioned the header, because it's NOT a my problem.
I
> > successfully excise the header and place the headerless data into
@OF,
> > even the blank lines.
> >
> > NOW comes my problem.
> >
> > I can write @OF to a file, then close and reopen it for reading.
> >
> > (I know I can open a file for both writing and reading, but again,
> > that's NOT the problem)
> >
> > I then do the {local $/=''; @ROF=reverse <INFILE>) bit and, after
> > closing the block to restore $/, get the result I desire: The file
> > reversed by paragraph.
> >
> > That way WORKS. But it seems a bit clumsy!
>
> I often solve problems by writing an intermediate file and then
> manipulating that file. There is absolutely nothing wrong with that,
> assuming it executes in acceptable time. Clumsy but works is much
> better than Elegant but's wrong.
>
> Otherwise, just concatenate the lines together that belong in a
> paragraph.
>
> 1 #!/usr/local/bin/perl -w
> 2 use strict;
> 3
> 4 sub not_a_line_i_want {
> 5 return 1 if $_[0] =~ /^header/
> 6 } # end sub
> 7
> 8 my @a = ();
> 9 my $line = '';
> 10
> 11 while( <DATA> ) {
> 12
> 13 next if not_a_line_i_want( $_ );
> 14
> 15 if( /^$/ ) {
> 16 push @a, $line if $line;
> 17 $line = '';
> 18 next;
> 19 } # if
> 20
> 21 $line .= $_;
> 22
> 23 } # while
> 24
> 25 push @a, $line;
> 26
> 27 ### hyphen is for demonstration purposes
> 28 print join( "-\n", reverse( @a ) );
> 29
> 30 __DATA__
> 31 header line
> 32 header line
> 33
> 34 paragraph 1: ajsdklfa sdjfkla sdjkfl
> 35 ajsdklfj asldkfj alskdjf
> 36 asdlkfjas dlkfj a
> 37
> 38 paragraph 2: asjdklfja slaksd falskdf j
> 39 ajsdlkfja sldkfj alskdj flas
> 40
> 41 header line
> 42 header line
> 43
> 44 paragraph 3: ajsdklfja sdkljals dkfj
> 45 asldkfj alksdj fla
> 46 ajsldkfj alskdjf alskdj flas
>
> Output:
>
> paragraph 3: ajsdklfja sdkljals dkfj
> asldkfj alksdj fla
> ajsldkfj alskdjf alskdj flas
> -
> paragraph 2: asjdklfja slaksd falskdf j
> ajsdlkfja sldkfj alskdj flas
> -
> paragraph 1: ajsdklfa sdjfkla sdjkfl
> ajsdklfj asldkfj alskdjf
> asdlkfjas dlkfj a
>
> Brad
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 05 Oct 2000 00:27:32 GMT
From: ollie_spencer@my-deja.com
Subject: Re: Reverse by paragraphs - NOT!
Message-Id: <8rghte$uim$1@nnrp1.deja.com>
Thanks for your reply.
Nope, the headers ( there are 500 of them, each about 9 lines long, in
the file. I get rid of them successfully before I ever try to reverse
the file> They are gone, nada, zip --they are "dead parrots".
Now to cases. I have 2 different approaches that do what I want, so I
know that headers don't count. In approach 1, I filter out the headers,
write the resulting array (call it @OF) to disk, and read in the new
file in a reversed manner as described in Perl Cookbook , p. 282. That
gets me what I want.
In Approach 2, after removing headers, I read @OF in reverse into array
@TEMP line-by-line till I hit an empty line (matches (/^$/), stop and
then reverse @TEMP into my final array(call it r@ROF), undef @TEMP and
repeat. Results are identical to the first approach.
Loudly: WHAT I WANTED TO KNOW: Why can't I do something directly to the
original array so I get @ROF directly?
NOBODY HAS ANSWERED THAT ONE.
But I think now *I* can.
When written to disk, a file is a long string with lines delineated by
whatever "$\" is, or by "\n". A file in an array is ALREADY delineated!
(I think)I should write the file to a long string variable, not an array
then reverse that on whatever delineator I choose.
ollie spencer
In article <0uvmtsg0aiqattrfopd80i4d7rhe5g2a4g@4ax.com>,
Bart Lateur <bart.lateur@skynet.be> wrote:
> ollie_spencer@my-deja.com wrote:
>
> >I wish I'd not mentioned the header, because it's NOT a my problem.
I
> >successfully excise the header and place the headerless data into
@OF,
> >even the blank lines.
>
> But it is your problem! Without header and footer, you can easily read
> the file by paragraph. Now you can't. You can read it line by line,
and
> filter out the header and footer. But you have an array of lines. You
> want an array of paragraphs.
>
> >I can write @OF to a file, then close and reopen it for reading.
> >That way WORKS. But it seems a bit clumsy!
>
> I feel the same whay too. So, let's try to turn the array of lines
into
> an array of paragraphs. I assume the line ends are still there, and I
> can simply concatenate the lines.
>
> my @paragraph = ""; # one element
> foreach(@line) {
> if(/^$/) {
> # blank line = new paragraph
> push @paragraph, "";
> } else {
> # append line to current paragraph
> $paragraph[-1] .= $_;
> }
> }
> $, = "\n"; #blank line between paragraphs
> print reverse @paragraph;
>
> --
> Bart.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 5 Oct 2000 02:22:36 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Reverse by paragraphs - NOT!
Message-Id: <Pine.GHP.4.21.0010050220240.2000-100000@hpplus03.cern.ch>
On Wed, 4 Oct 2000 ollie_spencer@my-deja.com blurted out to some
unspecified entity:
> Thank you for your reply, even though you can't know what my knowledge
> level is.
Well, you leave us in no doubt about the level of your usenet
competence.
If you hadn't already got your score set in the basement this would be
the moment.
------------------------------
Date: Thu, 05 Oct 2000 00:43:06 GMT
From: ollie_spencer@my-deja.com
Subject: Re: Reverse by paragraphs - NOT!
Message-Id: <8rgiqp$v5a$1@nnrp1.deja.com>
Yep, but to no avail. I think I know the answer to my question now,
although I still have to test it.
I had already found that, after stripping headers and putting the file
in an array(call it @OF), I could write that array to disk, then read it
in using the code on p. 282 of Perl Cookbook: {local $/='';@ROF=reverse
<WHATEVER_I_CALLED_IT>;} to get in, say, @ROF in the shape I wanted. I
wanted to know something could be done to @OF to get @ROF without going
to disk.
I believe the source of my problem lies in the fact that on disk the
file is really one long string dileneated by whatever the print
operation used, while @OF, in memory, is already delineated! I believe I
need to write @OF to one long string, then split it using blank lines as
delineators(if I can).
Back to the mines.
ollie spencer
In article
<Pine.LNX.4.21.0010041833040.9310-100000@hawk.ce.mediaone.net>,
"Andrew N. McGuire " <anmcguire@ce.mediaone.net> wrote:
> On Mon, 2 Oct 2000, ollie_spencer@my-deja.com quoth:
>
> > Thanks for the reply.
> >
> > I discovered "$\" *AFTER* I posted. I will experiment with that
> > tomorrow. I early recognized that "$/" dealt with file input, and
tried
> > writing and re-reading a temp file to get the "reverse-by-paragraph"
> > working, but with no success(but I really didn't spend much time
with it
> > after the first failure).
> >
> > I'll post any results.
>
> Did you try something like this?
>
> #!/usr/bin/perl -w
> use strict;
>
> $, = $/;
> $/ = q++;
>
> print reverse <DATA>;
>
> __DATA__
>
> This is a paragraph of text.
> It is first in the data but
> we wish to print it to standard
> out such that it is last. ##1##
>
> This is a paragraph of text.
> It is last in the data but
> we wish to print it to standard
> out such that it is first. ##2##
>
> anm
> --
> perl -wMstrict -e '
> $a=[[qw[J u s t]],[qw[A n o t h e r]],[qw[P e r l]],[qw[H a c k e
r]]];$.++
> ;$@=$#$a;$$=[reverse sort
map$#$_=>@$a]->[$|];for$](--$...$$){for$}($|..$@)
> {$$[$]][$}]=$a->[$}][$]]}}$,=$";$\=$/;print map defined()?$_:$,,@$_
for @$;
> '
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 05 Oct 2000 00:49:07 GMT
From: ollie_spencer@my-deja.com
Subject: Re: Reverse by paragraphs - NOT!
Message-Id: <8rgj62$vgs$1@nnrp1.deja.com>
Thanks for the reply. I believe you might actually have read my original
posting! Many seem to have not.
I'll try your approach - it is different than anything I have seen, and
*might* do it! I say might because I've tried several things before I
thought might work, only to have my hopes handed back on a platter.
Thanks again! I'll post my results-I never thought to slurp a para at a
time!
ollie spencer
In article <8rfqvs$ac9$1@nnrp1.deja.com>,
stdenton@my-deja.com wrote:
> In article <8rabr2$pa4$1@nnrp1.deja.com>,
> ollie_spencer@my-deja.com wrote:
> > I am trying to process a file that has the following description:
> > It has a report header on each page. The data that follows the
header
> > consists of paragraphs of data entered sequentially from a
> > manufacturing process(processing sector, when entered, data
acquired,
> > etc.). There's no blank lines in a paragraph, but each paragraph is
> > terminated by a blank line. It's complicated by the fact that the
file
> > is "upside-down", with the most recent paragraph at the top, the
first
> > paragraph at the bottom.
>
> $/ = ''; # slurp in a para at a time
> while(<INPUT>) {
> s/HEADER//; #eliminate header, assuming that it may be part of para
> next if /^\s*$/; # eliminate para that is only a header
> push @paras, $_;
> }
> print reverse @paras;
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 5 Oct 2000 11:14:37 +1300
From: "Peter Sundstrom" <peter.sundstrom@eds.com>
Subject: Re: Running scripts from the Bash Shell
Message-Id: <8rgabu$usi$1@hermes.nz.eds.com>
You already posted this message to comp.unix.shell and received quite a few
answers. Don't individually post the same message to multiple newsgroups.
Learn how to crosspost (but *only* if it is a relevant topic for the
newsgroup)
------------------------------
Date: Thu, 05 Oct 2000 11:41:03 +1000
From: Dave O'Brien <david.obrien@ssmb.com.au>
Subject: Re: SSI in a CGI
Message-Id: <39DBDC2F.40105@ssmb.com.au>
Cernava wrote:
> Well what I'm trying to do is have a ssi page execute a cgi then the cgi out
> put html with ssi tag(s) for other cgi programs that will need to be
> executed to make up a complete html page...
>
> I can't seem to get this done. The ssi page seems not to parse the out put
> of the cgi only the stuff that was in the original ssi page.
>
> By the way the server is a apache running on redhat.
I had the same problem. I ended up inserting reading in my include
file. This won't help if you want to use other SSI tags though.
The problem is that the file has to be set to be options include in the
Apache setup (httpd.conf), and when you do that, it parses the perl
script :( What you could do is get perl to completely generate the html
file with include tags, and save to a location on the web server which
has includes enables, then get perl to redirect to the new page. A bit
nasty I know. If you receive a better soloution, let us know.
Dave
------------------------------
Date: Thu, 5 Oct 2000 11:26:51 +1300
From: "Peter Sundstrom" <peter.sundstrom@eds.com>
Subject: Re: System call works at command line but not within CGI
Message-Id: <8rgb2p$a0$1@hermes.nz.eds.com>
Mike Flaherty wrote in message ...
>This works at the command line but not within CGI - no errors or anything.
>Any thoughts?
>
>
>@args = ("touch", "/misc/www/cgi-bin/test/bogus.txt");
>system(@args);
This is in the FAQ.
Just remember that CGI scripts usually run with different permissions, hence
it won't have permission to create/update the file.
------------------------------
Date: Wed, 04 Oct 2000 23:53:35 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Threads and SMP
Message-Id: <slrn8tngns.3ki.tjla@thislove.dyndns.org>
I was shocked! How could Louis Z <louis@trapezoid.com>
say such a terrible thing:
>Is there any way for Perl to take advantage of dual CPUs? Using threads?
>Ideally, I'd be able to run some simulation programs twice as fast if they
>could' use both CPUs. Thanks.
perldoc -f fork
Hope that helps.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
The problem with people who have no vices is that generally you can be
pretty sure they're going to have some pretty annoying virtues.
-Elizabeth Taylor
------------------------------
Date: Wed, 04 Oct 2000 23:54:27 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Threads and SMP
Message-Id: <slrn8tngpg.3ki.tjla@thislove.dyndns.org>
I was shocked! How could Louis Z <louis@trapezoid.com>
say such a terrible thing:
>Is there any way for Perl to take advantage of dual CPUs? Using threads?
>Ideally, I'd be able to run some simulation programs twice as fast if they
>could' use both CPUs. Thanks.
By the way, in most circumstances you won't get a *2 speed-up unless
your program is "ridiculously scalable".
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
If you're going to define a shortcut, then make it the base [sic] darn
shortcut you can.
-- Larry Wall in <199709241628.JAA08908@wall.org>
------------------------------
Date: 05 Oct 2000 00:27:04 GMT
From: dubdubdu2@aol.com (DuBduBdu2)
Subject: unix database access?
Message-Id: <20001004202704.25652.00000670@ng-fi1.aol.com>
Hi, I've done a little work in Perl, but it was always on NT ... now I need to
write a CGI script that will run on a Unix server, and I don't know what to use
to get database access. (I can only use the one server, so porting over to ODBC
on an NT machine is out.)
Can someone reccomend a perl module and database format for me to use?
Simplicity is more important than capability, I just need to query, add, and
delete rows, and sort output according to a given column.
Thanks!
--jacob
jacobrosenstein@aol.com
------------------------------
Date: Thu, 05 Oct 2000 11:46:19 +1000
From: Dave O'Brien <david.obrien@ssmb.com.au>
Subject: Re: unix database access?
Message-Id: <39DBDD6B.10402@ssmb.com.au>
DuBduBdu2 wrote:
> Hi, I've done a little work in Perl, but it was always on NT ... now I need to
> write a CGI script that will run on a Unix server, and I don't know what to use
> to get database access. (I can only use the one server, so porting over to ODBC
> on an NT machine is out.)
>
> Can someone reccomend a perl module and database format for me to use?
> Simplicity is more important than capability, I just need to query, add, and
> delete rows, and sort output according to a given column.
>
> Thanks!
> --jacob
> jacobrosenstein@aol.com
perl DBI module will do it. If you are using Sybase, try the sybperl module,
which has all the Sybase connection primitives, which is nice.
------------------------------
Date: 4 Oct 2000 22:10:40 GMT
From: bmetcalf@nortelnetworks.com (Brandon Metcalf)
Subject: Re: What does PERL stand for?
Message-Id: <8rg9t0$p18$2@bcrkh13.ca.nortel.com>
tigz@ntlworld.com writes:
> Brad Baxter <bmb@ginger.libs.uga.edu> wrote in message
> news:Pine.A41.4.21.0010041549360.12940-100000@ginger.libs.uga.edu...
> > On Wed, 4 Oct 2000, Tigz wrote:
> >
> > > U sound like a right stress head!!!!!!! sorry m8 but u r the lumphead!!!
> >
> > Did you happen to notice the perfectly reasonable advice in that note?
> >
> > Brad
> >
>
> Annnnyyyyywwwwwaaaaaayyyyyyyyy............
*Pllllllloooooooonnnk*
Brandon
------------------------------
Date: Wed, 4 Oct 2000 18:03:11 -0500
From: "Andrew N. McGuire " <anmcguire@ce.mediaone.net>
Subject: Re: What does PERL stand for?
Message-Id: <Pine.LNX.4.21.0010041755450.9310-100000@hawk.ce.mediaone.net>
[ quoting unbassackwardtized => f'ups set ]
On Wed, 4 Oct 2000, Tigz quoth:
T> Jeff Zucker <jeff@vpservices.com> wrote in message
T> news:39DB8068.39B8304E@vpservices.com...
T> > Tigz wrote:
T> > >
T> > > Well i have asked my question in the subject line.
T> > >
T> > > anyone know?
T> >
T> > It stands for People Exhausted by Real Lumpheads. Lumpheads include
T> > those who complain about how picky Usenet is when given perfectly
T> > reasonable advice [1] and those who ask questions which are answered in
T> > the FAQS [2] and which have been discussed and answered in this same
T> > newsgroup in the recent past [3].
T> >
T> > [1] for example: you previously wrote:
T> >
T> > > Why O' why does every body take little fits, when somebody supposidly
T> > > abuses the usenet?
T> >
T> > [2] for example: your current question
T> >
T> > [3] for example: your current question
T>
T>
T> U sound like a right stress head!!!!!!! sorry m8 but u r the lumphead!!!
And you sound like one of those "31337 kewl d00dz". Grow up, learn to
spell, learn about netiquette, learn how to take critisism. Once you've
learned all that, maybe, just maybe, you will learn to keep to keep people
from saying....
*plonk*
Bye, bye now. Have a nice day. :-)
anm
--
perl -wMstrict -e '
$a=[[qw[J u s t]],[qw[A n o t h e r]],[qw[P e r l]],[qw[H a c k e r]]];$.++
;$@=$#$a;$$=[reverse sort map$#$_=>@$a]->[$|];for$](--$...$$){for$}($|..$@)
{$$[$]][$}]=$a->[$}][$]]}}$,=$";$\=$/;print map defined()?$_:$,,@$_ for @$;
'
------------------------------
Date: Wed, 4 Oct 2000 20:34:50 -0400
From: "Randy Harris" <harrisr@bignet.net>
Subject: Re: What does PERL stand for?
Message-Id: <stnj3j7voini46@corp.supernews.com>
Tigz <tigz@ntlworld.com> wrote in message
news:J5LC5.13372$L12.269531@news2-win.server.ntlworld.com...
> Well i have asked my question in the subject line.
>
> anyone know?
>
> Mick,
>
Just in case your question wasn't entirely rhetorical...
perldoc perl
Preface of the camel
Section 8.7 of the camel
Section 11.1 of the llama
http://www.perl.com/pub/doc/manual/html/pod/perl.html
Should all provide a pretty good clue.
Randy
------------------------------
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 4524
**************************************
