[8581] in Perl-Users-Digest
Perl-Users Digest, Issue: 2198 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Mar 28 01:07:37 1998
Date: Fri, 27 Mar 98 22:00:27 -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 Fri, 27 Mar 1998 Volume: 8 Number: 2198
Today's topics:
.HTACCESS <jesse@savalas.com>
Re: .HTACCESS <webmaster@fccjmail.fccj.cc.fl.us>
Re: ? search and replace string in Perl ? (David Oswald)
Re: Calling all Newbies (Chris Vogel)
Re: Copy file command. <webmaster@fccjmail.fccj.cc.fl.us>
Re: Copy file command. (Nathan V. Patwardhan)
Re: Copy file command. (Nathan V. Patwardhan)
Re: Days of the Week <sowmaster@juicepigs.com>
Re: File IO Question: opening for appending without flo <lr@hpl.hp.com>
Re: forking & execing & killing (Jason Gloudon)
Re: Is there a "Newsgroup" for Newbies to Perl? <dgoddard@us.oracle.com>
Optimisation? Pentium 166Mhz MMX 4X slower than PPC 60 <andrew@squiz.co.nz>
Perl code to read strange file format?? tower@seanet.com
Re: Perl print email problem <webmaster@fccjmail.fccj.cc.fl.us>
Re: PROPOSAL: The Perl Dictionary <efinch@vais.net>
replacing a character inside a file <ndufort@cadre.sjsu.edu>
Re: replacing a character inside a file (David Oswald)
Re: Someone put my munged e-mail address on a spam list <zenin@archive.rhps.org>
Re: Someone put my munged e-mail address on a spam list (John Stanley)
Re: Still a novice (getting older) still needing RegExp (David Oswald)
Re: verifying email address -- how? <webmaster@fccjmail.fccj.cc.fl.us>
Re: verifying email address -- how? (I R A Aggie)
Webmaster Survey - Help Needed Please! (Thomas W. Streiff)
Re: What does this mean =~ ? <webmaster@fccjmail.fccj.cc.fl.us>
Re: What does this mean =~ ? (Abigail)
Re: What does this mean =~ ? <uri@sysarch.com>
Re: What does this mean =~ ? (Jason Gloudon)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 27 Mar 1998 19:11:15 -0800
From: Jesse Rosenberger <jesse@savalas.com>
Subject: .HTACCESS
Message-Id: <6fhpnj$qes@bgtnsc02.worldnet.att.net>
How would you get a perl script to print out a encoded password to be
used in a htaccess file???
------------------------------
Date: Sat, 28 Mar 1998 03:12:43 GMT
From: Webmaster <webmaster@fccjmail.fccj.cc.fl.us>
Subject: Re: .HTACCESS
Message-Id: <351C6946.C47F9BAF@fccjmail.fccj.cc.fl.us>
Jesse Rosenberger wrote:
> How would you get a perl script to print out a encoded password to be
> used in a htaccess file???
If on Unix
$password = crypt($plain, $salt);
If on MacOS, NT, ???
Sorry,
Sneex
------------------------------
Date: Sat, 28 Mar 1998 02:15:42 GMT
From: doswald@xmission.com (David Oswald)
Subject: Re: ? search and replace string in Perl ?
Message-Id: <351c5d4c.91505161@news.xmission.com>
On Fri, 27 Mar 1998 13:37:00 -0500, "Peter Perchansky" <fp@pmpcs.com>
wrote:
>Greetings:
>
>I have a string denoted below where I would like to replace
>
> value="STATE CODE" with
>
> selected value="STATE CODE" when provided with the two digit state code.
>
>How would I code this in Perl? Thank you.
I assume that STATE CODE will always be a two letter code. I'm also
going to make the assumption that you're not worried that the state
codes may be incorrect in the first place. In other words, we'll
assume that the input data is perfect except that it's missing a word.
The following substitution regex may do what you need
s/(value="\w\w")/selected $1/
If you would like to further simplify the regex, you may do so by
taking a performance hit using $& rather than $1.
s/value="\w\w"/selected $&/
If you wish to guarantee that the replacement is only done when the
value is equal to two upper case alpha characters in the US character
set, use the following:
s/(value="[A-Z]{2}")/selected $1/
This method makes it impossible to accept values of A4 or _C, or even
ca where you would prefer CA. If you wish to permit lower case as
well as upper case, use [a-zA-Z]{2} . Again, I'm not worried that the
input data may not be a valid state code. I'm just making extra sure
that something which isn't intended to be a state code doesn't get
mistakenly matched simply because it has the proper number of
alphanumeric characters. We want alpha only to match.
If you wish to permit space between the equals sign and what occurs to
its left and right, try this:
s/(value\s*=\s*"[A-Z]{2}")/selected $1/
And again, if the performance hit is not of concern, and you would
like to simplify it a little, do this:
s/value\s*=\s*"[A-Z]{2}"/selected $&/
I'll interpret the second to last example offered since it's the
favorable one from a performance standpoint. We're talking about
s/(value\s*=\s*"[A-Z]{2}")/selected $1/
Here's what will happen:
* Find occurrence of 'value'
* Match any amount or none of whitespace.
* Require (and match) an equals sign '='
* Match any amount or none of whitespace.
* Require and match a double quote '"'
* Require and match two characters in the range of A to Z (upper
case only).
* Require and match a second double quote '"'
* Capture entire match into $1 by using parenthesis around the
match.
* prepend the word 'selected' to the matched text and replace the
matched text with the entire modified text.
Of course, this regex doesn't verify that the state code is a legal
state code. Hopefully this isn't an issue. If it is, you're going to
be stuck with a big huge alternation problem. It also doesn't bother
to match if the state code has periods in it, like A.Z. for Arizona.
It may not be necessary in your context to be so particular as to what
matches in the state code area, but I'm being careful in these regexes
simply because I'm sure you wouldn't want a false-positive match if
there is some other 'value="data_here"' tag in the document being
scanned.
You may also wish to provide code in your regex to insure that lines
which have already been converted won't get converted a second time.
That gets a little more involved, and means using negative lookahead
to insure that if 'selected' already appears before the 'value' term
the match won't be made. See MRE for details. ;)
Finally, append a /g to the regex if you wish to scan for multiple
occurences within the same scalar.
So, once again, given the situation as you've described it, this is
one way to do it:
s/(value\s*=\s*"[A-Z]{2}")/selected $1/g
Dave
------------------------------
Date: Fri, 27 Mar 1998 15:37:00 +0100
From: C.VOGEL@LINK-GOE.de (Chris Vogel)
Subject: Re: Calling all Newbies
Message-Id: <6qdAzTB2tSB@-sweet.link-goe.de>
Goettingen, Stardate 0909.46
Hi there,
gwynne (Bob Gwynne) wrote in 6fb2i3$gm0$1@gaia.ns.utk.edu on
27.03.98 following lines, starting with '*'
* May I also suggest working through Jon Orwant's Perl 5 Interactive Course.
Cool. All the books and practices... The original question was if
there are people out here who'd like to share their problems and
experiences working through all this material.
Birgitt and you try to discourage people who do not study on
themselfs, but want to share the process of learning with other
people.
Nobody wrote - as far as I followed this thread - "let's make another
everybody wants help and nobody has time to spend time learning" -
mailinglist.
So please, people learning perl out there and feeling alone with all
the books and documentation, go ahead and try to find a way to build
something like a virtual study group or maybe - in far future - a
virtual perl university.
Chris - a sometimes lonesome perl learner.
--
Wir suchen neue AussenMitarbeiterInnen... (S.Pernar@Link-Goe)
------------------------------
Date: Sat, 28 Mar 1998 01:58:42 GMT
From: Webmaster <webmaster@fccjmail.fccj.cc.fl.us>
Subject: Re: Copy file command.
Message-Id: <351C57EC.ECF6D951@fccjmail.fccj.cc.fl.us>
Tom Christiansen wrote:
> Perhaps you might try Rhapsody.
> Some people seem to like it. :-)
Is/Will Rhapsody be/become POSIX compliant???
If so, wouldn't system() become implemented? I ask because I installed POSIX,
et al, on my NTWrk4 box and have limited use of 'unix' commands. MacOS would
benefit the same, right?
Any MacOS people know?
Thx,
Sneex :-)
------------------------------
Date: 28 Mar 1998 02:53:36 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Copy file command.
Message-Id: <6fhong$ojj@fridge.shore.net>
Tom Christiansen (tchrist@mox.perl.com) wrote:
: should upgrade to an operating system. Perhaps you might try Rhapsody.
: Some people seem to like it. :-)
Or, you can get an old (color or mono) Nextstation with monitor and
everything for about $400 these days. You'll probably also pay
another couple hundred for the NextSTEP developers libraries and
header files. The $600 that you might spend is well worth having a
full, BSD 4.3-based system with mostly non-broken features around.[1]
And yes, you can build perl5.004_04 on it. :-)
[1] Oxymoron? Perhaps. The POSIX stuff is flaky, but fixable from my
experience. GCC builds, and do many other things.
--
Nathan V. Patwardhan
please don't send spam to president@whitehouse.gov
------------------------------
Date: 28 Mar 1998 02:48:51 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Copy file command.
Message-Id: <6fhoej$ojj@fridge.shore.net>
Webmaster (webmaster@fccjmail.fccj.cc.fl.us) wrote:
: Is/Will Rhapsody be/become POSIX compliant???
My understanding is that Rhapsody is based on BSD 4.4 where NextSTEP
was based on 4.3 ... whatever that means to you. :-)
The basic POSIX stuff seems to be busted under NextSTEP 3.3 developer,
but can be fixed with some patches. In other words, likely yes.
I also recall reading that Win95 supports POSIX nothing, and NTWk
supports a subset of the POSIX stuff from NTserver. Perhaps this is
in the readme that Sarathy wrote for the NT Standard Perl port? I
forget.
--
Nathan V. Patwardhan
------------------------------
Date: Fri, 27 Mar 1998 22:20:36 -0500
From: Bob Trieger <sowmaster@juicepigs.com>
To: Mike Barnes <strepsil@very.net>
Subject: Re: Days of the Week
Message-Id: <351C6C83.19A@juicepigs.com>
Mike Barnes wrote:
>
> >Date::DateCalc
> >Date::Manip
>
> I should have been more specific. I'd happily use one of the Date modules,
> if I could find one for Win32 Perl, build 306. If there has been a port, I'd
> like to know where to find it. I've rummaged through CPAN, but haven't
> turned up anything so far.
>
> I'm hoping to end up with a script that's portable between Unix and NT, so I
> need either a module that exists on both platforms, or just a little hunk of
> code to do this one job.
>
> I'll go and slap myself around a bit for posting such a vague message.
Head back to CPAN and grab the standard port of perl v 5.04_02 for
win32. The one Gurusamy Sarathy ported. I comes with those and many
other modules built in.
HTH
Bob Trieger
sowmaster@juicepigs.com
------------------------------
Date: Fri, 27 Mar 1998 17:57:18 -0800
From: Larry Rosler <lr@hpl.hp.com>
To: Colin Meyer <cmeyer@sim.zipcon.net>
Subject: Re: File IO Question: opening for appending without flock?
Message-Id: <351C58FE.73551852@hpl.hp.com>
It is not necessary to lock a file being appended to. The flock
documentation is too conservative on this point; a better example would
show a file being opened for read/write (+<...).
The following description comes from my HP-UX manual fopen(3S), but the
underlying behavior is guaranteed by the open(2) function in all ANSI-C
compliant implementations:
When a file is opened for append ... it is impossible to overwrite
information already in the file. All output is written at the end of
the file, regardless of intervening calls to fseek(). If two separate
processes open the same file for append, each process can write freely
to the file without fear of destroying output being written by the
other. Output from the two processes will be intermixed in the file in
the order in which it is written.
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
Colin Meyer wrote:
>
> I was asked to make some maintenance changes to a cgi script that
> logs the values of certain cookies to a file for user tracking.
>
> My first examination of the script revealed that the original author
> did not lock the log file after opening for appending.
> [ open(OF,">>$fname") || return "$fname error: $!\n"; ]
> My intuition and the example in perldoc -f flock say that when
> opening a file for appending, one should lock & seek to the end before
> actually writing.
... long snip ...
> Thanks for clearing up this issue,
> -Colin.
> Another Perl Journeyman.
------------------------------
Date: Sat, 28 Mar 1998 05:04:55 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: forking & execing & killing
Message-Id: <slrn6hp154.6b6.jgloudon@manitoba.bbn.com>
Simon Moore <moore@spam-gone.lts.sel.alcatel.de> wrote:
>I'm including the script I'm using as an attachment. I'd be very
>grateful for any pointers you folks out there can give me.
If you have a small script don't attach it. Include the code.
--
Jason Gloudon
------------------------------
Date: Fri, 27 Mar 1998 21:12:10 -0800
From: Denis Goddard <dgoddard@us.oracle.com>
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <351C86AA.59992CF2@us.oracle.com>
What follows is a waste of bandwidth,
unless you follow UNIX gurus the way most people follow rock stars.
If you fall into the above category, read on!
Tom Christiansen wrote:
>
> Nonprogammers should not use any programming language. Period.
> Nonsurgeons should perform any surgical interventions. Period. This is
> a profession, you know. If you aren't a programmer, hire one.
>
Which is interesting in light of the fact that he is quoted at
http://webreview.com/97/02/28/feature/perl.html
as having said in an interview:
>
>Dale Dougherty: If I'm not a programmer, is Perl a good place to start? Tom?
>
>Tom C.: It certainly can be a good place to start.
[...]
>Real smart
>people sat around in ivory towers for years doing the hard work -- now you
>get to use the fruits of their labors.
>
But of course, Larry's got a relevant quote:
>"Sometimes I wish I could put an expiration date on my quotes." --Larry Wall
You guys are the greatest! :-)
--
__ __ _ __ __
~~~~(__)|-< /-\(__ |__(-_ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Denis Goddard, Senior Member, Tech. Staff |"I see the heads of men arise
email: dgoddard@us.oracle.com |with hungry minds and open eyes!"
ourworld.compuserve.com/homepages/d_goddard| -Rush, from 2112: _The Oracle_
------------------------------
Date: Sat, 28 Mar 1998 16:34:10 +1200
From: Andrew McNaughton <andrew@squiz.co.nz>
Subject: Optimisation? Pentium 166Mhz MMX 4X slower than PPC 604 120Mhz?
Message-Id: <351C7DBE.39D7A9AA@squiz.co.nz>
I've got a piece of perl code that I was about to start optimising, since it
will be run intensively.
I ran it on my Mac, and it did 10,000 iterations in 36 seconds. I expected my
Laptop to run at a similar speed, but it takes 140 seconds to do the same
10,000 iterations.
I'm surprised that it runs so much slower, and wonder if there's some sort of
optimisation that I should have enabled when compiling perl for this machine.
Any suggestions? I've told the perl installer to use -O2 with gcc, but
perhaps there's some other flags to optimise perl for my processor? Perhaps
there's another compiler that will do better?
Obviously there are faster ways to search the same bit of text repeatedly, but
first I want to make sure that perl itself is running optimally.
The Mac is a PPC 7500 upgraded to a PPC604 120 chip. It's running MacPerl
version 5.1.3r2.
The Laptop is running FreeBSD with a Pentium 166MMX, with no other processes
using significant CPU time. It's running perl5.00404
The code in question is as follows:
$data = join "", <DATA>;
@phrases = (
"phrase 1",
"phrase 2",
"phrase 3"
);
$start = time;
for ($i=0;$i<10000; $i++) {
$success = 1;
foreach $phrase (@phrases) {
($success = 0) unless ($data =~ m/$phrase/i);
}
}
print time - $start, "\n";
__END__
[About 7k of text including the @phrases near the end]
------------------------------
Date: Fri, 27 Mar 1998 20:16:44 -0600
From: tower@seanet.com
Subject: Perl code to read strange file format??
Message-Id: <6fhmd0$24j$1@nnrp1.dejanews.com>
Hello,
I have a number of files that will be coming in an a variety of different
file formats. They're not standard comma or tab delimited text, rather
they're similar to this:
<1> field1
<2> field2
<3> field3
or maybe
[begin record]
field1
field2
field3
[end record]
I think someone must have written a tool to read files of this type into
standard tab delimited text, where you could maybe input some parameters in
an ini file or something to describe the format.
Anyone have any ideas, or perhaps good places to look?
Thanks!
Sylvia
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Sat, 28 Mar 1998 02:21:31 GMT
From: Webmaster <webmaster@fccjmail.fccj.cc.fl.us>
Subject: Re: Perl print email problem
Message-Id: <351C5D46.A6B0D586@fccjmail.fccj.cc.fl.us>
info@gadnet.com wrote:
> $mailprog = '/usr/lib/sendmail';
> open(MAIL,"|$mailprog -t");
Close, but move the -t up to the $mailprog = '/usr/lib/sendmail'; line
like this
$mailprog = '/usr/lib/sendmail -t';
HTH,
Sneex :-)
PS - There are Mail:: modules which will make this easier...
------------------------------
Date: Fri, 27 Mar 1998 23:17:45 -0500
From: Ed Finch <efinch@vais.net>
Subject: Re: PROPOSAL: The Perl Dictionary
Message-Id: <351C79E8.71AFFAB8@vais.net>
herl - What a perl hacker does at the thought of using Visual Basic.
------------------------------
Date: Fri, 27 Mar 1998 19:40:00 -0800
From: Nico Dufort <ndufort@cadre.sjsu.edu>
Subject: replacing a character inside a file
Message-Id: <351C7110.41C6@cadre.sjsu.edu>
hi all,
i am trying to modify a line of code from an html page using a PERL
script, but i have a problem when it comes to write the new info into
the file.
i want to change a single character from a line, this, each time the
script will run.
the line i have is: X=a; where a has to be change over time.
so i tried something like:
open (NUM,"n_time.dat") || die "cannot open n_time.dat: $!";
while (<NUM>) {
open (IN,">>test2.html") || die "cannot open test2.html: $!";
$var = "X=a;";
substr($var, 3, 1) = "$_";
print IN "$var";
where $_ is a digit read from another. so far, this works when i just
run the script through the shell: i open a file, and use the digit from
this file to replace the value of 'a' (or whatever is instead).
but if i want to write this back into the html file, it will print it at
the end of the file. i understand why, but would like to be able to
just change the 'a' or to be able to write at that particular place in
the file. i know how to find the X=a using somthing like if (/X=/), i
think, but i am not able to write at the same place. is there a way to
do this?
thank you
--
The young (who always want more and have no game to protect),
the artists (who always hunger for the ecstatic moment),
and the alienated (the wise slaves and noble minority groups watching
from the periphery of the society). "High Priest," -- Timothy Leary
------------------------------
Date: Sat, 28 Mar 1998 05:54:16 GMT
From: doswald@xmission.com (David Oswald)
Subject: Re: replacing a character inside a file
Message-Id: <351c9009.104495654@news.xmission.com>
On Fri, 27 Mar 1998 19:40:00 -0800, Nico Dufort
<ndufort@cadre.sjsu.edu> wrote:
>hi all,
>
>i am trying to modify a line of code from an html page using a PERL
>script, but i have a problem when it comes to write the new info into
>the file.
>
>i want to change a single character from a line, this, each time the
>script will run.
Someone may chime in and tell you I'm wrong, but until that time, I do
believe that you're going to have to take one of two approaches to
this problem:
* Slurp in the entire file, make your change, and rewrite the file
in its entirety.
* Read the file in line by line, writing a tempfile with the
appropriate change as you go. Then replace the original file with a
tempfile.
Dave
------------------------------
Date: 28 Mar 1998 02:38:10 GMT
From: Zenin <zenin@archive.rhps.org>
Subject: Re: Someone put my munged e-mail address on a spam list
Message-Id: <891053098.857700@thrush.omix.com>
John Stanley <stanley@skyking.OCE.ORST.EDU> wrote:
: For many people, by the time "personal filters" can process the spam,
: the cost has already been incurred. Personal filters do not always
: benefit the user.
>snip<
Then there mail system is broken, period. You don't fix one
problem by creating another.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 28 Mar 1998 03:18:56 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Someone put my munged e-mail address on a spam list
Message-Id: <6fhq70$e1f$1@news.orst.edu>
In article <891053098.857700@thrush.omix.com>,
Zenin <zenin@archive.rhps.org> wrote:
>John Stanley <stanley@skyking.OCE.ORST.EDU> wrote:
>: For many people, by the time "personal filters" can process the spam,
>: the cost has already been incurred. Personal filters do not always
>: benefit the user.
> >snip<
>
> Then there mail system is broken, period.
You are wrong. I would argue this with you, but I have found that those
who use "broken" as a synonym for "different" generally don't want to
stop. If you haven't had a network connection where costs accrue before
you get to touch the bits, God bless you and I hope you live a long and
happy life doing things your way.
Followups set.
------------------------------
Date: Sat, 28 Mar 1998 02:57:19 GMT
From: doswald@xmission.com (David Oswald)
Subject: Re: Still a novice (getting older) still needing RegExpr help....
Message-Id: <351c6707.93996559@news.xmission.com>
On Fri, 27 Mar 1998 16:37:10 GMT, stephenb@scribendum.win-uk.net
(stephen benson) wrote:
>And I still can't
>work out why /<strong>(WW Notes* to)\.*(\d*.*\d+)<\/strong>/s won't
>match over newlines..
This would match:
<strong>WW Notesssssss to.garbage_and_stuff_like_!#^&$*,123</strong>
which I doubt you really mean.
Notes* should be Notes? unless you really do intend to accept
Notessssssss just as readily as Note and Notes.
.* inside the second set of parenthesis should probably be .*? (the
non-greedy quantifier) to avoid a greedy match that might skip
additional cases that should match separately.
Is (\d*.*\d+) really what you want? First, try it non-greedy, as I
mentioned above: (\d*.*?\d+) But this looks to me like you're
trying to actually get optional-digits point mandatory-digits, in
which case you really mean (\d*\.?\d+) which would accept 1.0, or 10,
or .10 or 1 or .1 (you get the idea) but would not match 1. or . or
.1
If you wish to also accept negative numbers, or permit 1. just as
easily as 1.0, you should have a look in MRE... that's a whole section
in chapter 4.
You may wish to place \s* after <strong> and before <\/strong> just in
case.
You may also wish to make this case insensitive in case <strong> comes
through as <STRONG>, or at least use <(strong|STRONG)> and
<\/(strong|STRONG)>
Dave
------------------------------
Date: Sat, 28 Mar 1998 02:39:22 GMT
From: Webmaster <webmaster@fccjmail.fccj.cc.fl.us>
Subject: Re: verifying email address -- how?
Message-Id: <351C6173.C2381E5C@fccjmail.fccj.cc.fl.us>
Kai Henningsen wrote:
> Quite possible.
Interesting. My biz address at chasecreek.systemhouse@usa.net is valid and works
:-)
But webmaster@astro.fccj.org fails.
How would you determine a successful address using the methods described?
DNS, et al? astro.fccj.org is a valid address and webmaster is a valid user but
the two together won't work... Bounce city...
Curious,
Sneex :-)
------------------------------
Date: Fri, 27 Mar 1998 23:27:58 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: verifying email address -- how?
Message-Id: <fl_aggie-2703982327580001@aggie.coaps.fsu.edu>
In article <6qkBAZb1w-B@khms.westfalen.de>,
kaih=6qkBAZb1w-B@khms.westfalen.de (Kai Henningsen) wrote:
+ jdporter@min.net (John Porter) wrote on 26.03.98 in <351A690E.7AF9@min.net>:
+
+ > > - could the address provided be valid? by this, i mean - is this a
+ > > syntactically valid address?
+ >
+ > Impossible.
+
+ Quite possible.
Ok, SmartGuy. What's the regex that does this?
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN-local/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: Sat, 28 Mar 1998 04:01:12 GMT
From: streift1@laroche.edu (Thomas W. Streiff)
Subject: Webmaster Survey - Help Needed Please!
Message-Id: <cC_S.2370$z82.2385508@news.sgi.net>
Hello:
I work at a small college in Pittsburgh, PA as the Academic Technology Manager
and am in charge of hiring a full-time webmaster/web programmer. Currently, I
have to research industry and education webmaster salaries in order to
formulate a competitive pay scale. I am looking for any Internet, MIS, HR, or
Management knowledge of what a webmaster and/or web programmer is making at
your particular corporation, institution or organization. Any Help will be
greatly appreciated, and all replies are strictly confidential - it will be
used for internal statistical purposes only!
Specifically, I am looking for answers to this short survey:
Current Title of your webmaster/programmer/Internet Manager/etc:
SHORT Job Description and/or primary duties:
Type of Industry: (i.e. educational, financial, computer services, etc.)
City, State, country:
Years/months current webmaster/web programmer/etc. has in experience:
Current Salary:
Starting Salary to Top Salary Pay Range:
PLEASE E-MAIL TO streift1@laroche.edu ! THANK YOU IN ADVANCE FOR YOUR HELPFUL
INFORMATION!
best regards,
Thomas W. Streiff
Academic Technology Manager
La Roche College
streift1@laroche.edu
http://www.laroche.edu
------------------------------
Date: Sat, 28 Mar 1998 02:32:23 GMT
From: Webmaster <webmaster@fccjmail.fccj.cc.fl.us>
Subject: Re: What does this mean =~ ?
Message-Id: <351C5FD2.73B193C5@fccjmail.fccj.cc.fl.us>
Billy wrote:
> Does it mean match?
> Explain?
>
> Newbie
I would hazard a guess that it means perform the requested operation
and then store the results here.
HTH,
Sneex :-)
------------------------------
Date: 28 Mar 1998 04:33:37 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: What does this mean =~ ?
Message-Id: <6fhuj1$lm9$1@client2.news.psi.net>
Billy (mobrien@rocketmail.com) wrote on MDCLXX September MCMXCIII in
<URL: news:6fhi6q$jms@atlas.cs.upei.ca>:
++ Does it mean match?
No. I can match without =~ and I can use =~ without matching.
++ Explain?
RTFM.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: 28 Mar 1998 00:48:15 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: What does this mean =~ ?
Message-Id: <x71zvnjrhc.fsf@sysarch.com>
abigail@fnx.com (Abigail) writes:
> Billy (mobrien@rocketmail.com) wrote on MDCLXX September MCMXCIII in
> <URL: news:6fhi6q$jms@atlas.cs.upei.ca>:
> ++ Does it mean match?
>
> No. I can match without =~ and I can use =~ without matching.
>
> ++ Explain?
>
> RTFM.
sorry for abby's mood. must be that time of the millenium :-)
a good meaning for =~ for me is bind. it binds the right side (either a
m//, s/// or tr///) to the scalar expression on the left. by default
they all work on $_ as do many other builtins.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---- 8 Years of Perl Experience, Available Immediately
uri@sysarch.com --------- Resume and Perl Example at http://www.sysarch.com
Use the Best Search Engine on the Net -------- http://www.northernlight.com
------------------------------
Date: Sat, 28 Mar 1998 05:55:23 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: What does this mean =~ ?
Message-Id: <slrn6hp43p.6b6.jgloudon@manitoba.bbn.com>
Billy <mobrien@rocketmail.com> wrote:
>Does it mean match?
>Explain?
It means read a book, or the manpages.
--
Jason Gloudon
------------------------------
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 2198
**************************************
