[10123] in Perl-Users-Digest
Perl-Users Digest, Issue: 3716 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 15 00:08:26 1998
Date: Mon, 14 Sep 98 21:00:16 -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 Mon, 14 Sep 1998 Volume: 8 Number: 3716
Today's topics:
Re: finding out yesterdays date (Larry Rosler)
Re: Getting NTFS Directory structure size (Martien Verbruggen)
Re: help with perl reg. expr. <ajohnson@gpu.srv.ualberta.ca>
Re: help with perl reg. expr. (Ronald J Kimball)
Re: Hidden Input Types and Quote Marks (Ronald J Kimball)
Re: Hidden Input Types and Quote Marks (Abigail)
Re: How to check for existance of a variable whose name (Ronald J Kimball)
Re: Perl & Java - differences and uses (A.M. Kuchling)
Re: Perl & Java - differences and uses <zenin@bawdycaste.org>
Re: PERL and Updating files <eashton@bbnplanet.com>
Re: Perl om DOS??? (Ronald J Kimball)
Re: Perl4/Perl5 (Ronald J Kimball)
Re: Registration Script beyret@my-dejanews.com
Re: search and replace between values (Tad McClellan)
Static linking in Win NT - for Filter::decrypt <standfast@mindspring.com>
Re: STD I/O for WIN32 Perl <tpg@cls.uob.com.sg>
Re: Web Chat (Martien Verbruggen)
Re: Who posts original posts on CLPM? <eashton@bbnplanet.com>
Re: Who posts original posts on CLPM? (Ronald J Kimball)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 14 Sep 1998 20:09:22 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: finding out yesterdays date
Message-Id: <MPG.10677a3b74f95d6989857@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <Pine.GSO.3.96.980914202556.28375A-100000@crusoe.crusoe.net>
on Mon, 14 Sep 1998 20:32:08 -0400, Jeff Pinyan <jeffp@crusoe.net>
says...
> > I have a system that outputs a comma delimited file and then is passed
> > to my linux box. The first field is the date like 09/14/98. The date
> > is actually the next days date since it passes the data at midnight.
> > The program has to do this because that's how it works so I can't set
> > it to send at 11:59. I want to be able to reset the dates that are
> > sent to one day less. Is there somthing to do this? So if the date
> > is stamped 09/14/98 I want it to be 09/13/98. Thanks.
...
> ($d,$m,$y) = (localtime(time-86400))[3..5]; # 86400 = seconds in a day
> $d = "0$d" unless length($d) == 2;
> $m = '0' . ++$m unless length($m) == 2;
> $yesterday = "$d/$m/$y";
This will produce the wrong month for November and December, and a
strange-looking year in less than 16 months. Even when corrected,
it can be done more cleanly using sprintf:
$yesterday = sprintf '%.2d/$.2d/$.2d' => $d, $m + 1, $y % 100;
Each time this subject comes up (it seems like once a week), someone
points out that this algorithm can fail around the two times in the year
that 'days' are not 86400 seconds long. The simplest way to fix it in
this case is to force the time to local noon (give or take an hour :-):
localtime(time - time % 86400 - 86400 / 2)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 15 Sep 1998 02:24:48 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Getting NTFS Directory structure size
Message-Id: <QdkL1.788$DK4.218178@nsw.nnrp.telstra.net>
In article <35febb67.2614038@news.mindspring.com>,
vcuya@mindspring.com (Victor A. Cuya) writes:
> Does anyone have any idea of how to get a directory size with total
> number of files in it with Perl for Win32. I am trying to replicate
> the 'Properties' function under Explorer.
Your question is not entirely clear.. Do you want the number of files
in a directory? Do you want the number of bytes or blocks in a
directory (yes, they are different)? Do you want to recurse down into
subdirectories, and get the total size in bytes or so? I will assume
the last, even though it's not at all clear.
> I want to avoid doing a File::Find and then getting the information
> for each individual file in the tree.
Still, that is what you will have to do. Unless NTFS has some
accounting system built in (which I doubt very very much) you will
have to recurse into your tree, and get the info for each file. Then
there are the issues about: do you want to know how large a file is,
iow how many bytes it contains, or do you want to know how much disk
space it uses?
This comes up regularly on this group, and I suggest you search
dejanews for some answers.
> Victor A. Cuya
> moc.gnirpsdnim@ayucv
>
> No span spoken here. To answer to my e-mail, reverse the address above.
spam, I suppose?
Do you realise that your From: line contains your address, and that
that is the first place that a spam collector will look? Do you
realise that when someone responds to your post, your address will
most likely appear in the attribution line (see above)?
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | You can't have everything, where would
Commercial Dynamics Pty. Ltd. | you put it?
NSW, Australia |
------------------------------
Date: Mon, 14 Sep 1998 22:24:37 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: help with perl reg. expr.
Message-Id: <35FDDDF5.6B7B9989@gpu.srv.ualberta.ca>
david@ceres.ca.gov wrote:
!
! Hello
! I was hoping someone out there has a perl script which can do
! the following with each entry in a flatfile database. Change each
! pipe delimited entry from:
!
! http://html-resources.com| HTML Resources |10-Sep-1998|cgi/misc|Great for
! for html resources |
!
! to:
! 1|HTML Resources|http://html-resources.com|10-Sep-1998|cgi/misc|Great place
! for html resources |
!
! The number at the beginning of the entry needs to increment by one for each
! entry
not really a regex question, sounds like you just want to
swap fields one and two and prefix a counter field --- here's
one way:
#!/usr/bin/perl -w
use strict;
my $i=1;
while(<DATA>){
print join('|',$i++,(split /\|/,$_,3)[1,0,2]);
}
__DATA__
field one|field two|field three|field four|field five|
a|b|c|d|e
hope it helps
regards
andrew
------------------------------
Date: Mon, 14 Sep 1998 23:43:59 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: help with perl reg. expr.
Message-Id: <1dfdcem.u32o581awuh2kN@bay1-248.quincy.ziplink.net>
<david@ceres.ca.gov> wrote:
> I was hoping someone out there has a perl script which can do the
> following with each entry in a flatfile database. Change each pipe
> delimited entry from:
>
> http://html-resources.com| HTML Resources |10-Sep-1998|cgi/misc|Great place
> for html resources |
>
> to:
> 1|HTML Resources|http://html-resources.com|10-Sep-1998|cgi/misc|Great place
> for html resources |
>
> The number at the beginning of the entry needs to increment by one for each
> entry
Why would you want to use a regex to do that?
$count = 0;
while (<>) {
@fields = split /\|/;
$fields[1] =~ s/^ +//;
$fields[1] =~ s/ +$//;
print join '|', ++$count, @fields[1, 0, 2 .. $#fields];
}
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 14 Sep 1998 23:44:00 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Hidden Input Types and Quote Marks
Message-Id: <1dfdckt.1ez1p6k155203kN@bay1-248.quincy.ziplink.net>
Darren Hayes <darrenh@efn.org> wrote:
> The CGI scripts are written in Perl. I was hoping to trap the quote
> marks either in the HTML value field before submitting them or in the
> Perl script right after the parse. I know I can substitute to a
> bizarre character but I would like to be able to maintain the quote
> marks integrated in the original text somehow.
Whatever solution you come up with will most likely work in any CGI
script, regardless of the language in which it is written. Thus, this
is not a Perl question.
It sounds like you need to learn HTML.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 15 Sep 1998 03:48:28 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Hidden Input Types and Quote Marks
Message-Id: <6tko2c$mkl$1@client3.news.psi.net>
Darren Hayes (darrenh@efn.org) wrote on MDCCCXLI September MCMXCIII in
<URL: news:3601b3ac.28648104@news.efn.org>:
[ He also send me a copy by email, without indicating the fact he
posted as well ]
++ On 14 Sep 1998 22:55:01 GMT, abigail@fnx.com (Abigail) wrote:
++
++ >Darren Hayes (darrenh@efn.org) wrote on MDCCCXL September MCMXCIII in
++ ><URL: news:35ff784e.13447935@news.efn.org>:
++ >
++ >And what makes you think you find the answer to your non-Perl question
++ >here? You would have more chance of finding your answer in
++ >alt.fan.mickey_mouse.
++
++ Abigail (is that real name?)-
No, that's integer name.
++ Thanks for the very helpful response... Sounds like you are related to
++ a few local system administrators I know of... anyway
It runs in the family. When we have family gatherings, computers go
down in half the state; the entire state when we gather in smaller
states, like Florida.
++ The CGI scripts are written in Perl.
Goodie. Then what *is* your Perl question?
++ I was hoping to trap the quote
++ marks either in the HTML value field before submitting them or in the
++ Perl script right after the parse. I know I can substitute to a
++ bizarre character but I would like to be able to maintain the quote
++ marks integrated in the original text somehow.
I assume your question is something else than 'how to print "'.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: Mon, 14 Sep 1998 23:44:01 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: How to check for existance of a variable whose name is generated on the fly
Message-Id: <1dfdcr0.1127f4q64rtbkN@bay1-248.quincy.ziplink.net>
Vjekoslav Balas <eedvab@eed.ericsson.se> wrote:
> I generate a form whose contents is a list of checkboxes whose name/value
> are record numbers in a database - this way user can select the records he/she
> wishes. Once the form data is processed by a perl script, all form data
> enters as a hash of the form : Formdata{name}
>
> Question - if one knows the form of the name (eg a pure record number
> or a comination of a specific string concatenated with the record number),
> is there a way that one can check if any one or more of the names
> have been received ?
Perhaps you could use the keys() function to get a list of all the keys
which have been assigned values?
If not, I may have misunderstood your question.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 15 Sep 1998 02:58:51 GMT
From: amk@mira.erols.com (A.M. Kuchling)
Subject: Re: Perl & Java - differences and uses
Message-Id: <slrn6vrm2o.2em.amk@207-172-57-15.s15.tnt2.ann.erols.com>
[Followups redirected back to comp.lang.java.programming and
comp.lang.perl.misc.]
On Mon, 14 Sep 1998 21:43:33 GMT, George Reese <borg@imaginary.com> wrote:
>: : In comp.lang.java.programmer Zenin <zenin@bawdycaste.org> wrote:
<much anecdotal evidence and counter-evidence deleted>
Look, here's the critical difference between Python and Perl, found in
an old quotation from comp.lang.python.
One of the things that makes it interesting, is exactly how much Guido
has managed to exploit that one implementation trick of
'namespaces'.
-- Steven D. Majewski, 17 Sep 1993
That about expresses it. Python rings many changes on the same basic
idea; it takes some simple ideas, and extends them throughout the
language's structure. Therefore, it's a conceptually quite small;
once you understand namespaces, the scoping rules, and a few other
things, that's about all there is to know. Things like regular
expressions are off in modules, not part of the core language, because
they're not useful to all applications; if you're using Python to call
Fortran libraries, or to script animated objects, or to control COM
objects, regular expressions aren't very useful for the job, and it's
handy to be able to make them optional. Therefore, they've been left
out of the core language.
People may, of course, differ in their preference for simplicity
versus elaboration -- Moshe Safdie's architectural designs versus
I.M. Pei's, John Zorn's music versus Michael Nyman's, Peter
Greenaway's films versus Michael Snow's, Emacs versus vi, Perl versus
Python.
Pointless flamage such as this simply wastes everyone's time. To
George Reese: go write some useful open source app using Python,
instead of starting unresolvable flamewars. (And how come, despite
your fire-breathing advocacy, I'm unable to find any postings to
comp.lang.python from you? Never contributed code? Perhaps you're
going through the "boundless puppy-like enthusiasm" phase of the
recent convert...)
On Mon, 14 Sep 1998 21:43:33 GMT, George Reese <borg@imaginary.com> quoted:
>: : In comp.lang.java.programmer Zenin <zenin@bawdycaste.org> wrote:
>: Tack on "in my experience". Last I reviewed Python in depth, a
>: little less then a year ago, its pattern matching abilities still
>: left much to be desired, and that was before Perl made even more
>: major advances.
Minor correction: Python 1.5's re module (built on top of
Philip Hazel's PCRE library) is, modulo some minor differences,
equivalent to Perl5.004's regexes. Some of the Perl5.005 features are
being added to the current version of PCRE, and they'll probably show
up in Python 1.6, whenever that version happens; as for the more
elaborate 5.005 features, such as recursive regexes and embedding Perl
code in a regex, I'm willing to wait and see if Perl people use them
very much before deciding to implement them.
--
A.M. Kuchling http://starship.skyport.net/crew/amk/
"There is no disputing about tastes," says the old saw. In my experience there
is little else.
-- Robertson Davies, _Marchbanks' Almanac_ (1967)
------------------------------
Date: 15 Sep 98 03:38:20 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Perl & Java - differences and uses
Message-Id: <905830672.564598@thrush.omix.com>
George Reese <borg@imaginary.com> wrote:
: In comp.lang.java.programmer Zenin <zenin@bawdycaste.org> wrote:
>snip<
: : Tack on "in my experience". Last I reviewed Python in depth, a
: : little less then a year ago, its pattern matching abilities still
: : left much to be desired, and that was before Perl made even more
: : major advances.
:
: That's a long way from showing any meaningful functional difference.
As Andrew Johnson has described, according to http://www.python.org/doc/
lib/re-syntax.html, Python is still missing a number of the more
advanced pattern features of Perl.
>snip<
: I clearly believe strongly in the OO way of life. You do not. I
: believe the results speak for themselves.
You're jumping to conclusions. I too "believe strongly" in OO
methods, I just don't walk around preaching the dogma that it is
the "one true way" or any other such non-sense.
Many tasks fit well within OO methodologies, still many others do
not. The decision of which method to use and in what amounts is a
decision best left to the *programmer*.
: Yes. Unfortunately, you are the one providing anecdotal evidence of
: C's maintainability.
Crosspost this to comp.lang.c.* and let's see the sparks fly. :-)
: While I certainly have not provided overwhelming
: evidence that Python is more maintainable, at least I have provided a
: test by which we can compare maintainability of it and perl.
A test which no one else seems to feel valid enough to even bother
commenting on.
: OK, no, I have not. Here is a test though. Get someone who has a
: month of experience with each language. Ask each one to accomplish
: the same task in their language. I guarantee the perl, C, and C++
: code will always come out more obfuscated than the python or Java
: code.
"will always" is a pretty stong declaration. Another issue
altogether is, "which will take the least amount of time to
complete". Still another issue is, "which will they enjoy
working with the most".
: : : In Python or Java (moreso Python than Java), you have to intentionally
: : : set out to write unclear code.
: : Ditto for Perl.
: This is totally false.
Please show *any* Python or Java code that when translated to Perl
would be done uncleanly by default. *Any* code.
>snip<
: This OO breakdown of the language makes it a lot easier to get going
: in the language and accomplish what you need.
s/OO/modular/g;
Oh, I'm sorry, that should be:
my $regex = new Pattern::SearchAndReplace;
$regex->setSearchPattern ("OO");
$regex->setReplaceString ("modular");
$regex->setGlobalMatch (1);
my $modifiedLine = new String ($regex->runPatternMatch ($originalLine));
: Contrary to what you
: have stated, the number of Java classes ou need to know in order to
: get started is very low.
You have to get into classes for hello world. Anything beyond that
takes understanding of quite a bit more.
: Need to add database access to your repertoire? Just worry about java.sql.
Or, just worry about DBI in Perl. Your point?
>snip<
: This contradicts what you stated before. If it is easier to hang
: yourself, then that means it is more likely you have to know what you
: are doing to avoid pitfalls.
See, that's the funny thing about Perl. You don't have to. Perl
has invisible guide rails that make stepping into such pitfalls
rather hard to do without more deeper understanding of the language.
: And the same bad programming habits will not create unreadable python code.
Oh no? And why is that? Examples, please.
: You have to be an expert at Python to create unreadable Python code.
*Exactly* the same case as obfusticated Perl.
>snip<
: Freedom has no place in programming. Period.
Huh????
If there is no place for such freedom to decide for one's self
the best way to perform a particular task, we clearly should
only have *one* programming language, period. Why give any possibility
to "confuse" the poor, inept programmers with actually having a choice?!
I mean, we all know that Gosling and Rossum knew since *birth* the *single*
"correct" way to do *each and every* programming task that could ever exist
to the end of time! Ya, right, whatever...
Programming is an ART at least as much if not more then it is a science.
You *can not* have art without freedom, and you can not have programming
without art. To take this further, you can not have any science
without freedom as all science is an art.
>snip<
: Correct. And the beauty of this is that I am not a long time Python
: programmer. I have slightly more perl experience than python experience.
And so, you, are the most qualified to pass such judgments? LOL
>snip<
: It is evil in Makefiles because Makefile distinguish between
: whitespace and tabs. Please explain what the issue is with python?
If one programmer uses tabs to indent a piece of code and another
programmer comes by and uses spaces, all hell breaks loose if the
one using spaces doesn't use an 8 space (blagh!) indent...
What a maintenance nightmare...
I hold true to my statements. Magic whitespace is the tool of
Satan, and Python is one of his most notorious minions.
>snip<
: The reality is
: something like python which is expressive in terms common among people
: while retaining the structure required for structured programming.
If and only if one agrees with Pythons expression style and structure.
Be dammed if they don't. If you don't believe in Python, you're
just wrong. Hmm, sounds a lot like most religions to me...
: Perl is just chaos.
Programming is art. Art is freedom. Freedom is Perl.
>snip<
: : PAUSE (Perl Authors Upload Server) isn't a module, it is a system.
: : CPAN (Comprehensive Perl Archive Network) is both a system and
: : a module to interface with that system.
>snip<
: : This is just one of many, many features of the system however.
:
: This has absolutely nothing to do with the language.
Of course it does. For what is a language without its support systems?
Perl has taken the lead here by providing an extremely well structured
support system to its users with support in the core libraries to
access it.
For what use is a collection of reusable code if the intended audience
can not access it easily, simply, and completely?
>snip<
: OO is the single best path to code reuse.
ROTFL!
Funny, I've found *far* more reusable non-OO libraries then I've ever
seen OO ones. Once again, just because something is "OO" in no way
what so ever guarantees that it is reusable. One must go through
the same design systems to make OO code reusable as they do for
non-OO code.
Funny thing about reusable code. It's not reusable unless you
reuse it. :-)
: : : Java is pure OO.
: : Java has primitive types, therefore by strict OO thinking it
: : is *not* "pure" OO.
: That has nothing to do with pure OO. Pure OO is defined by data
: abstraction, inheritance, polymophism, and encapsulation.
If this is all that is required, Perl *IS* pure OO!
Perl not only provides all the features you list above, but arguably
provides implementations of them that are far and above more
powerful then anything Java, or Python could ever hope to offer.
I think you need to reread your OO textbooks. Non-object types have
no place in "strict" OO methodologies, simply because by there very
nature you lose "proper" OO encapsulation. I'm not saying this
is the best choice for a language, but it is the "strict" definition
of "pure" OO. See SmallTalk for an example of a "pure" OO language.
: Perl, on the other hand, enforces nothing in the object realm. It
: simply allows it.
Exactly. Don't balk at such freedom so quickly. Freedom is power.
>snip<
: And that is not a point worth making since my contention is that perl
: is bad OO.
No, your contention was that Perl was *not* OO, which is clearly
a lie baring close to flame bait.
You never even showed enough respect to call it "bad" OO until
now. Are you changing your mind on the issue? At this rate,
you'll be preaching Perl's OO model as the best in existence
by week's end! :-)
>snip<
: It is very convenient to insult everyone not as skilled at you at
: programming, but the fact is that the more people you can make
: productive in programming, the more work you can get done. And the
: more work you can get done, the more money you make.
This doesn't address the issue. Should the design be designed
by the programmers, or pre-ordained by Gosling and Rossum?
: Therefore, if you can reduce the learning curve for getting involved
: in programming, you raise the amount of money you can make.
By that argument we should all be programming in BASIC.
>snip<
: Actually, I conceded the point to early. Python, as I noted in
: another post, has that functionality. So.... where exactly is this
: catchup required?
It does? Please site the URL, I'd be most interested in details.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: Tue, 15 Sep 1998 03:03:42 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: PERL and Updating files
Message-Id: <35FDD6AB.FD3E9B76@bbnplanet.com>
Tom Christiansen wrote:
> mmesmer@yahoo.com writes:
> :How could I get perl -pi -e 's/string1/string2/g to replace files down through
> :my hierarchy.
>
> That's what the find tool was created for.
Well, find won't replace. However, one could write a script that would
eval the diff and sync up the directories. I don't suppose that would be
in the cookbook, would it?
e.
"All of us, all of us, all of us trying to save our immortal souls, some
ways seemingly more round-about and mysterious than others. We're having
a good time here. But hope all will be revealed soon." R. Carver
------------------------------
Date: Mon, 14 Sep 1998 23:44:02 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Perl om DOS???
Message-Id: <1dfdcz5.1uv6iajgsvtwfN@bay1-248.quincy.ziplink.net>
[posted and mailed]
James M. Darlack <jmd@digex.net> wrote:
> DOes anyone know of a perl that runs under DOS?
www.perl.com does.
http://language.perl.com/info/software.html
http://www.perl.com/CPAN-local/ports/msdos/
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 14 Sep 1998 23:44:03 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Perl4/Perl5
Message-Id: <1dfdd5y.1rj99ut1149t2gN@bay1-248.quincy.ziplink.net>
Owen Cook <rcook@pcug.org.au> wrote:
> The program below works in perl5 but not perl4. Take the four lines
> of the while statement out and the three DATA lines, and it works in
> perl4.
>
> Why?
>
> [...]
> __DATA__
> [...]
Perl4 does not like the __DATA__ token. Try replacing it with __END__.
(I don't suppose you tried running the script under Perl4 from the
command line?)
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Tue, 15 Sep 1998 02:21:36 GMT
From: beyret@my-dejanews.com
Subject: Re: Registration Script
Message-Id: <6tkivg$ia1$1@nnrp1.dejanews.com>
hello there,
hoping not to offend but no need to say that this place is for discussing perl
related issues, things like writing scripts but not downloading.
another thing is that, there can not be "one script" solution to your
question. because your question involves a set of arrangements with a form
(HTML), a script (perl) and the web server daemon (e.g apache). for example
you can write a perl CGI which will get information from a submitted form and
do mailing (6-10 lines of coding) and updating the .htacess file of your
mailing directory.
since the question is general, so the answer is.
try writing the application yourself as much as you can, otherwise you will
have to deal with bugs since program has not been written specifically for
your own application but rather the owner's some other purpose.
hope that helps,
ersin
In article <35FC5DA7.2BE272CE@jacksonville.crosswinds.net>,
Tonya <tonya@jacksonville.crosswinds.net> wrote:
> Does anyone know where I can get a freeware registration cgi/perl
> script.
>
> This script would allow users to register their nick and a random
> password would be
> generated and then emailed to their email address. Users could change
> their password
> via a form. This would be use for members only areas of a website.
>
> and example: http://lovecorner.hypermart.net
>
> Thanks in advance!!
> Tonya
>
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 14 Sep 1998 18:08:58 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: search and replace between values
Message-Id: <am7kt6.6jf.ln@metronet.com>
Steve . (syarbrou@ais.net) wrote:
: I have a line like:
: http:www.url.com/cgi-bin/hi.cgi/jim.zip?fx=joe.joe.net
: I want to delete everything from http through fx= .
s/http.*fx=//;
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 14 Sep 1998 20:03:38 -0700
From: "David Watson" <standfast@mindspring.com>
Subject: Static linking in Win NT - for Filter::decrypt
Message-Id: <6tkle4$8gu$1@nntp1.ba.best.com>
If anyone has run the Filter::decrypt module on NT, I'd be interested in
how!
I'm having trouble doing 'nmake perl' in the Filter module on my NT machine.
I'm using VC++ 5.0 and perl 5.004_04. The error I get when I do 'nmake
perl' is "NMAKE: fatal error U1073: don't know how to make
'C:/tmp/Filter-1.14/blib/arch/auto/Filter/Util/Call/extralibs.ld'". And
before that, as a wild guess I copied d:\perl\lib\CORE\perl.lib to
libperl.lib -- probably dubious -- perhaps I should have tried perllib.obj
from {perl source}\win32 instead?
Of course I'm doing all this because I want perl statically linked with
Filter::decrypt.
And Filter::cpp, Filter::exec and Filter::sh fail some of their tests... is
this expected on NT?
Thanks for any tips,
-David.
------------------------------
Date: Tue, 15 Sep 1998 10:07:21 +0800
From: Terry Gliedt <tpg@cls.uob.com.sg>
Subject: Re: STD I/O for WIN32 Perl
Message-Id: <35FDCBD9.30B5701B@cls.uob.com.sg>
Brad Murray wrote:
> steven_elias@ml.com (Stephen Elias) writes:
>
> > myperl.pl < foo-in.txt > foo-out.txt
>
> This sort of thing works for me---what trouble are you having?
I've seen this fail too. Seems that on NT the file association code
behaves a little surprisingly. I think you'll find that this will work.
perl myperl.pl < foo-in.txt > foo-out.txt
This is the case with perl, version 5.004_02 in my world at least
--
================================================================
Terry Gliedt tpg@cls.uob.com.sg http://www.hps.com/~tpg/
United Overseas Bank Personal Email: tpg@hps.com
------------------------------
Date: Tue, 15 Sep 1998 02:10:43 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Web Chat
Message-Id: <D0kL1.769$DK4.218178@nsw.nnrp.telstra.net>
In article <35FCCB63.1390BC1D@greenbit.es>,
Marc Lopez <mlopez@greenbit.es> writes:
> Where I can find a Web-based chat in perl that it allows 30 people to
> talk and the rest only can read the conversation?
First of all: If you are looking for software, rather than asking a
question about perl, you are in the wrong place.
That said: You could check out www.cgi-resources.com. They probably
have something there. Alternatively you could check out www.yahoo.com.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I think I think, therefore I think I
Commercial Dynamics Pty. Ltd. | am.
NSW, Australia |
------------------------------
Date: Tue, 15 Sep 1998 03:11:56 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Who posts original posts on CLPM?
Message-Id: <35FDD89A.A0C4371E@bbnplanet.com>
> I first became interested in this subject when I noticed a certain
> type of post coming disproportionately from the Windows environment -
> typically the post that says "Hand me everything on a silver platter
> right now; my time is valuable!" This led me to wonder whether Windows
> users typically feel a lower inhibitory barrier to posting - an idea
> which seems to be born out by the data. Unix users, in contrast, appear
> more comfortable helping with someone else's problems, or adding to an
> existing discussion. Obviously, these are gross generalizations and
> don't apply well to individuals.
Well, obviously, that was your conclusion, but where is your data to
prove that? So many would be willing to draw that conclusion from raw
data, but where is the correlation between OS and UA? Between
post/content and OS/UA? You are drawing dangerous conclusions without
the appropriate data. I'm playing devil's advocate here....I did go
through a thesis grilling....
> I don't mean any disrespect to Windows users; the Windows users on clpm
> have taught me plenty.
Yet you state the above?
> The margin of error in the graph is essentially contained in the "Unknown"
> bar. Presumably, most or all of the messages from non-identifying or
> unknown newsreaders originated among the operating systems graphed.
I made mine 'HappyFunBall' for years....It was UNIX.
> Sorry to hear you have to use Moz - after a powerful newsreader, it can
> be pretty frustrating. But how does this connect to the margin of error?
It fits into the margin of error as I normally use xemacs/GNU v for my
news enjoyment yet your small sample puts me into the Mozilla category.
Do the math darling.
e.
"All of us, all of us, all of us trying to save our immortal souls, some
ways seemingly more round-about and mysterious than others. We're having
a good time here. But hope all will be revealed soon." R. Carver
------------------------------
Date: Mon, 14 Sep 1998 23:44:04 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Who posts original posts on CLPM?
Message-Id: <1dfddpq.7pp7lnos9f39N@bay1-248.quincy.ziplink.net>
Asher <asher@magicnet.net> wrote:
> I first became interested in this subject when I noticed a certain
> type of post coming disproportionately from the Windows environment -
> typically the post that says "Hand me everything on a silver platter
> right now; my time is valuable!" This led me to wonder whether Windows
> users typically feel a lower inhibitory barrier to posting - an idea
> which seems to be born out by the data. Unix users, in contrast, appear
> more comfortable helping with someone else's problems, or adding to an
> existing discussion. Obviously, these are gross generalizations and
> don't apply well to individuals.
Your conclusion appears to be based on the assumptions that 'original
posting' equals 'misguided posting' and 'followup posting' equals
'helpful posting'.
Do I really need to point out how ridiculous these assumptions are?
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3716
**************************************
