[6851] in Perl-Users-Digest
Perl-Users Digest, Issue: 476 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 14 14:17:25 1997
Date: Wed, 14 May 97 11:00:47 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 14 May 1997 Volume: 8 Number: 476
Today's topics:
[Modem]Perl script talk to modem on local unix machine? <tneohcb@pc.jaring.my>
A perl routine to fetch an url (mara)
Re: A perl routine to fetch an url <dean@tbone.biol.sc.edu>
ANNOUNCE: Net::DNS 0.08 (Michael Fuhr)
ANNOUNCE: Term::Size 0.2 available (Tim Goodwin)
ANYONE USING PERL W/ WIN95 <chris.lee@globasatcom.com>
Re: ANYONE USING PERL W/ WIN95 <dean@tbone.biol.sc.edu>
Boolean searching (Michael Schuerig)
Re: Databases under Linux, Unix ? (Danny Aldham)
double precision binary reads? <doe#m#_john@mmac.is.lmsc.lockheed.com>
Re: double precision binary reads? (Mike Stok)
forman and write to STDERR (O'Shaughnessy Evans)
Re: help with split.... (Chipmunk)
How do I patch Perl (for Win32)? <tabana@istar.ca>
HTML or PS to ASCII conversion? <jlowens@ptconnect.infi.net>
Re: inclu-OR in regex (Jordyn A. Buchanan)
Re: inclu-OR in regex <usenet-tag@qz.little-neck.ny.us>
Re: inclu-OR in regex <dorman@s3i.com>
index question <ahenig@iil.intel.com>
Re: Ingres data on the Intranet <mal@visi.com>
Re: Installing Perl5 (The Man on the Scene)
Looking for book recommendation for Learning PERL... (John Rose)
Re: Need help on Oraperl !!! ( Thomas Lachlan XMS x4206 )
Re: Need help on Oraperl !!! (John D Groenveld)
need to send form data to file cc003862@mindspring.com
Re: Newbie confused by all those slashes <usenet-tag@qz.little-neck.ny.us>
Re: oraperl on solaris 2.5/oracle 7.3 (John D Groenveld)
Perl for Win32-OLE Bug??? <joebryant@pop.mindspring.com>
Re: PerlScript (activeserverpages) and setting a cookie <soderlind@gazette.no>
Re: Procedure to count unique lines (Jordyn A. Buchanan)
Re: Q: Is Win95 Perl5 select() for device COM1 implemen <cerlpvk@cestar.technion.ac.il>
String Float to Machine Float (sgtrupia)
Re: String Float to Machine Float <dean@tbone.biol.sc.edu>
Re: String Float to Machine Float (Mike Stok)
to GV.C, add THIS!: (David Combs)
Re: Trouble building perl5.003 on solaris (The Man on the Scene)
type casting <doe#m#_john@mmac.is.lmsc.lockheed.com>
Re: Week numbers (Tim Goodwin)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 14 May 1997 22:47:07 +0800
From: Simon Tneoh Chee-Boon <tneohcb@pc.jaring.my>
Subject: [Modem]Perl script talk to modem on local unix machine?
Message-Id: <3379D06B.3986@pc.jaring.my>
Hello,
I need to do something like this:
Where there's an serious error happend on the unix machine, a perl
script is called
and use the modem to send message to a pager.
Is there any example of such perl script?
Please reply to my mail box. Thanks.
--
Simon Tneoh Chee-Boon
Application Developer Hitechniaga Sdn. Bhd.
tneohcb@hitech.com.my 60-3-9660966 ext 3306
http://thccy14.oz.nthu.edu.tw:6083/simon/
------------------------------
Date: 14 May 1997 08:01:38 GMT
From: mara@0.0.0.0 (mara)
Subject: A perl routine to fetch an url
Message-Id: <5lbrh2$dde@nntp.hut.fi>
I need to fetch image files on another server and show them in a
separate browser window. The problem is that I need to test the url
before showing
it. So, I figured that my CGI-script should fetch that url and
depending
on what it receives, produces the desired output.
I've seen somewhere a perl-routine that fetches an url from a server,
but unfortunately, I haven't got it. If I remember correctly, it was
called http-get or something.
Does anyone have such a routine and possibly an example of the usage.
Especially, what happens when the url (gif-file) exists?
Any hints and pointers greatly appreciated.
Martti Rahkila
Helsinki University of Technology
Laboratory of Acoustics and Audio Signal Processing
------------------------------
Date: 14 May 1997 11:25:32 -0400
From: Dean Pentcheff <dean@tbone.biol.sc.edu>
Subject: Re: A perl routine to fetch an url
Message-Id: <m1k9l2f53n.fsf@nauplius.psc.sc.edu>
mara@0.0.0.0 (mara) writes:
> I need to fetch image files on another server and show them in a
> separate browser window. The problem is that I need to test the url
> before showing
> it. So, I figured that my CGI-script should fetch that url and
> depending
> on what it receives, produces the desired output.
>
> I've seen somewhere a perl-routine that fetches an url from a server,
> but unfortunately, I haven't got it. If I remember correctly, it was
> called http-get or something.
You'll want to visit the CPAN archive of Perl code. Start at
<URL:http://www.perl.com/perl>. Once there, go to the CPAN archive
and look for the full module list. There are several that pertain to
WWW programming using Perl. There are good modules for doing simple
or sophisiticated URL checking or retrieval (all with full
documentation).
And look around for other useful modules while you're there...
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org> WWW: http://tbone.biol.sc.edu/~dean/
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-3936)
PGP ID=768/22A1A015 Keyprint=2D 53 87 53 72 4A F2 83 A0 BF CB C0 D1 0E 76 C0
Get PGP keys and information with the command: "finger dean@tbone.biol.sc.edu"
------------------------------
Date: 14 May 1997 13:59:00 GMT
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: ANNOUNCE: Net::DNS 0.08
Message-Id: <5lcgf4$kp$1@nadine.teleport.com>
Net::DNS is a module for doing DNS queries in Perl. Version 0.08
should be making its way around CPAN; you can also download it from:
http://www.dimensional.com/~mfuhr/perldns/
Here's the relevant excerpt from the Changes file:
*** 0.08 13 May 1997
Added support for LOC RRs.
For those concerned, I'm still planning to add dynamic updates
(RFC 2136) to Net::DNS, but it's on hold for the moment.
Happy resolving!
--
Michael Fuhr
http://www.dimensional.com/~mfuhr/
------------------------------
Date: 14 May 1997 13:59:16 GMT
From: tim@pipex.net (Tim Goodwin)
Subject: ANNOUNCE: Term::Size 0.2 available
Message-Id: <5lcgfk$kt$1@nadine.teleport.com>
Release 0.2 of Term::Size is now available from a CPAN near you. This
is an alpha release.
The Term::Size module provides a straightforward way to discover the
size of the window a Perl script is running in, either in characters or
pixels. A good use of Term::Size would be in a Perl reimplementation of
the `ls' command: it needs to know the terminal width (so it can arrange
its output in columns), but doesn't need the full complexity of Curses.
Help save the world! Term::Size works on BSD systems, and hybrids such
as Solaris 2 and Linux. If you think you can help me make Term::Size
work on other Unix variants, Plan 9, VMS, WNT, etc., please get in
touch.
Tim.
--
Tim Goodwin | "I'm a west coast kinda guy, I'm not even sure
UUNET, UK | where Washington is.. :-)" -- Jordan Hubbard
------------------------------
Date: 14 May 1997 16:08:10 GMT
From: "chris" <chris.lee@globasatcom.com>
Subject: ANYONE USING PERL W/ WIN95
Message-Id: <01bc6080$edadc500$8e89accf@chris>
anyone that is using perl w/ win95 please help me get started.
this are the steps i take.
i wrote a sample program (from a book) using the dos editor.
i save it as "program1_1"
i then goto my perl.exe and it opens a small dos-like window.
i type "$ chmod +x program1_1".
and then type a line of input that is supposed to be repeated by the
program but nothing happens.
i am aware that some commands are for unix, but i do not know the win95
commands. also, the first line of my program is "#!/usr/local/bin". do i
need to type something else up here for win95?
PLEASE, give me some much needed beginners advice to start rolling with
this.
you can email me at chris@globalsatcom.com.
thanks.
chris.
------------------------------
Date: 14 May 1997 12:51:43 -0400
From: Dean Pentcheff <dean@tbone.biol.sc.edu>
To: "chris" <chris.lee@globasatcom.com>
Subject: Re: ANYONE USING PERL W/ WIN95
Message-Id: <m17mh22e00.fsf@nauplius.psc.sc.edu>
[Courtesy CC sent as well.]
"chris" <chris.lee@globasatcom.com> writes:
> anyone that is using perl w/ win95 please help me get started.
...
> i then goto my perl.exe and it opens a small dos-like window.
> i type "$ chmod +x program1_1".
> and then type a line of input that is supposed to be repeated by the
> program but nothing happens.
A key thing to understand is that fundamental Perl is text-oriented.
There are add-on modules that let you do graphical Windows-ish things
with it, but you will generally start out using Perl as a
character-mode program.
First, make sure that the directory that contains the "perl.exe"
program is listed in the "PATH=" line in your c:\autoexec.bat file.
That enables you to fire off Perl from any directory on the system.
You've created your program just fine (probably). What you'll want to
do next is just open up a DOS window. Change directories in the
window to the directory where you saved your Perl program file (use
the "cd" command in DOS).
In most cases, a Perl program "expects" input from your keyboard or an
input file, and will send output straight to the character-mode screen
(DOS window) or a file. To get Perl to run your program, give a
command something like the following:
perl testprog.pl
(assuming your program is called "testprog.pl"). That starts up the
Perl interpreter, and tells it to read, compile, and execute the
program contained in the file "testprog.pl". It will spew output to
your screen.
I hope that gets you rolling! I'm convinced that 50% of learning a
new language is getting the very first trivial program to run...
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org> WWW: http://tbone.biol.sc.edu/~dean/
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-3936)
PGP ID=768/22A1A015 Keyprint=2D 53 87 53 72 4A F2 83 A0 BF CB C0 D1 0E 76 C0
Get PGP keys and information with the command: "finger dean@tbone.biol.sc.edu"
------------------------------
Date: Wed, 14 May 1997 17:10:44 +0100
From: uzs90z@uni-bonn.de (Michael Schuerig)
Subject: Boolean searching
Message-Id: <19970514171044336761@rhrz-ts3-p4.rhrz.uni-bonn.de>
I bet there are scripts for searching for terms connected by boolean
operators, yet I haven't found any on CPAN. I might have looked in the
wrong places though. (I don't want to do any fancy web-related stuff,
it's all local.)
I'd appreciate any pointers.
Michael
---
Michael Schuerig Faith seems to qualify to me
mailto:uzs90z@uni-bonn.de as a kind of mental illness.
http://www.uni-bonn.de/~uzs90z/ -Richard Dawkins
------------------------------
Date: 14 May 1997 15:12:31 GMT
From: aldham@wimsey.com (Danny Aldham)
Subject: Re: Databases under Linux, Unix ?
Message-Id: <5lckov$mgq@wolfe.wimsey.com>
T. de Konink (konink@telebyte.nl) wrote:
: I am making database-applications using Perl, in a very primitive way. I
: simply use text-files with field-delimeters, splitting&joining fields.
: Now it's the time for me to apply a more professional way to store my
: data, but I really do not know how to do it. I've got much experience in
: developping MSAccess databases, but I don't think I could handle these
: kinds of databases using Perl under Unix/Linux. Thats the reason I've
: got the next questions.
: QUESTIONS
: 1) Is it possible to use MSAcces databases under Perl Unix/Linux, using
: a special module or driver ? When soo, what do I need for it.
: 2) What kind of databases should I use (Perl Unix/Linux) to get an good
: performance and have standard functions to read, modify, search, write
: and query records ? What do I need for it ?
: 3) Do you have any examples for me of database-usement under Perl/Linux
Take a look at mSQL or Postgresql. Both work fine on linux and have
perl5 modules to make interfacing easier.
Danny Aldham ------ Technical Support
BC Tel Systems Support Burnaby BC
Phone (604) 444-8949 Fax (604) 444-8848
------------------------------
Date: Wed, 14 May 1997 09:10:19 -0700
From: John Doe <doe#m#_john@mmac.is.lmsc.lockheed.com>
Subject: double precision binary reads?
Message-Id: <3379E3EB.19A4@mmac.is.lmsc.lockheed.com>
I want to read in data that contains double precision binary data (and
other binary data). It will be generated on the same machine on which
I am reading. I currently have to use a c program to do this, but for
various reasons I would like to do this in perl. If I read the bytes
in byte by byte the code would be machine depentant. Any suggestions?
------------------------------
Date: 14 May 1997 16:37:10 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: double precision binary reads?
Message-Id: <5lcpnm$c5c@news-central.tiac.net>
In article <3379E3EB.19A4@mmac.is.lmsc.lockheed.com>,
John Doe <doe#m#_john@mmac.is.lmsc.lockheed.com> wrote:
>I want to read in data that contains double precision binary data (and
>other binary data). It will be generated on the same machine on which
>I am reading. I currently have to use a c program to do this, but for
>various reasons I would like to do this in perl. If I read the bytes
>in byte by byte the code would be machine depentant. Any suggestions?
You could look at sysread and unpack to read and decompose binary data,
unpack can interpret data ad native floats anongst other things. Check
the pack entry in the perlfunc manual page for a list of letters used in
the template passed to unpack and what they mean
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: 14 May 1997 17:01:58 GMT
From: shaug@callamer.com (O'Shaughnessy Evans)
Subject: forman and write to STDERR
Message-Id: <5lcr66$ke8$1@zinger.callamer.com>
I'd like to use format() and write() with STDERR, for printing out debugging
info in a script. If I just try to write to STDERR, I get complaints
about "Format STDERR redefined at ./eds-bill line 113" because I'm doing
it in more than one location in the script. If I try to save STDERR,
dup it, and restore it, nothing prints at all. So, is there a "recommended"
way to change the format for STDERR write()s?
Thanks :)
--
O'Shaughnessy Evans
UNIX/Internet Systems Administrator, GST Call America; SLO, CA
mailto: shaug@callamer.com; http://gromit.callamer.com
------------------------------
Date: 14 May 1997 14:48:35 GMT
From: Ronald.J.Kimball@dartmouth.edu (Chipmunk)
Subject: Re: help with split....
Message-Id: <5lcjc3$qr1$1@dartvax.dartmouth.edu>
In article <v00g1vsgcr6.fsf@sj-cse112-sun.cisco.com>
Rob Walker <rob@cisco.com> writes:
> I am converting openwin menus to fvwm-style. this includes all of the
> reading of extra files, and what not. Here are some examples of what
> I get to convert:
>
> "Workspace" TITLE
>
> "Regular XTerm..." exec $OPENWINHOME/bin/xterm -sb -sl 1024 -font 9x15 -n `hostname` -title $USER@`hostname`
>
> "Personal Menu" MENU $HOME/.openwin-menu-local
>
>
> I had used this to read in each line:
>
> # each field in a line, set off by a space, becomes one element in
> # an array called fields
> @fields = split(/\s+/,$line);
>
>
> but, that resulted in arrays that looked like this:
>
> <"Workspace"><TITLE>
> <"Regular><XTerm..."><exec><$OPENWINHOME/bin/xterm><-sb><-sl><1024><-font><9x15><-n><`hostname`><-title><$USER@`hostname`>
> <"Personal><Menu"><MENU><$HOME/.openwin-menu-local>
>
>
> now, the biggest problem is that I do not need stuff set off by spaces
> so much as I need the first hunk set off by the quotes, and anything
> after exec to be left alone.
Could you tell us how the array *should* look for the example you gave?
For example, in the last line, should that be:
<"Personal Menu"><MENU><$HOME/.openwin-menu-local>
or:
<"Personal Menu"><MENU $HOME/.openwin-menu-local>
?
This will give you the former of the two:
@fields = $line =~ /^(".*?")\s([^\s+])\s+(.*)$/;
For lines with no word immediately after the quoted text, you will get
an empty element in the array.
Chipmunk
------------------------------
Date: Wed, 14 May 1997 12:59:44 -0400
From: Timothy Rangongo <tabana@istar.ca>
To: Perl-Win32-Users@ActiveWare.com
Subject: How do I patch Perl (for Win32)?
Message-Id: <3379EF80.5DCF7655@istar.ca>
I downloaded some patches to Activeware Perl5 for Win32 but I don't know
how to apply them and I can't find instructions. I'm building it with
VC++ 5.0 on NT 4.0.
--
T. Rangongo
TSB International Inc.
(416) 622-7010 x.323
mailto:timothy@tsb.ca
------------------------------
Date: Wed, 14 May 1997 09:31:34 -0700
From: "Jack L. Owens" <jlowens@ptconnect.infi.net>
Subject: HTML or PS to ASCII conversion?
Message-Id: <3379E8E6.7F9C0430@ptconnect.infi.net>
Often, tables of data are displayed on the web in HTML format for
display with netscape or some other browser. Netscape allows saving the
page in HTML format or printing it to a PostScript file. Would someone
direct me to a utility that will convert either of these formats to a
flat ASCII file?
--
Jack L. Owens jowens@csulb.edu
4421 Myrtle Avenue K6PWY
Long Beach, California 90807 (562)989-9413
------------------------------
Date: Wed, 14 May 1997 12:07:42 -0400
From: jordyn@bestweb.net (Jordyn A. Buchanan)
Subject: Re: inclu-OR in regex
Message-Id: <jordyn-ya02408000R1405971207420001@nntp.bestweb.net>
alex <alex.t.silverstein@bender.com> wrote:
> I want to match the letters a b and c in a string at least once
> but in any order. The part I don't get is how to say "in any order"
> in a regex (I can't seem to find this explained well in
> "Learning Perl"). I tried the following:
>
> $dil ="acb"
> $dil =~ s/(a)+(b)+(c)+/something/
>
> but this doesn't work. Thanks for helping me. Alex
Unfortunately, this isn't as easy as you might hope. Your regex:
$dil =~ s/(a)+(b)+(c)+/something/;
matches one or more a's, one or more b's, and then one or more c's, but
they have to be in alphabetical order, so 'abc' or 'aaabbc' would match,
but not 'bac'.
You may want to use something like this:
$dil =~ s/[abc]{3}/something;
which searches for thee letters in a row that are either 'a', 'b' or 'c',
but this could as easily be 'aaa' as 'abc', so that doesn't do what you
want either.
Fortunately, there aren't very many possible permutations of 'abc'. This:
$dil =~ s/(abc|acb|bac|bca|cab|cba)/something/;
will do what you want. Not a very creative approach, and it becomes
impractical if you are trying to match something like 'abcdefg' in any
order.
Jordyn
|---------------------------------------------------------------|
|Jordyn A. Buchanan jordyn@bestweb.net|
|Bestweb Corporation http://www.bestweb.net|
|Senior System Administrator +1.914.271.4500|
|---------------------------------------------------------------|
------------------------------
Date: 14 May 1997 17:00:01 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: inclu-OR in regex
Message-Id: <5lcr2h$u7e$1@news.netusa.net>
alex <alex.t.silverstein@bender.com> wrote:
> I want to match the letters a b and c in a string at least once
> but in any order. The part I don't get is how to say "in any order"
> in a regex (I can't seem to find this explained well in
> "Learning Perl"). I tried the following:
>
> $dil ="acb"
> $dil =~ s/(a)+(b)+(c)+/something/
Jordyn A. Buchanan <jordyn@bestweb.net> replied:
: $dil =~ s/(abc|acb|bac|bca|cab|cba)/something/;
ebohlman@netcom.com (Eric Bohlman) replied:
} /(a.*b.*c)|(a.*c.*b)|(b.*a.*c)|(b.*c.*a)|(c.*a.*b)|(c.*b.*a)/
and jahwan@supernova.math.lsa.umich.edu (Jahwan Kim) replied:
| $dil =~ s/([abc])(?!\1)([abc])(?!(\2|\1))([abc])/something/;
Jordyn's is wrong because it assumes the letters are next to each
other. Jahwan's suffers the same problem and has a needless set
of parens at the end. Eric's does not need parentheses at all and
is slowed down (probably) by having them.
I would use:
if ( $dil =~ /a/ && $dil =~ /b/ && $dil =~ /c/ ) {
$dil =~ s/[abc].*[abc]/something/;
}
It is almost certainly faster and definately easier to maintain or
expand.
Elijah
------
should probably learn how to use the benchmark module
------------------------------
Date: 14 May 1997 11:09:54 -0400
From: Clark Dorman <dorman@s3i.com>
Subject: Re: inclu-OR in regex
Message-Id: <d911iks3g.fsf@s3i.com>
alex <alex.t.silverstein@bender.com> writes:
> I want to match the letters a b and c in a string at least once
> but in any order. The part I don't get is how to say "in any order"
> in a regex (I can't seem to find this explained well in
> "Learning Perl"). I tried the following:
>
> $dil ="acb"
> $dil =~ s/(a)+(b)+(c)+/something/
Um...do you want to match, or do you want to substitute? Plus, the above
does not have semi-colons at the end, so I'm guessing this is not real code.
> but this doesn't work. Thanks for helping me. Alex
Well, the way to _match_ that immediately comes to mind is:
#!/usr/bin/perl -w
$dil = "bca plus other stuff";
if ((join '', sort split(//,$dil)) =~ /a.*b.*c/) {
print "Yep, we matched \n";
}
else {
print "Nope, we did not match\n";
}
This splits the string into an array, sorts the array, glues it all back
together, and looks for things in order.
Note to the regulars and perl developers: I'm shocked! join requires the
syntax:
join EXPR,LIST
where you cannot just leave off the "EXPR,". Given the amount that I know
about perl (ok, not that much), and it's handy-dandy defaults, I would have
bet a fair amount of money that you could do:
$sorted_dil = join sort split(//, $dil);
But you can't! split has nifty defaults (though it's whitespace rather than
// as we want in this case), sort has nifty defaults. But not poor join.
Why not? And who do I email to suggest this as a feature?
And finally, why can't sort work on a string? I'm showing my ignorance here,
but if sent a string, I would think that sort would do the "obvious" thing
which is what is done above (split, sort, join). Just an idea.
--
Clark Dorman "Evolution is cleverer than you are."
http://cns-web.bu.edu/pub/dorman/D.html -Francis Crick
------------------------------
Date: Sun, 11 May 1997 06:50:40 +0300
From: Allon Henig <ahenig@iil.intel.com>
Subject: index question
Message-Id: <33754210.6B22@iil.intel.com>
Hi I bumped into a very paculier behavior of the index function
I have the following code:
$line = "Allon HENIG";
$word_to_search = "henig"; # notice the lower case
$start = index ($line,/$word_to_search/i);
print $start;
The out put is $start = 0 (?!?!?!?!?!?!?!)
I would expect to get 6 or -1 but what the 0 is doing there and how
can I over come this ?
Thanks,
Allon
------------------------------
Date: 14 May 1997 09:51:41 -0500
From: Michael Leo <mal@visi.com>
Subject: Re: Ingres data on the Intranet
Message-Id: <wnd8qujede.fsf@visi.com>
deepa@ril.com writes:
>
>
> We have huge databases on Ingres. We wish to put some
> web applications which will be able to query the Ingres
> database.
>
> Can anyone make any suggestions.
> We are using the Apache Web Server. Using perl extensively
> for CGI development.
>
> Thanks in advance.
>
> -deepa
You can use perl and CGI for this, but how scalable is that?
I prefer using Java/JDBC access. Faster, more scalable, and
a "real" programming language. Puts very little load on your
HTTP server (using our pass-through server).
You can trial the software without any paperwork or purchase
orders. You can download the full version from our web site.
http://www.cariboulake.com
It shuts down every two hours until you purchase it.
Today we are releasing a new version of our JDBC solution for
Ingres. The client is all Java and runs on any platform that
support either the JDK 1.0.2 platform (like Netscape and MS Explorer)
as well as support for the new JDK 1.1.1.
Servers include
Solaris 2.4/2.5/2.5.1 Ingres 6.4 or OpenIngres 1.2
Alpha/OpenVMS 6.x Ingres 6.4 (requires Multinet for a little while longer)
VAX/OpenVMS 6.x Ingres 6.4 (requires Multinet for a little while longer)
Windows NT 3.51/4.x OpenIngres 1.2
AIX 4.x Ingres 6.4
HPUX 9.x Ingres 6.4
Sequent Dynix/ptx 2.1.1 Ingres 6.4
more coming this summer ...
Cheers,
Michael Leo mleo@cariboulake.com mal@visi.com
Caribou Lake Software http://www.cariboulake.com Java/RDBMS Solutions
"We've heard that a million monkeys at a million keyboards could produce the
Complete Works of Shakespeare; now, thanks to the Internet, we know this is
not true." -- Robert Wilensky, University of California
------------------------------
Date: 14 May 1997 17:17:12 GMT
From: shaug@callamer.com (The Man on the Scene)
Subject: Re: Installing Perl5
Message-Id: <5lcs2o$ke8$2@zinger.callamer.com>
In article <3378ae11.76011829@news.michiana.net>,
mark@michiana.net (Mark Bainter) writes:
> ... Anyway, for the time being, I'd like to put perl5
> on our webserver alongside of perl4, instead of replacing it. I'm
> wondering if I'm going to run into any problems by doing this.
Mark,
We have perl4.036 and perl5.003 installed on our primary web server. There
are only two things that you need to be careful about:
1) keep separate binaries (obviously :), and
2) keep the libraries in separate locations.
Be default, I think that perl4 wants to install its libraries in
/usr/local/lib/perl, and perl5 wants to put them in /usr/local/lib/perl5;
so you should be safe accepting the defaults there. As far as binaries
go, we keep /usr/local/bin/perl4 and /usr/local/bin/perl5, and make
/usr/local/bin/perl a copy of whichever we want to keep as the default.
In order to avoid breaking your old scripts, I'd recommend making perl
a copy (or link) of perl4, and then explicitly use perl5 when you want
that (at least until you get your perl4 scripts updated).
Hope this helps.
--
O'Shaughnessy Evans
UNIX/Internet Systems Administrator, GST Call America; SLO, CA
mailto: shaug@callamer.com; http://gromit.callamer.com
------------------------------
Date: 14 May 1997 10:58:44 -0400
From: rose@cs.utk.edu (John Rose)
Subject: Looking for book recommendation for Learning PERL...
Message-Id: <5lcjv4INN218@hydra1f.cs.utk.edu>
Hey there.
I was looking thru book review pages at:
www.perl.com/perl/critiques/index.html
I guess that comment in Ben Smiths review on the 2nd edition
of Programming Perl:
"...many of the examples are too clever and abstruse for the novice."
caught my eye. I consider myself a novice. Whats a good learn PERL
book with soem good examples that would talk to me like I am
8 years old?
Most of my work would involve developing CGI code. So something with
examples geared toward that would be best.
Thanks
John
rose@cs.utk.edu
------------------------------
Date: 14 May 1997 15:09:50 GMT
From: etltsln@etlxd30.ericsson.se ( Thomas Lachlan XMS x4206 )
Subject: Re: Need help on Oraperl !!!
Message-Id: <5lckju$7p@newstoo.ericsson.se>
pdemeyer@cri.univ-lr.fr wrote:
: Hi !
: Where can I get detailed help on oraperl ???
: Or maybe someone of you already had the problem :
: my function ora_login doesn't work with the new version of Oracle database,
: version 7.3.2.2, I don't even get any error message...
: What happens ??
: Thanks for your help.
: -------------------------------
: Patrice
: pdemeyer@cri.univ-lr.fr
Hello Patrice,
I've recently installed Oracle 7.3.2.2, DBI and Oraperl.
It works fine. In order to use the ora_login function
I think you need to install sql*net and have the TNS
listener up and running. Above and beyond this rather
vague and unhelpful information I can be of little
assistance.
Sorry
Yours Tom Lachlan etltsln@etlxdmx.ericsson.se
------------------------------
Date: 14 May 1997 12:38:30 -0400
From: groenvel@cse.psu.edu (John D Groenveld)
Subject: Re: Need help on Oraperl !!!
Message-Id: <5lcpq6$o66$1@tholian.cse.psu.edu>
In article <5l9v62$ob0@hpuniv.univ-lr.fr>, <pdemeyer@cri.univ-lr.fr> wrote:
>my function ora_login doesn't work with the new version of Oracle database,
>version 7.3.2.2, I don't even get any error message...
>What happens ??
Consult the DBI/DBD web page http://www.hermetica.com/technologia/DBI/ for
pointers to the dbi-users mailing list archives and discussions on this topic.
Recently, its been reported that building Perl5 with Sun's malloc is a
work-around.
Good luck,
John
groenvel@cse.psu.edu
------------------------------
Date: Wed, 14 May 1997 11:51:37 -0400
From: cc003862@mindspring.com
Subject: need to send form data to file
Message-Id: <3379DF47.4AF8@mindspring.com>
I am new to Perl. I have been using a cgiemail program (provided by the
web hosting service I use) in conjunction with my HTML form to have
customer-submitted information emailed to me. Since I will soon be
accepting credit card information, I now need to have the customer data
stored in a file(s) on the secured server and only email me a notice
that it has arrived. Are there any form-processor scripts available on
the Internet that are designed to store form data in files? If not, can
you give me any tips on how I can accomplish this task in a relatively
short period of time. This is my only Perl need right now. I am not
expecting a finished script but one that I can learn from and customize
without needing to design from scratch. Thanks.....Roger
------------------------------
Date: 14 May 1997 16:27:23 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: Newbie confused by all those slashes
Message-Id: <5lcp5b$t77$1@news.netusa.net>
Tad McClellan <tadmc@flash.net> wrote:
>Amias Channer (amias@amias.prestel.co.uk) wrote:
>: where prodname is a string containg the keyword i wish to find in
>: values[2] wich contains a description of something e.g. 'large wolly
>: jumper with hole in it' . I have checked the variable contents and they
>: contain what they should .
>$values[2] = 'large wolly jumper with hole in it';
>$prodname = 'jumper';
>I'm most certainly not a Perl guru, but I'll answer it anyway ;-)
>if ( $values[2] =~ /$prodname/ ) ...
If there is *any* chance that $prodname could have non-alphnumerics
in it, you would be better off using:
if ( $values[2] =~ /\Q$prodname\E/ ) { ...
So that any special characters will be escaped and not complicate
the substring match attempt.
Elijah
------
still not a clpm top 10 poster by number of posts -- must post more
------------------------------
Date: 14 May 1997 12:32:31 -0400
From: groenvel@cse.psu.edu (John D Groenveld)
Subject: Re: oraperl on solaris 2.5/oracle 7.3
Message-Id: <5lcpev$o5c$1@tholian.cse.psu.edu>
In article <01bc5f14$3f8cada0$061e1587@ccpnotes.mt.att.com>,
Chi-Sharn Wu <swu@probe.att.com> wrote:
> My project plans to move to solaris 2.5 and oracle 7.3 in the
>near future. Does any one have experience in building oraperl
>(perl 4) on such configuration? Thanks for any info.
I highly suggest you upgrade to Perl5 and the DBI/DBD-Oracle modules. Your
oraperl scripts should run out of the box with the Oraperl emulation module.
You're pretty much on your own to patch oraperl to build with 7.3.x.
John
groenvel@cse.psu.edu
------------------------------
Date: Wed, 14 May 97 13:44:25 -0500
From: Joe Bryant <joebryant@pop.mindspring.com>
Subject: Perl for Win32-OLE Bug???
Message-Id: <Forum.863632246.13649.jzb032s@tr011a5>
--tr011a5:863632246:953:60:29312
Content-Type: TEXT/PLAIN; charset=US-ASCII
I have come across a bug and am not sure how to go about reporting it. In the
attached code there is a line commented out, if that line is executed the ole
line to change the value of a cell dosn't work. It seem to have to do with
multiplication,division, and some Objects. If I place the line in a sub and
call it from the main line, or if the KEY passed to OLE is a constant it works
fine.
--tr011a5:863632246:953:60:29312
Content-Type: TEXT/plain; CHARSET=US-ASCII; name="olebug1.pl"
Content-Description: olebug1.pl
use OLE;
$application = CreateObject OLE 'Excel.Application' || die $!;
$application->{'Visible'} = 1;
$workbook = $application->Workbooks->Add();
$worksheet = $workbook->Worksheets(1);
foreach (1..6) {
$i=$_; # this line works fine
#$i=$_*12; # this line causes the next to not work
$worksheet->Range("A$_")->{'Value'} = $i;
}
$range = $worksheet->Range("A1:D2");
$workbook->{'Saved'} = 1;
--tr011a5:863632246:953:60:29312--
------------------------------
Date: Wed, 14 May 1997 17:11:13 +0200
From: Per Soderlind <soderlind@gazette.no>
Subject: Re: PerlScript (activeserverpages) and setting a cookie ?
Message-Id: <3379D611.78AEE707@gazette.no>
I luv to answer my own questions:
Setting a cookie using PerlScript is not implemented yet,
it will be in next release (build 307) Danny Hardt promises.
../Per
--
--------------- Gazette AS - http://www.gazette.no -------------
Per Soderlind: WebMaster from Hell - http://www.hell-blues.nt.no
mailto:soderlind@gazette.no
----------- Tel: +47 2233 4410 ---- Fax: +47 2233 4430----------
------------------------------
Date: Wed, 14 May 1997 12:34:32 -0400
From: jordyn@bestweb.net (Jordyn A. Buchanan)
Subject: Re: Procedure to count unique lines
Message-Id: <jordyn-ya02408000R1405971234320001@nntp.bestweb.net>
whatis@nic.cerf.net (....What Is?....) wrote:
> In article <slrn5mjtuf.l8.awm@luers.qosina.com> awm@qosina.com writes:
> >I have a 3.4MB text file with one entry per line. I'm trying to count
> >the number of times each line item is listed. I tried doing it via
> >sort and count the number of items before the item itself changes, to
> >no avail, and it was VERY VERY slow.
> >
> >Has anyone already done this? I would appreciate any pointers.
>
> How about something straightforward like:
>
> %uniqueLines = ();
> while (<>)
> { chomp; $uniqueLines{$_}++; }
>
> Now you have a list of lines, and how many times each occurred.
Unfortunately, this doesn't quite answer the original question, which
wanted the number of unique lines. Adding something like this:
$numLines = scalar keys %uniqueLines;
to the end would give you a count of the "entries".
Jordyn
|---------------------------------------------------------------|
|Jordyn A. Buchanan jordyn@bestweb.net|
|Bestweb Corporation http://www.bestweb.net|
|Senior System Administrator +1.914.271.4500|
|---------------------------------------------------------------|
------------------------------
Date: 14 May 1997 07:34:40 GMT
From: cerlpvk <cerlpvk@cestar.technion.ac.il>
Subject: Re: Q: Is Win95 Perl5 select() for device COM1 implemented?
Message-Id: <5lbpug$2ag@news.huji.ac.il>
I may be wrong but seems like it's covered in the FAQ.
Regards
------------------------------
Date: 14 May 1997 11:39:38 -0400
From: sgtrupia@vela.acs.oakland.edu (sgtrupia)
Subject: String Float to Machine Float
Message-Id: <5lcmbq$98m@saturn.acs.oakland.edu>
How can the ASCII string version of a single
precision floating point number be converted
to its actual value?
Thank you,
sgtrupia@oakland.edu
------------------------------
Date: 14 May 1997 12:45:04 -0400
From: Dean Pentcheff <dean@tbone.biol.sc.edu>
Subject: Re: String Float to Machine Float
Message-Id: <m1911i2eb3.fsf@nauplius.psc.sc.edu>
sgtrupia@vela.acs.oakland.edu (sgtrupia) writes:
> How can the ASCII string version of a single
> precision floating point number be converted
> to its actual value?
There is no distinction between the two within Perl.
The following two variables can be treated either as floating point
numbers or as strings:
$string = "1.234";
$number = 1.234;
$sum = $string + $number;
$phrase = "Here is a string: $string and a number: $number\n";
Perl does all the conversions automatically and transparently.
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org> WWW: http://tbone.biol.sc.edu/~dean/
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-3936)
PGP ID=768/22A1A015 Keyprint=2D 53 87 53 72 4A F2 83 A0 BF CB C0 D1 0E 76 C0
Get PGP keys and information with the command: "finger dean@tbone.biol.sc.edu"
------------------------------
Date: 14 May 1997 16:31:53 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: String Float to Machine Float
Message-Id: <5lcpdp$bpb@news-central.tiac.net>
In article <5lcmbq$98m@saturn.acs.oakland.edu>,
sgtrupia <sgtrupia@vela.acs.oakland.edu> wrote:
>How can the ASCII string version of a single
>precision floating point number be converted
>to its actual value?
Depends what you want to do.
$str = '1.234';
$str += 0; # use it in a numeric context
will make corece $str into a state where it's (internal) double
representation is as close to 1.234 as can be represented. Perl
automatically switches internal representations if necessary depending on
the context a variable is used in.
$bytes = pack ('f', $str);
will give you a series of bytes in the scalar which are the native
representation of a float on the machine, useful if you're passing a
structure into a routine which needs a float (but beware of packing
issues...)
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: Wed, 14 May 1997 15:17:23 GMT
From: dkcombs@netcom.com (David Combs)
Subject: to GV.C, add THIS!:
Message-Id: <dkcombsEA6Ft0.In1@netcom.com>
Add to gv.c err-msg
Global symbol "XXX" requires explicit package name at YYY
the following
(Perhaps simply misspelled, or wrong UPPER- vs lower-case?)
------------------------------
Date: 14 May 1997 17:26:48 GMT
From: shaug@callamer.com (The Man on the Scene)
Subject: Re: Trouble building perl5.003 on solaris
Message-Id: <5lcsko$ke8$3@zinger.callamer.com>
In article <5lbap6$d9q@dgs.dgsys.com>,
jete@dgs.dgsys.com (Jete Software Inc.) writes:
>
> ...
>
> I get this with both the Sunpro and the gcc compilers. Here is the
> offending line from the program.
>
> extern Malloc_t malloc proto((MEM_SIZE));
> extern Free_t free proto((Malloc_t));
>
> So where does it expect to find Malloc_t???
Malloc_t is defined in config.h:
/* Malloc_t:
* This symbol is the type of pointer returned by malloc and realloc.
*/
#define Malloc_t void * /**/
I've compiled perl5.003 on Solaris 2.5.1 x86 before, using gcc 2.7.2x, but
I don't remember ever having problems with it. As far as I recall, I just
accepted all of the defaults for Configure. Are you doing this in a
similar configuration?
--
O'Shaughnessy Evans
UNIX/Internet Systems Administrator, GST Call America; SLO, CA
mailto: shaug@callamer.com; http://gromit.callamer.com
------------------------------
Date: Wed, 14 May 1997 09:40:02 -0700
From: John Doe <doe#m#_john@mmac.is.lmsc.lockheed.com>
Subject: type casting
Message-Id: <3379EAE2.4F1C@mmac.is.lmsc.lockheed.com>
Is there any way to type cast a variable as double precision? - not
"bigflaot".
------------------------------
Date: 14 May 1997 14:18:34 GMT
From: tim@pipex.net (Tim Goodwin)
Subject: Re: Week numbers
Message-Id: <5lchjq$hc7@tube.news.pipex.net>
In article <3379C333.4721@edt.ericsson.se>,
BjB
> I'm using the
>Swedish week number system, of which I'm not certain of the rules. (The
>1'st of Jan could be week 52, week 53 or week 1.
Sounds like the ISO 8601 system. Here's a useful reference.
http://www.ft.uni-erlangen.de/~mskuhn/iso-time.html
Tim.
--
Tim Goodwin | "I'm a west coast kinda guy, I'm not even sure
UUNET, UK | where Washington is.. :-)" -- Jordan Hubbard
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 476
*************************************
