[13629] in Perl-Users-Digest
Perl-Users Digest, Issue: 1039 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 11 12:05:27 1999
Date: Mon, 11 Oct 1999 09:05:10 -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: <939657910-v9-i1039@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 11 Oct 1999 Volume: 9 Number: 1039
Today's topics:
$$$$$$ GREAT MONEY $$$$$$$$ <minima@sant.com>
Re: add value of hidden field in the search query <theages@yahoo.com>
alarm and eval mbarieux2225@my-deja.com
Call a C function (Vu N Dang)
Re: calling a dll from perl tlars@my-deja.com
competent PERL programmmer sought - for a few hours pai <Chris@ultrastore.com>
Expansion <dmwalker@verio.net>
Re: howto load modules to an ISP website? <kperrier@blkbox.com>
Re: howto load modules to an ISP website? <dtbaker_@busprod.com>
IIS, Perl and writing (Christoffer Brunberg INF)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Opening files on Windows NT <sspringett@cwe2.com>
Re: Opening files on Windows NT (Bill Moseley)
Perl Syntax for oracle database interaction <al_kohaulicNOalSPAM@yahoo.com.invalid>
Poll Responses Requested... (Andrew Burt)
Readding {boolean,int,float,longs,strings} from a file scott@sboss.net
Re: Shell and Perl have different $? (M.J.T. Guy)
simple search <kevin.porter@fast.no>
Sort one array by contents of another <nospam-dbown@sequent.com>
Re: Sort one array by contents of another jboes@my-deja.com
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: What is THE book for PERL? (Tad McClellan)
Win32::ODBC connect to Intersolv Informix <tbihlo@carinthia.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Oct 1999 20:02:13 +0800
From: " ..^_^.." <minima@sant.com>
Subject: $$$$$$ GREAT MONEY $$$$$$$$
Message-Id: <Ij8Kbl#E$GA.279@news1>
This is a multi-part message in MIME format.
------=_NextPart_000_00CB_01BF1423.826DAD60
Content-Type: text/plain;
charset="big5"
Content-Transfer-Encoding: quoted-printable
Do you want to make more money?=20
click the URL below to read more details
http://equinox.spedia.net
------=_NextPart_000_00CB_01BF1423.826DAD60
Content-Type: text/html;
charset="big5"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Dbig5 http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>
<DIV><FONT color=3D#000000>Do you want to make more money?</FONT>=20
<DIV><FONT color=3D#ff0000><FONT color=3D#000000></FONT></FONT><FONT =
color=3D#000000=20
size=3D2> </FONT><FONT=20
color=3D#000000>click the URL below to read more details</FONT></DIV>
<DIV><FONT color=3D#000000> =
</FONT><FONT=20
color=3D#000000><FONT color=3D#000000><A=20
href=3D"http://equinox.spedia.net">http://equinox.spedia.net</A></FONT></=
FONT></DIV></DIV></DIV></BODY></HTML>
------=_NextPart_000_00CB_01BF1423.826DAD60--
------------------------------
Date: Mon, 11 Oct 1999 16:55:54 +0200
From: "Sven Schoppen" <theages@yahoo.com>
Subject: Re: add value of hidden field in the search query
Message-Id: <7tstq0$nd1$1@fu-berlin.de>
> > i want to modifiy a cgi-script that i use as a small search engine.
> > http://technotrade.com/cgi/search.html
> >
> > to search in sub categories i want to define a hidden field in the
> > search-mask. the value of the hidden field should be submitted
> > in the search string.
> >
> > for that i have to modifiy the cgi skript to read the value of the
> > hidden field together with the words the people tipe in the search
> > mask.
> >
> > here is the part of the script where i think i have to make the
> > modifications. please check als the original skript:
> > http://technotrade.com/cgi/search.html
> >
> <snip>
> > i know there are better ways to write the read routine (with CGI.pm)
> > but i am simple not able to make this modifications.
> > i just want to use the routine and want to modify the skript so that it
> > reads the value of the hidden field and the words in the search mask.
> >
> > do you have suggestions?
>
> I cant see any reason why this shouldnt work. Hidden fields are presented
> as parameters in just the same way as any other form field. Of course
> if you want to know about CGI you should ask in another newsgroup as
> these things are not peculiar to Perl.
>
but i thought i have to solve the problem by modifiying the perl script.
as you already wrote the parameters of the hidden field should be the same.
the script i use has two duties:
1. add records to a txt-files database
2. search in the text file for keywords
i have no problemes with 1.
but to provide subkategories for searchers i want to define a value of
a hidden field in different search masks to simulate a subkategorie search.
for example my search engine is for all web-sites.
now i built a search mask just for web-sites including the keyword "sports"
now i need a hidden field "sports"
the script should read the parameter of the hidden field and should just
find
web-sites including this keyword.
thatīs all - i just have to add on line the script. but i donīt know where
and what.
here is the orginal script: http://technotrade.com/cgi/search.html
regards
sven
------------------------------
Date: Mon, 11 Oct 1999 15:06:53 GMT
From: mbarieux2225@my-deja.com
Subject: alarm and eval
Message-Id: <7tsue1$uli$1@nnrp1.deja.com>
Hi,
I'm trying timing out an operation. I did the following :
$SIG{ALRM} = sub { die "alarm" };
eval
{
alarm (1);
# Operation here
alarm (0);
};
warn "$@";
if ($@)
{
warn "timeout";
die $@;
}
I did the warn "timeout" to see if ti really times out, and the warn
"$@" to see what's in it. It seems that the operation times out,
because it is not executed when alarm is on 1 but it is when alarm is
on 3600 for example. The strange thing is that it doesn't go in the if
and the warn "$@" delivers:
warning: something's wrong at test.pl line 62
What am I doing wrong ?
Marc Barieux
barieux@nanocosmos.de
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Oct 1999 13:16:10 GMT
From: vdang@osf1.gmu.edu (Vu N Dang)
Subject: Call a C function
Message-Id: <7tsnuq$nb4@portal.gmu.edu>
Should I call a C function from a Perl program?
Thankx
VD
------------------------------
Date: Mon, 11 Oct 1999 14:31:23 GMT
From: tlars@my-deja.com
Subject: Re: calling a dll from perl
Message-Id: <7tssbr$ssd$1@nnrp1.deja.com>
I looked at Win32::API. None of the functions seem designed to call a
Dll. Which functions in Win32::API would you use to call a dll? Could
you give me an example.
Thanks,
Tait
In article <3800DE70.1E0FF1CD@bellatlantic.net>,
James Tolley <jtolley@bellatlantic.net> wrote:
> Win32::API
>
> tlars@my-deja.com wrote:
>
> > Does anyone know if it's possible to call a dll in the Win32
version of
> > perl? If so, could you please direct me to the module that allows
you
> > to do this.
> >
> > Thanks,
> >
> > Tait
> >
> > Sent via Deja.com http://www.deja.com/
> > Before you buy.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Oct 1999 15:06:01 +0100
From: Chris Taylor <Chris@ultrastore.com>
Subject: competent PERL programmmer sought - for a few hours paid work
Message-Id: <MnejhDAJ7eA4Ewbk@ultrastore.com>
I need a competent PERL programmer to do a few hours paid work for me.
Are you up to it? What charge will you want to make - for a few hours.
Work primarily involves using Perl to access a simple database and to
get the results back to a Javascript form variable in a Frame other than
the one it is running from/in.
Accessing the database is in reading multiple records, writing single
records, some simple maintenance tasks.
Anyone willing please email me here or telephone me.
--
Chris Taylor
email: chris@ultrastore.com
web: www.ultrastore.com
tel: 0044 (0)1494 868 868
fax: 0044 (0)1494 862 200
------------------------------
Date: Mon, 11 Oct 1999 10:12:09 -0500
From: Matthew Walker <dmwalker@verio.net>
Subject: Expansion
Message-Id: <3801FE49.9B7E0509@verio.net>
Just need a little help. I can't find any documentation on my problem.
I am trying to expand on an existing program. There are some files on
this unix system that begin with a "-" minus character. As you know
Unix has a great deal of trouble doing anything with these files. I
need to adapt the second block of code inside the foreach loop to move
these files to an error directory. Here is the program code...
#!/usr/local/bin/perl -w
# Mail Preparation Script V1.0
# The purpose of this script is to properly parse out the errored
# files into the appropriate directory
# Declaration Code Below this Line
#-------------------------------------------------------------------------------------------------
use strict 'vars'; # this is Good For Me!! :-)
#Just a couple style managers.
system('clear');
system('date');
#Declare the lexicals for the program body.
my $date = localtime;
my $check="Make check";
my $minus = '-*';
my $arbordir=$ENV{"ARBORDIR"};
my $invdir="$arbordir/scripts";
my $readydir="$invdir/ready";
my $chkerrdir="$invdir/error/remits";
my $minerrdir="$invdir/error";
#Uncomment these two lines to include a logfile
open(LOG, "> /apps/arbor/scripts/logfile") || die print "Could not open
logfile, $!";
printf LOG "Logfile for script mailprep2 on date $date\n";
#Program Action Code Below this Line
#-------------------------------------------------------------------------------------------------
# cd to the ready directory
if (-d $readydir) {
chdir($readydir);
} else {
printf LOG "Could not change Directory to $readydir. $!\n";
}
# get list of all files in the ready directory
opendir(DIR, '.') || die printf LOG "could not open current directory
$!\n\n";
my @files = grep /^[^.]/, readdir(DIR); # I don't like negative
logic...
closedir(DIR);
#Here is all the looping code to search through every file for the
required string
foreach $file::Main (@files) {
if (&Look($check, $file::Main)) {
&Move($file::Main, $chkerrdir) ||
die printf LOG "could not move '$file::Main' to '$chkerrdir'
$!\n";
print "$file::Main\n";
printf LOG "$file::Main is in error... Moving to
error/remits.\n";
} elsif (&Look($minus, $file::Main)) {
&Move($file::Main, $minerrdir) ||
die printf LOG "could not move '$file::Main' to '$minerrdir'
$!\n";
print "$file::Main";
printf LOG "$file::Main is an invalid format Moving to
'$minerrdir'.\n";
}
}
#you need to uncomment this as well for a logfile
close(LOG);
#Sub Routines Below this Line
#-------------------------------------------------------------------------------------------------
#Move a file: Defines how perl will move the errored entries
sub Move {
my($src, $dst) = @_;
die "'$src' is not a file" unless -f $src;
die "'$dst' is not a file" unless -d $dst;
# cheat and call unix 'mv' for now
return 1 unless system "mv $src $dst";
return 0;
}
#Search a file: Defines how perl will find the errored entries
# use native perl, not Unix grep
sub Look {
my($patrn, $locat) = @_;
open(GREP, $locat) || die "could not open '$locat' $!";
while (<GREP>) {
close GREP, return 1 if /$patrn/;
}
close(GREP);
return 0;
}
------------------------------
Date: 11 Oct 1999 09:49:23 -0500
From: Kent Perrier <kperrier@blkbox.com>
Subject: Re: howto load modules to an ISP website?
Message-Id: <2A466A9BC99E972E.1200489C9E8C0000.C9AB708C778F8A6C@lp.airnews.net>
Dan Baker <dtbaker_@busprod.com> writes:
> Alan, on one hand I have to thank you because you did provide the
> answer, but on the other I just have to wonder why this newsgroup gets
> so snippy?! People waste so much energy on being negative... I'll have
> you know I spent quite a while poking thru docs, FAQs, search engines
> and dejanews without happening to stumble on the answer.
Because there has been several man-years worth of effort put into writing
the documentation that should have come with your perl distribution. It is
common practice to read the documentation first, then ask questions. If
you do that then we (the collective readers/contributors to c.l.p.m) know
that you have the required base knowledge with regards to perl and we can
talk the same language, not baby talk.
Kent
--
They were killing machines. I wanted to be them so bad.
-- Jamie Zawinski
http://www.jwz.org/gruntle/grave.html
------------------------------
Date: Mon, 11 Oct 1999 10:32:07 -0500
From: Dan Baker <dtbaker_@busprod.com>
Subject: Re: howto load modules to an ISP website?
Message-Id: <380202F7.F9ED57DC@busprod.com>
Kent Perrier wrote:
>
> Dan Baker <dtbaker_@busprod.com> writes:
>
> > Alan, on one hand I have to thank you because you did provide the
> > answer, but on the other I just have to wonder why this newsgroup gets
> > so snippy?! People waste so much energy on being negative... I'll have
> > you know I spent quite a while poking thru docs, FAQs, search engines
> > and dejanews without happening to stumble on the answer.
>
> Because there has been several man-years worth of effort put into writing
> the documentation that should have come with your perl distribution. It is
> common practice to read the documentation first, then ask questions. If
> you do that then we (the collective readers/contributors to c.l.p.m) know
> that you have the required base knowledge with regards to perl and we can
> talk the same language, not baby talk.
-------------------
come on now Kent, no need to continue beating that dead horse. My
original post was after making an attempt searching perldoc (which is an
older release without the -q option) searching online, etc, etc, et.
After a fruitless hour, I turned to the expertise of the group. Not to
be spoonfed, but to ask where to read. You must admit there ARE stacks
of docs, FAQs, etc and the hard part is finding what to read! I had been
hoping that all I had to do was upload the .pm and maybe make a few
changes to the @INC, but I was unaware that the makefile could be used
to install a lib outside the normal distribution install, like to my
cgi-bin.
After reading the FAQ 8:
How do I keep my own module/library directory?
When you build modules, use the PREFIX option when generating Makefiles:
perl Makefile.PL PREFIX=/u/mydir/perl
then either set the PERL5LIB environment variable before you run scripts
that use the modules/libraries (see the perlrun manpage)
or say
use lib '/u/mydir/perl';
I think that it really is not exactly "easy" to see that this would
apply to my original question of a suggested method for how to deal with
an ISP that won't load libs.
Dan
------------------------------
Date: 11 Oct 1999 13:38:23 GMT
From: cbrunber.rmvths@news.abo.fi (Christoffer Brunberg INF)
Subject: IIS, Perl and writing
Message-Id: <7tsp8f$809@josie.abo.fi>
Hello!
I'm having a little problem getting Perl (5.003_07) to write files
under IIS 4.0. When you call a script from a browser the script itself
runs well, but no writing to disk occurs (this specific script should
create a file). When you run it from console the appropriate file
apperas. Letting perl-scripts load files and return them to the browser
also works fine. All in all Perl works well except for writing files
which in this case is needed.
In IIS both "Script" and "Write" are enabled and Perl is set up properly.
The Perl-script has the absolute path to the file I want to create.
Does anybode have a solution for this? Some RTFM-pointer for example
would do fine...
Regards,
C.B.
------------------------------
Date: 11 Oct 1999 13:53:46 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7tsq5a$t04$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 04 Oct 1999 14:59:44 GMT and ending at
11 Oct 1999 07:27:40 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 213 (48.6% of all posters)
Articles: 345 (24.2% of all articles)
Volume generated: 553.3 kb (22.5% of total volume)
- headers: 259.0 kb (5,405 lines)
- bodies: 288.6 kb (9,988 lines)
- original: 206.9 kb (7,734 lines)
- signatures: 5.4 kb (145 lines)
Original Content Rating: 0.717
Averages
========
Posts per poster: 1.6
median: 1 post
mode: 1 post - 144 posters
s: 1.5 posts
Message size: 1642.2 bytes
- header: 768.6 bytes (15.7 lines)
- body: 856.7 bytes (29.0 lines)
- original: 614.1 bytes (22.4 lines)
- signature: 15.9 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
17 28.6 ( 16.1/ 12.5/ 6.1) "George Jempty" <jb4mt@verbatims.com>
9 18.2 ( 7.6/ 10.6/ 6.6) "homeless" <homelessinseattle@yahoo.com>
5 9.9 ( 4.5/ 5.3/ 3.9) "Web Research" <webresearch@indy-soft.com>
5 5.2 ( 3.9/ 1.3/ 1.3) Xiaoyan Liu <xliu@cs.sunysb.edu>
4 8.0 ( 3.6/ 4.2/ 1.8) Dan Baker <dtbaker_@busprod.com>
4 7.8 ( 3.0/ 4.2/ 2.8) bounce.waxwing@dnai.com
4 4.9 ( 2.7/ 2.1/ 1.9) fheitka@attglobal.net
4 11.2 ( 3.1/ 8.1/ 5.7) mgjv@wobbie.heliotrope.home (Martien Verbruggen)
4 7.4 ( 3.8/ 3.6/ 0.5) Mike Salter <msalter@bestweb.net>
4 8.7 ( 3.7/ 5.0/ 2.2) xxxxx@cris.com (J. A. Mc.)
These posters accounted for 4.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
28.6 ( 16.1/ 12.5/ 6.1) 17 "George Jempty" <jb4mt@verbatims.com>
18.2 ( 7.6/ 10.6/ 6.6) 9 "homeless" <homelessinseattle@yahoo.com>
11.2 ( 3.1/ 8.1/ 5.7) 4 mgjv@wobbie.heliotrope.home (Martien Verbruggen)
9.9 ( 4.5/ 5.3/ 3.9) 5 "Web Research" <webresearch@indy-soft.com>
9.6 ( 0.7/ 8.9/ 2.3) 1 Ricaro Escudero <escudero@securities.cl>
9.2 ( 0.8/ 8.4/ 8.3) 1 mcnam@my-deja.com
8.7 ( 3.7/ 5.0/ 2.2) 4 xxxxx@cris.com (J. A. Mc.)
8.3 ( 2.9/ 5.3/ 2.5) 4 "Ralph Grothe" <cpc999@lzwg02-na.comm.mot.com>
8.0 ( 3.4/ 4.6/ 1.8) 4 "Matt Hadder" <reply@the.ng>
8.0 ( 3.6/ 4.2/ 1.8) 4 Dan Baker <dtbaker_@busprod.com>
These posters accounted for 4.9% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.2 / 1.2) 3 "Fokko Wesselius" <fokko.wesselius@ict.nl>
1.000 ( 1.3 / 1.3) 5 Xiaoyan Liu <xliu@cs.sunysb.edu>
0.904 ( 1.9 / 2.1) 4 fheitka@attglobal.net
0.899 ( 1.1 / 1.2) 3 Halfdan Ingvarsson <halfdan@no-junkmail-please.pison.com>
0.841 ( 1.0 / 1.2) 3 mfleming@csub.edu (Michael W. Fleming)
0.828 ( 2.6 / 3.1) 3 david@connmed.co.nospam.uk (David Salgado)
0.814 ( 2.4 / 2.9) 3 rob1234567@my-deja.com
0.774 ( 1.9 / 2.5) 3 Max Khrapov <maksim@mail.utexas.edu>
0.738 ( 1.8 / 2.5) 3 sasdsv@wnt.sas.com
0.727 ( 3.9 / 5.3) 5 "Web Research" <webresearch@indy-soft.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.589 ( 1.6 / 2.8) 3 Mike Heller <mike@dice.net>
0.523 ( 0.7 / 1.4) 3 hyweljenkins@hotmail.com (Hywel Jenkins)
0.486 ( 6.1 / 12.5) 17 "George Jempty" <jb4mt@verbatims.com>
0.461 ( 2.5 / 5.3) 4 "Ralph Grothe" <cpc999@lzwg02-na.comm.mot.com>
0.447 ( 0.5 / 1.0) 3 Mob-Rules <Mob-Rules@home.com>
0.446 ( 1.3 / 2.8) 3 q2020262 <namecity@my-deja.com>
0.435 ( 2.2 / 5.0) 4 xxxxx@cris.com (J. A. Mc.)
0.434 ( 1.8 / 4.2) 4 Dan Baker <dtbaker_@busprod.com>
0.381 ( 1.8 / 4.6) 4 "Matt Hadder" <reply@the.ng>
0.153 ( 0.5 / 3.6) 4 Mike Salter <msalter@bestweb.net>
29 posters (13%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
12 "Max EN" <max@blackdog.com>
4 djearthling@my-deja.com
4 xxxxx@cris.com (J. A. Mc.)
4 acunet3278@my-deja.com
3 mario.martin@adi.uam.es
3 hyweljenkins@hotmail.com (Hywel Jenkins)
3 "Cumhur Ozkan" <cumhur.ozkan@janset.com>
2 memoire@worldnet.fr
2 BARBET Alain & Estelle <Home.Barbet@wanadoo.fr>
2 Robert Korteweg <robert@bos.nl>
------------------------------
Date: Mon, 11 Oct 1999 13:56:16 GMT
From: "Steve Springett" <sspringett@cwe2.com>
Subject: Re: Opening files on Windows NT
Message-Id: <40mM3.44$ba.2359389@dca1-nnrp1.news.digex.net>
Try specifying the full path of the file.
c:/mypath/test.txt
jakal wrote in message ...
>I have done a little programming in Perl, mostly on my Macintosh.
>I am trying to port a script to a Windows NT machine, and am having
>trouble accessing files. my code looks like this:
>
> open(TEST, ">>test.txt")|| die "can't open test.txt";
>
>and the program dies at this point (the first time I try to access a file).
>
>Is this something to do with file permissions or is it a syntax problem??
>
>--
>jakal
------------------------------
Date: Mon, 11 Oct 1999 07:57:29 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: Opening files on Windows NT
Message-Id: <MPG.126b9ab813aaab259897f2@nntp1.ba.best.com>
jakal (jakem@camtech.net.au) seems to say...
> I have done a little programming in Perl, mostly on my Macintosh.
> I am trying to port a script to a Windows NT machine, and am having
> trouble accessing files. my code looks like this:
>
> open(TEST, ">>test.txt")|| die "can't open test.txt";
open(TEST, ">>test.txt")|| die "can't open test.txt. Error= '$!' ";
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Mon, 11 Oct 1999 07:48:09 -0700
From: dnr74 <al_kohaulicNOalSPAM@yahoo.com.invalid>
Subject: Perl Syntax for oracle database interaction
Message-Id: <060ac248.296bc411@usw-ex0106-043.remarq.com>
Hi,
I'm trying to find out the syntax of Oraperl for being able to do a
insert command.
The problem that I'm having is with &ora_bind. If someone could post a
simple example of using oraperl to insert values into a table, I would
appreciate it.
Thanks
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Mon, 11 Oct 1999 13:44:28 GMT
From: y2k@tech-soft.com (Andrew Burt)
Subject: Poll Responses Requested...
Message-Id: <0RlM3.7514$Pt1.4909@wormhole.dimensional.com>
Greetings fellow code warriors! A recent, disheartening analysis I've
done (http://www.noontidenight.com/news2.html) of y2k readiness data from
Dr. Ed Yardeni (chief economist of the Deutsche Bank in New York) has
prompted me to conduct a poll of my own regarding readiness target dates.
Dr. Yardeni's data was primarily supplied by management personnel (only
4% categorized themselves as programmers or systems analysts) -- so
as a programmer sort myself[*], I'd like to go the source: The folks like
you and me who hack the code.
([*] I've spent 20 years as a Unix kernel hacker, a dozen as
a CS prof at the U. of Denver, built what I'm told was the world's
first free/donation-funded ISP [nyx.net], that sort of thing.)
Thus if you have direct knowledge of the y2k work in your organization,
I'd greatly appreciate it if you'd fill out a very short survey; only
take you a minute or two:
http://www.noontidenight.com/poll.html
Results are linked there for those who'd like to see them as they arrive.
Thanks to everyone!
==============================================================================
Andrew Burt, Ph.D. http://www.noontidenight.com y2k@noontidenight.com
Author of NOONTIDE NIGHT -- A Y2K NOVEL
(or, an alternate history cyberwar novel :-)
- All profits donated to the American Red Cross -
"So good you'll hope the Y2K bug really does screw up the world."
-- Michael A. Burstein, Campbell Award Winner
~~
"Oh, what sad times are these when passing
ruffians can say 'Ni' at will to old ladies."
------------------------------
Date: Mon, 11 Oct 1999 15:33:09 GMT
From: scott@sboss.net
Subject: Readding {boolean,int,float,longs,strings} from a file
Message-Id: <7tsvvk$31$1@nnrp1.deja.com>
Hello All,
I have read my books, and have searched online but I have not found the
answer I am looking for.
I want/need to be able to read boolean, int, float, longs, & strings (of
known length) from a file. It is a binary file (archive database file)
and I know the header, body, trailer formats. Each have parts having
strings (in the format of string length (int) then string with no
trailing character), ints, longs, floats, and some have boolean. I have
found the getc command but that gets a single char. That would be good
for the strings but the others I am at a loss for how to read the others
from the file.
Thanks
Scott
--
Scott Boss
Atlanta Perl Mongers Fearless Leader
website: http://atlanta.pm.org
community: http://www.dejanews.com/~apm
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Oct 1999 13:41:14 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Shell and Perl have different $?
Message-Id: <7tspdq$om9$1@pegasus.csx.cam.ac.uk>
Martien Verbruggen <mgjv@comdyn.com.au> wrote:
>On Sun, 10 Oct 1999 10:24:27 GMT,
> Kragen Sitaker <kragen@dnaco.net> wrote:
>>
>> Well, most standard Unix commands return 0 on success or -1 on failure;
>> a few return 0 on "nothing interesting", 1 on "something interesting",
>> or -1 on failure; and there are some (e.g. the pieces of qmail) that
>> have more elaborate schemes.
>
>Just some pedantry: Most unix commands actually return 0 on success
>and something positive on failure. The normal convention is that
>anything that is not equal to 0 is an error, and indeed it is up to
>the program to decide what those non-zero exit codes mean.
Since $? only allows an 8 bit (unsigned) field for the return value,
it has to be in the range 0-255.
I suspect Kragen is confusing with kernel and library calls, many
of which do follow the "-1 on fail, see errno for details" model.
And just to add to the fun, note that system() *can* return -1,
indicating that one of the internal operations (e.g. fork(2) ) failed.
In this case, the error will be in $! .
Mike Guy
------------------------------
Date: Mon, 11 Oct 1999 17:00:35 +0100
From: kev <kevin.porter@fast.no>
Subject: simple search
Message-Id: <380209A3.E374D013@fast.no>
Hi,
My client wants 'simple keyword searches' implemented on his site, for
searching through news stories and articles which they update manually.
Bearing in mind we're not talking millions of page views per day, what's
the usual solution with Perl when a simple search is required?
I could either implement a 'real' search engine, or I could write a
little prog to actually search (with grep or regexes) all of their
articles. The former solution would (presumably) require the client to
reindex their search periodically (too complicated for the user
possibly), but the latter solution will become very slow when there are
lots of articles.
Am I thinking in the right direction? Opinions gratefully received.
thanks,
- Kev
------------------------------
Date: 11 Oct 1999 11:14:03 GMT
From: "David Bown" <nospam-dbown@sequent.com>
Subject: Sort one array by contents of another
Message-Id: <01bf13d9$b9205c80$da76549e@w-skefford.uk.sequent.com>
Hi,
is there a simple way to sort the contents of two arrays into the same
order using only one of the arrays for comparison?
I keep coming up with unecessarily complex ways of doing it, ie joining the
two, then sorting, then splitting. is there a simpler way?
thanks in advance
David Bown
------------------------------
Date: Mon, 11 Oct 1999 15:37:13 GMT
From: jboes@my-deja.com
Subject: Re: Sort one array by contents of another
Message-Id: <7tt077$72$1@nnrp1.deja.com>
In article <01bf13d9$b9205c80$da76549e@w-skefford.uk.sequent.com>,
"David Bown" <nospam-dbown@sequent.com> wrote:
> Hi,
>
> is there a simple way to sort the contents of two arrays into the same
> order using only one of the arrays for comparison?
>
> I keep coming up with unecessarily complex ways of doing it, ie
joining the
> two, then sorting, then splitting. is there a simpler way?
>
If I understand, what you have are two arrays which are correlated:
@emp_name = ('Sandy','Fred','Percy');
@emp_code = ('111','333','222');
So you want to sort @emp_code, and have @emp_name end up in the same
order. This is probably a data structure mistake, as you may have
wanted a hash instead:
%emp = ('111' => 'Sandy', '333' => 'Fred', '222' => 'Percy');
and then this becomes trivial to process by the key.
If you really do have two arrays, and you want to end up with two
arrays, then you can either (a) use a temporary hash to get from point
A to point B, or (b) write your own sort routine based on a standard
algorithm, and exchange elements of both arrays when you make a
comparison.
Method (b) is preferred if the arrays are huge, I suppose. But
otherwise:
@emp_name = ('Sandy','Fred','Percy');
@emp_code = ('111','333','222');
print join(',', @emp_code), "\n";
print join(',', @emp_name), "\n";
%temp = map(($emp_code[$_]=>$emp_name[$_]), 0..$#emp_name);
print join("\n", map("$_ => $temp{$_}", sort keys %temp)), "\n";
@emp_code = sort keys %temp;
@emp_name = map($temp{$_}, sort keys %temp);
print join(',', @emp_code), "\n";
print join(',', @emp_name), "\n";
--
Jeff Boes jboes@qtm.net
http://www.qtm.net/~jboes/
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Oct 1999 13:53:46 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7tsq5a$t04$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 04 Oct 1999 14:59:44 GMT and ending at
11 Oct 1999 07:27:40 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 438
Articles: 1425 (572 with cutlined signatures)
Threads: 378
Volume generated: 2463.1 kb
- headers: 1096.2 kb (22,245 lines)
- bodies: 1256.1 kb (41,273 lines)
- original: 816.7 kb (29,709 lines)
- signatures: 109.5 kb (2,281 lines)
Original Content Rating: 0.650
Averages
========
Posts per poster: 3.3
median: 1.0 post
mode: 1 post - 250 posters
s: 6.9 posts
Posts per thread: 3.8
median: 3.0 posts
mode: 1 post - 100 threads
s: 4.7 posts
Message size: 1770.0 bytes
- header: 787.7 bytes (15.6 lines)
- body: 902.6 bytes (29.0 lines)
- original: 586.9 bytes (20.8 lines)
- signature: 78.7 bytes (1.6 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
68 121.7 ( 54.0/ 59.8/ 31.0) David Cassell <cassell@mail.cor.epa.gov>
62 136.4 ( 69.8/ 39.8/ 38.0) abigail@delanet.com
57 94.3 ( 35.8/ 51.9/ 28.6) lr@hpl.hp.com (Larry Rosler)
46 89.2 ( 35.7/ 44.4/ 30.9) mgjv@comdyn.com.au
34 55.1 ( 24.2/ 26.6/ 12.0) Jonathan Stowe <gellyfish@gellyfish.com>
33 65.7 ( 30.3/ 25.4/ 12.8) Uri Guttman <uri@sysarch.com>
30 49.9 ( 25.0/ 24.9/ 12.2) ilya@math.ohio-state.edu (Ilya Zakharevich)
28 59.8 ( 24.4/ 30.3/ 17.7) lee.lindley@bigfoot.com
27 38.0 ( 16.6/ 21.4/ 11.7) mjtg@cus.cam.ac.uk (M.J.T. Guy)
21 41.6 ( 14.2/ 27.3/ 9.8) Ilya <ilya@speakeasy.org>
These posters accounted for 28.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
136.4 ( 69.8/ 39.8/ 38.0) 62 abigail@delanet.com
121.7 ( 54.0/ 59.8/ 31.0) 68 David Cassell <cassell@mail.cor.epa.gov>
94.3 ( 35.8/ 51.9/ 28.6) 57 lr@hpl.hp.com (Larry Rosler)
89.2 ( 35.7/ 44.4/ 30.9) 46 mgjv@comdyn.com.au
65.7 ( 30.3/ 25.4/ 12.8) 33 Uri Guttman <uri@sysarch.com>
59.8 ( 24.4/ 30.3/ 17.7) 28 lee.lindley@bigfoot.com
55.1 ( 24.2/ 26.6/ 12.0) 34 Jonathan Stowe <gellyfish@gellyfish.com>
49.9 ( 25.0/ 24.9/ 12.2) 30 ilya@math.ohio-state.edu (Ilya Zakharevich)
41.6 ( 14.2/ 27.3/ 9.8) 21 Ilya <ilya@speakeasy.org>
38.0 ( 16.6/ 21.4/ 11.7) 27 mjtg@cus.cam.ac.uk (M.J.T. Guy)
These posters accounted for 30.5% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.3 / 1.3) 5 Xiaoyan Liu <xliu@cs.sunysb.edu>
1.000 ( 0.5 / 0.5) 6 dalekh@hotmail.com (d.k. henderson)
0.954 ( 38.0 / 39.8) 62 abigail@delanet.com
0.910 ( 17.8 / 19.5) 10 Greg Bacon <gbacon@cs.uah.edu>
0.877 ( 4.0 / 4.6) 5 Colin R . DeVilbiss <crdevilb@mtu.edu>
0.848 ( 6.0 / 7.1) 7 japhy@pobox.com
0.815 ( 17.3 / 21.2) 14 David Amann <dove@synopsys.com>
0.810 ( 6.0 / 7.4) 5 ICEMOUNTAIN@prodigy.net
0.760 ( 12.0 / 15.8) 6 "Matt King" <mattking@techie.com>
0.728 ( 4.1 / 5.6) 6 Scratchie <AgitatorsBand@yahoo.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.467 ( 1.0 / 2.1) 5 Kent Perrier <kperrier@blkbox.com>
0.460 ( 4.0 / 8.7) 12 Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
0.458 ( 1.3 / 2.9) 9 Seth David Johnson <sjohns17@uic.edu>
0.452 ( 12.0 / 26.6) 34 Jonathan Stowe <gellyfish@gellyfish.com>
0.421 ( 3.6 / 8.6) 8 sholden@cs.usyd.edu.au
0.415 ( 2.5 / 6.0) 18 Makarand Kulkarni <makkulka@cisco.com>
0.400 ( 3.2 / 7.9) 10 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
0.360 ( 9.8 / 27.3) 21 Ilya <ilya@speakeasy.org>
0.336 ( 3.7 / 11.1) 9 Dave Cross <dave@dave.org.uk>
0.201 ( 1.2 / 6.1) 5 jdkronicz@my-deja.com
56 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
37 To Abigail re: reading current threads
25 Bug with localtime() in Perl 5.004 and 5.005
22 tool to convert BMPs to GIFs programatically?
19 odd or even numbers?
17 Memory leak in assignment
17 Das GlasPerlenspiel
16 bug or feature?
16 Help - Perl regular expression question!
16 Delete a line in a file
15 Perl WildCards ??? HELP
These threads accounted for 14.0% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
63.2 ( 37.3/ 22.1/ 12.7) 37 To Abigail re: reading current threads
52.7 ( 20.5/ 30.3/ 17.4) 25 Bug with localtime() in Perl 5.004 and 5.005
39.9 ( 20.9/ 17.2/ 10.3) 22 tool to convert BMPs to GIFs programatically?
31.7 ( 12.5/ 17.4/ 9.1) 16 Help - Perl regular expression question!
31.0 ( 12.1/ 18.1/ 12.9) 16 Delete a line in a file
30.3 ( 12.4/ 16.7/ 8.4) 13 (?p{}) was [Re: Backreference in Regex Code Block?]
29.3 ( 13.5/ 14.1/ 7.6) 17 Das GlasPerlenspiel
28.1 ( 10.3/ 16.1/ 8.6) 13 Backtick programs
27.3 ( 6.3/ 20.0/ 10.8) 9 Need help with input verifier
26.7 ( 12.9/ 13.5/ 8.0) 17 Memory leak in assignment
These threads accounted for 14.6% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.886 ( 9.8/ 11.0) 5 Conversion ASCII flat file into Excel spreadsheet file
0.866 ( 6.7/ 7.8) 8 reading binary data files
0.825 ( 4.1/ 4.9) 5 previous link
0.812 ( 7.4/ 9.1) 9 inserting new character
0.779 ( 9.7/ 12.4) 5 Please compare and contrast C and Perl.
0.771 ( 6.0/ 7.8) 5 Receiving e-Mail Messages via Mail::POP3Client, with MacPerl.
0.769 ( 2.8/ 3.6) 5 fork & NT Perl
0.768 ( 7.4/ 9.6) 8 C style was Re: Random Numbers
0.747 ( 4.2/ 5.6) 5 Test if file contains certain text
0.737 ( 2.9/ 3.9) 8 set startup page
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.493 ( 2.7 / 5.5) 5 Hosts running Mason and ImageMagic
0.485 ( 1.5 / 3.1) 7 Perl Doc..
0.474 ( 0.9 / 1.8) 6 Perl Libraries
0.459 ( 6.2 / 13.5) 15 Perl WildCards ??? HELP
0.447 ( 1.2 / 2.7) 5 formatting numbers
0.437 ( 3.2 / 7.3) 10 NEWBIE QUESTION ON ORACLE
0.408 ( 1.6 / 4.0) 7 Do you now an affordable Perl editor for Windows NT
0.394 ( 1.0 / 2.6) 9 We do complex Perl Programming
0.326 ( 2.7 / 8.4) 7 why use references - in laymans terms?
0.312 ( 0.6 / 1.8) 5 HTML to ASCII
96 threads (25%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
26 comp.lang.perl.modules
23 comp.lang.javascript
18 alt.perl
9 de.comp.lang.perl.cgi
7 comp.unix.questions
4 microsoft.public.inetserver.iis
4 fr.comp.lang.perl
4 de.comp.lang.perl.misc
3 de.comp.lang.perl.cgi.microsoft.public.inetserver.iis
3 microsoft.public.scripting.jscript
Top 10 Crossposters
===================
Articles Address
-------- -------
12 "Max EN" <max@blackdog.com>
8 David Cassell <cassell@mail.cor.epa.gov>
7 Ilya <ilya@speakeasy.org>
4 abigail@delanet.com
4 djearthling@my-deja.com
4 acunet3278@my-deja.com
4 xxxxx@cris.com (J. A. Mc.)
3 Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
3 Technical Services - UK Link <fx77@dial.pipex.com>
3 hyweljenkins@hotmail.com (Hywel Jenkins)
------------------------------
Date: Mon, 11 Oct 1999 06:50:27 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: What is THE book for PERL?
Message-Id: <jdfst7.hts.ln@magna.metronet.com>
Johnny 'Loopy' Ooi (jjyooi@dcs.qmw.ac.uk) wrote:
: Lauren Smith wrote:
: >
: > And after that, there is a ton of documentation that comes with Perl.
: > It is the most up-to-date collection of documents that you can get for
: > Perl. It is *the* definitive reference. :-)
: Yeah, I took a look at that, but it seems to rely on you having a prior
: knowledge of Perl/UNIX or something like that. I don't
Do you know how to _program_ already?
: so I need
: something that is for a (near) complete beginner.
If so, then "Learning Perl" (llama or gecko) is the way to go.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 11 Oct 1999 15:30:26 +0200
From: "Ing. Thoralf Bihlo" <tbihlo@carinthia.com>
Subject: Win32::ODBC connect to Intersolv Informix
Message-Id: <3801E672.E0FCCC4D@carinthia.com>
I=B4ve got a problem connecting to the Intersolv driver via ODBC.
I=B4ve got a Windows Internet Information Server installed.
I=B4ve a System DSN with an Intersolv Informix driver - Version 3.x
In a Perl CGI- Script i want to open a database and select something.
When i access the script in a DOS-Shell it works. But when I access the
script via a html-Browser (Netscape, but I think any would do this) I
can=B4t access the database.
I=B4m developing under WindowsNT with ActiveState Perl 5.0
I tried to get the DBI::Informix module but I couldn=B4t find a ready
compiled module for WinNT.
Does anyone have it compiled?
PLEASE HELP!!!
Thanx in advance for any ideas.
--
------------------------------------------------------
Ing. Thoralf Bihlo - tbihlo@carinthia.com
New Media Onlineberatung & -management GmbH & CoKG
Client/Server - www.carinthia.com
TEL: +43-463-5800-295 *** FAX: +43-463-5800-296
Funderstra=DFe 1, 9020 Klagenfurt, Austria
------------------------------------------------------
------------------------------
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 1039
**************************************
