[13821] in Perl-Users-Digest
Perl-Users Digest, Issue: 1231 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Oct 30 12:05:21 1999
Date: Sat, 30 Oct 1999 09:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <941299507-v9-i1231@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 30 Oct 1999 Volume: 9 Number: 1231
Today's topics:
Re: Card shuffling <rhomberg@ife.ee.ethz.ch>
Re: Drop the last item from the Environment string (CGI <lr@hpl.hp.com>
Re: Drop the last item from the Environment string (CGI <wyzelli@yahoo.com>
Re: How the heck does this regex match? <lr@hpl.hp.com>
indirect function call <sun_tong@geocities.com>
Is perl Under rated? <dgarstan@nsw.bigpond.net.au>
Re: It is always like this here? (Hugh Lawson)
Re: Need help fixing this multi-file ftp script <jtolley@bellatlantic.net>
Re: pass file handle (Bill Moseley)
Re: perlguts question <rhomberg@ife.ee.ethz.ch>
sendmail question <yahoo@forfree.at>
Whoa. This shouldn't work... <rainbow@zipworld.com.au>
Re: Whoa. This shouldn't work... (Brett W. McCoy)
Re: Whoa. This shouldn't work... <lr@hpl.hp.com>
Re: Whoa. This shouldn't work... <rhomberg@ife.ee.ethz.ch>
Re: Why can't I get this uniq/perl thing right? (Tad McClellan)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 30 Oct 1999 17:30:40 +0200
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
Subject: Re: Card shuffling
Message-Id: <381B0F20.FE359A4F@ife.ee.ethz.ch>
Kragen Sitaker wrote:
> Another question, though: assuming the sequence has only 32 bits of
> entropy, all 32 of which are present in every output, is it guaranteed
> by the Fisher-Yates shuffle that all 32 bits will show up in the first
> few cards? This is prompted by your '20 cards all in one place'
> comment.
The '20 cards all in one place' was preceded by 'for any random
generator, it is possible to find a map (pseudo-random
sequence)->(shuffled cards) which leaves'
Meaning that the result of the shuffle depends entirely on the function
that maps the puny set of possible random sequences to the huge set of
possible shuffles
> Maybe it just so happens that there are only 2^10
> possibilities for the first six cards, but 2^32 possibilities for the
> deck as a whole. This might be enough to prevent practical cheating.
If there are only 10 bits of randomness in the first six cards, I know
them after seeing 2 cards. Or I know that there are only 4 possibilities
at all for the first card.
Either the possibilities for every card are very restricted (say one of
two, giving about 28 bits) or I can look at some cards and determine the
rest of them.
Now matter how you distribute 32 bits on those 225 bits, you get a lot
of predictability. If you can perfectly distribute that little and even
decrease taxes, you should join politics :-)
- Alex
------------------------------
Date: Sat, 30 Oct 1999 07:08:56 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Drop the last item from the Environment string (CGI)
Message-Id: <MPG.12849bcab93a1fa498a165@nntp.hpl.hp.com>
In article <XayS3.1$cZ2.403@vic.nntp.telstra.net> on Sat, 30 Oct 1999
18:10:44 +0930, Wyzelli <wyzelli@yahoo.com> says...
> Larry Rosler <lr@hpl.hp.com> wrote in message
> news:MPG.128428eb8673d98898a163@nntp.hpl.hp.com...
> > In article <Q4vS3.17$MV2.2174@vic.nntp.telstra.net> on Sat, 30 Oct 1999
> > 14:40:08 +0930, Wyzelli <wyzelli@yahoo.com> says...
> >
> > ($names, $submits) = $names =~ /(.+)&(.+)/;
> >
> > --
I wonder where my sigdash blank went -- it's there at the end as I post
this.
...
> OK.. I can see THAT this works, (and very well thank you Larry) but after a
> couple of hours playing around with it I still can't see quite why something
> so simple does just what it does. Moreover I can't seem to get it to do
> much else other than just that.
>
> If I can attempt to put what I think it is doing into words...
>
> Match 1 or more instances of anything, an &, and 1 or more anything. The
> first 'one or more anything' goes to $1, and the second to $2.
>
> Why is it that it only effectively matches the last & in the string? Even
> when inside a while loop like so..
>
> $_ = 'Mary=girl&Bob=boy&Fred=boy&Sam=girl&submits=1';
> while (/(.+)&(.+)/g){
> push (@names, $1);
> push (@test, $2);
> }
>
> print "@names\n";
> print "@test";
> _____________________________
>
> results in:
>
> Mary=girl&Bob=boy&Fred=boy&Sam=girl
> submits=1
>
> Actually I may just be suffering from a little information overload and not
> able to see the forest for the trees. :-)
In a word -- greed!
This is the way the regex works:
/(.+) # match *everything* in the string (before a newline,
# which isn't relevant in this case)
& # give back characters from the end until an & is found
(.+) # match everything after the rightmost & (as before)
/x
To capture up to the first & instead of the last, try:
/(.+?)&(.+)/
The '?' makes it non-greedy: it matches in sequence until the first &
it finds.
> Still on the quest!
The most thorough discussion of regex matching is in Friedl's masterly
'Mastering Regular Expressions', though it describes a somewhat older
version of Perl regexes.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sun, 31 Oct 1999 00:35:20 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Drop the last item from the Environment string (CGI)
Message-Id: <TODS3.4$cZ2.1348@vic.nntp.telstra.net>
>
> In a word -- greed!
>
> This is the way the regex works:
>
> /(.+) # match *everything* in the string (before a newline,
> # which isn't relevant in this case)
> & # give back characters from the end until an & is found
> (.+) # match everything after the rightmost & (as before)
> /x
>
> To capture up to the first & instead of the last, try:
>
> /(.+?)&(.+)/
>
> The '?' makes it non-greedy: it matches in sequence until the first &
> it finds.
>
> > Still on the quest!
>
> The most thorough discussion of regex matching is in Friedl's masterly
> 'Mastering Regular Expressions', though it describes a somewhat older
> version of Perl regexes.
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Laboratories
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
Thanks Larry... I was putting the ? in not quite the right places. Also not
quite understanding how the 'give back' was working.
Much appreciated.
Wyzelli
------------------------------
Date: Sat, 30 Oct 1999 07:17:33 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: How the heck does this regex match?
Message-Id: <MPG.12849dd0c6d3963a98a166@nntp.hpl.hp.com>
In article <slrn81lf82.66b.abigail@alexandra.delanet.com> on 30 Oct 1999
04:40:51 -0500, Abigail <abigail@delanet.com> says...
> Of course, if you don't have meta chars inside the regex, why use a
> regex?
>
> if (0 <= index $a => $b) { ... }
<= ........ =>
That looks like an extended delta-wing 'spaceship operator'. Very
pretty.
But mildly insane. Even a fat-arrow fanatic like I wouldn't use it in
'index'. Except now, maybe, just once, to make a spaceship, for the
esthetics, ...
:-)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 30 Oct 1999 11:50:02 -0400
From: * Tong * <sun_tong@geocities.com>
Subject: indirect function call
Message-Id: <381B13AA.BAEC20AB@geocities.com>
hi,
How do I make indirect function calls in perl?
I've scan through the man pages and faqs for "indirect" before post this
question. The only thing I found is:
You can even call a function indirectly using a variable containing its
name or a CODE reference to it, as in $var = \&function.
So I came up with the following codes, but it does not work, please
help. Thanks
- - >8 - -
sub test{
print "Arguments passed are: " . join(", ", @_);
}
$func=shift;
$ret = \&func @_;
exit;
- - >8 - -
-- Tong
Anti-spam: remove underscore to reply.
Welcome to my homepage http://maxpages.com/suntong
- All free contribution & collection
- freeware & music from the heavens
------------------------------
Date: Sat, 30 Oct 1999 21:32:13 +1000
From: "Douglas Garstang" <dgarstan@nsw.bigpond.net.au>
Subject: Is perl Under rated?
Message-Id: <7venk5$hkg$1@m2.c2.telstra-mm.net.au>
Just a quick ramble...
Its my perception that perl is very much underrated as a serious tool for
developing applications (at least as far as a unix environment goes).
Would this be a true statement to make? For example, if I go to one of
several I.T employment sites and do a search on 'perl', I will always get a
match of positions that are basically web developers involving perl for CGI.
I don't recollect ever seeing any jobs advertised that involve developing
some sort of application around perl. Nothing larger than could be
classified as basic system administration anyway.
I could understand the tendancy for companies to use C before they use perl.
But WHY java (which seems quite common as a development tool)? You might
hear the argument that C runs much faster than perl (which is for the most
part true), but the same most definitely does not hold true for Java. Java
is also only as portable as there is virtual machines for it, while perl
similarly is available for several different operating systems. The reasons
are different, but the end result is the same. We can't forget that perl can
be OO as well.
I wonder if any of this makes sense.....!
Regards
Douglas Garstang
------------------------------
Date: 30 Oct 1999 15:18:29 GMT
From: hglawson@nr.infi.net (Hugh Lawson)
Subject: Re: It is always like this here?
Message-Id: <slrn81m3eo.obs.hglawson@cumquat.fruit.com>
Reply-To: hglawson@nr.infi.net
Followup-To:
On 30 Oct 1999 05:52:06 -0500, Abigail <abigail@delanet.com> wrote:
>
>I think the accusation of nastiness against newbies is totally
>unjustified. It's simply not true. There is some flaming against people
>posting off-topic questions, FAQs, badly formatted or structured questions
>and a blantant lack of doing research.
>
Let me raise a point that touches on this issue. Usually I do my research
before asking, try to give a well-structured question, and so on, and I've
never been flamed for a question. But I do have considerably more
resources of tact, diplomacy, and so on than most have. So, some may get
flamed not so much because the question is out of line, as because they
lack the rhetorical skills to frame it to make it obviously a "good"
question. I haven't asked any questions yet on this group, IIRC.
Now here is the point. Even a person beyond newbie level can read the
docs, study for hours, and just miss the needed bit of information, fail
to see it, see it but fail to see that it provides what is needed. In a
fairly long teaching career (non-computer-science) I saw intelligent,
hard-working students fail to see the important thing, and I saw it every
day. This is why most learners to master a difficult subject need
teachers, or very good beginners' books. (Schwartz and Christensen,
Learning Perl, is a good beginners' book, imho.)
The problem of the beginner is that he doesn't know what he doesn't know.
Hence he doesn't know where to look it up. Knowing where to look things
up in a domain of knowledge is one of the attributes of expertise. So the
"just read the docs" advice may not help. The docs in my distribution of
perl are immense; many of them are written more as reminders for the
already knowledgeable than as introductions for the clueless. To
understand them, you must have considerable contextual knowledge.
Is it possible to take an poorly presented, "bad" question and convert it
into a "good" question, then answer it in a broadly useful way? Yes.
Teachers (the pros I mean) are out there doing it every day, every hour.
This is a powerful skill that not everybody has, so I don't blame those
who lack it for getting impatient sometimes.
Cheers!
--
Hugh Lawson
Greensboro, North Carolina
hglawson@nr.infi.net
------------------------------
Date: Sat, 30 Oct 1999 14:17:37 GMT
From: James Tolley <jtolley@bellatlantic.net>
Subject: Re: Need help fixing this multi-file ftp script
Message-Id: <381AFD8A.C91098F5@bellatlantic.net>
sub rename {
$dir = "/somedir";
opendir(DIR, $dir ) || die "can't opendir $dir: $!";
(@filenames, $newname, $newdir) = readdir(DIR);
closedir DIR;
foreach ( @filenames ) {
$_ =~ s/(...)(.......)(.....)(....)(...........)/$1$2$3$4$5/;
$newname .= "$2$3";
$newdir = "$1"; #Coult be different for each file
}
$ftp->put("$newdir/$newname") or die "Could not ftp";
}
I just want to mention that rename() is an odd sub. It renames, but also ftp's
the file, which wouldn't be clear from just knowing the name of the routine. It
makes it hard to read code after not looking at it for a while. Just an idea.
Anyway, the real problem seems to be that you only give put() one argument:
#!/usr/bin/perl -w
#Main program
use Net::FTP;
$ftp = Net::FTP->new("somemachine.com.somewhere");
$ftp->login("usr",'passwd');
$ftp->binary;
$ftp->cwd("/somedir");
$dir = "/somedir";
opendir(DIR,$dir) or die "no opendir: $!";
while(my $file = readdir(DIR)) {
next if(-d $file);
#NOTE: put() takes the old and new filenames.
$ftp->put("$dir/$file",&rename($file)) or warn "could not ftp: $dir/$file";
}
$ftp->quit;
sub rename {
# no need to substitute here, just match
$_[0] =~ /(...)(.......)(.....)(....)(...........)/; .
return "$1/$2$3";
}
That should be very close...
hth,
James
------------------------------
Date: Sat, 30 Oct 1999 06:35:17 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: pass file handle
Message-Id: <MPG.128493efa3268231989829@nntp1.ba.best.com>
Larry Rosler (lr@hpl.hp.com) seems to say...
> In article <MPG.1283c67b73684250989827@nntp1.ba.best.com> on Fri, 29 Oct
> 1999 15:58:36 -0700, Bill Moseley <moseley@best.com> says...
> > > $hfile = HFILE;
> >
> > Oh, this is in the FAQ, but I'm too lazy to look it up right now, so try
> > this:
> >
> > $hfile = *HFILE;
>
> Maybe referring the FAQ would have produced a better answer, as well as
> helping the newcomer learn how to solve problems independently in the
> future.
It's a sad day when I can't even muster up the energy to say RTFFAQ!
> If you're passing around filehandles, you could usually just use the
> bare typeglob, like *STDOUT, but typeglobs references would be better
> because they'll still work properly under use strict 'refs'. For
> example:
> splutter(\*STDOUT);
> sub splutter {
> my $fh = shift;
> print $fh "her um well a hmmm\n";
> }
This didn't generate any errors under strict. Or do you mean something
else?
#! perl -w
use strict;
splutter(*STDOUT);
sub splutter {
my $fh = shift;
print $fh "her um well a hmmm\n";
}
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Sat, 30 Oct 1999 16:37:28 +0200
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
Subject: Re: perlguts question
Message-Id: <381B02A8.BE4DDD93@ife.ee.ethz.ch>
Ilya Zakharevich wrote:
>
> [A complimentary Cc of this posting was sent to Dan Sugalski
> <dan@tuatha.sidhe.org>],
> who wrote in article <%6kS3.256$c06.2082@news.rdc1.ct.home.com>:
> > > SvREFCNT_inc
> > > Increments the reference count of the given SV.
> >
> > > void SvREFCNT_inc (SV* sv)
> >
> > > So it is not very verbose about what is returned.
> >
> > Well, the void there is pretty explicit.
> >
> > SvREFCNT_inc officially returns nothing. Unofficially it returns the same
> > SV pointer that you hand to it, but I wouldn't count on that.
>
> Well, this 'void' is clearly a misprint. A lot of work went into
> making this macro to return sv. Zillions of XSes are peppered with
> this usage.
rather a bug in perlguts than a misprint. Or an 'erratum'? An 'issue' ?
;-)
> About difference between sv_setsv() and SvREFCNT_inc: the latter
> returns *the same* sv. So applying a mutator to the result will
> change both to source and the target. If one is not going to apply
> mutators, then SvREFCNT_inc is what is needed.
But I shouldn't store the same SV* more than once in a perl struct,
right?
I use Data::Dumper, which prints errors if I store the same SV* more
than once in a hash.
It seems to me that to get a data structure look like it was made by
perl, I have to copy the SV* with newSVsv.
It seems that the best way to copy a reference is
newRV_inc(SvRV(orig_ref))
- Alex
------------------------------
Date: Sat, 30 Oct 1999 21:46:40 +0800
From: "Singapore Fan" <yahoo@forfree.at>
Subject: sendmail question
Message-Id: <381af676@ruby.hknet.com>
This is a multi-part message in MIME format.
------=_NextPart_000_0013_01BF2320.3FA0ED60
Content-Type: text/plain;
charset="big5"
Content-Transfer-Encoding: quoted-printable
i want to send password to my users with the following to send:=20
#@records is a list of records of my users.
foreach $record (@records){
($icq,$pass,$q,$b,$c,$d,$e,$email) =3D split(/:/,$record);
$i++;
open ($i, "|/usr/sbin/sendmail -t") or print "Cannot open sendmail: No =
email is sent to $email";
print $i "To: $email\n";
print $i "From: webmaster\@domain.com\n";
print $i "Subject: Subject\n";
print $i "$content";
close $i;
}
The first mail works fine but the second, third .....
the subject of those mails disappeared and the from address change to =
"nobody".
Can anyone help me ?
------=_NextPart_000_0013_01BF2320.3FA0ED60
Content-Type: text/html;
charset="big5"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Dbig5 http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2><FONT size=3D3>i want to send =
password to my users=20
with the following to send: </FONT></FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2><FONT size=3D3>#@records is a list =
of records of=20
my users.</FONT></FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2><FONT =
size=3D3></FONT></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>
<DIV><FONT color=3D#000000 face=3D"" size=3D3>foreach $record=20
(@records){</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"" size=3D3></FONT><FONT=20
size=3D3>($icq,$pass,$q,$b,$c,$d,$e,$email) =3D =
split(/:/,$record);</FONT></DIV>
<DIV><FONT size=3D3></FONT> </DIV>
<DIV><FONT color=3D#000000 face=3D""><FONT size=3D3></FONT></FONT><FONT=20
size=3D3>$i++;</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"" size=3D3>open ($i, =
"|/usr/sbin/sendmail=20
-t") or print "Cannot open sendmail: No email is sent to=20
$email";<BR>print $i "To: $email\n";<BR>print $i =
"From: <A=20
href=3D"mailto:webmaster\@domain.com\n">webmaster<A=20
href=3D"mailto:icq\@yayawoo.com\n">\@domain.com\n</A></A>";<BR>print=
$i=20
"Subject: Subject\n";<BR>print $i =
"$content";<BR>close=20
$i;<BR>}</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"" size=3D3></FONT> </DIV>
<DIV><FONT color=3D#000000 face=3D"" size=3D3>The first mail works fine =
but the=20
second, third .....</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"" size=3D3>the subject of those mails =
disappeared=20
and the from address change to "nobody".</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"" size=3D3>Can anyone help me=20
?</FONT></DIV></FONT></DIV></BODY></HTML>
------=_NextPart_000_0013_01BF2320.3FA0ED60--
------------------------------
Date: 30 Oct 1999 13:04:18 GMT
From: Douglas Garstang <rainbow@zipworld.com.au>
Subject: Whoa. This shouldn't work...
Message-Id: <7veqci$3n4$1@the-fly.zip.com.au>
#!/usr/bin/perl
use strict;
print $a;
Thats a little weird. Here I was thinking I was going crazy. It also works with "$b". I can't
find any reference in the perldocs to $a or $b being special variables (but I'm sure its there
somewhere)...
Regards
Douglas.
------------------------------
Date: Sat, 30 Oct 1999 14:16:29 GMT
From: bmccoy@foiservices.com (Brett W. McCoy)
Subject: Re: Whoa. This shouldn't work...
Message-Id: <slrn81lvn7.lng.bmccoy@moebius.foiservices.com>
Also Sprach Douglas Garstang <rainbow@zipworld.com.au>:
>#!/usr/bin/perl
>use strict;
>print $a;
>
>Thats a little weird. Here I was thinking I was going crazy. It also works with "$b". I can't
>find any reference in the perldocs to $a or $b being special variables (but I'm sure its there
>somewhere)...
It didn't work for me. Here's the output I got (I also used the -w switch
on the shebang line):
Name "main::a" used only once: possible typo at tryme line 5.
Use of uninitialized value at tryme line 5.
Which is what I expected to get.
--
Brett W. McCoy bmccoy@foiservices.com
Computer Operations Manager (Alpha Geek) http://www.foiservices.com
FOI Services, Inc./DIOGENES 301-975-0110
---------------------------------------------------------------------------
------------------------------
Date: Sat, 30 Oct 1999 07:37:28 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Whoa. This shouldn't work...
Message-Id: <MPG.1284a286140bea6398a167@nntp.hpl.hp.com>
In article <7veqci$3n4$1@the-fly.zip.com.au> on 30 Oct 1999 13:04:18
GMT, Douglas Garstang <rainbow@zipworld.com.au> says...
> #!/usr/bin/perl
> use strict;
> print $a;
>
> Thats a little weird. Here I was thinking I was going crazy. It also works with "$b". I can't
> find any reference in the perldocs to $a or $b being special variables (but I'm sure its there
> somewhere)...
It is there, but you'd hardly think to look there to find it.
perldoc -f sort
I wonder if an entry in perlvar for $a and $b would be useful.
BTW, set your linelength to 72 characters or so in the future!
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 30 Oct 1999 17:06:55 +0200
From: Alex Rhomberg <rhomberg@ife.ee.ethz.ch>
Subject: Re: Whoa. This shouldn't work...
Message-Id: <381B098F.64CD3A70@ife.ee.ethz.ch>
Douglas Garstang wrote:
>
> #!/usr/bin/perl
> use strict;
> print $a;
>
> Thats a little weird. Here I was thinking I was going crazy. It also works
> with "$b". I can't
> find any reference in the perldocs to $a or $b being special variables
> (but I'm sure its there
> somewhere)...
>
$a and $b are predeclared because they are used for 'sort'
The better question is: where is this in the docs?
I'd expect it in
perldoc perlvar
perldoc strict
perldoc vars - Nothing
If you know the solution already, you an read about it in
perldoc -f sort
- Alex
------------------------------
Date: Fri, 29 Oct 1999 22:21:23 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Why can't I get this uniq/perl thing right?
Message-Id: <3nkdv7.av1.ln@magna.metronet.com>
mr_geek (shon@mad.scientist.com) wrote:
: In article <n9dav7.eih.ln@magna.metronet.com>,
: tadmc@metronet.com (Tad McClellan) wrote:
: > Tad McClellan (tadmc@metronet.com) wrote:
: > : mr_geek (shon@mad.scientist.com) wrote:
: > : And why are you doing it similar to what is shown in the
: > ^^^
: >
: > Uhhh, that, of course, was supposed to be "aren't".
: >
: I don't want to pick bones with those that are trying to help me.
[snip]
: As to turning on warnings, I did. It only beefed about using $fields[0],
: instead of @fields[0] and about using an unitialized value.
^^^^^^^^^^^^^^^^^^^^
Look at that part again.
I do not think the pattern you wrote matches what you
were trying to match.
: Programatically these things are not the issue with my particular
: problem.
If you don't mind losing an 's' character from your string, then
you are correct there I guess... :-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
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 1231
**************************************
