[14036] in Perl-Users-Digest
Perl-Users Digest, Issue: 1446 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Nov 20 18:10:50 1999
Date: Sat, 20 Nov 1999 15:10:21 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <943139421-v9-i1446@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 20 Nov 1999 Volume: 9 Number: 1446
Today's topics:
How do I take all of the email addresses out of an emai <poohba@io.com>
Re: How do I take all of the email addresses out of an <lionel@lionelandre.com>
Re: How do I take all of the email addresses out of an (Kragen Sitaker)
How to find perl2c translator <r.bezuur@multiweb.nl>
Re: How to find perl2c translator <jmulder@localhost.nl>
how to send data back and forth over sockets <mhdevlin@nycap.rr.com>
Re: how to send data back and forth over sockets <tony_curtis32@yahoo.com>
Re: how to send data back and forth over sockets (Kragen Sitaker)
Re: how to send data back and forth over sockets (Kragen Sitaker)
Re: how to use ODBC (or other) to determine data set fi <rothd@roth.REMOVE.net>
Re: HTML::Pager <rootbeer@redcat.com>
Need a dir <bbridges@seark.net>
Re: Need a dir (Brett W. McCoy)
Re: Need a dir <gellyfish@gellyfish.com>
Re: Need a dir lee.lindley@bigfoot.com
Re: Need a dir (Abigail)
Re: Need a dir <gellyfish@gellyfish.com>
Re: newbie question <bunjonwa@trek.CS.ORST.EDU>
Re: newbie question <bunjonwa@trek.CS.ORST.EDU>
Re: OO question (Kragen Sitaker)
Re: overload [] {} and () (Ilya Zakharevich)
Re: Perl programming sytle <votemand@earthlink.net>
perl script to change .htpasswd mr_potato_head@my-deja.com
Re: perl script to change .htpasswd <lionel@lionelandre.com>
Re: Recursive Search And Replace on NT. <gellyfish@gellyfish.com>
Re: Recursive Search And Replace on NT. lee.lindley@bigfoot.com
Re: REgarding the "x-httpd-cgi" (Abigail)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 20 Nov 1999 13:24:37 -0500
From: Poohba <poohba@io.com>
Subject: How do I take all of the email addresses out of an email?
Message-Id: <Pine.LNX.4.10.9911201322250.5973-100000@eris.io.com>
I am trying to get all of the email addresses out of a letter that I have
so that I can put in my address book.
* Web Page Designs *
/ poohba@io.com | www.io.com/~poohba\
---------------------------------------
\ For info about me send message with /
* subject "send file help" *
------------------------------
Date: Sat, 20 Nov 1999 13:47:32 +0000
From: Lionel Andre <lionel@lionelandre.com>
To: Poohba <poohba@io.com>
Subject: Re: How do I take all of the email addresses out of an email?
Message-Id: <3836A674.3E701F14@lionelandre.com>
HI Poohba.
When you have an answer to this (if you do, could you please be as kind as to
send it my way, since I was going to ask for just THAT! :)
I actually have an outlook folder with about 5 000 returned emails that I
need to remove from my DB. So I was thinking " Let's just run a script that
will scan the file, get the email, write it in another file, and then run a
simple SELECT DISTINCT query... :)
Manually, this would take hours, the script, no matter how inefficient can do
it in no time :)
Thanks a lot! :)
Lionel
Poohba wrote:
> I am trying to get all of the email addresses out of a letter that I have
> so that I can put in my address book.
>
> * Web Page Designs *
> / poohba@io.com | www.io.com/~poohba\
> ---------------------------------------
> \ For info about me send message with /
> * subject "send file help" *
>
------------------------------
Date: Sat, 20 Nov 1999 21:00:22 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: How do I take all of the email addresses out of an email?
Message-Id: <GZDZ3.31608$YI2.1516728@typ11.nn.bcandid.com>
In article <3836A674.3E701F14@lionelandre.com>,
Lionel Andre <lionel@lionelandre.com> wrote:
>> I am trying to get all of the email addresses out of a letter that I have
>> so that I can put in my address book.
perldoc -q mail
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Sat, 20 Nov 1999 19:19:01 +0100
From: Ronald <r.bezuur@multiweb.nl>
Subject: How to find perl2c translator
Message-Id: <3836E615.8FCF0C24@multiweb.nl>
Hi
Could anybody tell me where I can find a perl2c translator?
Thanks
Ronald
------------------------------
Date: 20 Nov 1999 18:50:38 GMT
From: Johan Mulder <jmulder@localhost.nl>
Subject: Re: How to find perl2c translator
Message-Id: <816qhu$j6b$4@enterprise.cistron.net>
Ronald <r.bezuur@multiweb.nl> wrote:
: Could anybody tell me where I can find a perl2c translator?
Maybe you need perlcc?
------------------------------
Date: Sat, 20 Nov 1999 15:54:23 -0500
From: "Matthew H. Devlin III" <mhdevlin@nycap.rr.com>
Subject: how to send data back and forth over sockets
Message-Id: <38370A7E.4F1D5EEB@nycap.rr.com>
I have created a little Tk application that runs on unix. What I want
to do with it is be able to run it on a windows machine and connect via
a socket to the unix server.
Can someone provide me with some code so I can get started? I just need
some examples so I can get the jist.
like a simple client which connects to a simple server, runs a `ls` and
then returns the output back to the client.
------------------------------
Date: 20 Nov 1999 21:53:54 +0100
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: how to send data back and forth over sockets
Message-Id: <83r9hkrijh.fsf@vcpc.univie.ac.at>
Re: how to send data back and forth over sockets,
Matthew <mhdevlin@nycap.rr.com> said:
Matthew> I have created a little Tk application that
Matthew> runs on unix.
How nice. Now, which newsgroup is this?
------------------------------
Date: Sat, 20 Nov 1999 21:16:35 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: how to send data back and forth over sockets
Message-Id: <TcEZ3.31634$YI2.1518924@typ11.nn.bcandid.com>
In article <83r9hkrijh.fsf@vcpc.univie.ac.at>,
Tony Curtis <tony_curtis32@yahoo.com> wrote:
>Re: how to send data back and forth over sockets,
>Matthew <mhdevlin@nycap.rr.com> said:
>Matthew> I have created a little Tk application that
>Matthew> runs on unix.
>
>How nice. Now, which newsgroup is this?
Presumably he means he wrote it in Perl, using Tk. His question is
on-topic here but would not be on-topic on comp.lang.perl.tk.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Sat, 20 Nov 1999 21:16:57 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: how to send data back and forth over sockets
Message-Id: <ddEZ3.31635$YI2.1518970@typ11.nn.bcandid.com>
In article <38370A7E.4F1D5EEB@nycap.rr.com>,
Matthew H. Devlin III <mhdevlin@nycap.rr.com> wrote:
>Can someone provide me with some code so I can get started? I just need
>some examples so I can get the jist.
>like a simple client which connects to a simple server, runs a `ls` and
>then returns the output back to the client.
See perldoc perlipc.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Sat, 20 Nov 1999 11:33:44 -0800
From: "Dave Roth" <rothd@roth.REMOVE.net>
Subject: Re: how to use ODBC (or other) to determine data set field types?
Message-Id: <wKCZ3.101948$y45.1754199@news4.giganews.com>
"Dan Harasty" <harasty@my-deja.com> wrote in message
news:80nthn$70g$1@nnrp1.deja.com...
> I have a written a program that can select a SQL recordset then,
> ignoring the data, determine all the fieldnames, fieldtypes, and
> fieldsizes (e.g. INT or VARCHAR(12)). From that I can do a variety of
> fun things, like make an ad-hoc CREATE TABLE query to recreate the table
> in a different database...
>
> UNFORTUNTATELY, I did this in Visual Basic... and I would like to
> recreate it in a Perl script, using Win32::ODBC (or any other means). I
> see that Win32::ODBC::fieldnames() can get me the fieldnames, but I
> can't figure out how to get the fieldtypes/fieldsizes. If I'm supposed
> to use ColAttributes(), I can't figure out how to coax this info out of
> it.
This is rather quite easy...
use Win32::ODBC;
$db = new Win32::ODBC( "MyDsn" ) || die "Can't connect: " .
Win32::ODBC::Error();
if( ! $db->Sql( "SELECT * FROM foo" ) )
{
# Now we get the field name...
@Names = $db->FieldNames();
# Get the types, sizes, if the field is an autocount, if the field is case
sensitive
while $Field ( @Names )
{
my $Result;
($Result, $Types{$Field}) = $db->ColAttributes( $Field,
$db->SQL_DESC_TYPE_NAME );
# Next one is the display size (how many chars are needed to display the
result) therefore
# it only applies to string fields. Other fields have a fixed size
depending upon type (eg. long == 32 bits)
($Result, $Size{$Field}) = $db->ColAttributes( $Field,
$db->SQL_DESC_DISPLAY_SIZE );
# Next one is only applicable to numeric fields
($Result, $AutoCount{$Field}) = $db->ColAttributes( $Field,
$db->SQL_DESC_AUTO_UNIQUE_VALUE );
# Next on is only applicable to char like fields
($Result, $Case{$Field}) = $db->ColAttributes( $Field,
$db->SQL_DESC_CASE_SENSITIVE );
}
}
else
{
print "Unable to execute the query: " . $db->Error();
}
$db->Close;
=======================================================
Dave Roth ...glittering prizes and
Roth Consulting endless compromises, shatter
rothd@roth.remove.net the illusion of integrity
http://www.roth.net
Win32, Perl, C++, ODBC, Training
To send email remove the 'REMOVE.' from my reply address.
Coding Perl on Win32? You need our book:
"Win32 Perl Programming: The Standard Extensions"
http://www.roth.net/books/extensions/
------------------------------
Date: Sat, 20 Nov 1999 13:05:31 -0800
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: HTML::Pager
Message-Id: <Pine.GSO.4.10.9911201304330.16575-100000@user2.teleport.com>
On Fri, 19 Nov 1999 crackbaby1@my-deja.com wrote:
> Can anyone point me to some documentation on how to use HTML::Pager?
If a module doesn't come with (adequate) documentation, you should
complain to whoever gave it to you. The best way to complain is to supply
a patch. :-) Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 20 Nov 1999 17:28:25 GMT
From: "Bob Bridges" <bbridges@seark.net>
Subject: Need a dir
Message-Id: <01bf337b$c830d260$7b64f5d0@bbridges.seark.net>
How do I get my program to put it's own directory location into a scalar
variable (forgive me if I used some improper terminology)?
------------------------------
Date: Sat, 20 Nov 1999 18:05:57 GMT
From: bmccoy@news.lan2wan.com (Brett W. McCoy)
Subject: Re: Need a dir
Message-Id: <slrn83doun.f24.bmccoy@dragosani.lan2wan.com>
Also sprach Bob Bridges <bbridges@seark.net>:
>How do I get my program to put it's own directory location into a scalar
>variable (forgive me if I used some improper terminology)?
perldoc Cwd
--
Brett W. McCoy
http://www.lan2wan.com/~bmccoy/
-----------------------------------------------------------------------
"Ask not what A Group of Employees can do for you. But ask what can
All Employees do for A Group of Employees."
-- Mike Dennison
------------------------------
Date: 20 Nov 1999 18:40:45 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Need a dir
Message-Id: <816pvd$885$1@gellyfish.btinternet.com>
On Sat, 20 Nov 1999 17:28:25 GMT Bob Bridges wrote:
> How do I get my program to put it's own directory location into a scalar
> variable (forgive me if I used some improper terminology)?
>
To find the Current Working directory of your program (that is for instance
where a file might be created if you dont specify a full pathname) you
might want to use the module Cwd - i.e :
use Cwd;
my $cwd = cwd;
However this is not necessarily equivalent to the directory where your
program resides however several notable usenauts have suggest that you might
use this :
my ($progdir) = $0 =~ m#^(.+)/[^/]+$#;
(or something like it ) to obtain the location of the program relative
to the current working directory - this is *usually* enough for most
purposes.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 20 Nov 1999 19:05:47 GMT
From: lee.lindley@bigfoot.com
Subject: Re: Need a dir
Message-Id: <816reb$7p6$3@rguxd.viasystems.com>
Bob Bridges <bbridges@seark.net> wrote:
:>How do I get my program to put it's own directory location into a scalar
:>variable (forgive me if I used some improper terminology)?
Assuming you mean the directory where your script resides and
not necessarily the one where it is invoked, see
perldoc FindBin
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 20 Nov 1999 14:59:24 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Need a dir
Message-Id: <slrn83e33l.m2v.abigail@alexandra.delanet.com>
Jonathan Stowe (gellyfish@gellyfish.com) wrote on MMCCLXXII September
MCMXCIII in <URL:news:816pvd$885$1@gellyfish.btinternet.com>:
@@ On Sat, 20 Nov 1999 17:28:25 GMT Bob Bridges wrote:
@@ > How do I get my program to put it's own directory location into a scalar
@@ > variable (forgive me if I used some improper terminology)?
@@ >
There's a module for that. Find::Bin or something like that.
@@ However this is not necessarily equivalent to the directory where your
@@ program resides however several notable usenauts have suggest that you might
@@ use this :
@@
@@ my ($progdir) = $0 =~ m#^(.+)/[^/]+$#;
@@
@@ (or something like it ) to obtain the location of the program relative
@@ to the current working directory - this is *usually* enough for most
@@ purposes.
I'd say, it usually isn't. Most applications run (at least on Unix
systems) are found in $PATH, instead of run with an absolute or relative
path. $0 is how the program was invoked, not the path to the application.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 20 Nov 1999 22:01:02 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Need a dir
Message-Id: <8175mu$8ra$1@gellyfish.btinternet.com>
On 20 Nov 1999 14:59:24 -0600 Abigail wrote:
> Jonathan Stowe (gellyfish@gellyfish.com) wrote on MMCCLXXII September
> MCMXCIII in <URL:news:816pvd$885$1@gellyfish.btinternet.com>:
> @@ On Sat, 20 Nov 1999 17:28:25 GMT Bob Bridges wrote:
> @@ > How do I get my program to put it's own directory location into a scalar
> @@ > variable (forgive me if I used some improper terminology)?
> @@ >
>
> There's a module for that. Find::Bin or something like that.
>
> @@ However this is not necessarily equivalent to the directory where your
> @@ program resides however several notable usenauts have suggest that you might
> @@ use this :
> @@
> @@ my ($progdir) = $0 =~ m#^(.+)/[^/]+$#;
> @@
> @@ (or something like it ) to obtain the location of the program relative
> @@ to the current working directory - this is *usually* enough for most
> @@ purposes.
>
> I'd say, it usually isn't. Most applications run (at least on Unix
> systems) are found in $PATH, instead of run with an absolute or relative
> path. $0 is how the program was invoked, not the path to the application.
>
Er, are you sure ? Am I sure for that matter ?
gellyfish@gellyfish:/home/gellyfish > cat clpmtest/pwd.pl
#!/usr/bin/perl -w
print $0,"\n";
my ($progdir) = $0 =~ m#^(.+)/[^/]+$#;
print $progdir,"\n";
gellyfish@gellyfish:/home/gellyfish > pwd.pl
/usr/local/bin/pwd.pl
/usr/local/bin
So the shell prepends the peritinent part of the path when it runs the
program - I would assume that most other programs that run other
programs (and I am thinking particularly of a web server here ) will
do the same and $0 will reflect that. Nonetheless (relativity
notwithstanding :) the path part of $0 will be sufficient to locate the
program.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sat, 20 Nov 1999 12:07:35 -0800
From: Waranun Bunjongsat <bunjonwa@trek.CS.ORST.EDU>
Subject: Re: newbie question
Message-Id: <Pine.GSO.4.03.9911201206130.462-100000@trek.CS.ORST.EDU>
On Sat, 20 Nov 1999, Klay To wrote:
|On Sat, 20 Nov 1999 11:34:34 +0100, Waranun Bunjongsat wrote:
|
|> I know now that why my DB_File is not working. This is because
|> my server do not have the program installed.
|
|Too bad. If you do not have telnet access to the server, you cannot use
|DB_File, since there are parts that must be compiled.
|Maybe you should ask your provider to install DB_File, and also ask why
|you have a crippled version of perl, since DB_File is one of the
|standard modules. So you have no "real" perl version.
I do have telnet access to the server. But, I'm not sure my
server's pearl have DB_File. Because, I can't use it. How to check whether
my server's pearl has it ?
--
____________________________________________________________________________
Waranun Bunjongsat tel: 541-343-5970
Graduate Student e-mail: bunjonwa@cs.orst.edu
Department of Computer Science homepage:http://www.cs.orst.edu/~bunjonwa
Oregon State University
____________________________________________________________________________
------------------------------
Date: Sat, 20 Nov 1999 12:10:22 -0800
From: Waranun Bunjongsat <bunjonwa@trek.CS.ORST.EDU>
Subject: Re: newbie question
Message-Id: <Pine.GSO.4.03.9911201208450.462-100000@trek.CS.ORST.EDU>
On Sat, 20 Nov 1999, Kragen Sitaker wrote:
|In my book, asking how to install modules is a real perl question.
Could you please tell me how to install it ? So that I can use it
by using 'use' and 'tie'.
Thanks in advance !!!
--
____________________________________________________________________________
Waranun Bunjongsat tel: 541-343-5970
Graduate Student e-mail: bunjonwa@cs.orst.edu
Department of Computer Science homepage:http://www.cs.orst.edu/~bunjonwa
Oregon State University
____________________________________________________________________________
------------------------------
Date: Sat, 20 Nov 1999 21:33:24 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: OO question
Message-Id: <EsEZ3.31657$YI2.1521302@typ11.nn.bcandid.com>
In article <814jp7$gph$1@info2.uah.edu>, Greg Bacon <gbacon@cs.uah.edu> wrote:
>In article <80vo98$45h$1@towncrier.cc.monash.edu.au>,
> damian@cs.monash.edu.au (Damian Conway) writes:
>: # CALL METHODS NON-POLYMORPHICALLY (VIA REFERENCE)...
>: $mycall1->($self,$arg1);
>: $mycall2->($self,$arg2);
>
>Wouldn't
>
> $self->$mycall1($arg1);
>
>be preferable because of its advantage in the area of visual cues?
Damian was posting about how to make it faster, not more readable. :)
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 20 Nov 1999 19:29:52 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: overload [] {} and ()
Message-Id: <816srg$q4n$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to M.J.T. Guy
<mjtg@cus.cam.ac.uk>],
who wrote in article <816i77$gth$1@pegasus.csx.cam.ac.uk>:
> Abigail <abigail@delanet.com> wrote:
> >
> >Eh? Either you are using a different version than the last stable
> >release, it's an undocumented feature, or you are refering to ties.
> >
> >$ perl -Moverload -wle '$, = " "; print values %overload::ops'
> >+ - * / % ** << >> x . nomethod fallback = < <= > >= == != & | ^ += -=
> *= /= %= **= <<= >>= x= .= bool "" 0+ lt le gt ge eq ne atan2 cos sin
> exp abs log sqrt <=> cmp neg ! ~ ++ --
> >$
>
> It's well known that Ilya lives in a parallel universe where
> development versions are stable releases.
>
> $ perl5.005_62a -Moverload -wle '$, = " "; print values %overload::ops'
> lt le gt ge eq ne + - * / % ** << >> x . neg ! ~ atan2 cos sin exp abs
> log sqrt <=> cmp & | ^ <> ++ -- nomethod fallback = < <= > >= == != ${}
> @{} %{} &{} *{} bool "" 0+ += -= *= /= %= **= <<= >>= x= .=
Hmm... I was absolutely sure these guys were added before 5.005. But
you all are right: it was 5.005_53! Sorry for the confusion.
Ilya
------------------------------
Date: Sat, 20 Nov 1999 16:50:35 -0500
From: Michael Fischer <votemand@earthlink.net>
Subject: Re: Perl programming sytle
Message-Id: <3837178C.7088527C@earthlink.net>
David Cassell wrote:
[...]
> Yes, I said "hand-krufted". I like jargon and puns.
You're not the only one.
> Of course, it has also attracted a lot of web-people who
> have no comp-sci background, no experience with prior
> programming languages,
How about Lit. major, Masters in Fine Arts, HTML blarg,
JavaScript, Perl?
I end up with _Algorithms in Perl_ to help me understand
Sedgewick's _Algorithms in *_, a hard drive full of downloaded
RFCs I don't have time to read 'cause I'm too busy trying
to find the Perldocs (or clpm postings)
to answer why my program isn't behaving itself. At least I
love learning this stuff. Many friends doing HTML for a living
think I am insane for caring about languages, OS's, etc..
But they will be out of a job much sooner, and miss a lot of
the fun.
I'll either end up a genius or an unrecoverable mess. Meantimes,
its like the stage of growing out one's hair to a new style; the
in-between time never looks right, one's skills are neither
yet fish nor fowl.
I find trying to get a grip on "idomatic" Perl is a good exercise
in finding out how Perl really works. Means a little more work,
but...
BTW, despite its reputation, this is one of the most generous
and helpful newsgroups around. Thanks to all the regulars.
--
Michael
------------------------------
Date: Sat, 20 Nov 1999 18:22:46 GMT
From: mr_potato_head@my-deja.com
Subject: perl script to change .htpasswd
Message-Id: <816otk$pqo$1@nnrp1.deja.com>
hi,
I have a internal web page that I want to give my users the ability
to change there password. Can anyone direct me to a simple perl cgi
script that will change someone's password in a .htpasswd file? Thanks
in advance...
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 20 Nov 1999 14:08:40 +0000
From: Lionel Andre <lionel@lionelandre.com>
To: mr_potato_head@my-deja.com
Subject: Re: perl script to change .htpasswd
Message-Id: <3836AB68.24E56FBD@lionelandre.com>
http://www.boutell.com/openfaq/cgi/77.html
Read the FAQs.... :)
mr_potato_head@my-deja.com wrote:
> hi,
> I have a internal web page that I want to give my users the ability
> to change there password. Can anyone direct me to a simple perl cgi
> script that will change someone's password in a .htpasswd file? Thanks
> in advance...
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: 20 Nov 1999 18:43:11 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Recursive Search And Replace on NT.
Message-Id: <816q3v$888$1@gellyfish.btinternet.com>
On Sat, 20 Nov 1999 11:49:58 -0500 Arthur Cinader wrote:
> Here is what I have so far:
>
> C:\TEMP\mungetest>perl -e "s/test/hello/g;" -pi.save $(find . -type f)
> Can't open $(find: No such file or directory
> Can't open .: Permission denied
> Can't open -type: No such file or directory
> Can't open f): No such file or directory
>
> I don't know how to get a recursive file list from the current directory
> down. Ideally I could specify extensions to be included (i.e. .html .txt,
> but not .gif).
>
> Dont really get the NT thing yet.
>
Sorry guy but I dont think you can do it as a one liner like that on NT -
you might want to look at File::Find.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 20 Nov 1999 18:58:59 GMT
From: lee.lindley@bigfoot.com
Subject: Re: Recursive Search And Replace on NT.
Message-Id: <816r1j$7p6$1@rguxd.viasystems.com>
Arthur Cinader <acinader@panix.com> wrote:
:>Here is what I have so far:
:>C:\TEMP\mungetest>perl -e "s/test/hello/g;" -pi.save $(find . -type f)
:>Can't open $(find: No such file or directory
:>Can't open .: Permission denied
:>Can't open -type: No such file or directory
:>Can't open f): No such file or directory
Copied from somebody who add access to a nice Unix machine with
a friendly shell.
:>I don't know how to get a recursive file list from the current directory
:>down. Ideally I could specify extensions to be included (i.e. .html .txt,
:>but not .gif).
`perldoc File::Find`
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 20 Nov 1999 13:13:55 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: REgarding the "x-httpd-cgi"
Message-Id: <slrn83dstr.m2v.abigail@alexandra.delanet.com>
Jonathan Stowe (gellyfish@gellyfish.com) wrote on MMCCLXXI September
MCMXCIII in <URL:news:38356aa5_2@newsread3.dircon.co.uk>:
++
++ <sigh another message from postnews.deja.com>
++
++ My problem here is that we are getting these posts from the Deja mail
++ to news gateway without the message they are following up and probably
++ without the poster realising that they actually are submitting this
++ to thousands of computers on usenet .
From my .slrn_score file:
[*]
Score:: -9999
From: my-deja\.com
From: my-dejanews\.com
Message-ID: deja\.com
NNTP-Posting-Host: dejanews\.com
X-MyDeja-Info: .
X-DejaID: .
That seems to work very well. Except when people keep quoting those
messages and complaing about them..... ;-)
Abigail
--
$" = "/"; split $, => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
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 1446
**************************************
