[8077] in Perl-Users-Digest
Perl-Users Digest, Issue: 1696 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 21 18:07:20 1998
Date: Wed, 21 Jan 98 15:00:25 -0800
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, 21 Jan 1998 Volume: 8 Number: 1696
Today's topics:
Re: [Q] Database Reccomendations for Perl on Unix (Kerry Schwab)
[Q] Modifying \n\r on a directory tree of html files to (Brian Lavender)
Re: automatically running a perl script <James@cydaps.nospam.co.uk>
Basename with perl (NT) <PAYS@FILNET.fr>
Re: Byte Ordering using Perl <porter@wultranet.com>
CGI.pm question <andrew.spiers@virgin.net>
Counting Backslashes wchrist@flagmail.wr.usgs.gov
crypt() vs. htpasswd - what's the diff? (Michael Budash)
Re: crypt() vs. htpasswd - what's the diff? (brian d foy)
Re: Daemon for connection with Oracle <zenin@best.com>
Error when compiling Perl 5.004_04? <lance@junto.net>
Re: Exporter Question (Peter Rowell)
Re: FAQ too big (Was: Re: PERL forking) (Andrew M. Langmead)
Re: FAQ too big (Was: Re: PERL forking) <tchrist@mox.perl.com>
Re: FAQ too big (Was: Re: PERL forking) <tchrist@mox.perl.com>
Re: FORTRAN format, help! <cmargoli@world.northgrum.com>
Re: Freidl's book mystery (Gabor)
Re: Freidl's book mystery <*@qz.to>
Re: Hashes w/ case-insensitive keys <dhale@web.compuserve.com>
Re: Hashes w/ case-insensitive keys (brian d foy)
Re: Help! Quick Flat File DB/PERL Search Script??? (Joshua J. Kugler)
Re: How on earth....?!?! <James@cydaps.nospam.co.uk>
Re: How to print right off the webpage? (Martien Verbruggen)
Re: HTML to MAIL (brian d foy)
Re: HTTP debugger. Does that exist? (brian d foy)
Re: HTTP debugger. Does that exist? (brian d foy)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Jan 1998 14:37:53 -0700
From: kschwab@nyx.net (Kerry Schwab)
Subject: Re: [Q] Database Reccomendations for Perl on Unix
Message-Id: <6a5prh$l33$1@nyx10.nyx.net>
In article <34C658D7.67410495@kinetic.com>,
Craig A. Keefner <keefner@kinetic.com> wrote:
>You might think about Sybase. They have a cheap unix version
>of sqlanywhere (with path up to bigboys 10 and 11)
>
>Craig
>
>Brandon Pulsipher wrote:
>
>> I have some Microsoft Access database's that I have been using thru Perl
>> Win32:ODBC on a Windows NT webserver. The time has come to move to a
>> Unix box. Obviously I there is not way for me continue using the
>> MS-Access databases (at least that I know of). Therefore, does anyone
>> have suggestions for what to convert these database to, so that I can
>> work with them thru Perl 5 on Unix? I will be using a virtual host and
>> do not have a huge amount of control to install other packages.
>> If there may be a better solution to my problem, please let me know.
>> Thank you.
>>
>> -Brandon Pulsipher
>> -Brandon.Pulsipher@usa.net
>
>
>
Supposing that even sqlanywhere is a little pricey for someone used to
ms-access, here's a few of the free or cheap databases I know of that
have a perl interface:
mysql (http://www.mysql.com) - small, fast, sql RDBMS
msql (http://www.hughes.com.au) - similar to mysql
sprite (see any CPAN site) - sql front-end to flat-files
postgres95/postgreSQL (http://www.postgresql.org) - evolution of the Berkeley
postgres database.
Poke around in the modules file on CPAN, there's more.
--
Kerry
------------------------------
Date: Tue, 20 Jan 1998 05:39:11 GMT
From: brian@brie.com (Brian Lavender)
Subject: [Q] Modifying \n\r on a directory tree of html files to \n files for UNIX
Message-Id: <34c43672.4374112@news.jps.net>
I am trying to figure out how to change an entire directory of html
files which have the \r\n line termination to the unix style with just
a \n. I looked at dejanews and I found this simple one line by Mr.
McClellan to change a single file named joe.pl.
On1997/04/27 tadmc@flash.net (Tad McClellan) wrote:
You can do that with a perl one-liner too:
perl -pi.bak -e 's/\r//' joe.pl
(joe.pl.bak will hold the original (DOS) contents)
How can I make this so it traverses down a directory tree and modifies
all .html files? I could not find a recursive switch in the Camel
book. It seems that having the -i.bak switch is a good idea, but how
would I get rid of the .bak files once I determine the perl command
routine was a success?
Brian
--------------------
Brian Lavender
Sacramento, CA
http://www.brie.com/brian/
"For best results, squeeze from the bottom and flatten as you go up."
-- Colgate Toothpaste Tube
------------------------------
Date: Wed, 21 Jan 1998 21:11:32 +0000
From: James <James@cydaps.nospam.co.uk>
Subject: Re: automatically running a perl script
Message-Id: <jXEbiLAESmx0EwFN@cydaps.co.uk>
On Tue, 20 Jan 1998, Michael Budash wrote:
>In article <laP$tHA28Ox0EwFK@cydaps.co.uk>, James
><James@cydaps.nospam.co.uk> wrote:
>
>>> Hi,
>>>
>>> I have a script that I need to get to automatically startup at 10.00am
>>> GMT each day, everyday. Does anyone know how I can do this?
>>>
>>> The script is running on a UNIX server with Perl5. Basically it is a
>>> script that sends emails out to each registered user of the site each
>>> day, but at the moment I cannot figure a way to automatically start the
>>> script at 10.00am without any human involvement.
>>>
>
>this is not a perl question, but an os (in this case, unix) question.
>
>anyway, set up an entry in the crontab. if you don't know what that is,
>then ask your sysadmin. they'll fill you in, and tell you whether you can
>do it or not.
>
>hth-
>
Hi,
Thanks for everyones help with this, sorry it was not a question related
to perl, shows how much I know, I thought there might be a little trick
in the script, but thanks for the help, got it working now with a little
help from systems admin!
Best wishes
James
--
James Roxburgh
http://www.cydaps.com
james@cydaps.nospam.co.uk (please remove nospam. if emailing)
------------------------------
Date: Wed, 21 Jan 1998 22:05:36 GMT
From: "Olivier" <PAYS@FILNET.fr>
Subject: Basename with perl (NT)
Message-Id: <01bd26b8$b0fdc160$0c07000a@dns1.filnet.fr>
would like to use the same command as basename (UNIX)
to obtain with a path like
c:\folderA\folderB\file.txt -->file.txt
This expression is not good why ???
$base=($File=~m|.*\\([^\\]+)$|)
P.S:I dont want to use cgi.pm
Thanks
Olivier ROBERT
soil@filnet.fr
------------------------------
Date: 21 Jan 1998 20:43:01 GMT
From: "dave porter" <porter@wultranet.com>
Subject: Re: Byte Ordering using Perl
Message-Id: <01bd26ad$1ccda9c0$0ba17392@glastonbury>
Clinton Pierce <cpierce1@cp500.fsic.ford.com> wrote in article
> There's time efficiency...
> ..and then there's porter & maintainer efficiency...
and clearly, porter efficiency is the only thing that
matters in this world (well, at least as far as I'm
concerned, it is).
dave
----
For email, please remove the 'w' from my address. Sorry.
------------------------------
Date: Wed, 21 Jan 1998 22:29:08 +0000
From: Andrew Spiers <andrew.spiers@virgin.net>
Subject: CGI.pm question
Message-Id: <34C676B2.BA354741@virgin.net>
I am trying to do a script that displays radio_group and then when the
user presses the submit button it will display a results page. I cannot
get this to happen - what happens is that it displays the results page
below the radio_group. Can someone give me an idea on the way to achieve
this - just a pointer.
Many thanks,
------------------------------
Date: Wed, 21 Jan 1998 14:52:28 -0600
From: wchrist@flagmail.wr.usgs.gov
Subject: Counting Backslashes
Message-Id: <885415252.2073034763@dejanews.com>
I am trying to search a data file and return any words that have a
backslash(\) in them, along with a count of the number of backslashes.
The backslashes, along with the next character are used to represent a
diacritical character. I am using the following code to do this:
while (chop($nline = <FILE>)) {
$offset = ($nline =~ s/\\/\\/g);
if($offset != 0){
print $offset;
print "\n";
}
}
This method works most of the time, but some words are coming back with
the wrong count. A test run is listed below:
$offset Word
-----------------------
1 C\%ezanne
1 Rup\-es
1 Changs\vong
2 Ch\uong Ch'\uol
2 Chr\%etien #$offset is 2 instead of 1
1 Col\-on
1 Cr\:uger
1 Dar\%io
1 D'Arsonval #$offset is 1 when there is no backslash at all
1 Daubr\%ee
1 de Sta\:el
1 Despr\%ez
1 Dun\%er
1 D\:urer
1 Dvor\%ak
There does not appear to be any pattern to the problem; a word will have
the wrong count while the next word (with the exact same backslash
sequence) will be counted correctly. I have also tried using the "tr///"
command with the same results.
Any help will be greatly appreciated.
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Wed, 21 Jan 1998 14:01:56 -0700
From: mbudash@sonic.net (Michael Budash)
Subject: crypt() vs. htpasswd - what's the diff?
Message-Id: <mbudash-2101981401570001@d126.pm3.sonic.net>
Hey all -
Apologies if this is the wrong newsgroup, but here goes:
I'm using crypt() to programmatically build an .htpasswd file based on the
username and password passed to me from a web form script. The .htpasswd
file is referenced by an .htaccess file in a directory (of course).
However, when I try to view the directory's contents via a url enterd into
a web browser, the expected authorization dialog tells me "Authorization
Failed" after I enter the username and password.
So... my question is: can I use crypt() to encrypt a password and yield
the same results that the htpasswd command does? And if so, can I see an
example?
TIA -
--
Michael Budash, Owner * Michael Budash Consulting
mbudash@sonic.net * http://www.sonic.net/~mbudash
707-255-5371 * 707-258-7800 x7736
------------------------------
Date: Wed, 21 Jan 1998 17:41:30 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: crypt() vs. htpasswd - what's the diff?
Message-Id: <comdog-ya02408000R2101981741300001@news.panix.com>
Keywords: from just another new york perl hacker
In article <mbudash-2101981401570001@d126.pm3.sonic.net>, mbudash@sonic.net (Michael Budash) posted:
>So... my question is: can I use crypt() to encrypt a password and yield
>the same results that the htpasswd command does? And if so, can I see an
>example?
why not just try it and find out? (you should discover that it
yields the same results). for an example of how to use the crypt
function see the perlfunc man page. remember to use the same
salt in each case.
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 21 Jan 1998 22:49:16 GMT
From: Zenin <zenin@best.com>
Subject: Re: Daemon for connection with Oracle
Message-Id: <885423182.939579@thrush.omix.com>
Mattias Niklasson <mn@mint.se> wrote:
: Now to my question; we are planing to develope a daemon which handles
: the DB connections, and keeping them alive to reduce the responstime.
Good plan, depending.
: How do you recommend that we solve the communication between out CGI
: scripts and the daemon?
A TCP socket. -Use the IO::Socket class to make this easier.
If you're not on a BSD machine, be carful if you try to multiplex
accept() calls. -See the Apache source for good examples on how
to do this cleanly on SysV cra^H^H^Hsystems.
: Is RPC the right way to go?
Probably not, but I couldn't say for sure. I've built a number
of these in different forms and have always used TCP with great
success.
: Is there a simular product/module on the market already?
If you're running an Apache web server, I'd HIGHLY suggest looking
at the mod_perl extension which supports (via ApacheDBI) database
handle caching directly, removing the need for an extra "middleman"
server and protocal. I've use this method with great success and
highly recommend it when the handles are going to be used by CGI
programs. -The servers I build were mostly for non-CGI use although
I did make one to work with a Netscape server, but being as there
is now an nsapi_perl extention this may not be as useful anymore.
Using this method would allow you the full power of the actually
database handle, but without requiring unique logins for each
request.
--
-Zenin
zenin@best.com
------------------------------
Date: Wed, 21 Jan 1998 20:14:03 -0500
From: Lance Turner <lance@junto.net>
Subject: Error when compiling Perl 5.004_04?
Message-Id: <34C69D5B.41C6@junto.net>
I am getting an ERROR the "make" procedure:
ld: ERROR 33: Unresolved text symbol "Perl_SvNV" -- 1st referenced by
libperl.a(pp.o).
ld: ERROR 33: Unresolved text symbol "Perl_SvIV" -- 1st referenced by
libperl.a(pp.o).
ld: ERROR 33: Unresolved text symbol "Perl_SvUV" -- 1st referenced by
libperl.a(pp.o).
ld: ERROR 33: Unresolved text symbol "Perl_SvTRUE" -- 1st referenced by
libperl.a(pp.o).
ld: INFO 60: Output file removed because of error.
*** Error code 1 (bu21)
I am using gcc 2.7.2.2 on an SGI (IRIX 6.2).
I've tried various suggestions from the INSTALL file:
- try turning off the compiler's optimizer
- adding -Wl,-export-dynamic to the ccdlflags variable
I there anything that special that I should be doing for the gcc
compiler on an SGI?
--
Lance Turner
lance@junto.net
------------------------------
Date: 21 Jan 1998 14:32:53 -0800
From: thirdeye@sonic.net (Peter Rowell)
Subject: Re: Exporter Question
Message-Id: <6a5t2l$n6c@bolt.sonic.net>
In article <000c01bd2455a1495640a1123018@default.pha.adelphia.net>,
Verma Kakarlapudi <vkakarla@adelphia.net> wrote:
>b) Using Exporter function, one has to still include the module in the
> calling module and access the sub or varaiable with the same above
> notation(::, can't avoid) even after exporting the sub, and variable to
> arrays @EXPORT or @EXPORT_OK
>WHY.. WHY..?
You mention @EXPORT but not @ISA .....
Did you remember to include: @ISA = qw(Exporter); ?
Without this, you don't get much (any?) of the services of the Exporter
module.
@ISA is a special array that identifies the packages that you inherit
functions from. When you "use" a module, there is an implicit invocation
of the routine "import" in the package being used. I.e.
use Foo;
implies (amongst other things)
Foo->import;
If *you* have not defined "Foo::import()", then there is a search
through the packages listed in the @ISA array. If none of
*those* packages define "import" then it is quietly ignored.
Thus there is no importing going on, thus you still
have to use "Foo::SomeProc(x,y)" instead of "SomeProc(x,y)".
Hope this helps,
Peter
peter@thirdeye.com
------------------------------
Date: Wed, 21 Jan 1998 22:00:03 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: FAQ too big (Was: Re: PERL forking)
Message-Id: <En5MG3.EK6@world.std.com>
bart.mediamind@tornado.be (Bart Lateur) writes:
>Hmmm... What I think is lacking, is an overview of everything that is
>covered in the FAQ. A TOC, a list with ALL the questions and where the
>answers can be found.
>Not everybody uses Unix, where you can use grep to look it up for you...
>On a PC, you have to (manually) open and search through 9 documents.
If one group of people (the ones using Unix) have a convenient tool
for some purpose, but you do not, should you just work along not
having that tool? Or should you go out to find an one.
There are text searching tools for Windows, aren't there? For example,
Start->Find->"Find Files or Folders" fill in "C:\PERL\DOCS" in the
"Look in" box, click on the "Advanced" tab and fill in your search in
the "Containing Text" box.
Or as others have pointed out, a grep subset can be made in about half
dozen lines.
#!/usr/bin/perl -w
$pattern = shift;
while(<>) {
print "$ARGV:$_" if /$pattern/oi;
}
Or as it was expressed in a quote long ago:
: And it goes against the grain of building small tools.
Innocent, Your Honor. Perl users build small tools all day long.
--Larry Wall in <1992Aug26.184221.29627@netlabs.com>
--
Andrew Langmead
------------------------------
Date: 21 Jan 1998 22:02:49 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: FAQ too big (Was: Re: PERL forking)
Message-Id: <6a5ra9$f9k$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, bart.mediamind@tornado.be (Bart Lateur) writes:
:>> > P.S. The Perl FAQ is TOO big!!
Ok, which part would you like me to remove? [you != Bart]
:Hmmm... What I think is lacking, is an overview of everything that is
:covered in the FAQ. A TOC, a list with ALL the questions and where the
:answers can be found.
% man perltoc
:Not everybody uses Unix, where you can use grep to look it up for you...
:On a PC, you have to (manually) open and search through 9 documents.
So bootstrap. Programmer, program thyself!
#!/usr/bin/perl
$/ = '';
$pat = shift;
@ARGV = glob("perlfaq*.pod");
while (<>) {
print if /$pat/miso; # soup
}
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"The social dynamics of the net are a direct consequence of the fact
that nobody has yet developed a Remote Strangulation Protocol."
--Larry Wall
------------------------------
Date: 21 Jan 1998 22:07:51 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: FAQ too big (Was: Re: PERL forking)
Message-Id: <6a5rjn$f9k$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Clark Dorman <clark@s3i.com> writes:
:On a PC machine, have a copy of the faq on your machine in html format
Once upon a time, "PC" meant "personal computer". Now it seems to only
mean "Prisoner of Bill". Alas! All my PCs run Unix, and those include
Intel, Sparc, and other processors.
--Tom "Bring back the non-PC meaning of `PC'" Christiansen
--
Tom Christiansen tchrist@jhereg.perl.com
But you have to allow a little for the desire to evangelize when you
think you have good news.
--Larry Wall in <1992Aug26.184221.29627@netlabs.com>
------------------------------
Date: Wed, 21 Jan 1998 22:05:51 GMT
From: Charles Margolin <cmargoli@world.northgrum.com>
Subject: Re: FORTRAN format, help!
Message-Id: <34C6713F.14DF@world.northgrum.com>
Ying Hu wrote:
>
> How to get FORTRAN format by perl for example:
>
> data:
> string1 12345.67 89 ing2
> stri 12345.6 9 string2
> ring1 45.67 89 string2
>
> FORTRAN format:
> (A7,2X,F8.2,4X,I2,A7)
>
It depends on whether you want to read or write.
For output, use printf or sprintf. NOTE: The notation for the format
is based on C rather than Fortran. See the decription of sprintf
for the details (perldoc -f sprintf). You might need to look in
a C textbook for examples.
For input, get each record into a scalar variable and use unpack
with the 'A' or 'a' descriptor. Then rely on Perl's automatic
conversion of numeric strings into numbers. See the format
descriptions for pack, but be aware that the formats described
as 'float', 'integer', etc. refer to binary data rather than
printable strings of digits, decimal points, etc.
--
Charles G. Margolin DSSD Internal Information Services
cmargoli@world.northgrum.com Northrop Grumman Corp. 0624/23
margolin@acm.org Hawthorne, California 90250-3277
------------------------------
Date: 21 Jan 1998 21:17:21 GMT
From: gabor@vinyl.quickweb.com (Gabor)
Subject: Re: Freidl's book mystery
Message-Id: <slrn6ccp3p.gqd.gabor@vinyl.quickweb.com>
In comp.lang.perl.misc, Vladimir Sovetov <sova@kpbank.ru> wrote :
# Please, is anyone here kind enough to explain to me what Mr. Friedl is
# trying to make me understand when he spend thousands of words
# on C /* ... */ comments problem (pp. 168-173)?
# Why all the fuss? It seems that regex as obvious as m{/\*(.*?)\*/}
# could make the trick. What the sense in lenghty discussion and
# the monster like this m{/\*([^*]|\*+[^/*])*\*+/} as a result.
# After all my -Dr check
Try
main()
{
/*
printf("DEBUG Level */ %d\n",debug);
*/
}
gabor.
--
It's all magic. :-)
-- Larry Wall in <7282@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 21 Jan 1998 21:48:10 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: Freidl's book mystery
Message-Id: <qz$9801211634@qz.little-neck.ny.us>
Vladimir Sovetov <sova@kpbank.ru> wrote:
> Please, is anyone here kind enough to explain to me what Mr. Friedl is
> trying to make me understand when he spend thousands of words
> on C /* ... */ comments problem (pp. 168-173)?
How to write a complex regular expression.
> Why all the fuss? It seems that regex as obvious as m{/\*(.*?)\*/}
That one will not work for programs that don't know about "non-greedy"
modifiers.
> could make the trick. What the sense in lenghty discussion and
> the monster like this m{/\*([^*]|\*+[^/*])*\*+/} as a result.
Consider the case of not matching comments that are in quoted strings.
If you know how to write a complex RE you have a better start than if
you don't. The book is titled "Mastering Regular Expressions" not
"Good Enough Regular Expressions in Perl." (The task at hand is not
for the faint of heart. :^)
> After all my -Dr check
I don't have a -D enabled perl, so I cannot duplicate this.
> %cat test.pl
> !/usr/local/bin/perl -w -Dr
>
> $it = '/***** This *is* / */ hhhh() /* my comment /**/';
>
> print "$it\n";
> print "()=:$1:\n" if $it =~ m{/\*(.*?)\*/};
> print "()=:$1:\n" if $it =~ m{/\*(([^*]|\*+[^/*])*)\*/};
That is a different regular expression. You left off the final "+".
> showed that the last is rather worst than the simple first in terms of
> efficency.
Perhaps you should try a bigger sample?
:r! cat /usr/include/*.h | time perl -00wpe 's{/\*(.*?)\*/}{}gs' > /dev/null
real 0m11.16s
user 0m0.86s
sys 0m0.27s
:r! cat /usr/include/*.h | time perl -00wpe 's{/\*(([^*]|\*+[^/*])*)\*+/}{}gs'
> /dev/null
real 0m4.13s
user 0m2.36s
sys 0m0.51s
Elijah
------
didn't notice your coping error at first and got perplexing results
------------------------------
Date: Wed, 21 Jan 1998 16:49:26 -0500
From: "Donnie Hale" <dhale@web.compuserve.com>
Subject: Re: Hashes w/ case-insensitive keys
Message-Id: <eZ0g3ZrJ9GA.343@nih2naac.prod2.compuserve.com>
Brian,
>>convert all your keys to a common format (i.e. the result of lc(), for
instance).<<
Unfortunately I'm not the one filling in the hash, so I don't have control
over that (in this case it's the Win32::Registry::GetValues method that's
doing it). Using lc() is sort of what I meant by "brute-forcing" it - e.g.
recreating the map, w/ common-format keys, by iterating through the
"indeterminate-keyed" version; then searching on that one.
Sure would be nice to say values{/$key/i}->[2] or some such.
Many thanks,
Donnie Hale
dhale@web.compuserve.com
------------------------------
Date: Wed, 21 Jan 1998 17:44:28 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Hashes w/ case-insensitive keys
Message-Id: <comdog-ya02408000R2101981744280001@news.panix.com>
Keywords: from just another new york perl hacker
In article <eZ0g3ZrJ9GA.343@nih2naac.prod2.compuserve.com>, "Donnie Hale" <dhale@web.compuserve.com> posted:
>Brian,
ahem...
>>>convert all your keys to a common format (i.e. the result of lc(), for
>instance).<<
>
>Unfortunately I'm not the one filling in the hash, so I don't have control
>over that (in this case it's the Win32::Registry::GetValues method that's
>doing it).
ah - a PoB situation. perhaps you want to hack that particular method
to suit you :)
--
brian d foy <comdog@computerdog.com>
style guide <URL:http://computerdog.com/brian/style.html>
------------------------------
Date: Wed, 21 Jan 1998 21:33:10 GMT
From: jkugler@inreach.com (Joshua J. Kugler)
Subject: Re: Help! Quick Flat File DB/PERL Search Script???
Message-Id: <34c6699b.14516183@news.inreach.com>
On 21 Jan 1998 02:55:06 GMT, bgg@--please-remove-this--magpage.com
(bgg) wrote:
()search the html root directory AT ALL, but will search ONLY a tab
()delimited database, in what I'm assuming will be placed in my
()cgi-local bin, AND will generate the results in a standard HTML
()format.
Take a look in CPAN. Look for 'Sprite' in the databases section.
It will find the data, you deal with what it gives back.
()Note: please note anti-spam junk in my email address! Thanks!
Please fix your e-mail address. Thanks!
j----- k-----
I read this group. Sometimes my ISP doesn't. Please e-mail too.
Joshua J. Kugler
Computer Consultant--Web Developer
jkugler@inreach.com
http://www.cwebpages.com/jkugler
Every knee shall bow, and every tongue confess, in heaven, on earth, and under the earth, that Jesus Christ is LORD -- Count on it!
------------------------------
Date: Wed, 21 Jan 1998 21:14:01 +0000
From: James <James@cydaps.nospam.co.uk>
Subject: Re: How on earth....?!?!
Message-Id: <kHzaWOAZUmx0EwFX@cydaps.co.uk>
On Mon, 19 Jan 1998, Kupid wrote:
>This is the project we have planned on our site. Actually, this is very
>simple:
>
>Say that this is the database that you have.. which uses a comma delimiter.
>
>(job title, job function, hours per day, hours per week)
>
>When a person subscribes to "Cool Notify", print his info in the same format
>as your main database.
>
>Schedule your "Cool Notify" database to be checked against your main
>database once or twice per day.
>
>You would split the delimters on both databases. Loop through the databases.
>
>For each delimiter value/s in the "Cool Notify" database that matches the
>delimter value/s in the main database.... send the person an e-mail message,
>letting them know whatever you want to let them know.
>
>Hope this helps.
>
>David
>
>
Hi everyone,
Thanks for the help with this problem. Think I have managed to get
something working that seems to do it's job okay.
Best wishes
James
please remove nospam. if emailing
------------------------------
Date: 21 Jan 1998 22:20:09 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: How to print right off the webpage?
Message-Id: <6a5sap$4lk$5@comdyn.comdyn.com.au>
In article <6a52e9$5pe$1@node17.cwnet.frontiernet.net>,
jared@frontiernet.net (Jared Evans) writes:
>
> Is it possible to have this concept (and how to set it up?) on the web:
>
> A resume in HTML with a button at the bottom labelled "PRINT" which when
> clicked on will print out the resume locally in RTF format?
If it is possible at all, it has nothing to do with perl. You
will have to ask someone on the comp.infosystems.www.* groups
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I'm desperately trying to figure out
Commercial Dynamics Pty. Ltd. | why kamikaze pilots wore helmets - Dave
NSW, Australia | Edison
------------------------------
Date: Wed, 21 Jan 1998 17:48:27 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: HTML to MAIL
Message-Id: <comdog-ya02408000R2101981748270001@news.panix.com>
Keywords: from just another new york perl hacker
In article <01bd26ac$6e0602c0$825f04d1@dos>, "S Newberg" <kid@actioninternet.net> posted:
>I am a novice perl programmer and appreciate any suggestions. The output at
>the bottom is definately what I am doing wrong. I found the script and
>fixed many bugs, but can't get the origonall %input to be outputed to the
>message body of the Email message.
>&ReadParse(*input);
how about using CGI.pm?
>##snipped to output section --------------------
>
>sub sendmail
> # talk SMTP to the mail hub. Fail if anything goes wrong.
> {
>#&tracein('sendmail');
>if (&get_reply()){
> send (S,"HELO localhost\n",0);
> if (&get_reply()){
how about using a Mail module?
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: Wed, 21 Jan 1998 17:35:31 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: HTTP debugger. Does that exist?
Message-Id: <comdog-ya02408000R2101981735310001@news.panix.com>
Keywords: from just another new york perl hacker
In article <34C5E8A5.26FA@skybound.demon.nl>, Craig <craig@skybound.demon.nl> posted:
>I'm looking for a program to view all the HTTP communication between my
>browser and my server to see what my CGI scripts and browser are really
>doing. Does something like that exist?
HTTPeek and CG-eye are such beasts.
<URL:http://computerdog.com/httpeek/>
<URL:http://www.htmlhelp.com/tools/cg-eye/>
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: Wed, 21 Jan 1998 17:36:18 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: HTTP debugger. Does that exist?
Message-Id: <comdog-ya02408000R2101981736180001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6a5070$61s@fridge.shore.net>, nvp@shore.net (Nathan V. Patwardhan) posted:
>Craig (craig@skybound.demon.nl) wrote:
>
>: I'm looking for a program to view all the HTTP communication between my
>: browser and my server to see what my CGI scripts and browser are really
>: doing. Does something like that exist?
>
>Get LWP. http://www.perl.com/CPAN/modules/by-module/LWP/
i would adivse against using LWP in this case. LWP munges some of the
HTTP headers and adds others, so it's very difficult to see exactly
what the transaction was. LWP is great, but it's because of it's
abstraction, which in this case is not good.
--
brian d foy <comdog@computerdog.com>
HTTPeek <URL:http://computerdog.com/httpeek/>
------------------------------
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 1696
**************************************
