[11738] in Perl-Users-Digest
Perl-Users Digest, Issue: 5338 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 9 10:07:36 1999
Date: Fri, 9 Apr 99 07:00:30 -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 Fri, 9 Apr 1999 Volume: 8 Number: 5338
Today's topics:
Re: Active State 5.09 Perl processes hanging under NT 4 (Bill Morgan)
Re: capture output to a file (Tad McClellan)
Could someone please tell me...... <jon@ukonline.net>
Re: Create hyperlink from a table cell to a file.... <rhrh@hotmail.com>
Re: Danger! Near-clueless newbie with a technical ques (Tad McClellan)
Embedding Perl into C <msanders@thetangledweb.net>
Finding country by Perl on Linux <tim@ormond.unimelb.edu.au>
Finding htaccess files with find <c.d.barran@shef.ac.uk>
Re: Finding htaccess files with find <wells@cedarnet.org>
Re: Getting info out of acees Databases <rhrh@hotmail.com>
Help requested with a Win386 port of a UNIX Perl script <cspry@sghms.ac.uk>
Help with JAVA-PERL connection (Alfred J. Manno)
How do i write a program that will spell a word every w <poohba@io.com>
Re: How to pass parameters for perl programs under Acti <rhrh@hotmail.com>
Re: Making logs <wells@cedarnet.org>
Re: matching non-ordered string (Tad McClellan)
Re: minimal pattern matching (Tad McClellan)
need help with Net::SSLeay 1.03 installation under Win3 <abcz@my-dejanews.com>
Paris Perl Mongers meeting ericc122@my-dejanews.com
perl off-line browser for WINDOW ... help-me-please@usa.net
Re: perl regular expression <stefan.schulze@wildner.de>
Re: POP3 pearl script. <liam@hurontel.on.ca>
Re: Problems connecting to Oracle 8 from Perl using DBI <"rhrh@hotmail.com,or,rhardicr"@ford.com>
Re: Returning "undef" from a subroutine. Appears broken <tchrist@mox.perl.com>
Re: Returning "undef" from a subroutine. Appears broken <rick.delaney@home.com>
Re: Returning "undef" from a subroutine. Appears broken (Tad McClellan)
RTFM please! perldoc PSI::ESP (was Re: Validating Emai (Clinton Pierce)
Sys::Syslog <kozo@pobox.sk>
Re: Trouble with DBI and Oracle <rhrh@hotmail.com>
Re: Trouble with Oraperl, and simple select statement <rhrh@hotmail.com>
Re: Very new to perl and I need some help displaying im <"rhrh@hotmail.com,or,rhardicr"@ford.com>
Re: Web -> Database Access... <rhrh@hotmail.com>
Re: Web -> Database Access... <"rhrh@hotmail.com,or,rhardicr"@ford.com>
why my map diff to a loop? <rhrh@hotmail.com>
Re: Win-32 / Unix CGI question (David Turley)
Re: Win32/Perl/Apache Problem <rliu2@ford.com>
Re: Y2K (yes, again - sorry!) <bill@fccj.org>
Re: Y2K (yes, again - sorry!) (Bart Lateur)
Re: Y2K (yes, again - sorry!) (Sam Holden)
Re: Y2K (yes, again - sorry!) (Bart Lateur)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 9 Apr 1999 12:18:41 GMT
From: wmorgan@nswc.navy.mil (Bill Morgan)
Subject: Re: Active State 5.09 Perl processes hanging under NT 4.0
Message-Id: <1999Apr9.121539.12908@relay.nswc.navy.mil>
When you say "Service Pack", you mean you have to install v3.6.1, correct?
There isn't a patch or anything for v3.6, it seems, at the Netscape site.
>Get the Service Pack for Netscape Enterprise Server (v3.6.1). Seems
>that the folks at Netscape had a problem with CGI processes hanging on
>NT when the browser was closed before the process completed.
>
>Raven513
In article <370BFB4D.4A9F@Go-Baltimore.com>, Raven513
<Ravens@Go-Baltimore.com> wrote:
>Bill Morgan wrote:
>>
>> I just installed Active State Perl 5.09 under NT 4.0. We are running lots of
>> Perl CGI scripts from our web server, which is Netscape Enterprise v3.6. It
>> looks like some of the processes are hanging around after the scripts finish,
>> because every day when I look at the NT task manager, there are 20 or 30
>> Perl.exe processes in there that don't go away and are soaking up resources.
>> All of our Perl scripts have explicit "exit" statements in them when they
>> finish, so I'm not sure what is causing this. Has anyone else experienced
>> this problem? Please email any replies as well as posting to this group.
>> Thanks!
>>
>> ---------------------------------------------------------------------------
>> William E. Morgan NAVAL SURFACE WARFARE CENTER
>> Code N84 email: wmorgan@nswc.navy.mil
>> 17320 Dahlgren Rd. phone: (540)653-6088
>> Dahlgren, VA 22448 fax: (540)653-1810
>
>
---------------------------------------------------------------------------
William E. Morgan NAVAL SURFACE WARFARE CENTER
Code N84 email: wmorgan@nswc.navy.mil
17320 Dahlgren Rd. phone: (540)653-6088
Dahlgren, VA 22448 fax: (540)653-1810
------------------------------
Date: Fri, 9 Apr 1999 08:20:04 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: capture output to a file
Message-Id: <k9rke7.qf2.ln@magna.metronet.com>
George Barrinuevo (georgeb@xylan.com) wrote:
: This is a multi-part message in MIME format.
Usenet is a plain text medium.
Your "newsreader" is not configured properly.
: I have a question about Perl. In Bourne shell the program would look
: like this:
: #!/bin/sh
: # capture all stdout and stderr to capture.txt file
: exec > capture.txt 2>&1
: Essentially, I am using "exec" from Bourne shell to capture all stdout
: and stderr to a file. What would be the equivalent command in PERL?
Perl FAQ, part 8:
"How can I capture STDERR from an external command?"
: If
: you reply, please forward a copy to georgeb@xylan.com
No.
: since I do not
: frequent these news groups often.
Then you won't get the answer to your Frequently Asked Question.
Too bad.
[snip vcard crap]
Your "newsreader" is not configured properly.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 9 Apr 1999 14:27:07 +0200
From: "Jon" <jon@ukonline.net>
Subject: Could someone please tell me......
Message-Id: <7ekvec$jnb$1@apple.news.easynet.net>
Is Perl v5.004_04 Y2K compliant?
If so would you be able to point me in the right direction for getting
official confirmation please?
Thanks.
Jon.
------------------------------
Date: Thu, 08 Apr 1999 09:27:03 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: Create hyperlink from a table cell to a file....
Message-Id: <370C6857.AC464D2C@hotmail.com>
> I was able to create a hyperlink from a cell. But I cannot create a
> hyperlink let's say to <a href =http://company/revenue/nowip$wk.txt >??</a>
> if it will change from time to time. (I hope you got what I am trying to
> say here) :-)
>
> REVENUE PLAN (APRIL)
> WIP_POSITION DELINQUENT 15 16 17
> 18 TOTAL %
> NO_WIP/INSUF 92.99 246.00 331.26 684.10
> 816.88 2171.23 15.05
> SORT 11.52 312.78 170.81
> 330.98 462.07 1288.16 8.93
> DIEBANK-FTA 5.06 5.97 33.91
> 109.08 107.49 261.51 1.81.
>
> Here's my code:
>
> while ($line = <FILE>) {
> chop ($line);
> if ($line =~ /^REVENUE/) {
> print HTML "<H3>$line</H3>";
> print HTML "<H5><b>As of $date, Manila</b></H5><p>";
> } elsif ($line =~ /^WIP/) {
> @heading = split(/ +/, $line);
> foreach $head (@heading) {
> print HTML "<th bgcolor=FFCCCC>$head</th>";
> }
> } elsif ($line =~ /^SORT/) {
> @sort = split(/ +/, $line);
> } else {
> @array = split(/ +/, $line);
> foreach $word (@array) {
> print HTML "<td><p align=right>$word</td>";
> }
> }
> print HTML "</tr>\n<tr>";
> }
I think what you should do is try to split each line youre extracting
from your input file further,
ie. when youve got $line =~ /^sort/
use split to get your numbers into an array.
When you generate your page you could also generate the textfiles for
week13.txt etc. with your array variables on the fly.
you would then have a file to dynamically create your hyperlink to.
Hopefully thats in the right direction,
Richard H
------------------------------
Date: Fri, 9 Apr 1999 08:15:38 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Danger! Near-clueless newbie with a technical question
Message-Id: <a1rke7.qf2.ln@magna.metronet.com>
Sandra Carson (SDC@voicenet.com) wrote:
: Greetings all. I am new to the Perl language but pretty competent in both C
: and C++ and I am trying to do some bioinformatics-oriented type programming.
: I'm hoping that someone can point me in the right direction.
: I want to convert an input DNA sequence file into an output file in what's
: called "fasta" format. The input file may contain one or more lines of text
: and line numbers as well as spaces within the DNA sequence (strings of
: 'ACGT' in some order). "fasta" format contains a single line at the
: beginning of the file which begins with the symbol '>' and some descriptive
: text (which is not actually necessary). The sequence is then given as lines
: of characters, without spaces, and each line <80 characters long".
: So, I want to:
: a) read in a file ('filename.nuc')
perldoc -f open
: b) strip any extraneous text from the beginning of the file
perldoc perlre
perldoc perlop
: c) add the '>' line
perldoc -f print
: d) remove spaces and line numbers from the sequence
perldoc perlre
perldoc perlop
: e) output the results into a second file ('filename.seq')
perldoc -f open
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 9 Apr 1999 08:18:26 -0500
From: "Michael Sanders" <msanders@thetangledweb.net>
Subject: Embedding Perl into C
Message-Id: <A1nP2.215$U5.5703183@news1.i1.net>
I am having problems embedding perl into C programs.
System is Win98, Using ActiveState Perl build 5.009
I've used the DJGPP 32bit compiler pointing to my perl\lib\core
and the Cygnus B-20 compiler pointing to the same lib/include dirs
The only other compiler I have as of now is Visual C++ 1.0 and it is 16-bit.
Both complain even on a simple
print "Hello world"; script that "Stat" is being redefined in dosish.h
I tried to delete/workaround the #ifdefned directive in the dosish.h file
but it still doesn't fly any ideas??
I've tried the methods in the perlembed doc but was unable to compile the
interp.c code same errors.
I've also successfully generated code(but unsuccessful compile) with the
perl -MO=CC myfile.pl method.
------------------------------
Date: Fri, 09 Apr 1999 23:20:37 +1000
From: Tim Burgess <tim@ormond.unimelb.edu.au>
Subject: Finding country by Perl on Linux
Message-Id: <370DFEA5.D5F85097@ormond.unimelb.edu.au>
Hi all,
I'm writing a Perl script that needs to work out which country
it's running in(!). The script will be primarily for Linux
(Debian) boxes and I thought about using the timezone data
but there are multiple countries in a single timezone. I'd
prefer not to use any modules as I can't guarantee that
anything but base Perl will be on the box...
I imagine there must be a way using internationalisation
but I've haven't scripted any in code previously. Last resort
is to ask the user.... and hope they speak English :)
--
_Tim Burgess_____________________Ba.App.Sc.(Hons) RMIT__
| InterCollegiate Network Administrator |
| Ormond College, University of Melbourne |
| Parkville, VIC 3052 Australia |
|_Mail:tim@ormond.unimelb.edu.au_____Ph: 03-9344-1212___|
------------------------------
Date: Fri, 09 Apr 1999 11:58:20 +0100
From: Chris Barran <c.d.barran@shef.ac.uk>
Subject: Finding htaccess files with find
Message-Id: <370DDD4C.3F25805A@shef.ac.uk>
I have to build a list of the paths to the htaccess files on our
webserver.
I have been able to do this using
find . -name \.htaccess
However in some instances there are also .htaccess files in
subdirectories of directories that contain htaccess files. It is not
necessary for me to record these and I have tried to eliminate them from
the list using -prune but this does not seem to work.
I have played around with it and get the effect that I want if the -name
pattern matches a directory name but when it matches a file in a
directory it continues to search subdirectories.
Am I doing something wrong ? I have been testing using the find command
but it will be built into a perl script when I have it working the way I
want.
------------------------------
Date: Fri, 09 Apr 1999 11:41:16 +0000
From: Steve Wells <wells@cedarnet.org>
Subject: Re: Finding htaccess files with find
Message-Id: <370DE75C.EF9F53E5@cedarnet.org>
Chris Barran wrote:
>
> I have to build a list of the paths to the htaccess files on our
> webserver.
> I have been able to do this using
> find . -name \.htaccess
>
> However in some instances there are also .htaccess files in
> subdirectories of directories that contain htaccess files. It is not
> necessary for me to record these and I have tried to eliminate them from
> the list using -prune but this does not seem to work.
>
> I have played around with it and get the effect that I want if the -name
> pattern matches a directory name but when it matches a file in a
> directory it continues to search subdirectories.
>
> Am I doing something wrong ? I have been testing using the find command
> but it will be built into a perl script when I have it working the way I
> want.
Because you posted this in a perl newsgroup I'm assuming you're looking for
a perl answer to this.
perldoc File::Find
Good Luck,
STEVE
--
-----------
Stephen D. Wells
http://expert.cc.purdue.edu/~bgannon/booksearch/ - Cheap O'Reilly's
------------------------------
Date: Thu, 08 Apr 1999 11:41:18 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: Getting info out of acees Databases
Message-Id: <370C87CE.75684165@hotmail.com>
> way to do this....I am still a novice perl person. I looked at CSPAN
almost !!,
win32::ODBC
or
DBI
and DBD::ODBC
from CPAN or:
http://www.symbolstone.org/technology/perl/DBI/index.html
Both methods allow access to Access via SQL
Richard H
------------------------------
Date: Fri, 9 Apr 1999 14:26:47 +0100
From: "Christopher Spry" <cspry@sghms.ac.uk>
Subject: Help requested with a Win386 port of a UNIX Perl script
Message-Id: <7ekv6r$a1t$1@niobium.hgmp.mrc.ac.uk>
I am a complete novice at Perl, so please be gentle....
I had thought that one of the great values of Perl, was that scripts could
be transported between operating systems. I have a script that runs well
under IRIX 6.5.2, but which does not 'run' under Perl version 5.003_07 on a
PC running Windows NT4 sp4. The IRIX version of the script which runs
perfectly is:
----------------
#! /usr/bin/perl -i.bak
# fix up fonts in HTML web pages
# turn "Arial" into "Arial, Helvetica, sans-serif"
# and "Arial, Helvetica" into "Arial, Helvetica, sans-serif"
@ARGV = grep chomp, `find . \\( -name '*.htm' -o -name '*.html' \\) -print`;
while (<>) {
s/font face="Arial,\s*Helvetica"/font face="Arial, Helvetica,
sans-serif"/g;
s/font face="Arial"/font face="Arial, Helvetica, sans-serif"/g;
s/face="Arial"/face="Arial, Helvetica, sans-serif"/g;
print;
}
---------
The Win386 version of the script, which fails to run (it does nothing that I
can see, even using the -w option) is:
---------------
#!c:\perl\bin\perl -i.bak
# fix up fonts in HTML web pages
# turn "Arial" into "Arial, Helvetica, sans-serif"
# and "Arial, Helvetica" into "Arial, Helvetica, sans-serif"
@ARGV = grep chomp, 'c:\usr\local\bin\find c:\public_html -name
*\.html -print';
while (<>) {
s/font face="Arial,\s*Helvetica"/font face="Arial, Helvetica,
sans-serif"/g;
s/font face="Arial"/font face="Arial, Helvetica, sans-serif"/g;
s/face="Arial"/face="Arial, Helvetica, sans-serif"/g;
print;
}
-----------------
The line that calls the GNU 'find':
c:\usr\local\bin\find c:\public_html -name *\.html -print
runs properly when executed at the DOS prompt, so I guess that the problem
is not there.
Any helpful advice would be appreciated.
--
Christopher Spry
cspry@sghms.ac.uk
------------------------------
Date: Fri, 09 Apr 1999 13:25:24 GMT
From: ldspa@postoffice.ptd.net (Alfred J. Manno)
Subject: Help with JAVA-PERL connection
Message-Id: <370e0d4a.4786702@news.ptd.net>
I have a Perl program that creates a web page with Javascript. The
program askes a number of questions then the user pushes a button and
the data is posted to a 2nd perl program that takes this info and runs
another Javascript program and creates a password.
The flow is:
Perl1 ---- creates HTML/Javascript to ask questions.
Java1 ---- Ask questions then POST using HTML POST to Perl2
Perl2 ---- creates Javascript to calculate the password
Java2 ---- Calculates password and immediatly loads Perl3
(no display or questions are asked)
Perl3 ---- Automatically E-Mail the info to me and display the
password.
The password is definatly being generated but I have the following
problems.
1) The Java2 program does not "stop" by design. I don't want the
encryption code to be seen so once the page is loaded a third page is
displayed and the info along with the password is given.
I can't get the password from the Javascript variable (Java2) back
into the perl program (Perl2) so that I can pass it to the display
program (Perl3).
I can't use the normal HTML "POST" because I don't want the
possibility of the Javascript being viewed. I can't have a button to
press to do the "POST".
2) On the first screen (Java1) I have the user enter various pieces of
info such as their name. This data usually has a space in it. When
Java1 posts the data to Perl2 all the data is chopped off at the 1st
space that is encountered. So "John Smith" will post as just "John".
As a point of reference ALL HTML/Javascript code is generated by
various Perl programs.
If you would be so kind as to send an e-mail to ajm@cds-pa.com with
your posting. My ISP deletes news all too often and I don't want to
miss your answers.
Thank you in advance,
Al Manno
------------------------------
Date: Fri, 9 Apr 1999 07:11:51 -0500
From: Poohba <poohba@io.com>
Subject: How do i write a program that will spell a word every way possible?
Message-Id: <Pine.BSF.4.05.9904090706570.4854-100000@schultz.io.com>
I want the program to ask for a work then print that word out every way
possible. So if the word is "hello" it will print out (hello, holle,
helol) etc. Or if it possible, it will print out (hell, hole) or anything
else that might be a word.
* Web Page Designs *
/ poohba@io.com | www.io.com/~poohba\
---------------------------------------
\ For info about me send message with /
* subject "send file help" *
------------------------------
Date: Thu, 08 Apr 1999 09:33:47 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: How to pass parameters for perl programs under ActivePerl?
Message-Id: <370C69EB.528FD7BB@hotmail.com>
agniora@usa.net wrote:
>
> I am using ActivePerl on WinNT platform. But everytime i have to run a script
> i have to type perl myprog.pl but i need to pass some parameters to my
> program, adding parameters to the above line doesnt work cause it gets taken
> as an argument to the perl program not myprog.pl does anyone know any
> workaround to this?
when you've typed
>perl myprog.pl
youre trying parameters as in:??
>perl myprog.pl?parm1=name&parm2=add
are you using CGI in your script?
does whatever shell youre using not wait for you to end standard input?
then:
>perl myprog.pl <CR>
>parm1=name <CR>
>parm2=asd <CR>
>CTRL-D or Z
apologies if NT is too different to DOS in this regard,
Richard H
------------------------------
Date: Fri, 09 Apr 1999 11:31:05 +0000
From: Steve Wells <wells@cedarnet.org>
Subject: Re: Making logs
Message-Id: <370DE4F9.8CEA0686@cedarnet.org>
GNF wrote:
> I have protected a directory with .htaccess and .passwd files and i wish to
> get the combination Username/Password in a perl script but i did'nt found
> how to. Does anybody knows if it's possible ?
You are talking about apples and oranges here. The .htaccess and .passwd
files are used as server directives. Whereas perl is, in effect, standalone
from that process.
I suppose that if you used non-parsed headers you would send your headers to
ask for the information in the same way that that the server does. You
would simply send back, HTTP/1.0 401 Unauthorized. This would allow the
browser to pop up the window asking for a username/password.
Another technique I used about three years ago when designing an extranet
was to have all the processes come through a central script. Then redirect
to the pages you want, I used cookies to make it work though you could save
the username/password as hidden tags or better yet give a unique identifier
as part of the URL and read that in each time. If no username/password
exists you give them a page with which you fill in the information,
otherwise you redirect to scripts.
Nowadays, I would look carefully at the CGI modules concerning information
on saving state. You could use a username/password before starting the
process and save the protected files outside of the web server access,
making it possible to grab those files only by going through your program.
Of course you could always use the Apache::Registry as well and create your
own authentication schemes as well.
Good Luck,
STEVE
--
-----------
Stephen D. Wells
http://expert.cc.purdue.edu/~bgannon/booksearch/ - Cheap O'Reilly's!
------------------------------
Date: Fri, 9 Apr 1999 08:05:59 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: matching non-ordered string
Message-Id: <7fqke7.qf2.ln@magna.metronet.com>
John Warner (jwarner@tivoli.com) wrote:
: Have you tried the following?
Why would you try that?
It doesn't do what was asked for.
: m/.*(b_[r|g]).*/
That matches when $_='stuff,b_r,stuff';
The spec wants a match only if *both* sequences are present.
: HTH
Probably not.
: kanajan@brown.edu wrote:
: > I have a regex question. I was trying to match either of the
: > following:
: >
: > Entry: stuff,b_r,stuff,b_g,stuff
: > Entry: stuff,b_g,stuff,b_r,stuff
: >
: > where stuff could be anything
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 9 Apr 1999 08:00:24 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: minimal pattern matching
Message-Id: <o4qke7.qf2.ln@magna.metronet.com>
Eric The Read (emschwar@rmi.net) wrote:
: tadmc@metronet.com (Tad McClellan) writes:
: > If a person doesn't _know_ that they are supposed to wait
: > their turn in line, then everbody else just lets them do it?
: >
: > I don't think so. They point out that going to the front is
: > not how it works...
: I'm reminded of a Heinlein story in which somebody was acquitted of
: murder because the person they killed had cut in line. Good thing we
: don't do that with FAQs, eh? :^)
Though FAQ askers are sometime kill filed rather than the
more permanent killed :-)
Which tends to have a negative effect on getting answers once
clue has been obtained...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 09 Apr 1999 13:38:09 GMT
From: AZ <abcz@my-dejanews.com>
Subject: need help with Net::SSLeay 1.03 installation under Win32
Message-Id: <7ekvs0$fv8$1@nnrp1.dejanews.com>
Please, help....
Need Makefile and instructions to install Net:SSLeay version 1.03 under
Win95/NT with VC++.
Thanks.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 09 Apr 1999 12:11:53 GMT
From: ericc122@my-dejanews.com
Subject: Paris Perl Mongers meeting
Message-Id: <7ekqq4$c1t$1@nnrp1.dejanews.com>
Oyez! Oyez! Hear ye, all Perl programmers living in Paris.
The Paris Perl Mongers invite you to come and join them
next Tuesday evening at the Web Bar. Ladies will be offered
complimentary refreshments.
Details on our web site, where you can also test your
Perl Purity (in French).
http://paris.pm.org/
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 9 Apr 1999 12:47:09 GMT
From: help-me-please@usa.net
Subject: perl off-line browser for WINDOW ...
Message-Id: <7ekssd$1dth$1@ns.felk.cvut.cz>
Hi all,
I am finding perl program FOR WINDOW,
which can help me off-line download web pages.
Can you write me where can I download from?
I know that there is a proram called webcopy,
but it is for unix...
Thank you very much.
------------------------------
Date: Fri, 9 Apr 1999 13:20:17 +0200
From: "Stefan Schulze" <stefan.schulze@wildner.de>
Subject: Re: perl regular expression
Message-Id: <370de207.0@news.touch.net>
Nick Allan wrote in <7ekf75$lj9$1@towncrier.cc.monash.edu.au>...
snip
>How do I get a regexp to only match on content-Type: not text/Plain?
snip
Try a negative lookahead:
m{^Content-type:\s+(?!text/plain)}i;
Have a nice day
Stiepf
------------------------------
Date: Fri, 09 Apr 1999 09:06:58 -0400
From: Liam Whalen <liam@hurontel.on.ca>
Subject: Re: POP3 pearl script.
Message-Id: <370DFB72.E687C52B@hurontel.on.ca>
I think I'll post to comp.spelling.definitions next time I try this. Thanks
everyone for the help it is much appreciated.
Liam
David Cassell wrote:
> Liam Whalen wrote:
> >
> > This may be the wrong group but from the looks of everything here I
> > think it is the right place. Fisrt off I am looking for a script that
> > will open a POP3 connection to our mail server and return a list of the
> > messages. Basically a hotmail for an ISP so customers can check there
> > email almost anywhere. If anyone could point me to some sites that have
> > some scripts I can search through please do. If no one knows of any
> > script sites can someone tell me if this is possible to do in pearl?
> >
> > Thanks
> > Liam
>
> Assuming you mean Perl instead of pearl (which is a graphics language
> IIRC),
> yes. Perl can do this, and you can use Perl modules to do it easily.
> Go to
> CPAN and check out these modules:
>
> Mail::POP3Client
> Net::POP3
>
> HTH,
> David
> --
> David Cassell, OAO
> cassell@mail.cor.epa.gov
> Senior Computing Specialist phone: (541)
> 754-4468
> mathematical statistician fax: (541)
> 754-4716
------------------------------
Date: Wed, 07 Apr 1999 08:32:26 +0100
From: Richard H <"rhrh@hotmail.com,or,rhardicr"@ford.com>
Subject: Re: Problems connecting to Oracle 8 from Perl using DBI
Message-Id: <7ef1mq$f9a1@eccws1.dearborn.ford.com>
Bill Morgan wrote:
>
> I am running the latest version of Active State Perl under NT 4.0 and trying
> to connect to
> an Oracle 8 database with DBI. Here is the code I am using:
>
> use DBI;
>
> $ENV{'ORACLE_HOME'} = "E:\ORANT";
> $ENV{'ORACLE_SID'} = "ORCL";
>
> $dbh = DBI->connect("dbi:Oracle:my_db", "username", "password");
>
> if ( !defined $dbh) {
> die "Cannot connect to Oracle database: $DBI::errstr\n";
> }
>
> exit;
>
> I get the following error message:
>
> Cannot connect to Oracle database: ORA-03121: no interface driver connected -
> function not performed (DBD: login failed)
>
Youve not mentioned DBD at any stage, you have got it installed??
$dbh = DBI->connect("DB","userid","pwd","Oracle");
this tells DBI which DBDriver its looking for, it'll then look for
DBD::Oracle, if its there!
Thats for Oracle 7.3 ish anyhow.
Richard H
------------------------------
Date: 9 Apr 1999 05:46:26 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Returning "undef" from a subroutine. Appears broken in my latest version.
Message-Id: <370de892@csnews>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, Tim Butler <tbutler@rational.com> writes:
: Should the test below print "defined" or "undefined?"
The behavior of defined() on aggregates is not well-defined.
Just say no.
--tom
--
If you want your program to be readable, consider supplying the argument.
--Larry Wall in the perl man page
------------------------------
Date: Fri, 09 Apr 1999 12:34:58 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Returning "undef" from a subroutine. Appears broken in my latest version.
Message-Id: <370DF5F0.B9F674A2@home.com>
[posted & mailed]
Tim Butler wrote:
>
> sub func {
> return undef;
> }
>
> %f = func();
Larry and Tom have answered your question, but I just want to point out
that you shouldn't return undef from a function that will be called in
list context, as in this case.
If your function will be called in list context:
return ();
If your function will be called in scalar context:
return undef;
Or in either case:
return;
perldoc -f return
If you want to return true values then you may want to test which
context your subroutine is being called in.
perldoc -f wantarray
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Fri, 9 Apr 1999 08:12:47 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Returning "undef" from a subroutine. Appears broken in my latest version.
Message-Id: <vrqke7.qf2.ln@magna.metronet.com>
Tim Butler (tbutler@rational.com) wrote:
: Should the test below print "defined" or "undefined?"
Since you are having a problem with defined(), you should
check what the docs say about how defined() works before
posting.
From 'perlfunc.pod':
-----------------------
Currently, using C<defined()> on an entire array or hash reports whether
memory for that aggregate has ever been allocated. So an array you set
to the empty list appears undefined initially, and one that once was full
and that you then set to the empty list still appears defined. You
should instead use a simple test for size:
if (@an_array) { print "has array elements\n" }
if (%a_hash) { print "has hash members\n" }
-----------------------
But that won't work for your situation either, since your
hash _does_ have elements.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 06 Apr 1999 16:15:46 GMT
From: cpierce1@ford.com (Clinton Pierce)
Subject: RTFM please! perldoc PSI::ESP (was Re: Validating Email addresses)
Message-Id: <370c253d.518582912@news.ford.com>
On Thu, 01 Apr 1999 10:59:56 -0600, rlb@intrinsix.ca (Lee) wrote:
>Does the FAQ mention that it is nevertheless useful to weed out putative
>email addresses which will crash sendmail?
This is a perfect use for that PSI::ESP module again. In fact, this is
quoted as an example in the documentation. Please RTFM!
NAME
PSI::ESP - Library for Extra Sensory Perception in Perl
SYNOPSIS
use PSI::ESP;
DESCRIPTION
PSI::ESP is a collection of Perl Modules designed for mind-reading.
It has been adapted to read system "thoughts", developer intentions,
and end-user desires.
The library can be used to validate input where the system, end user,
or developer has given unclear input to the perl program. In fact,
only a minimum amount of input is required: just enough input so that
the module can tell which Universal Truths you're interested in.
The library can change "modes" depending on what user-interfaces are
desired. Some current interfaces:
o "system" mode provides prediction of how other programs will
react based on a given input. This can be used to test for un-
implemented system calls, network availability, hardware failures,
and input validation. These things are determined, of course, at
runtime regardless of implementation platform.
o "developer" mode provides programmers with a natural language
interface to writing code. The return from explanation() is a
chunk of code which can be eval()'d directly by your program.
The correct modules will be included, XS, error handling
and user interface are taken care of. Currently only Perl, SQL,
and C are implemented through this interface.
o "user" provides an interface to find out what the user meant to
do. This is used in instances where a point-and-drool interface
is not available, and user input must be parsed, validated and
executed. This is intended to prevent unsightly "file not found"
or "command not found" types of errors.
o "oracle" provides a crude implementation of an Oracle similar
to the USENET Oracle (oracle@cs.indiana.edu). Since grovelling
is required, the developer and/or end user must be on their knees
while the code is running or 'ZOT' is returned by is_error().
EXAMPLES
To determine when external programs might fail with a given set of
input:
use PSI::ESP qw(:system);
$psychic=new ESP;
$psychic->query('Will this crash sendmail: fo$23!*@bar.com?');
if ($psychic->is_success) {
print "Sendmail will ", $psychic->explanation;
} else {
print "The spririts are unsure. Try again later.";
}
$psychic->hangup;
For new Perl programmers, the module can attempt to generate code
to do what you want:
use PSI::ESP qw(:perl_developer);
$psi_programmer=new ESP;
$psi_programmer->query("How do I write a web-enabled " .
" shopping-cart?');
if ($psi_programmer->is_success) {
eval $psi_programmer->explanation;
} else {
die "Cannot write code: ",
$psi_programmer->explanation;
}
BUGS
Construction of the PSI::ESP object in code is still required. A TODO
item remains to have the PSI module 'use' itself, and construct the
query automagically depending on the end-user's intentions. At this
point the developer becomes obsolete, and so it has not been coded
-- yet.
ACKNOWLEDGEMENTS
Thanks to James Randi (randi@randi.org) for providing
the QA and testing for this module.
AVAILABILITY
This module not approved for export from the United States.
SEE ALSO
PSI::OOBE, PSI::PARANORMAL, PSI::TELEKENETIC, PSI::TELEPATHY,
PSI::PALMREADER
--
Clinton A. Pierce "If you rush a Miracle Man, you get rotten
clintp@geeksalad.org Miracles." -- Miracle Max, The Princess Bride
http://www.geeksalad.org
------------------------------
Date: 9 Apr 1999 12:14:24 GMT
From: Kozo <kozo@pobox.sk>
Subject: Sys::Syslog
Message-Id: <7ekqv0$aa1@gringo.somi.sk>
which I could use Sys::Syslog I obtained message
Constant subroutine __need___va_list undefined at /usr/lib/perl5/i386-linux/5.00404/stdarg.ph line 7.
perl is This is perl, version 5.004_04 built for i386-linux
from perl-5.004m4-1 on RH 5.2
simple example:
--
#!/usr/bin/perl -w
use Sys::Syslog
openlog('test', 'pid', 'LOG_LOCAL6')
syslog('warning', 'only test: %d', time)
closelog()
--
where is a problem ?
----------------------------------------------------
posted by WWWNews gateway v1.12
(c) 1997 Somi Systems Ltd. http://www.somi.sk/
somi.sk is NOT the originators of the articles
and are NOT responsible for their content.
------------------------------
Date: Fri, 09 Apr 1999 08:28:44 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: Trouble with DBI and Oracle
Message-Id: <370DAC2C.411DE984@hotmail.com>
Darren Greer wrote:
>
> My program still locks up in the same spot...so I am now suspecting
> that there are issues with the way DBI talks with our Oracle install.
> sqlplus works, the "make test" worked for DBI, and svrmgrl works as
> well. But thanks for the help anyway....looks like Ill have to find
> other ways to talk to ORacle,
Argh, dont!, you're nearly there!
It took me about ten+ versions of the:
-->$dbh = DBI->connect($Database, $Username, $Password, $Driver)
combination to get it working on our unix system,
once you get over this hurdle youre sorted.
Richard H
------------------------------
Date: Wed, 07 Apr 1999 13:01:16 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: Trouble with Oraperl, and simple select statement
Message-Id: <370B490C.4C6C49C7@hotmail.com>
Darren Greer wrote:
>
> Howdy all. I recently install DBD-Oracle-0.60, and DBI-Oracle-1.06,
> and they isntalled fine, and the test.pl file worked fine as well. So
Why not use the DBI methods for database and statement handles??
>
> #!/usr/bin/perl
>
> use Oraperl;
>
> &ora_version;
>
> $home = $ENV{'ORACLE_HOME'};
> $sid = $ENV{'ORACLE_SID'};
> $userid = "login";
> $passwd = "password";
>
> $lda = &ora_login($sid,$userid,$passwd) || die $ora_errstr;
>
> $partsearch = "select partno, partdescr from partmaster where partno =
> '108755'";
if partno is a numeric field this will give an error
>
> $csr = &ora_open($lda, $partsearch);
add the || die to this bit and all the others below
using DBI::errstr to narrow down your problem
>
> &ora_bind($csr);
>
> $test = &ora_fetch($csr)
>
> &ora_close($csr);
>
> &ora_logoff($lda);
>
> print $test;
Richard H
------------------------------
Date: Wed, 07 Apr 1999 08:46:19 +0100
From: Richard H <"rhrh@hotmail.com,or,rhardicr"@ford.com>
Subject: Re: Very new to perl and I need some help displaying images..
Message-Id: <7ef2gq$f9a3@eccws1.dearborn.ford.com>
>
> print "Content-type: text/html\n\n";
Its no different to normal HTML:
>
> print <<"EOT";
>
> <HTML>
> <HEAD>
> <TITLE>Access Denied</TITLE>
> </HEAD>
> <BODY>
> <H1>Access Denied</H1>
>>>> <img src="whatever.gif">
> I can't let you in, because I don't know who
> "$FORM{'username'}" is.
> <P>
> <a href="$ENV{'HTTP_REFERER'}">Try again.</a>
> </BODY>
> </HTML>
>
> EOT
>
Richard H
------------------------------
Date: Wed, 07 Apr 1999 10:10:05 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: Web -> Database Access...
Message-Id: <370B20ED.A11BDB15@hotmail.com>
This is a multi-part message in MIME format.
--------------DAFC6FD78E360FEE138AD702
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Richard H wrote:
>
>
> http://www.hermetica.com/technologia/perl/DBI/index.html
Oops, its shifted to:
http://www.symbolstone.org/technology/perl/DBI/index.html
--------------DAFC6FD78E360FEE138AD702
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Richard Hardicre
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Richard Hardicre
n: Hardicre;Richard
org: Logica MSD / Ford Motor Company
email;internet: rhrh@hotmail.com
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------DAFC6FD78E360FEE138AD702--
------------------------------
Date: Wed, 07 Apr 1999 08:43:46 +0100
From: Richard H <"rhrh@hotmail.com,or,rhardicr"@ford.com>
Subject: Re: Web -> Database Access...
Message-Id: <7ef2c1$f9a2@eccws1.dearborn.ford.com>
Hi,
Look for either Win32::ODBC module if youre on a local machine ,or
better for portability use the DBI module with DBD drivers.
http://www.hermetica.com/technologia/perl/DBI/index.html
Richard H
------------------------------
Date: Fri, 09 Apr 1999 09:42:32 +0100
From: Richard H <rhrh@hotmail.com>
Subject: why my map diff to a loop?
Message-Id: <370DBD78.CF03E288@hotmail.com>
Hi,
Im trying to replace a loop with a map but cant quite see why im not
gettin the array processed in the same way.
Does map not just pass $_ through if no operation is performed on it?
These are my versions:
@nums = (0.123,1.1234,2.345345,0,undef,3.467467,6,7,8);
@nums2 = map(sprintf("%2.2f",$_), @nums);
@nums3 = map {
if ($_ > 0) { sprintf("%2.2f",$_);}
} @nums;
@nums4 = map {
sprintf("%2.2f",$_) unless ($_ == 0);
} @nums;
@nums5 = @nums;
for (@nums5) {
$_ = sprintf("%2.2f",$_) unless ($_ == 0);
}
print "@nums2 \n";
print "@nums3 \n";
print "@nums4 \n";
print "@nums5 \n";
Output:
nums2>0.12 1.12 2.35 0.00 0.00 3.47 6.00 7.00 8.00
nums3>0.12 1.12 2.35 3.47 6.00 7.00 8.00
nums4>0.12 1.12 2.35 1 1 3.47 6.00 7.00 8.00
nums5>0.12 1.12 2.35 0 3.47 6.00 7.00 8.00
where the output i want is equiv to nums5, but i cant get it with map?
Any explanations??
Thanks
Richard H
------------------------------
Date: Fri, 09 Apr 1999 12:01:13 GMT
From: dturley@binary.net (David Turley)
Subject: Re: Win-32 / Unix CGI question
Message-Id: <370debbd.2445419@news.erols.com>
On Fri, 9 Apr 1999 10:32:09 +0200, "Peter Jukel"
<nospampjukel@usa.net> wrote:
>Hi there
>
>can anyone tell me if it is possible to develop a CGI perl script on a
>Windows 95 machine and run it on a UNIX web server?
Yes, anyone could tell you that and they would be correct.
>
--
David Turley
dturley@pobox.com
http://www.binary.net/dturley/
------------------------------
Date: Mon, 05 Apr 1999 11:11:56 -0400
From: Roger Liu <rliu2@ford.com>
Subject: Re: Win32/Perl/Apache Problem
Message-Id: <3708D2BC.4BB2AD65@ford.com>
This is a multi-part message in MIME format.
--------------C52B03729649B58F7804836C
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
> #! C:/Perl/bin/perl.exe;
^
Take the ";" off.
--------------C52B03729649B58F7804836C
Content-Type: text/x-vcard; charset=us-ascii;
name="rliu2.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Roger Liu
Content-Disposition: attachment;
filename="rliu2.vcf"
begin:vcard
n:Liu;Roger
tel;fax:(313)322-3619
tel;home:(734)572-1634
tel;work:(313)248-3197
x-mozilla-html:FALSE
adr:;;;;;;
version:2.1
email;internet:rliu2@ford.com
title:Programmer/Analyst
fn:Roger Liu
end:vcard
--------------C52B03729649B58F7804836C--
------------------------------
Date: Fri, 09 Apr 1999 07:51:20 -0400
From: "Bill Jones" <bill@fccj.org>
Subject: Re: Y2K (yes, again - sorry!)
Message-Id: <370de9b9.0@usenet.fccj.cc.fl.us>
In article <370DB7F3.6DC4C186@eml.ericsson.se>, Matt Sergeant
<matthew.sergeant@eml.ericsson.se> wrote:
> Someone mailed me directly the other day (like I'm some kind of
> authority on the subject!) asking me for a statement as to whether perl
> was y2k compliant. I gave the standard answer, and the URL on
> www.perl.com.
>
> Then they asked me to fax a company letter letter headed statement
> stating what I had said. Obviously my company isn't in that business
> (scares the pants off me being liable for some company's y2k compliance)
> and I don't want to do that, so can someone give me some clues as to
> what to tell them - or alternatively I can just ignore this person...
>
Tell them you didn't create their script therefore you cannot make
claims as to whether their code is truly Y2k compliant.
HTH, :]
_________________________________________________________________________
Bill Jones | Data Security Specialist | http://www.fccj.org/cgi/mail?dss
FCCJ | 501 W State St | Jacksonville, FL 32202 | 1 (904) 632-3089
Jacksonville Perl Mongers
http://jacksonville.pm.org
jax@jacksonville.pm.org
------------------------------
Date: Fri, 09 Apr 1999 12:26:54 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Y2K (yes, again - sorry!)
Message-Id: <370ef0f6.559191@news.skynet.be>
Bill Jones wrote:
>Tell them you didn't create their script therefore you cannot make
>claims as to whether their code is truly Y2k compliant.
Right on. Although Perl itself is fully Y2K compliant, that doesn't mean
that it's not possiblke to write non-Y2K compliant scripts.
You cannot possibly accept responsibility to what their people do in
Perl. They should not even expect that.
Which brings back the question: where is the garantee, black on white
(or similar), that Perl itself is Y2K compliant? I can't even imagine
what part of Perl could even possibly not be Y2K compliant. It doesn't
use dates, does it? But Y2K compliance has become such a buzzword, that
people can't even seem to think straight about it any more.
Bart.
------------------------------
Date: 9 Apr 1999 12:44:27 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Y2K (yes, again - sorry!)
Message-Id: <slrn7grthb.iqh.sholden@pgrad.cs.usyd.edu.au>
On Fri, 09 Apr 1999 12:26:54 GMT, Bart Lateur <bart.lateur@skynet.be> wrote:
>
>Which brings back the question: where is the garantee, black on white
>(or similar), that Perl itself is Y2K compliant? I can't even imagine
>what part of Perl could even possibly not be Y2K compliant. It doesn't
>use dates, does it? But Y2K compliance has become such a buzzword, that
>people can't even seem to think straight about it any more.
perlfaq4 : Does Perl have a year 2000 problem? Is Perl Y2K compliant?
'...Yes, Perl is Y2K compliant...'
However we also have :
'THIS PACKAGE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.'
in the license...
--
Sam
Simple rule: include files should never include include files.
--Rob Pike
------------------------------
Date: Fri, 09 Apr 1999 13:06:32 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Y2K (yes, again - sorry!)
Message-Id: <370efb34.3181805@news.skynet.be>
Sam Holden wrote:
>However we also have :
>
>'THIS PACKAGE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
>WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
>MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.'
>
>in the license...
That is in any license from MicroSoft too, so... where's the problem in
that? :-)
Bart.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5338
**************************************
