[11131] in Perl-Users-Digest
Perl-Users Digest, Issue: 4731 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jan 23 13:06:58 1999
Date: Sat, 23 Jan 99 10:00:18 -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 Sat, 23 Jan 1999 Volume: 8 Number: 4731
Today's topics:
Re: [Q] regexp or split? How do I prune this string: d2 <rick.delaney@home.com>
Re: chat2.pl and Solaris? <ckuskie@cadence.com>
Re: Environment variable settingsin Perl cgi issue <blackk@dial.oleane.com>
Re: Getting the last number in an IP addr with a regex. <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Getting the last number in an IP addr with a regex. <hugh@cheesegrits.com>
Re: Getting the last number in an IP addr with a regex. <allan@due.net>
Re: Getting the last number in an IP addr with a regex. <allan@due.net>
Re: HELP WANTED: Appending a text file. (Alastair)
Re: HELP WANTED: Appending a text file. <jdf@pobox.com>
Re: humor: site for cheap crappy perl books <jdf@pobox.com>
Re: job hit counts, a mini unscientific survey <jdf@pobox.com>
Re: My in OOP <rick.delaney@home.com>
Re: Need script for .htpasswd file <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Newbie question: writing file (M.J.T. Guy)
Re: Newbie question: writing file <rick.delaney@home.com>
ok please don't shoot me for this question <elst.fels@nospam.ping.be>
Re: Passing array references. <rick.delaney@home.com>
Re: Passing array references. (M.J.T. Guy)
Perl and Network API's under win9x <urs.rau@uk.om.org>
Re: Perl ressources <ckuskie@cadence.com>
Re: Perl to C++ converter? <brennan@offwhite.net>
PLEASE HELP!!!!! - Calling System Functions <gaudioa@ug.cs.sunysb.edu>
Re: Regular Expression Question <jdf@pobox.com>
Re: Secuity hole with perl (suidperl) and nosuid mounts <B.A.McCauley@bham.ac.uk>
Re: Secuity hole with perl (suidperl) and nosuid mounts (Ilya Zakharevich)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 23 Jan 1999 15:59:12 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: [Q] regexp or split? How do I prune this string: d20+4 ??
Message-Id: <36A9F3A5.ACC29127@home.com>
James Ludlow wrote:
>
> m/^ # beginning of string
> d # literal 'd'
> \d+ # at least one digit
> \+{1} # 1 plus sign
^^^
That's a bit redundant.
\+ # a plus sign
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Fri, 22 Jan 1999 14:52:15 -0800
From: Colin Kuskie <ckuskie@cadence.com>
To: "Randal L. Schwartz" <merlyn@stonehenge.com>
Subject: Re: chat2.pl and Solaris?
Message-Id: <Pine.GSO.3.96.990122085335.4818B-100000@pdxue150.cadence.com>
[emailed and posted]
On 20 Jan 1999, Randal L. Schwartz wrote:
> Yes, one of the two things I've written that ended up in the standard
> distribution.
>
> [extra bonus points if you can tell me what the other thing is!]
wrapman, which wraps perl code in roff so that you could keep
you documentation along with your executable. (Kinda sounds like
pod, doesn't it?)
Colin
------------------------------
Date: Sat, 23 Jan 1999 18:20:11 +0100
From: "Black K" <blackk@dial.oleane.com>
Subject: Re: Environment variable settingsin Perl cgi issue
Message-Id: <78d0hh$n52$1@minus.oleane.net>
I did that but it does not work.
Some more testing gave me that:
I printed the envionment variable and it is well set up.But when the C
function is called it crashes.
When I set a bad path in this environment variable the C function is called
and runs pretty well. However, of course, the result parameter depending on
this env variable is null. The others are ok.
Thanks for your help to everybody.
KB
------------------------------
Date: 23 Jan 1999 17:40:32 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Getting the last number in an IP addr with a regex.
Message-Id: <831zkm9c3j.fsf@vcpc.univie.ac.at>
Re: Getting the last number in an IP addr with a
regex., Kim <kims@tip.net.au> said:
Kim> That is, I have an IP w.x.y.z where w,x,y and z
Kim> are numbers between 1 and 255 or so (the actual
What's wrong with 0?
Kim> details of an IP are not important at the
Kim> moment!)
Kim> I just want a regex to give me z, something
Kim> that will work regardless of the number of
Kim> digits of each section.
\. matches a `.'
\d matches a digit 0-9
\d+ matches 1 or more digits.
"perldoc perlre" for all info about regexps in perl.
OTOH you could use split() followed by pop().
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien. | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Sat, 23 Jan 1999 11:19:48 -0600
From: "Hugh Messenger" <hugh@cheesegrits.com>
Subject: Re: Getting the last number in an IP addr with a regex.
Message-Id: <Kc3SP9uR#GA.230@newstoo.hiwaay.net>
Kim Saunders <kims@tip.net.au> wrote in message
news:917082514.915608@draal.apex.net.au...
>That is, I have an IP w.x.y.z where w,x,y and z are numbers between 1 and
>255 or so (the actual details of an IP are not important at the moment!)
>
>I just want a regex to give me z, something that will work regardless of
the
>number of digits of each section.
$ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
my($z) = $4;
-- hugh
------------------------------
Date: Sat, 23 Jan 1999 12:17:04 -0500
From: "Allan M. Due" <allan@due.net>
Subject: Re: Getting the last number in an IP addr with a regex.
Message-Id: <2vnq2.175$WR1.2480@nntp1.nac.net>
Hugh Messenger wrote in message ...
:
:Kim Saunders <kims@tip.net.au> wrote in message
:news:917082514.915608@draal.apex.net.au...
:
:>That is, I have an IP w.x.y.z where w,x,y and z are numbers between 1 and
:>255 or so (the actual details of an IP are not important at the moment!)
:>
:>I just want a regex to give me z, something that will work regardless of
:the
:>number of digits of each section.
:
:$ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
:my($z) = $4;
Well of course that would match 1234.56745.12333.12656 if that is what you
want.
AmD
------------------------------
Date: Sat, 23 Jan 1999 12:24:49 -0500
From: "Allan M. Due" <allan@due.net>
Subject: Re: Getting the last number in an IP addr with a regex.
Message-Id: <sCnq2.176$WR1.2504@nntp1.nac.net>
Kim Saunders wrote in message <917082514.915608@draal.apex.net.au>...
:Hiya all,
:could someone please help me with a regex to give me the last number in an
:IP address with a regex???
:That is, I have an IP w.x.y.z where w,x,y and z are numbers between 1 and
:255 or so (the actual details of an IP are not important at the moment!)
:I just want a regex to give me z, something that will work regardless of the
:number of digits of each section.
:I really need this ASAP, so please email me if you can, and I will try and
:do it myself in the meantime.
:
Was just in this kind of mood. Here is one approach. I don't know that much
about the numbering system, I assume four sets of numbers all of which must be
less than 255.
#!/usr/local/bin/perl -w
use strict;
my @IPs = qw(123.45.6.7 1.2.3.4 123.456.789.225 1.23.456.78 1.23.213.87 1.2.3
1.2 1 1234.23.56.1234 1.2.3.999);
my (@temp,$ok);
push @IPs,' 111.22.33.222 ';
foreach (@IPs) {
@temp = ();
$ok = 0;
if (/(?:\D|^)(\d{1,3}\.\d{1,3}\.\d{1,3}\.(\d{1,3}))(?:\D|$)/){
@temp = split /\./,$1;
foreach (@temp) {
if ($_ > 255) {$ok = 0;last}
else {$ok=1};
}
if ($ok) {print pop(@temp),"\n"};
}
}
I just print the last number there in the pop, assign it if you want to keep
it.
If you don't have an array, just start with the if.
Just for fun, if you want to put a bunch in an array and get all the last
numbers
my $lastnum;
my @out = map {$ok = 0;foreach (split /\./) {if ($_ > 255) {$ok = 0;last}else
{$ok=1;$lastnum=$_}}if ($ok) {$lastnum} else {()}} map
{/(?:\D|^)(\d{1,3}\.\d{1,3}\.\d{1,3}\.(\d{1,3}))(?:\D|$)/ ? $1 :()} @IPs;
HTH
AmD
------------------------------
Date: Sat, 23 Jan 1999 16:07:07 GMT
From: alastair@calliope.demon.co.uk (Alastair)
Subject: Re: HELP WANTED: Appending a text file.
Message-Id: <slrn7ajsr1.5f.alastair@calliope.demon.co.uk>
networks@skynet.co.uk <networks@skynet.co.uk> wrote:
>Hi,
>
>Can someone help me with this: How do I append a text file? I'm
>opening the file like this
>
>open (DATAFILE, ">>names.txt");
Remember to check if the open succeeded.
>but how do I add the new information to the file? the info will be one
>word.
You use 'print'. See the doc on print ;
perldoc -f print
HTH.
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: 23 Jan 1999 17:48:04 +0100
From: Jonathan Feinberg <jdf@pobox.com>
To: networks@skynet.co.uk
Subject: Re: HELP WANTED: Appending a text file.
Message-Id: <m3aezandff.fsf@joshua.panix.com>
networks@skynet.co.uk writes:
> open (DATAFILE, ">>names.txt");
You should always check the success of system calls.
open(FOO, bar) || die $!;
> but how do I add the new information to the file? the info will be one
> word.
Whether one word or a million, your answer lies here:
$ perldoc -f print
But you *really* need to buy yourself a copy of _Learning Perl_.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 23 Jan 1999 17:40:32 +0100
From: Jonathan Feinberg <jdf@pobox.com>
To: Uri Guttman <uri@home.sysarch.com>
Subject: Re: humor: site for cheap crappy perl books
Message-Id: <m3emomndrz.fsf@joshua.panix.com>
Uri Guttman <uri@home.sysarch.com> writes:
> check out this link. the page has perl misspelled as pearl (next
> to a correct spelling). it also groups perl books with cgi ones.
Lately I've seen several web pages with forms that ask you which
language you use for most of your development work. It usually goes
something like this
C/C++ [as if they belong together]
JavaScript [puhleeze]
Java [at least they know to separate those]
Perl/CGI [D'oh!]
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 23 Jan 1999 17:34:11 +0100
From: Jonathan Feinberg <jdf@pobox.com>
To: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: job hit counts, a mini unscientific survey
Message-Id: <m3iudyne2k.fsf@joshua.panix.com>
merlyn@stonehenge.com (Randal L. Schwartz) writes:
> Lisp 3K
> Python 2K
>
> Note that Lisp beat out Python. :)
To quote Duke Nukem, "That's gotta hurt."
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Sat, 23 Jan 1999 17:59:48 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: My in OOP
Message-Id: <36AA0FE2.4CF9689E@home.com>
[posted & mailed]
Thomas Brian Holdren wrote:
>
> Dear Perlers,
>
> I am currently working on my first .pm that uses a variable that needs to be
> read by both the module and the calling script. Unfortunately, as a creature
> of habit, I like to use strict vars in all I do. Meaning a "my" declaration
> for $module::var. But, I cannot seem to get the value for $module::var from
> the calling script when I use "my" on it. I know that "my" doesn't store the
> variables it modifies in the package namespace (I think), and that that is why
> I can't get to it.
>
> My question is... is there anyway I can get at this "my" variable? (I don't
> think "local" is what I'm looking for).
If you really want to keep this as a lexical variable, then you could
add a subroutine to your package that returns its value. This would be
useful if you wanted the variable to be read-only. If it's okay to both
read and write this variable, then you might as well use a package
variable as Eric Bohlman suggests.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: 23 Jan 1999 17:38:08 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Need script for .htpasswd file
Message-Id: <833e529c7j.fsf@vcpc.univie.ac.at>
Re: Need script for .htpasswd file, JS
<js149@hotmail.com> said:
JS> I have no problem using the .htaccess/.htpasswd
JS> mechanism because I've done it before. Since we
JS> have 400+ members, what I don't want to do is to
JS> sit and manually input each ID and password for
JS> encryption. Does anyone have a script or utility
JS> that will input a text file containing all 400+
JS> ID/password combos (one per line) and output a
JS> file containing the 400+ encrypted passwords
JS> (preferably in the .htpasswd format).
perldoc HTTPD::UserAdmin
JS> As a "retired" programmer, I can generally
JS> understand the cgi scripts I use but I'm no perl
JS> programmer so I really need something
JS> ready-to-go.
Hmmm, well this has nothing do with CGI so that's
not a problem :-)
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien. | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: 23 Jan 1999 15:04:24 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Newbie question: writing file
Message-Id: <78codo$au7$1@pegasus.csx.cam.ac.uk>
Kevin D. Chester <chester@ma.ultranet.com> wrote:
>What am I doing wrong here?
Ignoring the error message returned in $!.
>#! /usr/local/bin/perl5.003
>...
>open(token_file, ">$token_file_name") || &err_trap("Cannot open
>$token_file_name for writing\n");
>print(token_file "$token\n");
>close token_file;
>...
>
>All I get is "Cannot open tokens/262805729 for writing ".
Make the error message something like
&err_trap("Cannot open $token_file_name for writing: $!\n");
and it'll tell you what the problem is. Most likely a permissions
problem, or perhaps the directory 'tokens' doesn't exist?
Mike Guy
------------------------------
Date: Sat, 23 Jan 1999 15:36:43 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Newbie question: writing file
Message-Id: <36A9EE5F.4910D61E@home.com>
[posted & mailed]
Kevin D. Chester wrote:
>
> Hello Perl Group,
>
> What am I doing wrong here?
>
> #! /usr/local/bin/perl5.003
^^^^^
You should consider an upgrade, but that's not your problem.
> ...
> open(token_file, ">$token_file_name") || &err_trap("Cannot open
> $token_file_name for writing\n");
> print(token_file "$token\n");
> close token_file;
> ...
>
> All I get is "Cannot open tokens/262805729 for writing ".
If you want to know the reason the file couldn't be opened for writing,
you will have to modify &err_trap to tell you.
Something like:
open(TOKEN_FILE, ">$token_file_name")
|| die "Can't open $token_file_name for writing: $!\n";
It is customary to use all uppercase for filehandles so that they stand
out. The key thing here is $! which gives the system error string.
perldoc perlvar
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Sat, 23 Jan 1999 15:32:09 +0100
From: "Familie Elst" <elst.fels@nospam.ping.be>
Subject: ok please don't shoot me for this question
Message-Id: <78cme9$rva$1@news3.Belgium.EU.net>
Ok, is there anybody who can write me a guestbook script without banners in
perl
or tell me where I can find it ?
I was trying to write one but my brain has burned out and I really have a
deathline.
Can please someone help me out.
Thanks a lot,
Peter
------------------------------
Date: Sat, 23 Jan 1999 15:52:25 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Passing array references.
Message-Id: <36A9F208.67C87694@home.com>
[posted & mailed]
OM wrote:
>
> How would I write a general function that takes two arguements, an
> array reference, say $array, and a list of numbers, say @numbers
> (should I be passing an array or a refernce here?).
Either way.
perldoc perlsub
> What I then want to do in the function is to only print elements of
> the array, as specified in the list of numbers.
print @{ $array }[@numbers];
> I've tried it a few times, but can't seem to get anywhere.
> It doesn't seem to like it when I try to give the subscript number
> directly, i.e print $array[$numbers[0]] etc. or some other variation.
That is trying to print an element of @array. If $array is an array ref
(you might want to name it $rarray or $array_ref to make this more
clear), then you must dereference it.
$array->[$numbers[0]];
or
$$array[$numbers[0]];
perldoc perlref
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: 23 Jan 1999 16:50:38 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Passing array references.
Message-Id: <78cuku$ga6$1@pegasus.csx.cam.ac.uk>
Abraham Grief <abey@hill.ucr.edu> wrote:
>Try using $$array[$numbers[0]] instead of $array[$numbers[0]]. I don't
>know why you'd want to use a refernce instead of an of just passing an
>array. Here's a little program that uses a function in the way you ask:
>
>#!/usr/bin/perl
>
>sub func
>{
He wanted the array and numbers passed as arguments. So insert here
my $array = shift;
and change @numbers to @_ in the next line.
> map {print "$$array[$_]\n"} @numbers;
Purists would object to the use of map in a void context. More
idiomatic and comprehensible (and perhaps more efficient) would be
print "$$array[$_]\n" foreach @_;
>}
>
>$array = [10, 11, 12, 13];
>@numbers = (1, 3);
>&func($array, @numbers);
Mike Guy
------------------------------
Date: Sat, 23 Jan 1999 14:05:46 +0000
From: Urs Rau <urs.rau@uk.om.org>
Subject: Perl and Network API's under win9x
Message-Id: <36A9D73A.4775B26@uk.om.org>
I need help accessing the network API's with perl from win9x. I will
write down a list of statements of what I think I have found out sofar.
If any of you could spare a minute to say what's true and what's not
true.
1. perl 5.005_02 (AS 509) cannot use module NetAdmin under
win9x?
(I think this one is now as good as confirmed the NetAdmin.pm
has a "die" code if it's not run under NT4 - line 14)
2. perl 5.005_02 (AS 509) cannot use NetResource under win9x?
(I simply cannot find any reference anywhere that suggests
whether it should run under win9x or not)
3. The most used alternative under win9x to access
LOGONDOMAIN USERNAME LOGONSERVER
USERFULLNAME USERCOMMENT etc is to use Win32::API
and use some system "dll".
Incidentally which system dll would I use? SVRAPI.DLL
Radmin32.dll or ???
Are there any samples or helpfull pointers or hints?
PS: I am using the active state PerlResourceKit with service
pack 1 applied (I guess that might make it 509 release). BUT if
there is another binary perl for win32 out there that has at least
as many modules ready for it then I'll be quite happy to switch.
------------------------------
Date: Fri, 22 Jan 1999 16:26:10 -0800
From: Colin Kuskie <ckuskie@cadence.com>
To: Kaare Rasmussen <kar@webline.dk>
Subject: Re: Perl ressources
Message-Id: <Pine.GSO.3.96.990122161809.4818D-100000@pdxue150.cadence.com>
[posted and emailed]
On Fri, 22 Jan 1999, Kaare Rasmussen wrote:
> Any other valuable ressources than CPAN? I'm especially looking for
> one-liners that actually do something useful.
The Perl Journal (www.tpj.com) has several one-liners as space fillers
and ran an article in one of the recent journals about one-liners.
The Perl Cookbook is also an excellent place to go looking. I believe
that O'Reilly (www.oreilly.com, perl.oreilly.com) posted some example
one-liners on the page that talks about the cook-book.
Deja News. Search in comp.lang.perl.* with 'Tom Christiansen' as a search
category. It would turn up this:
From tchrist@mox.perl.com Fri Jan 22 16:20:32 1999
Date: 12 Feb 1998 00:07:51 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Newsgroups: comp.lang.perl.misc
Subject: EXAMPLES: Simple I/O operations
The following set of examples has been used by me and my trainers in
some of our Perl training courses.
Many will find their way into the Perl Cookbook that should be out late
this spring, so are necessarily copyrighted by me unless otherwise
attributed. I post them here as a help, and a teaser. :-)
--tom
(I happened to save this one because it's chock full of one-liners)
Randal Schwartz (username:merlyn) is also particularly famous for
posting one line solutions for problems. (www.stonehenge.com/~merlyn)
The original Camel book, Programming Perl from O'Reilly had a cookbook
section with one-liners.
Hope this helps!
Colin
------------------------------
Date: Sat, 23 Jan 1999 11:48:38 -0600
From: Brennan Stehling <brennan@offwhite.net>
Subject: Re: Perl to C++ converter?
Message-Id: <78d1t3$ma8@newsops.execpc.com>
I actually created a perl to C++ convert just a little while ago. Here
is the core engine.
my $language = 'perl';
$language =~ s/perl/C\+\+/;
return $language;
----------
This engine is very customizable. You can actually convert Perl to most
any language. I will have to spend time on converters to perl...
----------
he he he
Brennan Stehling - tongue in cheek
Ron Savage wrote:
>
> Nice try, Tom, but more likely it's a typo, in that he really wants a C++ to
> Perl converter... :-)
>
> --
> Ron Savage
> Office (preferred): Savage.Ron.RS@bhp.com.au
> Home: rpsavage@ozemail.com.au
> http://www.ozemail.com.au/~rpsavage
> Tom Christiansen wrote in message <36a59ef0@csnews>...
> > [courtesy cc of this posting sent to cited author via email]
> >
> >In comp.lang.perl.misc, Gino Cerro <gino@wpi.edu> writes:
> >:Is there a script that converts Perl code to C++ code (for Unix/Linux)? I
> >:thought I saw a listing for one a few weeks (while surfing some Perl web
> >:pages) and cannot remember where.
> >:
> >
> >That's a FAQ. The short answer is you don't want to do that, even though
> >you think you do.
> >
> >--tom
> >--
> >"If projectile vomiting ever becomes an Olympic event, you'll do
> > yourself proud."
> > --Hobson, "Arthur II"
------------------------------
Date: Sat, 23 Jan 1999 12:41:46 -0500
From: Anthony Gaudio <gaudioa@ug.cs.sunysb.edu>
Subject: PLEASE HELP!!!!! - Calling System Functions
Message-Id: <36AA09DA.3290E832@ug.cs.sunysb.edu>
I just have a quick question:
I have to make a black jack game that will have most of the code
residing on the server and just the interface in the browser. The thing
I want to find out is if there is a way that I can call my program
functions with arguments through a CGI script (notably Perl) and extract
certain information like the return value or something. If so how can I
go about doing that?
Here is an example:
Someone presses the button 'HIT ME' - this will then initiate the CGI
script with certain state information from the game. Now I want to get
some random card back, so it calls some function (which is written in
say Java or whatever) and returns somevalue that will be assocociated
with a card. Is this remotely possible????
Thanks
Anthony
--
============================================
Anthony Gaudio
University At Stony Brook
Email: gaudioa@ug.cs.sunysb.edu
URL : http://www.ug.cs.sunysb.edu/~gaudioa
============================================
------------------------------
Date: 23 Jan 1999 17:25:35 +0100
From: Jonathan Feinberg <jdf@pobox.com>
To: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Regular Expression Question
Message-Id: <m3n23anegw.fsf@joshua.panix.com>
bart.lateur@skynet.be (Bart Lateur) writes:
> True. But backwacks + non-word characters ALWAYS means quoting in Perl.
> And that was essentialy what I was trying to say.
To paraphrase Bill Clinton, it depends on what the meaning of the word
"for" is.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 23 Jan 1999 15:29:15 +0000
From: Brian McCauley <B.A.McCauley@bham.ac.uk>
Subject: Re: Secuity hole with perl (suidperl) and nosuid mounts on Linux
Message-Id: <u9iudy0zzo.fsf@wcl-l.bham.ac.uk>
ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
> But my understanding is that this will happens only on very old
> systems which do not have secure suid scripts. How did suidperl
> appear on a contemporary clone of Unix?
This is rather like saying:
My understanding is that your gods are only worshiped very old
cultures that do not know the one true God. How did a church to your
gods appear in a contemporary society?
It is an matter of opinion (or perhaps even religion) if the
user-space hack (a suid-interpreter) for supporting secure suid
scripts is considered more or less ugly than the kernel-space hack
(using /dev/fd).
Personally I think the kernel space hack is (slightly) more ugly.
It is also beyond reasonable doubt that the user-space hack is more
intuative.
It would appear that Linus agrees with me.
--
\\ ( ) No male bovine | Email: B.A.McCauley@bham.ac.uk
. _\\__[oo faeces from | Phones: +44 121 471 3789 (home)
.__/ \\ /\@ /~) /~[ /\/[ | +44 121 627 2173 (voice) 2175 (fax)
. l___\\ /~~) /~~[ / [ | PGP-fp: D7 03 2A 4B D8 3A 05 37...
# ll l\\ ~~~~ ~ ~ ~ ~ | http://www.wcl.bham.ac.uk/~bam/
###LL LL\\ (Brian McCauley) |
------------------------------
Date: 23 Jan 1999 16:13:01 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Secuity hole with perl (suidperl) and nosuid mounts on Linux
Message-Id: <78csed$g32$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Brian McCauley
<B.A.McCauley@bham.ac.uk>],
who wrote in article <u9iudy0zzo.fsf@wcl-l.bham.ac.uk>:
> > But my understanding is that this will happens only on very old
> > systems which do not have secure suid scripts. How did suidperl
> > appear on a contemporary clone of Unix?
>
> This is rather like saying:
>
> My understanding is that your gods are only worshiped very old
> cultures that do not know the one true God. How did a church to your
> gods appear in a contemporary society?
This one is good. Though...:
> It is an matter of opinion (or perhaps even religion) if the
> user-space hack (a suid-interpreter) for supporting secure suid
> scripts is considered more or less ugly than the kernel-space hack
> (using /dev/fd).
>
> Personally I think the kernel space hack is (slightly) more ugly.
>
> It is also beyond reasonable doubt that the user-space hack is more
> intuative.
I see: just fix *all* the executables instead of fixing one place.
Then fix *all* the executable *again* when a security hole with the
previous fix (as one with perl) is discovered.
> It would appear that Linus agrees with me.
Oh, I forgot that that Linux kernel development model is as (insert
your favorite word for fascistic) as Emacs :-(. Fortunately, Perl's
maintainers rotate (plus there is always The Rule One - Larry's
opinion counts), so in a couple of years a reasonable idea _will_ make
it into Perl - even if the current maintainer has a mindblock.
Ilya
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4731
**************************************
