[8311] in Perl-Users-Digest
Perl-Users Digest, Issue: 1928 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 18 23:17:30 1998
Date: Wed, 18 Feb 98 20:01:45 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 18 Feb 1998 Volume: 8 Number: 1928
Today's topics:
Re: Please consider me for your project. (Somebody)
Prisoners of the evil empire <matt.pryor@dial.pipex.com>
Re: Prisoners of the evil empire <ldanna@hotmail.com>
Re: Prisoners of the evil empire (Nathan V. Patwardhan)
Re: Prisoners of the evil empire <matt.pryor@dial.pipex.com>
Re: Prisoners of the evil empire (Philip Hood)
Re: Prisoners of the evil empire (Craig Berry)
Re: Prisoners of the evil empire <matt.pryor@dial.pipex.com>
Re: Redirect stderr to stdout inside perl script <webmaster@fccj.cc.fl.us>
Re: regexp: /^[800|888]/ vs. /^8[0{2}|8{2}]/ <dboorstein@shopcfn.com>
Re: RFC about ``Matt's Script Archive'' (Jonathan Feinberg)
Re: RTFM ??? (Martien Verbruggen)
Re: Running DOS commands in PERL script??? ("John Dallman")
Re: sorting (Robbie Baldock (real email address at foot of message))
Re: split on ':', but not '\:' <dboorstein@shopcfn.com>
Re: split on ':', but not '\:' <dboorstein@shopcfn.com>
Re: split on ':', but not '\:' (Gabor)
Re: split on ':', but not '\:' (Douglas Wilson)
Re: split on ':', but not '\:' (Douglas Wilson)
Re: String Extraction and checkup (Martien Verbruggen)
Re: sucess stories? (Abigail)
Re: suid script newbie question (Martien Verbruggen)
Re: The Young Man and the Beach (Nathan V. Patwardhan)
Re: ts: Remove files in a PERL sript <webmaster@fccj.cc.fl.us>
Re: ts: ts: Remove files in a PERL sript (Martien Verbruggen)
Undefined Subroutine in &Module::Package::SubPackage <ragoff@sandia.gov>
Variable Problem. <mhanson@arrowweb.com>
Re: Verifying a URL? <webmaster@fccj.cc.fl.us>
Re: Win32/ODBC Perl Contractors Wanted (Martien Verbruggen)
Re: Year 2000 Compliance: Lawyers, Liars, and Perl <swd@strata-group.Xcom>
Re: Year 2000 Compliance: Lawyers, Liars, and Perl (Craig Berry)
Re: Year 2000 Compliance: Lawyers, Liars, and Perl (Abigail)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Feb 1998 20:31:57 GMT
From: humbug@secret.net (Somebody)
Subject: Re: Please consider me for your project.
Message-Id: <slrn6emh88.c2a.humbug@eddie.cis.uoguelph.ca>
In comp.lang.perl.misc, Rick Ryan <rickryan@datrixnet.com> wrote:
. Please consider me for your project. My info follows:
.
I'll be bulding a garage this summer. Can you help out?
------------------------------
Date: Wed, 18 Feb 1998 23:29:31 +0000
From: Matthew Pryor <matt.pryor@dial.pipex.com>
Subject: Prisoners of the evil empire
Message-Id: <34EB6EDB.BEB32D11@dial.pipex.com>
Can someone tell me what a Prisoner of the Evil Empire actually is?
------------------------------
Date: Wed, 18 Feb 1998 18:50:26 -0500
From: Larry D'Anna <ldanna@hotmail.com>
Subject: Re: Prisoners of the evil empire
Message-Id: <34EB73C2.FD9D9B22@hotmail.com>
Matthew Pryor wrote:
>
> Can someone tell me what a Prisoner of the Evil Empire actually is?
The evil empire is Microsoft. Their prisoners are the poor souls who
have never seen the guiding light of unix. :-)
--
Larry D'Anna ldanna@hotmail.com
"eschew obfuscation"
Democracy is the worst system of government.
Except for all the others
-Winston Churchill
------------------------------
Date: 19 Feb 1998 00:07:27 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Prisoners of the evil empire
Message-Id: <6cft3v$nd2@fridge.shore.net>
Larry D'Anna (ldanna@hotmail.com) wrote:
: The evil empire is Microsoft. Their prisoners are the poor souls who
: have never seen the guiding light of unix. :-)
Or those who don't understand an application without a gui or a window
manager without a Start button. :-)
--
Nathan V. Patwardhan
------------------------------
Date: Thu, 19 Feb 1998 00:39:34 +0000
From: Matthew Pryor <matt.pryor@dial.pipex.com>
Subject: Re: Prisoners of the evil empire
Message-Id: <34EB7F46.7BB227C4@dial.pipex.com>
Larry D'Anna wrote:
> The evil empire is Microsoft. Their prisoners are the poor souls who
> have never seen the guiding light of unix. :-)
>
A-ha, as I suspected!
------------------------------
Date: 18 Feb 1998 19:54:02 -0500
From: hood@panix.com (Philip Hood)
Subject: Re: Prisoners of the evil empire
Message-Id: <6cfvra$j1i@panix.com>
Or those who don't have a PANIX account w/ perl as there shell.
more later ...
PH
Nathan V. Patwardhan (nvp@shore.net) wrote:
: Larry D'Anna (ldanna@hotmail.com) wrote:
: Or those who don't understand an application without a gui or a window
: manager without a Start button. :-)
------------------------------
Date: 19 Feb 1998 00:31:31 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Prisoners of the evil empire
Message-Id: <6cfuh3$gti$3@marina.cinenet.net>
Matthew Pryor (matt.pryor@dial.pipex.com) wrote:
: Can someone tell me what a Prisoner of the Evil Empire actually is?
Someone using Microsoft products, presumably either against his or her
will (as in a work situation) or through ignorance. The implication is
that any enlightened individual will never choose an MS solution to any
problem. The validity of this implication has been the subject of much
debate. The previous sentence is my entry for "understatement of the
year." :)
PoB ("Prisoner of Bill") is a synonym.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Thu, 19 Feb 1998 01:06:55 +0000
From: Matthew Pryor <matt.pryor@dial.pipex.com>
Subject: Re: Prisoners of the evil empire
Message-Id: <34EB85AF.D445E0DF@dial.pipex.com>
So what do you call an MS solution provider?
Are they the prison wardens? Or maybe
they run the torture chambers. Or are they
just prisoners too?
Food for thought.
Philip Hood wrote:
> Or those who don't have a PANIX account w/ perl as there shell.
>
> more later ...
> PH
>
> Nathan V. Patwardhan (nvp@shore.net) wrote:
> : Larry D'Anna (ldanna@hotmail.com) wrote:
>
> : Or those who don't understand an application without a gui or a window
> : manager without a Start button. :-)
------------------------------
Date: Wed, 18 Feb 1998 19:00:10 -0500
From: Bill Jones <webmaster@fccj.cc.fl.us>
Subject: Re: Redirect stderr to stdout inside perl script
Message-Id: <34EB760A.8BA9830E@fccj.cc.fl.us>
I have found that the use of the -w option with the
use strict;
use diagnostics;
Works great! Unless your on Windoze, then 'use diagnostics;' doesn't
really ..
HTH,
Bill
Peter De Gersem wrote:
> Hi,
>
> reading perlfaq8, question "How can I capture STDERR from an external
> command?", it is not possible to "simply open STDERR to be a dup of
> STDOUT in your Perl program and avoid calling the shell to do the
> redirection". Is there another way to capture warning messages to
> stdout?
>
> Thx
------------------------------
Date: Wed, 18 Feb 1998 13:03:33 -0500
From: Dan Boorstein <dboorstein@shopcfn.com>
Subject: Re: regexp: /^[800|888]/ vs. /^8[0{2}|8{2}]/
Message-Id: <34EB2275.2E893569@shopcfn.com>
Fritz Knack wrote:
>
> On Sat, 14 Feb 1998 01:29:29 GMT, Eric Bohlman <ebohlman@netcom.com>
> wrote:
>
[snip]
> >
> >if ($phone =~ /^8([02-9])\1/)...
> >
> >This will match 800, 822, 833, 844, 855, 866, 877, 888, and 899. All
> >these area codes are designated for toll-free numbers (though 800 and 888
> >are the only ones currently in use). If you account for them now, you
> >won't have to rewrite your script when a new one is added (which is
> >expected to happen pretty soon).
>
[snip]
> 9 inclusive, except for the digit 1. Now, if I use the non-remembering
> parens, I get the same result with /^(?:8[02-9]{2})/ which (I think)
> says "grab an 8 followed by 2 of the same digits between 0 and 9
> inclusive except for the digit 1". Right?
first off the (?:) is not necessary. these elements don't need to
be forced together. so we are left with /^8[02-9]{2}/, which
will not do the same thing as eric's suggestion. the {2} digits
that follow do not have to be the same so 802 will match. {2} says
exactly two of the previous expression, which is "[02-9]". think
of it like /^8[02-9][02-9]/.
hope that helps,
--
dan boorstein
------------------------------
Date: Tue, 17 Feb 1998 23:13:25 -0500
From: jdf@pobox.com (Jonathan Feinberg)
Subject: Re: RFC about ``Matt's Script Archive''
Message-Id: <MPG.f5429f5775c88039896f2@news.concentric.net>
[courtesy cc of this posting sent to cited author via email]
palincss@nicom.com said...
: X-Mailer: Mozilla 3.0 (Win16; I)
[snip]
: OK, I've seen this kicked around a bit. Who, besides the
: renowned author of the Aubrey/Maturin series, Patrick
: O'Brian, of course, might "PoB" be?
You are... a Prisoner of Bill. (Yeah, me too, but I also run Linux on another
partition, so I'm sort of in the minimum security wing.)
--
#!/usr/bin/perl -w -- Just another Perl hacker,
(open 0),$_=<0>,s,.*-+ ,,,chop;for(split?@*?){($$_++or$}=$_,y,
y \,y,<STDIN>,,eval"sub $_ {print'$}'}"),y,} \,},>STDOUT,,&$_}
# Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: 18 Feb 1998 23:55:15 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: RTFM ???
Message-Id: <6cfsd3$kk0$8@comdyn.comdyn.com.au>
In article <34ec0428.8018554@news.autobahn.mb.ca>,
patrickq@autobahn.mb.ca (Patrick) writes:
> - he was 'running' the helpful graphics of the software in the online
> manual...
Exactly. A good reason not to have graphics in the perl documentation.
Except maybe the camel, with the instruction to feed it now and again.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | For heaven's sake, don't TRY to be
Commercial Dynamics Pty. Ltd. | cynical. It's perfectly easy to be
NSW, Australia | cynical.
------------------------------
Date: Wed, 18 Feb 1998 21:52:22 GMT
From: jgd@cix.compulink.co.uk ("John Dallman")
Subject: Re: Running DOS commands in PERL script???
Message-Id: <EoLGrA.DLo@cix.compulink.co.uk>
In article <34E898BB.769E@math.arizona.edu>, jtorr@math.arizona.edu (Jose
Torres) wrote:
> I'm very new to perl for Windows NT, and although this is
> probabbly easy, I cant find a way to implement DOS/NT command line
> commands within a perl script, such as net use, etc.
Look at the "system" command.
---
John Dallman, jgd@cix.co.uk. A micro-FAQ on things I keep getting asked:
#!perl is at ftp://.../CPAN/ports/msdos/tips-tricks/hbp_403.zip, Perl for
NT/Win 95 can be found at http://www.activeware.com, with an excellent FAQ
file at http://www.endcontsw.com/people/evangelo/Perl_for_Win32_FAQ.html
and no, I don't have the slightest idea what's wrong with your CGI script.
Try http://www.perl.com/perl/faq/idiots-guide.html
------------------------------
Date: Wed, 18 Feb 1998 22:38:11 GMT
From: postmaster@127.0.0.1 (Robbie Baldock (real email address at foot of message))
Subject: Re: sorting
Message-Id: <34eb292a.2037552@news.easynet.co.uk>
Oops, that should be <=> not cmp!
Robbie
----------------------------------
Robbie Baldock
rcb@easynet.co.uk
http://easyweb.easynet.co.uk/~rcb/
----------------------------------
------------------------------
Date: Wed, 18 Feb 1998 17:18:59 -0500
From: Dan Boorstein <dboorstein@shopcfn.com>
Subject: Re: split on ':', but not '\:'
Message-Id: <34EB5E53.E57752C0@shopcfn.com>
Sami Sandqvist wrote:
>
> Justin Banks <justinb@cray.com> writes:
>
> > Hello -
> > I'm trying to split a line on colons, except where the colon is
> > backslashified, and I can't seem to make it happen. I've tried replacing
> > the sequence '\:' before the split, like so :
> >
> > $line = "one:two:three\:here:four";
> > $line =~ s/\\(?=:)/BACKSLASH/g;
> > print "$line\n";
>
> Try this:
> ---------
> #!/bin/perl -w
> $_='one:two:three\:here:four';
> print split /(^|[^\\]):/;
> ---------
though the output looks like what the poster wanted, it really isn't.
try this to see the problem with your regex:
#!/bin/perl -w
$_='one:two:three\:here:four';
print join ( '|', split /(^|[^\\]):/ ), "\n";
i had the same question some time ago and got this response from
>randal schwartz <8csoze7hvu.fsf@gadget.cscaper.com>:
>Sometimes, the most straightforward way is the most straightforward way:
>
> ## presume data in $_:
> s/\\\|/\0/g; # hide any non-delimiters from the following:
> @list = split /\|/; # split on real delimiters
> for (@list) { tr/\0/|/; } # and put back non-delimiters (unescaped now)
>
>Next? :-)
for this it would be:
$_='one:two:three\:here:four';
s/\\:/\0/g;
@list = split /:/;
for (@list) { tr/\0/:/; }
print join '|', @list;
--
dan boorstein <dboorstein@shopcfn.com>
------------------------------
Date: Wed, 18 Feb 1998 17:31:17 -0500
From: Dan Boorstein <dboorstein@shopcfn.com>
Subject: Re: split on ':', but not '\:'
Message-Id: <34EB6135.2236E0BB@shopcfn.com>
Taylor Gautier wrote:
>
> This is the best I can come up with, I can't come up with a
> "non-programmatic" way to do it.
>
> [====
> # I assume you meant to have an "actual" \ in the string $line
> $line = "one:two:three\\:here:four";
>
> @vals = split(/\\:/, $line);
>
> map {
> @newvals = split(/:/, $_);
> if (defined @split) {
> $split[-1] .= "\\:" . shift @newvals;
> }
> push (@split, @newvals);
> } @vals;
>
> print join(" ", @split);
> =====]
>
> gives the output I assume you desired:
>
> one two three\:here four
>
with:
$line = "\\:one:two:three\\:here:four\\:";
i get 'one two three\:here four' though i would
have wanted '\:one two three\:here four\:'.
--
dan boorstein <dboorstein@shopcfn.com>
------------------------------
Date: 18 Feb 1998 23:32:29 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: split on ':', but not '\:'
Message-Id: <slrn6ems5q.e2b.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, Justin Banks <justinb@cray.com> wrote :
# Hello -
# I'm trying to split a line on colons, except where the colon is
# backslashified, and I can't seem to make it happen. I've tried replacing
# the sequence '\:' before the split, like so :
#
# $line = "one:two:three\:here:four";
# $line =~ s/\\(?=:)/BACKSLASH/g;
# print "$line\n";
Rather than that do this
$line =~ s/\\:/\0/g; # replace with null byte for now
@foo = split /:/,$line;
for (@foo) {
tr/\0/:/; # replace null byte with literal ':'
}
print "@foo\n";
Maybe Perl will have negative look behind in the future. :-)
gabor.
--
If you want your program to be readable, consider supplying the
argument.
-- Larry Wall in the perl man page
------------------------------
Date: Wed, 18 Feb 1998 21:41:54 GMT
From: dgwilson@gte.net (Douglas Wilson)
Subject: Re: split on ':', but not '\:'
Message-Id: <6cfkgo$t1u$1@gte2.gte.net>
On 18 Feb 1998 10:48:28 -0600, Justin Banks <justinb@cray.com> wrote:
>Hello -
> I'm trying to split a line on colons, except where the colon is
>backslashified, and I can't seem to make it happen. I've tried replacing
>the sequence '\:' before the split, like so :
>
another way (which I hope is correct and maybe even makes more sense):
$line='a:b\:ab:c:d';
print "$line\n";
push (@list,$1) while $line =~ /((\\.|.)*?)(?::|$)/g;
for (@list) {
print "$_\n";
}
------------------------------
Date: Wed, 18 Feb 1998 21:54:43 GMT
From: dgwilson@gte.net (Douglas Wilson)
Subject: Re: split on ':', but not '\:'
Message-Id: <6cfl8q$5eq$1@gte1.gte.net>
On Wed, 18 Feb 1998 21:41:54 GMT, dgwilson@gte.net (Douglas Wilson)
wrote:
>On 18 Feb 1998 10:48:28 -0600, Justin Banks <justinb@cray.com> wrote:
>
>>Hello -
>> I'm trying to split a line on colons, except where the colon is
>>backslashified, and I can't seem to make it happen. I've tried replacing
>>the sequence '\:' before the split, like so :
>>
>
>another way (which I hope is correct and maybe even makes more sense):
>
>$line='a:b\:ab:c:d';
>print "$line\n";
>push (@list,$1) while $line =~ /((\\.|.)*?)(?::|$)/g;
and this is probably better:
push (@list,$1) while $line =~ /((\\.|[^:])*)(?::|$)/g;
Hope that helps,
Douglas Wilson
------------------------------
Date: 18 Feb 1998 23:50:36 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: String Extraction and checkup
Message-Id: <6cfs4c$kk0$7@comdyn.comdyn.com.au>
In article <34EAA297.47B433C3@eds.ch>,
Evert Smit <evert.smit@eds.ch> writes:
> This is a multi-part message in MIME format.
PLEASE, PLEASE, don't do that. Reconfigure your 'news reader'
> i am looking for a piece of perl script, that will look at a string, rip
> it appart, check if it is 8 digits long and make sure that there are 2
Errr.. Do you want _8_ digits, or _2_ digits? In what way are your
digits and numbers different? You should really be a bit more
specific.
> numbers in it. I am sure someone has this one already and would be
> eternally thankful, if i could use it.
perldoc perlre
perldoc perlop
perldoc -f length
in case you want 8 digits:
#!/usr/local/bin/perl -w
use strict;
while (<DATA>)
{
chomp;
print "checking $_ - ";
print STDOUT (/^\d{8}$/ ? "ok" : "not ok");
print "\n";
}
__DATA__
12345678
00000000
1234567
123456789
aa22ss33
__END__
checking 12345678 - ok
checking 00000000 - ok
checking 1234567 - not ok
checking 123456789 - not ok
checking aa22ss33 - not ok
checking - not ok
> Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
This is absolutely bad. Get rid of the thing.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Inside every anarchy lurks an old boy
Commercial Dynamics Pty. Ltd. | network - Mitchell Kapor
NSW, Australia |
------------------------------
Date: 19 Feb 1998 00:41:47 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: sucess stories?
Message-Id: <6cfv4b$9pv$1@client3.news.psi.net>
Earl Hood (ehood@medusa.acs.uci.edu) wrote on 1632 September 1993 in
<URL: news:6cfekd$k5a@news.service.uci.edu>:
++ In article <6cf8vd$5sl$1@client2.news.psi.net>,
++ Abigail <abigail@fnx.com> wrote:
++
++ >colour {
++ > my $self = shift;
++ > $self -> {__MYCLASS} -> {colour} = shift if @_;
++ > $self -> {__MYCLASS} -> {colour};
++ >}
++ >
++ >That's twice for one attribute. Multiply that with the number of
++ >attributes you have.
++
++ First, you can remove the second set of "->" since it is implied.
++ Second, you can use an intermediate variable to make code more
++ readable. For example:
++
++ colour {
++ my $self = shift;
++ my $attr = $self->{__MYCLASS};
++ $attr->{colour} = shift if @_;
++ $attr->{colour};
++ }
And in non-OO world, we'd just write
my $colour = 'blue';
and strict and lexical scoping is taking care of everything.
++ For this example, $attr may not be needed. But if you a method
++ that needs to access many attributes of the class, it helps.
++
++ BTW, to avoid a gotcha, make sure to initialize $self->{__MYCLASS}
++ during object instantiation as follows:
Ah, ok, so now besides using four lines instead of one, still having
the problem of name space clashes, and no compile time checking, you're
saying there's a gotcha as well?
My, my.
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: 19 Feb 1998 00:18:53 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: suid script newbie question
Message-Id: <6cftpd$kk0$14@comdyn.comdyn.com.au>
[comp.lang.perl is long dead. Ask your news admin to remove it]
Also, please read the following information on how to choose a good
subject line:
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
In article <jacke-1802981310380001@dnai-207-181-206-1.dialup.dnai.com>,
jacke@hghed.com (JackE) writes:
> What exactly is a suid script, why is it such a horrendous security hole,
> and how can I fix it? i.e. do I need to rebuild my perl, or what????
A script that changes its user id, normally to something like 'root'.
Read the perl security documentation, especially the section on
wrapsuid. But I think you should probably not try anything with it,
until you really understand it.
perldoc perlsec
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I'm just very selective about what I
Commercial Dynamics Pty. Ltd. | accept as reality - Calvin
NSW, Australia |
------------------------------
Date: 18 Feb 1998 04:04:55 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: The Young Man and the Beach
Message-Id: <6cdml7$l7v@fridge.shore.net>
Chipmunk (rjk@coos.dartmouth.edu) wrote:
: As opposed to the magical OS you're using, where everything always works
: correctly, and you never need help from anyone else to do anything?
When it comes to Perl, everything seems to build out of the box on my
OS. In this instance, I don't need help, no.
: I suspect the heart of the problem in the OS Wars is that some people are
: so blinded by loyalty to their own OS that they become unable to grasp the
: fact that other OSes are in fact useful.
My perspective has always been centered around wading through
marketing jargon. It seems like certain members of the computing
industry are all too willing to toss around terms like "OS", "server",
"client", etc etc. Since I judge an OS by certain criteria, I can't
blindly accept that anything labeled as an OS is actually an OS.
Ah well, this is being really picky, but I think that you know what I
mean.
--
Nathan V. Patwardhan
------------------------------
Date: Wed, 18 Feb 1998 19:17:46 -0500
From: Bill Jones <webmaster@fccj.cc.fl.us>
To: tchrist@mox.perl.com
Subject: Re: ts: Remove files in a PERL sript
Message-Id: <34EB7A29.414ED209@fccj.cc.fl.us>
Tom: Heads up -
I think you're going to be a little upset...
tsatan@hotmail.com wrote:
> From the keyboard of Tom Christiansen <tchrist@mox.perl.com>:
> | In comp.lang.perl.misc, PTBS <ptbs@mail.dma.be> writes:
> | :Then I want to remove the files from my /temp directory.
> | :But how can I do that?
> |
> | You grep for "Delete" in the perlfunc manpage. You want the matches
>
> Wrong. Use the unlink function like this:
>
> unlink "/etc/passwd" or die "cannot unlink: $!";
>
> --tom, the an-tchrist
>
> --------------------------------------------------------------------
> Posted using Reference.COM http://WWW.Reference.COM
> FREE Usenet and Mailing list archive, directory and clipping service
> --------------------------------------------------------------------
------------------------------
Date: 19 Feb 1998 00:15:21 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: ts: ts: Remove files in a PERL sript
Message-Id: <6cftip$kk0$13@comdyn.comdyn.com.au>
> --tom, the an-tchrist
> --
> Tom Satanistsen tsatan@hotmail.com
Go away. You're pathetic.
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | A Freudian slip is when you say one
Commercial Dynamics Pty. Ltd. | thing but mean your mother.
NSW, Australia |
------------------------------
Date: Wed, 18 Feb 1998 09:50:33 -0700
From: Robert Goff <ragoff@sandia.gov>
Subject: Undefined Subroutine in &Module::Package::SubPackage
Message-Id: <34EB1159.6AF1A3F4@sandia.gov>
I'm trying to call methods from one package from a different package in
the same module, and getting the 'Undefined Subroutine' error. I can't
figure out why. Here's the setup:
Package NDS::Table;
sub new {
(stuff)
return $self;
}
sub row {
my($self, @p) = @_;
my $rowref = new NDS::Table::Row(@p); <- this line generates the
error
push(@{$self->{rows}}, $rowref);
}
Package NDS::Table::Row;
sub new {
(stuff)
return $self;
}
The error is "Undefined Subroutine &NDS::Table::Row at ..." I obviously
don't understand how packages are defined, but I can't find
clarification in the Camel book, the man pages, or DejaNews. Help?
(Aside: if anyone knows of a module for generating HTML table code, let
me know. I didn't see it in CPAN.)
--
=================================================
Robert Goff email: ragoff@sandia.gov
Sandia National Labs Phone: (505)284-3639
------------------------------
Date: Wed, 18 Feb 1998 18:53:44 -0800
From: Mike <mhanson@arrowweb.com>
Subject: Variable Problem.
Message-Id: <34EB9EB8.177C@arrowweb.com>
My problem is i made a program that is used to send mail to members on a
database. But what i want to do is when i enter $name in the form page i
want it to insert the variable $name into it but the program doesn't it
just prints $name. Please help.
Thanks for your time! 8-)
------------------------------
Date: Wed, 18 Feb 1998 18:28:24 -0500
From: Bill Jones <webmaster@fccj.cc.fl.us>
To: sme@planetpod.com
Subject: Re: Verifying a URL?
Message-Id: <34EB6E97.E9FB7C82@fccj.cc.fl.us>
[E-mailed and Posted to cited author]
You probably want LWP available via a search of http://www.perl.com/CPAN
:-)
Bill
Stewart Eastham wrote:
> Is there a way to verify a URL exists using PERL? I looked into the
> Net::Ping module, but that only verifies hosts, instead of actual web
> pages.
>
> stewart eastham
> sme@planetpod.com
------------------------------
Date: 18 Feb 1998 23:32:48 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Win32/ODBC Perl Contractors Wanted
Message-Id: <6cfr30$kk0$4@comdyn.comdyn.com.au>
In article <34EA5ED7.2E61@webaxxess.com>,
Patrick Bulmer <pbulmer@webaxxess.com> writes:
> ----WANTED----
>
> Contractors needed to write PERL Win32 scripts to interface with ODBC
> data sources for custom applications.
It's Perl, if you're talking about the language, and perl if you're
talking about the interpreter. It's never PERL.
ODBC is an API, not a data source.
> We are a progressive internet development company specializing in
> dynamic, data-dependent web sites. We offer our contractors:
Errrr.. Aren't all web sites data dependent? Isn't that the whole idea
of the web? Serve up data in an 'attractive' manner?
> -Exceptional Compensation
It would need to be exceptional. You're asking people to work with
*shudder* Win32.
> -Frequent Project Offerings
> -Bonuses & Incentives
see above.
> -Prompt Payment
If you specifically have to state this, I wonder what your mindset is.
This should be implicit.
> would like immediate consideration for available projects, you're invite
> to you respond with:
On second thought.. naw.
Martien
PS. Did you people ever consider posting job offers to one of the
groups that are specifically meant for that?
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | That's not a lie, it's a terminological
Commercial Dynamics Pty. Ltd. | inexactitude.
NSW, Australia |
------------------------------
Date: Wed, 18 Feb 1998 17:20:55 -0600
From: Steve Dover <swd@strata-group.Xcom>
Subject: Re: Year 2000 Compliance: Lawyers, Liars, and Perl
Message-Id: <34EB6CD7.495A1998@strata-group.Xcom>
Bart Lateur wrote:
>
> seebs@plethora.net (Peter Seebach) wrote:
>
> >The struct tm has been Y2K-ready for a long time.
> >I dread the 34,667 bug.
>
> Do you expect still to be alive by then? Or do you expect
> your programs still to be used? Really?
>
> It is quite striking that solutions to time related software problems
> are always temporary patches, though.
>
That will always be true. Think about it, you have time.
Ok, times up. Did you come up with an alternative soluition?
Time marches on, but by design, a given date or timestamp datam
will only be allocated so many bits. At some point in time,
more bits will need to be allocated. There's no way around it.
------------------------------
Date: 19 Feb 1998 00:16:10 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Year 2000 Compliance: Lawyers, Liars, and Perl
Message-Id: <6cftka$gti$2@marina.cinenet.net>
Steve Dover (swd@strata-group.Xcom) wrote:
: Time marches on, but by design, a given date or timestamp datam
: will only be allocated so many bits. At some point in time,
: more bits will need to be allocated. There's no way around it.
Sure there is! Use an arbitrary-magnitude integer approach, and you can
use any number of bits required up to the size of virtual memory; since
that can in turn grow indefinitely (in principle), timestamps could
(again in principle) be generated for any finite offset in seconds from
any epoch.
Not *practical*, needless to say, but that's a separate issue.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 19 Feb 1998 00:44:30 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Year 2000 Compliance: Lawyers, Liars, and Perl
Message-Id: <6cfv9e$9pv$2@client3.news.psi.net>
Steve Dover (swd@strata-group.Xcom) wrote on 1632 September 1993 in
<URL: news:34EB6CD7.495A1998@strata-group.Xcom>:
++
++ Time marches on, but by design, a given date or timestamp datam
++ will only be allocated so many bits. At some point in time,
++ more bits will need to be allocated. There's no way around it.
Who says there has to be a limit on the number of bits?
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: 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 1928
**************************************
