[17584] in Perl-Users-Digest
Perl-Users Digest, Issue: 5004 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Dec 1 03:05:41 2000
Date: Fri, 1 Dec 2000 00:05:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <975657912-v9-i5004@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 1 Dec 2000 Volume: 9 Number: 5004
Today's topics:
Advanced HTML/DHTML, Perl, JavaScript, VBScript, Flash, (David)
Re: Advanced HTML/DHTML, Perl, JavaScript, VBScript, Fl <uri@sysarch.com>
Re: Anybody know what the carriage control characters a <joerg_keith@gmx.net>
FAQ 4.29: How can I split a [character] delimited str <faq@denver.pm.org>
Re: gmtime help (David Efflandt)
Help! <dfryberg@kent.edu>
Re: Help! <taboo@comcen.com.au>
Re: Help! <res06xbi@gte.net>
Re: Help! <krahnj@acm.org>
hieroglyphics realdeal9607@my-deja.com
Re: hieroglyphics (David Efflandt)
Re: hieroglyphics <bwalton@rochester.rr.com>
Re: hieroglyphics (Chris Fedde)
how do i escape from perldoc lightfoote@my-deja.com
Re: how do i escape from perldoc <wyzelli@yahoo.com>
Re: HOW TO CALL ORACLE-EXPORT FROM A PERL PROGRAM <sb299@netzero.net>
How to prepare a SQL command using Win32:ODBC? <john@imining.com.tw>
Looping problem <res06xbi@gte.net>
Re: Need a web-based real-time option quote provider... (Martien Verbruggen)
Re: Need a web-based real-time option quote provider... (Tad McClellan)
OT Cargo Cult? (Was: Re: reformatting a perl script) <schmelter_tim@hotmail.com>
Re: OT Cargo Cult? (Was: Re: reformatting a perl script <joe+usenet@sunstarsys.com>
Pearl HELP, How to? <mrbafner@dexrix.NS.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 Dec 2000 06:03:58 GMT
From: david_xia@yahoo.com (David)
Subject: Advanced HTML/DHTML, Perl, JavaScript, VBScript, Flash, ASP and XML Books For Sale
Message-Id: <8FFCE0B20qx11cornelledu@132.236.56.8>
Advanced HTML/DHTML, Perl, JavaScript, VBScript, Flash, ASP and XML Books
For Sale
All books are Brand New.
"HTML 4 for the World Wide Web Visual Quickstart Guide"
by Elizabeth Castro
Paperback - 384 pages 4th edition (January 15, 2000)
Peachpit Press; ISBN: 0201354934
Asking $12
"Platinum Edition Using HTML 4, XML, and Java 1.2"
by Eric Ladd, Jim O'Donnell
Hardcover - 1282 pages Bk&Cd Rom edition (December 1, 1998)
MacMillan Publishing Company; ISBN: 078971759X
Asking $40
"JavaScript Bible"
by Danny Goodman, Brendan Eich
Paperback - 1015 pages 3rd Edition edition (March 1998)
IDG Books Worldwide; ISBN: 0764531883
Asking $30
"Flash 4 Magic" with CD
by David J. Emberton, J. Scott Hamlin, David Emberton
Textbook Binding - 325 pages Bk&Cd Rom edition (January 2000)
New Riders Publishing; ISBN: 0735709491
Asking $30
"Flash 4 Creative Web Animation" with CD
by Derek Franklin, Brooks Patton
Paperback - 352 pages 1st edition (January 15, 2000)
Peachpit Press; ISBN: 0201354705
Asking $25
"Visual InterDev 6 Unleashed"
by Paul Thurrott, Paul Thurrott et al., Brad Jones
Paperback - 1090 pages Bk&Cd Rom edition (April 23, 1999)
Sams; ISBN: 067231262X
Asking $30
"Programming Web Components" with CD
by Reaz Hoque, Tarun Sharma
Paperback - 810 pages Bk&Cd Rom edition
McGraw Hill; ISBN: 0079123163
Asking $40
"Dynamic Html : The Definitive Reference"
by Danny Goodman
Paperback - 1073 pages (August 1998)
O'Reilly & Associates; ISBN: 1565924940
Asking $30
"Dynamic Html in Action" with CD
by Eric M. Schurman, William J. Pardi
Paperback - 497 pages 2nd Bk&cdr edition (March 1999)
Microsoft Press; ISBN: 0735605637
Asking $22
"Professional Active Server Pages 3.0"
by Alex Homer, David Sussman, Brian Francis, George Reilly, Esposito,
Dino Esposito, Andrea Chiarelli, Bill Kropog, Craig McQueen,
Godfrey Nolan, Simon Robinson, John Schenken, Kent Tegel
Paperback - 1277 pages 3rd edition (September 1999)
Wrox Press Inc; ISBN: 1861002610
Asking $40
"ASP/MTS/ADSI Web Security" with CD
by Richard Harrison
Paperback - 450 pages 1 edition (March 11, 1999)
Prentice Hall; ISBN: 0130844659
Asking $35
"Developing Asp Components"
by Shelley Powers
Paperback - 490 pages 1st edition (July 15, 1999)
O'Reilly & Associates; ISBN: 1565924460
Asking $20
"ASP in a Nutshell: A Desktop Quick Reference"
by A. Keyton Weissinger
Paperback; O'Reilly & Associates
Asking $10
"ADO 2.1 Programmer's Reference"
by David Sussman, Alex Homer
Mass Market Paperback - 607 pages 2 edition (June 1999)
Wrox Press Inc; ISBN: 1861002688
Asking $15
"Professional ADO 2.5 RDS Programming with ASP 3.0"
by John Papa
Mass Market Paperback - 819 pages 2nd edition (February 2000)
Wrox Press Inc; ISBN: 1861003242
Asking $30
"XML Bible" with CD
by Elliotte Rusty Harold
Paperback - 1015 pages Bk&Cd Rom edition (July 1999)
IDG Books Worldwide; ISBN: 0764532367
Asking $30
"Building Professional Web Sites with the Right Tools: Build It With Visual
Studio 6, FrontPage, Active Server Pages, VBScript, JavaScript, ADO, Paint
Shop Pro, and Image Composer"
by Jeff Greenberg, J. R. Lakeland
Paperback - 576 pages 1 edition (August 10, 1999)
Prentice Hall; ISBN: 0130843172
Asking $30
"Administering IIS4"
by Mitch Tulloch
Paperback - 608 pages (May 29, 1998)
Computing McGraw-Hill; ISBN: 0070655367
Asking $25
"Learning Vbscript" with CD
by Paul Lomax, Ronald Petrusha (Editor)
Paperback - 640 pages Bk&Cd-Rom edition (October 1997)
O'Reilly & Associates; ISBN: 1565922476
Asking $25
"Learning Perl"
by Randal L. Schwartz, Tom Christiansen, Larry Wall (Foreword)
Paperback - 302 pages 2nd edition (July 1997)
O'Reilly & Associates; ISBN: 1565922840
Asking $15
"Programming Perl"
by Larry Wall, Tom Christiansen, Randal L. Schwartz, Stephen Potter
Paperback - 645 pages 2nd edition (October 1996)
O'Reilly & Associates; ISBN: 1565921496
Asking $25
"Perl Cookbook"
by Tom Christiansen, Nathan Torkington, Larry Wall
Paperback - 794 pages 1 Ed edition (August 1998)
O'Reilly & Associates; ISBN: 1565922433
Asking $25
"Programming the Perl DBI"
by Alligator Descartes, Tim Bunce
Paperback - 346 pages (February 2000)
O'Reilly & Associates; ISBN: 1565926994
Asking $25
------------------------------
Date: Fri, 01 Dec 2000 06:23:56 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Advanced HTML/DHTML, Perl, JavaScript, VBScript, Flash, ASP and XML Books For Sale
Message-Id: <x7g0k8acct.fsf@home.sysarch.com>
>>>>> "D" == David <david_xia@yahoo.com> writes:
D> "Learning Perl"
D> Asking $15
bookpool lists it for $17.95
D> "Programming Perl"
D> Paperback - 645 pages 2nd edition (October 1996)
D> Asking $25
that can't be too new. 3rd edition is out and only $29.50 at bookpool.
D> "Perl Cookbook"
D> Asking $25
you lose. only $23.50 at bookpool.
D> "Programming the Perl DBI"
D> Asking $25
you lose really bad here. only $20.50 at bookpool.
since you don't know how to underprice your books, and you hawk non-perl
books as well, i suggest you go to other groups and stay out of this
one.
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
------------------------------
Date: 30 Nov 2000 21:27:56 -0500
From: Joerg Keith <joerg_keith@gmx.net>
Subject: Re: Anybody know what the carriage control characters are ?
Message-Id: <m3g0k8dger.fsf@nic.keith-clan.de>
Jack Altradmon <gjchap99@my-deja.com> writes:
> ... What are the special characters
> for moving the cursor to beginning of line, end of line, forward
> spacing..?
> Or, where do I find these?
The reason why nobody has answered this question so far could be that
every manual on perl I've seen - good or bad - starts with a table
listing ..
--
joerg ~/Shirley, MA
SNL: Bugs off! Go medieval.
------------------------------
Date: Fri, 01 Dec 2000 07:17:00 GMT
From: PerlFAQ Server <faq@denver.pm.org>
Subject: FAQ 4.29: How can I split a [character] delimited string except when inside
Message-Id: <MfIV5.43$_g6.170608640@news.frii.net>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with every Standard Distribution of
Perl.
+
How can I split a [character] delimited string except when inside
[character]? (Comma-separated files)
Take the example case of trying to split a string that is
comma-separated into its different fields. (We'll pretend you said
comma-separated, not comma-delimited, which is different and almost
never what you mean.) You can't use `split(/,/)' because you shouldn't
split if the comma is inside quotes. For example, take a data line like
this:
SAR001,"","Cimetrix, Inc","Bob Smith","CAM",N,8,1,0,7,"Error, Core Dumped"
Due to the restriction of the quotes, this is a fairly complex problem.
Thankfully, we have Jeffrey Friedl, author of a highly recommended book
on regular expressions, to handle these for us. He suggests (assuming
your string is contained in $text):
@new = ();
push(@new, $+) while $text =~ m{
"([^\"\\]*(?:\\.[^\"\\]*)*)",? # groups the phrase inside the quotes
| ([^,]+),?
| ,
}gx;
push(@new, undef) if substr($text,-1,1) eq ',';
If you want to represent quotation marks inside a
quotation-mark-delimited field, escape them with backslashes (eg, `"like
\"this\""'. Unescaping them is a task addressed earlier in this section.
Alternatively, the Text::ParseWords module (part of the standard Perl
distribution) lets you say:
use Text::ParseWords;
@new = quotewords(",", 0, $text);
There's also a Text::CSV module on CPAN.
-
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep comming up. If you are some how irritated by
seeing these postings you are free to ignore them or add the sender
to your killfile. If you find errors or other problems with these
postings please send corrections or comments to the posting email
address.
If you are not able to find this or other Perl documentation from
your installation you may access it via the web by following the
appropriate links from one of the addresses listed below.
http://theoryx5.uwinnipeg.ca/mod_perl/cpan-search
http://www.perldoc.com
http://www.cpan.org
http://www.perl.com
Answers to questions about LOTS of other stuff, mostly not related to
Perl, can be found at
news:news.answers
and in the many thousands of other useful Usenet news groups.
The perlfaq manual pages contain the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-1999 Tom Christiansen and Nathan
Torkington. All rights reserved.
When included as an integrated part of the Standard
Distribution of Perl or of its documentation (printed or
otherwise), this work is covered under Perl's Artistic
License. For separate distributions of all or part of
this FAQ outside of that, see the perlfaq manpage.
Irrespective of its distribution, all code examples here
are public domain. You are permitted and encouraged to
use this code and any derivatives thereof in your own
programs for fun or for profit as you see fit. A simple
comment in the code giving credit to the FAQ would be
courteous but is not required.
--
This space intentionally left blank
------------------------------
Date: Fri, 1 Dec 2000 04:09:33 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: gmtime help
Message-Id: <slrn92e93m.fnk.efflandt@efflandt.xnet.com>
On Fri, 01 Dec 2000 01:29:44 GMT, jmwjr@my-deja.com <jmwjr@my-deja.com> wrote:
>When I run gmtime using the following script:
>
>#! /usr/bin/perl
>
>($sec, $min, $hour, $mday, $month, $year, $wday, $yday) = gmtime();
>print "Sec: $sec\n";
>print "Min: $min\n";
>print "Hour: $hour\n";
>print "Mday: $mday\n";
>print "Month: $month\n";
>print "Year: $year\n";
>print "Wday: $wday\n";
>print "Yday: $yday\n";
>
>I get the following:
>D:\Perls\Apps\Bypass>time.pl
>Sec: 15
>Min: 20
>Hour: 1
>Mday: 1
>Month: 11
>Year: 100
>Wday: 5
>Yday: 335
>
>Actual date & time
>D:\Perls\Apps\Bypass>date
>The current date is: Thu 11/30/2000
>D:\Perls\Apps\Bypass>time
>The current time is: 20:20:00.69
>
>I would have thought the hour would be 20 not 1 and
You forgot to add 5 for your timezone which is 25 (ie: 1 day + 1 hr)
>the mday 30 not 1.
Again considering timezone gmtime has rolled over to Dec 1 which would be
month 11 (0-11 not 1-12). You forgot to $month++
>I am set up with GMT-05:00 Eastern
>Win 2000
>ActiveState Perl 5.6 Build 620
>What am I missing?
Maybe you should read: perldoc -f localtime
or depending upon what you want: perldoc -f gmtime
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Thu, 30 Nov 2000 22:38:42 -0500
From: "Diana Richardson" <dfryberg@kent.edu>
Subject: Help!
Message-Id: <90788c$huv$1@usenet.kent.edu>
I am totally at my wits end and I know you don't really like helping with
homework but I'm stuck. I've tried every combination I know and I keep
getting error messages I can't find in any book. The professor is so bad
when you ask for an explanation he just confuses you more. Well I won't even
go there.
I need to write a program that will create this pattern:
aba, abba, abbba, etc.
Simple right? HaHaHaHaHa
Well this is what I've done in many variations, I'll just give you the
latest because I actually get the same error with every change:
#!/usr/bin/perl -w
$firstpart = ab
$addb = +b
$lastpart = a
print ($firstpart . $addb + $lastpart);
This is my error message:
Unquoted string "a" may clash with future reserved word at abba line 7.
syntax error at abba line 7, near "a
print"
Execution of abba aborted due to compilation errors.
------------------------------
Date: 1 Dec 2000 16:12:06 +1100
From: "Kiel Stirling" <taboo@comcen.com.au>
Subject: Re: Help!
Message-Id: <3a273326$1@nexus.comcen.com.au>
"Diana Richardson" <dfryberg@kent.edu> wrote:
>I am totally at my wits end and I know you don't really like helping with>homework but I'm stuck. I've tried every combination I know and I keep
>getting error messages I can't find in any book. The professor is so bad
>when you ask for an explanation he just confuses you more. Well I won't even
>go there.
>
>I need to write a program that will create this pattern:
>
>aba, abba, abbba, etc.
>
>Simple right? HaHaHaHaHa
>
>Well this is what I've done in many variations, I'll just give you the
>latest because I actually get the same error with every change:
>
>#!/usr/bin/perl -w
>
Good to see you r using -w but, why not strict?
use strict;
>$firstpart = ab
>$addb = +b
>$lastpart = a
As you r working with strings u must put it in quotes ie,
my $firstpart = "ab";
# $addb = +b ????? don't get this part at all
my $addb = "b";
my $lastpart = "a";
>print ($firstpart . $addb + $lastpart);
I would us a for loop ie,
for ($i=1; $i==3; $i++) {
print $firstpart,($addb x $i),$lastpart;
}
This is not tested and you should read about for loops try
any of the PERL books or perldoc.
>
>This is my error message:
>
>Unquoted string "a" may clash with future reserved word at abba line 7.
>syntax error at abba line 7, near "a
you r getting this error because of the quoting prob I spoke of.
>print"
>Execution of abba aborted due to compilation errors.
>
>
------------------------------
Date: Fri, 01 Dec 2000 05:07:14 GMT
From: "res06xbi" <res06xbi@gte.net>
Subject: Re: Help!
Message-Id: <6mGV5.649$X44.350766@paloalto-snr1.gtei.net>
I'm sure you've figured this out by now but here's how you can write this:
$firstpart = "ab";
$addb = "b";
$lastpart = "a";
print ($firstpart.$addb.$lastpart);
This prints abba.
To get abbba just add another $addb to the middle.
The problem with your script is 1)you didn't use quotes; 2) Perl evaluated
your + signs to mean that you wanted to do something numeric but found a
string instead and returned a 0. So, +b does not work as a variable.
HTH
Harold
"Diana Richardson" <dfryberg@kent.edu> wrote in message
news:90788c$huv$1@usenet.kent.edu...
> I am totally at my wits end and I know you don't really like helping with
> homework but I'm stuck. I've tried every combination I know and I keep
> getting error messages I can't find in any book. The professor is so bad
> when you ask for an explanation he just confuses you more. Well I won't
even
> go there.
>
> I need to write a program that will create this pattern:
>
> aba, abba, abbba, etc.
>
> Simple right? HaHaHaHaHa
>
> Well this is what I've done in many variations, I'll just give you the
> latest because I actually get the same error with every change:
>
> #!/usr/bin/perl -w
>
> $firstpart = ab
> $addb = +b
> $lastpart = a
>
> print ($firstpart . $addb + $lastpart);
>
> This is my error message:
>
> Unquoted string "a" may clash with future reserved word at abba line 7.
> syntax error at abba line 7, near "a
>
> print"
> Execution of abba aborted due to compilation errors.
>
>
------------------------------
Date: Fri, 01 Dec 2000 05:41:29 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Help!
Message-Id: <3A273AAF.45C81594@acm.org>
Diana Richardson wrote:
>
> I am totally at my wits end and I know you don't really like helping with
> homework but I'm stuck. I've tried every combination I know and I keep
> getting error messages I can't find in any book. The professor is so bad
> when you ask for an explanation he just confuses you more. Well I won't even
> go there.
>
> I need to write a program that will create this pattern:
>
> aba, abba, abbba, etc.
>
> Simple right? HaHaHaHaHa
>
> Well this is what I've done in many variations, I'll just give you the
> latest because I actually get the same error with every change:
>
> #!/usr/bin/perl -w
>
> $firstpart = ab
> $addb = +b
> $lastpart = a
>
> print ($firstpart . $addb + $lastpart);
>
> This is my error message:
>
> Unquoted string "a" may clash with future reserved word at abba line 7.
> syntax error at abba line 7, near "a
>
> print"
> Execution of abba aborted due to compilation errors.
perldoc perldiag
And search for "Unquoted string".
John
------------------------------
Date: Fri, 01 Dec 2000 02:03:21 GMT
From: realdeal9607@my-deja.com
Subject: hieroglyphics
Message-Id: <9070t5$6c0$1@nnrp1.deja.com>
Why do I get hieroglyphics in the browser when I run this CGI script?
#!/usr/bin/perl
$giffile = "img.gif";
print "Content-type:image/gif\n\n";
open (FILE, $giffile);
@gifdata = <FILE>;
close (FILE);
print @gifdata;
The image was transferred in binary mode, and I can execute scripts
that output html to the browser just fine, so I'm kind of at a loss.
Any idea what could be going wrong?
Thanks
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 1 Dec 2000 04:16:06 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: hieroglyphics
Message-Id: <slrn92e9g1.fnk.efflandt@efflandt.xnet.com>
On Fri, 01 Dec 2000, realdeal9607@my-deja.com <realdeal9607@my-deja.com> wrote:
>Why do I get hieroglyphics in the browser when I run this CGI script?
>
>#!/usr/bin/perl
>$giffile = "img.gif";
>print "Content-type:image/gif\n\n";
>open (FILE, $giffile);
>@gifdata = <FILE>;
>close (FILE);
>print @gifdata;
>
>The image was transferred in binary mode, and I can execute scripts
>that output html to the browser just fine, so I'm kind of at a loss.
>Any idea what could be going wrong?
Maybe you should try "Content-type: image/gif\n\n" (not run altogether).
Or if the server is Windows, you need to binmode the filehandle before
reading file data, and STDOUT after printing the Content-type header.
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Fri, 01 Dec 2000 04:12:50 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: hieroglyphics
Message-Id: <3A2725EE.A26E2FA2@rochester.rr.com>
realdeal9607@my-deja.com wrote:
>
> Why do I get hieroglyphics in the browser when I run this CGI script?
>
> #!/usr/bin/perl
> $giffile = "img.gif";
> print "Content-type:image/gif\n\n";
> open (FILE, $giffile);
> @gifdata = <FILE>;
> close (FILE);
> print @gifdata;
>
> The image was transferred in binary mode, and I can execute scripts
> that output html to the browser just fine, so I'm kind of at a loss.
> Any idea what could be going wrong?
...
Let me guess -- your web server platform is Windoze? If so, read up on:
perldoc -f binmode
Also, since the GIF file is binary, it could well be that whole file
will register as one line. That would be OK unless the file is huge and
you have limited memory available, or your script is run under modperl
or some such mechanism that doesn't give back its memory until a server
reset occurs. You would be better off reading it in chunks using read.
You'll still need binmode if you output the chunks using print.
--
Bob Walton
------------------------------
Date: Fri, 01 Dec 2000 05:09:06 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: hieroglyphics
Message-Id: <SnGV5.40$_g6.170158592@news.frii.net>
In article <9070t5$6c0$1@nnrp1.deja.com>, <realdeal9607@my-deja.com> wrote:
>Why do I get hieroglyphics in the browser when I run this CGI script?
>
>#!/usr/bin/perl
>$giffile = "img.gif";
>print "Content-type:image/gif\n\n";
>open (FILE, $giffile);
>@gifdata = <FILE>;
>close (FILE);
>print @gifdata;
>
>The image was transferred in binary mode, and I can execute scripts
>that output html to the browser just fine, so I'm kind of at a loss.
>Any idea what could be going wrong?
>
>Thanks
>
Along with the other tests recomended by other respodants is to try it
without the CGI. Since it is sitting in the same directory as the CWD for
the CGI you might be able to just GET it using the right url.
--
This space intentionally left blank
------------------------------
Date: Fri, 01 Dec 2000 05:50:27 GMT
From: lightfoote@my-deja.com
Subject: how do i escape from perldoc
Message-Id: <907e72$gf5$1@nnrp1.deja.com>
hi perl family....
ah still trying to figure out how how to escape from perldoc...
every key i hit still gets me 'more' even perldoc perldoc
wasn't much help...
foote
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 1 Dec 2000 16:13:59 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: how do i escape from perldoc
Message-Id: <7HHV5.48$PE2.3047@vic.nntp.telstra.net>
<lightfoote@my-deja.com> wrote in message
news:907e72$gf5$1@nnrp1.deja.com...
> hi perl family....
>
> ah still trying to figure out how how to escape from perldoc...
> every key i hit still gets me 'more' even perldoc perldoc
> wasn't much help...
q
Wyzelli
--
($a,$b,$w,$t)=(' bottle',' of beer',' on the wall','Take one down, pass
it around');
for(reverse(1..100)){$s=($_!=1)?'s':'';$c.="$_$a$s$b$w\n$_$a$s$b\n$t\n";
$_--;$s=($_!=1)?'s':'';$c.="$_$a$s$b$w\n\n";}print"$c*hic*";
------------------------------
Date: Fri, 01 Dec 2000 02:23:54 GMT
From: "Steve Bourgeois" <sb299@netzero.net>
Subject: Re: HOW TO CALL ORACLE-EXPORT FROM A PERL PROGRAM
Message-Id: <_YDV5.48063$751.1465025@typhoon.ne.mediaone.net>
This is a multi-part message in MIME format.
------=_NextPart_000_0017_01C05B13.E3A8A340
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
You could explicitly set the $ORACLE_SID environment variable.
You could even pass it as an argument to the perl script.
Just set $ENV{ORACLE_SID} =3D 'some_sid' somewhere in your script.
Steve
<gerhard.hann@generali.at> wrote in message =
news:sbqV5.39$bW1.2879@nreader1.kpnqwest.net...
I would like to call an Oracle-Export from a Program:=20
## Per-Program=20
...=20
...=20
Perl- Code=20
...=20
...=20
`set ORACLE_SID=3DTEST`=20
`exp expuser/expuser CONSISTENT=3DY FULL=3DY COMPRESS=3DY INDEXES=3DY =
GRANTS=3DY FILE=3D$EXP`=20
....=20
....=20
Perl - Code=20
my problem is, that I call a oracle-program with ` ` - I think a ` ` =
always open a new shell - and so the right ORACLE_SID is not set - can=20
you help me, how to do this right - is it the right way to call an =
oracle-program with `` ?=20
operating system is windowsNT=20
thanks a lot=20
Gerhard Hann=20
------=_NextPart_000_0017_01C05B13.E3A8A340
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4207.2601" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>You could explicitly set the =
$ORACLE_SID=20
environment variable.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>You could even pass it as an argument =
to the perl=20
</FONT><FONT face=3DArial size=3D2>script.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Just set $ENV{ORACLE_SID} =3D =
'some_sid'=20
somewhere in your script.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Steve</FONT></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV><<A=20
=
href=3D"mailto:gerhard.hann@generali.at">gerhard.hann@generali.at</A>>=
wrote=20
in message <A=20
=
href=3D"news:sbqV5.39$bW1.2879@nreader1.kpnqwest.net">news:sbqV5.39$bW1.2=
879@nreader1.kpnqwest.net</A>...</DIV><BR><FONT=20
face=3Dsans-serif size=3D1>I would like to call an Oracle-Export from =
a=20
Program:</FONT> <BR><BR><FONT face=3Dsans-serif size=3D1>## =
Per-Program</FONT>=20
<BR><FONT face=3Dsans-serif size=3D1>...</FONT> <BR><FONT =
face=3Dsans-serif=20
size=3D1>...</FONT> <BR><FONT face=3Dsans-serif size=3D1>Perl- =
Code</FONT> <BR><FONT=20
face=3Dsans-serif size=3D1>...</FONT> <BR><FONT face=3Dsans-serif =
size=3D1>...</FONT>=20
<BR><FONT face=3Dsans-serif size=3D1>`set ORACLE_SID=3DTEST`</FONT> =
<BR><FONT=20
face=3Dsans-serif size=3D1>`</FONT><FONT face=3D"Courier New" =
size=3D2>exp=20
expuser/expuser CONSISTENT=3DY FULL=3DY COMPRESS=3DY INDEXES=3DY =
GRANTS=3DY=20
FILE=3D$EXP</FONT><FONT face=3Dsans-serif size=3D1>`</FONT> <BR><FONT=20
face=3Dsans-serif size=3D1>....</FONT> <BR><FONT face=3Dsans-serif=20
size=3D1>....</FONT> <BR><FONT face=3Dsans-serif size=3D1>Perl - =
Code</FONT>=20
<BR><BR><BR><FONT face=3Dsans-serif size=3D1>my problem is, that I =
call a=20
oracle-program with ` ` - I think a ` ` always open a new shell =
- and so=20
the right ORACLE_SID is not set - can</FONT> <BR><FONT =
face=3Dsans-serif=20
size=3D1>you help me, how to do this right - is it the right way to =
call an=20
oracle-program with `` ?</FONT> <BR><BR><FONT face=3Dsans-serif =
size=3D1>operating=20
system is windowsNT</FONT> <BR><BR><FONT face=3Dsans-serif =
size=3D1>thanks a=20
lot</FONT> <BR><FONT face=3Dsans-serif size=3D1>Gerhard Hann</FONT>=20
<BR></BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_0017_01C05B13.E3A8A340--
------------------------------
Date: Fri, 1 Dec 2000 10:42:29 +0800
From: "John" <john@imining.com.tw>
Subject: How to prepare a SQL command using Win32:ODBC?
Message-Id: <9073fr$8je@netnews.hinet.net>
Hi:
I have to insert large data into a database.
In order to maximize the insert speed.
I decide to prepare a insert SQL command in advance.
How to prepare a SQL command using Win32:ODBC?
Like DBI:
$ins = $dbh->prepare( qq{insert into Customers
values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )}
);
my @tal = (
"TAL",
"STL",
"Thomas Lowery",
"Manager",
"74 Washington Ave.",
"Battle Creek",
"Northeast",
49017,
"USA",
"616.961.4000",
"616.961.4000"
);
print $ins->execute(@tal) . "\n";
Thanks
John Hsieh
john@imining.com.tw
------------------------------
Date: Fri, 01 Dec 2000 07:19:45 GMT
From: "res06xbi" <res06xbi@gte.net>
Subject: Looping problem
Message-Id: <liIV5.1061$L27.463137@dfiatx1-snr1.gtei.net>
I'm trying to create a script that will recreate the tables and columns for
any given database in Sybase. All other parts of the script work fine except
the part listed below. What I'm trying to do is to take the table name from
one array (@tables) compare it to the first element in another array
(@tgroup) and, while they are equal, append a portion of @tgroup to another
variable. The loop starts over when another $table name is reached. At
least that is what is supposed to happen. Can someone help me with this
code?:
Thanks,
Harold Jackson
open (OUTFILE, ">table.out");
@tables = open(FILE1, "sorted_name.lis");
foreach $table(@tables) {
chomp($table);
@elements=open(FILE2, "results.lis");
foreach $element (@elements) {
@tgroup =split(/\:/, $element);
TABLE: foreach $table(@tables) {
COLUMN:foreach $element(@elements) {
if $table = @tgroup[0] {
next TABLE if ($table ne @tgroup[0]);
$newelement .= $element;
print OUTFILE "$table.$newelement \n";
}
}
}
}
}
close (OUTFILE);
------------------------------
Date: Fri, 01 Dec 2000 02:05:41 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Need a web-based real-time option quote provider...
Message-Id: <slrn92e1qg.nr.mgjv@verbruggen.comdyn.com.au>
On Fri, 01 Dec 2000 00:11:12 GMT,
David Sisk <davesisk@ipass.net> wrote:
> ...similar to Yahoo or CBOE (where an http call from Perl can grab a simple
And what is your Perl question?
> limitations. If anyone knows of any possibilities, please post or email!
Please, no one post an answer. I don't care what you send by email,
but this question is off-topic, and so would an answer be.
F'ups set
Martien
--
Martien Verbruggen |
Interactive Media Division | The world is complex; sendmail.cf
Commercial Dynamics Pty. Ltd. | reflects this.
NSW, Australia |
------------------------------
Date: Thu, 30 Nov 2000 21:14:50 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Need a web-based real-time option quote provider...
Message-Id: <slrn92e2cq.818.tadmc@magna.metronet.com>
David Sisk <davesisk@ipass.net> wrote:
>...similar to Yahoo or CBOE (where an http call from Perl can grab a simple
>CSV file that is returned), EXCEPT I need real-time stock and option quotes
>that don't have any redistribution limitations.
>If anyone knows of any possibilities, please post or email!
One possibility would be to write a Perl program to do that.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 01 Dec 2000 04:22:18 GMT
From: "Tim Schmelter" <schmelter_tim@hotmail.com>
Subject: OT Cargo Cult? (Was: Re: reformatting a perl script)
Message-Id: <_HFV5.1422$nT5.141226@news5.aus1.giganews.com>
"Randal L. Schwartz" <merlyn@stonehenge.com> wrote in message
news:m1g0k913s3.fsf@halfdome.holdit.com...
> Get many answers here usually, some of which will be relatively
> correct, some of which will be wrong, a few of which will likely be
> wrong in a cargo-cult sense, republished from previous cargo-cult
> answers from the previous time. :)
I've seen the phrase in this newsgroup a couple of times, but it's
significance eludes me. What exactly is meant by "cargo-cult"?
--
Tim Schmelter
schmelter_tim@hotmail.com
------------------------------
Date: 01 Dec 2000 00:12:54 -0500
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: OT Cargo Cult? (Was: Re: reformatting a perl script)
Message-Id: <m33dg8u3l5.fsf@mumonkan.sunstarsys.com>
"Tim Schmelter" <schmelter_tim@hotmail.com> writes:
> "Randal L. Schwartz" <merlyn@stonehenge.com> wrote in message
> news:m1g0k913s3.fsf@halfdome.holdit.com...
> > Get many answers here usually, some of which will be relatively
> > correct, some of which will be wrong, a few of which will likely be
> > wrong in a cargo-cult sense, republished from previous cargo-cult
> > answers from the previous time. :)
>
> I've seen the phrase in this newsgroup a couple of times, but it's
> significance eludes me. What exactly is meant by "cargo-cult"?
Whatever Randal doesn't like ;)
AFAIK, it is a phrase used here to characterize code that is
adopted by a programmer which serves no apparent useful purpose,
but the programmer believes it does for reasons that noone else
can determine.
For example, when developing regexp code I occasionally write
things like
s/(\w+),?\s*\b\w{1,3}\.[\w\.]{0,4}/$1/go; # dr. ph.d. jr. sr. ...
This is meant to strip suffixed titles from a list of names, and
sits within a while(<FILE>) loop that spans many lines of code.
A few months later, I'll probably revisit this code to see why
it's stopped processing suffixed titles properly. Now it's easy
for me to look at that regexp with the cargo-cultish "o" flag to
know how this regexp is _not_ to be fixed. Instructing perl to
compile the regexp _o_nce in my eyes is a statement of how this
line is used in the code, and even though perl is smart enough
to compile it only once even without the "o" flag, I'm not smart
enough to remember that that fact is important later on when I
have to fix it by trying variable regexp's.
However, if another programmer has to maintain this code, he'll
react badly to the "o" here unless he's also part of the same
(small ;) cult. It's not a good idea to adopt a coding style
that noone else understands, because it facilitates confusion.
If I were handing maintainence responsibilities over to another
programmer, I'd probably remove these spurious o's first.
HTH
--
Joe Schaefer
------------------------------
Date: Fri, 1 Dec 2000 17:18:01 -0800
From: "MrBafner" <mrbafner@dexrix.NS.com>
Subject: Pearl HELP, How to?
Message-Id: <3a275015$0$19410$7f31c96c@news01.syd.optusnet.com.au>
change this so it opens "links.pl" instead of referring to "site/frame"
open (FRAME,"sites/frame");
while($line=<FRAME>)
{print "$line";}
close(FRAME);
exit;
}
}
close(USER);
print "Content-Type: text/html\n\n";
open (FRAME,"sites/frame");
while($line=<FRAME>)
{print "$line";}
close(FRAME);
}
------------------------------
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 5004
**************************************
