[8705] in Perl-Users-Digest
Perl-Users Digest, Issue: 2322 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 14 21:17:34 1998
Date: Tue, 14 Apr 98 18:00:34 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 14 Apr 1998 Volume: 8 Number: 2322
Today's topics:
Re: Bill Gates should be invited to O'Reilly's "Free So (Nathan V. Patwardhan)
Does perl take user defined option parameters? <a-namsuk@microsoft.com>
Re: Does perl take user defined option parameters? <ebohlman@netcom.com>
Re: environnemt variables <grinch@whoville.com>
Re: Error number Help wanted (Martien Verbruggen)
File Renaming <zsolt@idigital.net>
Re: File Renaming <ebohlman@netcom.com>
going to a specific line number in a file <pratima@synopsys.com>
HELP with mod_perl failures <dneumann.delete-this-part@computer.org>
Re: Hide or Encrypt perl source code <grinch@whoville.com>
Re: Hide or Encrypt perl source code <rra@stanford.edu>
Re: How could I improve my perl script's speed ? (Jonathan Stowe)
Re: how to parse "this", "that", "other" (Jonathan Stowe)
Re: How to read systemcommand value to a variable? (Martien Verbruggen)
Re: Ideas for installations (Andrew M. Langmead)
just another perl hacker, was Re: Dynamical function cr <dot@dotat.at>
Re: Ksh to Perl conversion (Jonathan Stowe)
Re: Ksh to Perl conversion (Martien Verbruggen)
Re: Learning Perl <dean@tbone.biol.sc.edu>
Re: Learning Perl bidyut@yahoo.com
Re: make perl program start with icon (Martien Verbruggen)
OOPS and several parents (Daniel)
Re: Perl 5.004_64 Slower??? <neeri@iis.ee.ethz.ch>
Re: Perl 5.004_64 Slower??? (Martien Verbruggen)
Re: Perl 5.004_64 Slower??? <sneaker@earthling.net>
Re: Perl and DOS Console on Win32 <kairys@mi.sl.com>
Re: perl and win95 (Martien Verbruggen)
Re: Perl state machine strategies <rpsavage@ozemail.com.au>
perl's 'grep' vs. shell's 'grep' <pete.nelson@ci.saint-paul.mn.us>
Perl5 & MDB <banman@wwdg.com>
Re: problems with crypt (brian d foy)
Re: problems with crypt (Matthew Cravit)
Re: problems with crypt (Mark-Jason Dominus)
Re: Question about Reference to Hash (Jonathan Stowe)
Re: Question about Reference to Hash <jdf@pobox.com>
Re: running `ls $file` on a nt workstation in a search (Jonathan Stowe)
Re: server scripts (Martien Verbruggen)
Re: suprise results from exit and backticks <merlyn@stonehenge.com>
Re: Time:: modules (Jonathan Stowe)
Re: Which Win32 Perl <ebohlman@netcom.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 15 Apr 1998 00:20:52 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Bill Gates should be invited to O'Reilly's "Free Software Summit" (was Re: RMS should be invited to O'Reilly's "Free Software Summit")
Message-Id: <6h0uh4$8p5@fridge.shore.net>
Ben Bullock (ben@hayamasa.demon.co.uk) wrote:
: I do have evidence, but I don't have inconclusive proof, that
: the X windows books are a major part of O'Reilly's business.
No, you have *opinions* and you're stating them like fact. That's why
several people are irritated with you.
: I don't see why anyone would regard this as a topic worth debating.
If you think that I'm arguing about the X-Window books, you've been
smoking lots of crack.
It's not the subject matter / topic. It's the fact that you've made
all these grandiose statements without much fact to back them up. And
then you've turned around and said, "no, I never said that," *well,
yes you did*, and "oh, I never said that when I meant this," *well,
yes you did and now you're sliding*.
: Perhaps some people disagree with my opinions about free software
: and its documentation, but can't think of a good rebuttal, so they
: decide to quibble about things like this.
Are you sure that you're talking about free software now? Or are you
talking about documentation? Or are you talking about both this time?
--
Nathan V. Patwardhan
------------------------------
Date: Tue, 14 Apr 1998 13:25:41 -0700
From: "Namsuk Kim" <a-namsuk@microsoft.com>
Subject: Does perl take user defined option parameters?
Message-Id: <6h0h2m$rls@news.microsoft.com>
I wonder perl can take user defined option parameters like "perl
aperlfile -a -t filename1"
------------------------------
Date: Tue, 14 Apr 1998 23:45:44 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Does perl take user defined option parameters?
Message-Id: <ebohlmanErFGo8.285@netcom.com>
Namsuk Kim <a-namsuk@microsoft.com> wrote:
: I wonder perl can take user defined option parameters like "perl
: aperlfile -a -t filename1"
Of course it can. Check out the various Getopt:: modules that come with
the standard distribution.
------------------------------
Date: Tue, 14 Apr 1998 18:32:49 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: environnemt variables
Message-Id: <6h0ncl$tv@fridge.shore.net>
Abigail wrote in message <6gvrnr$bo9$1@client2.news.psi.net>...
>Grinch (grinch@whoville.com) wrote on MDCLXXXVII September MCMXCIII in
><URL: news:6gv5vg$8pl@fridge.shore.net>:
>If people are told "this is a CGI question, this is not a CGI group"
>and are uncapable of grepping for cgi in their list of newsgroups,
>I don't give them much hope that any answer will satisfy them.
Well, to be honest, I share your opinion here. News readers, especially the
mass-market variety, make it trivially simple to search the list of groups.
But, I prefer to list the group name anyway, in the off chance that someone
really needs it. Color me naive, I suppose...
>I assume people looking for the frozen food section know they can find
>that in a supermarket, they mistake the library for a supermarket.
>Apperently, you don't give them that credit.
It's not really a matter of giving them credit. It's simply that, if I make
an error in judgement, I'd rather do so by giving them more information than
they needed, rather than not enough. I've never gotten a complaint from
someone who has said "hey, jerk, I didn't need that info... do you think I'm
a moron or something?" But, I have gotten email that says "that's great, but
can you expand on it?"
>BTW, if you don't like my answers, ignore them.
Minor attitude disagreements aside, I think you're very well informed and
informative, so please don't take my posts the wrong way. I'm not a member
of the "crucify Abigail" brigade. Your posts here (and in c.i.w.a.*) are
valuable, and you're in absolutely no danger of being killfiled by me. Yes,
I realize that you probably wouldn't care or even notice if I did so, but
please do my ego the favor of not pointing that out... :-)
-grinch
----
"Of course coffee doesn't make the world go around. It
just makes it go faster." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: 14 Apr 1998 23:15:04 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Error number Help wanted
Message-Id: <6h0qlo$imh$2@comdyn.comdyn.com.au>
In article <6gvk5e$sf2$1@juliana.sprynet.com>,
romei@sprynet.com writes:
> Hi,
>
> I'm writing a perl pgm in perl 5.001 in a unix envir and keep getting
You should really upgrade to perl 5.004_04. There are many bugs and
security issues with older versions of perl.
> a "error number 8" in my system error log. I can find no reference to
> any error numbers anywhere.
What does perl produce as error? Nothing? Does the program run? How
does your program look? Are you using the -w flag?
You really should produce a few more things for us to look at. As far
as I know, perl shouldn't do any syslogging, unless you ask it to, but
then, I might be wrong. It might actually do syslogging when there is
something severely wrong with the build of perl.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Very funny Scotty, now beam down my
Commercial Dynamics Pty. Ltd. | clothes.
NSW, Australia |
------------------------------
Date: Tue, 14 Apr 1998 20:00:29 -0400
From: Zsolt Fazekas <zsolt@idigital.net>
Subject: File Renaming
Message-Id: <3533F89D.CE5B3FF6@idigital.net>
I'm trying to write a script that renames files in a logical numeric
order in a directory. The only problem is that it won't rename >:-).
Here is my script. I'm getting the error at the rename line and it says:
"
#!/usr/bin/perl
$i='0001';
open (DIR, "+<file.txt") || die $!;
while (defined ($_=<DIR>)) {
$oldname= (chomp $_);
if ($_=~ /jpg/ || /gif/) { #leave other files alone
$_=~ s/\w*/$i/; #chop up to . and discard
$newname=$_;
rename ($oldname,$newname) || die $!"; #here's where the error
is: "no such file or directory at progname.pl line 16,
<DIR> chunk 1.
$i++;
}
}
close (DIR) || die $!";
I'm running Perl for Win95. I'm very new to Perl, any help at all would
be appreciated.
thanks,
zf.
------------------------------
Date: Wed, 15 Apr 1998 00:39:48 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: File Renaming
Message-Id: <ebohlmanErFJ6C.5Mo@netcom.com>
Zsolt Fazekas <zsolt@idigital.net> wrote:
: I'm trying to write a script that renames files in a logical numeric
: order in a directory. The only problem is that it won't rename >:-).
: Here is my script. I'm getting the error at the rename line and it says:
: "
: #!/usr/bin/perl
You're missing the -w. Perl can help you if you ask it to.
: $i='0001';
: open (DIR, "+<file.txt") || die $!;
: while (defined ($_=<DIR>)) {
Not a real problem, but you could have simply written this as "while
(<DIR>)".
: $oldname= (chomp $_);
This doesn't do what you think it does. Take a look at the documentation
for chomp() and you'll find that the return value is the number of
characters that were chomped, *not* the chomped string. Replace it with:
chomp;
$oldname=$_;
: if ($_=~ /jpg/ || /gif/) { #leave other files alone
This isn't the correct way to match string alternatives, though in this
case it works (sort of) by accident (it wouldn't have worked if you were
trying to test a string other than $_). I say "sort of" because it will
match any filenames that contain "jpg" or "gif" *anywhere* in the name,
which doesn't sound like what you want. Try:
if ( /(\.(jpg|gif))$/ ) {
which will match only filenames ending in ".jpg" or ".gif" and will also
stick the period and the extension into $1 for use later on. See the
perlre documentation file for more information about regular expressions
and string matching.
: $_=~ s/\w*/$i/; #chop up to . and discard
This looks suspicious to me, though I can't quite figure out why. But
you can get rid of it now that we've saved the extension.
: $newname=$_;
Replace this with:
$newname=$i.$1;
: rename ($oldname,$newname) || die $!"; #here's where the error
There's a typo (unclosed quote) in the above line. But why not make your
die() message more informative?
rename ($oldname,$newname) || die "can't rename $oldname to $newname: $!";
: is: "no such file or directory at progname.pl line 16,
: <DIR> chunk 1.
: $i++;
: }
: }
: close (DIR) || die $!";
Typo again.
------------------------------
Date: Tue, 14 Apr 1998 17:04:33 -0700
From: Pratima Easwar <pratima@synopsys.com>
Subject: going to a specific line number in a file
Message-Id: <Pine.SOL.3.96.980414165539.19121C-100000@ae-50.epic.com>
I have two files. File #1 has line numbers (not necessarily
consecutive) for lines in file #2. I need to create an output
file in the following format.
Line #1 from File #1 ----- Line #x from File #2 (I got the #x from File 1)
The problem I am having is I dont know how to go to say line 25 in File 2
directly - if there is a way. I could reset to the beginning of the file
and keep reading in lines until I get to line 25, but I feel there must be
a more efficient way.
Please send me mail at pratima@synopsys.com as well as
2easwar@worldnet.att.net (email at home)
since I will be leaving for home soon and I dont presently have
a way to log into work and check my messages.
Thanks much.
Regards,
Pratima Easwar
------------------------------
Date: Tue, 14 Apr 1998 14:52:57 -0700
From: Dean Neumann <dneumann.delete-this-part@computer.org>
Subject: HELP with mod_perl failures
Message-Id: <3533DAB9.F19@computer.org>
I apologize for posting this here guys, but I haven't received any
response from the listserver at listserv@listproc.itribe.net when I
tried to subscribe to the modperl mailing list to "post" there...
I have a database app which works perfectly when spawned from a
non-mod_perl-aware Apache, yet it only works 4-5 times when run from a
mod_perl-aware Apache. My app is >1000 lines long, but I've determined
the problem to be related to eval(). The entire app is clean with
respect to '-w' and 'use strict'. Attached is a mimimal snippet which
demonstrates the error I'm getting. I'm loading some saved state into a
CGI object, and then displaying that state in a CGI form
(Embedded Perl version 5.00401 for Apache/1.2.5 mod_perl/1.10, using
CGI.pm 2.36).
If, in the sample below, I call a subroutine to print the HTML,
everything works repeatedly, but if I load the exact same block (except
for the "sub form" line) from file and then eval the block, it only
works 4-5x, after which CGI->new will read garbage parameters each
invocation.
I've read everything I could find on converting scripts to run under
mod_perl, and have searched the mod_perl archive for similar problems,
but I'm still stumped. Can anyone shed some light on this for me?
I sure would appreciate it. Thanks in advance.
PS: what's with listserv@listproc.itribe.net?
--
Dean Neumann (dneumann@computer.org)
Neumann & Associates Information Systems Inc.
Note: Remember to delete the ".delete-this-part"
portion of the address before replying.
----- CUT HERE -------
#!/usr/local/bin/perl -w
package Acdb;
use strict;
use CGI 'all';
## init params from saved file & display in CGI scrolling_list
open( SESSION, "+</tmp/session" ) || cleanexit( "/tmp/session : $!" );
$Acdb::state=new CGI( \*SESSION );
close( SESSION );
if ( $ENV{'PATH_INFO'} eq '/from_sub' ) { &form(); } #this works
forever
elsif ( $ENV{'PATH_INFO'} eq '/from_disk' ) { &load(); } # this works
4-6x
undef $Acdb::state;
cleanexit();
sub cleanexit
{
my ($msg) = @_;
confess( $msg . "\n" ) if ( defined $msg && $msg !~ /^\s*$/ );
exists $ENV{'MOD_PERL'} ? Apache::exit(0) : exit 0;
}
sub load
{
my $buf;
open( TMPL, "<form" ) || cleanexit( "./form: $!" );
undef $/;
$buf = <TMPL>;
close( TMPL ) || cleanexit ( "close ./form: $!" );
eval $buf;
}
## file './form' is an exact duplicate of sub form,
## from the opening brace to the closing brace.
sub form
{
my $cgi_obj = \$Acdb::state;
my @profiles;
if ( defined $$cgi_obj->param( 'profiles' ) )
{
push( @profiles, $$cgi_obj->param( 'profiles' ) );
}
print
$$cgi_obj->header(),
$$cgi_obj->start_html(),
$$cgi_obj->start_form(-action=>'acdbsrv.pl' ), "\n",
$$cgi_obj->scrolling_list( -name=>'profiles',
'-values'=>[@profiles],
-size=>4, -override=>1 ),
$$cgi_obj->end_form,
$$cgi_obj->end_html;
}
------------------------------
Date: Tue, 14 Apr 1998 19:05:15 -0400
From: "Grinch" <grinch@whoville.com>
Subject: Re: Hide or Encrypt perl source code
Message-Id: <6h0p9c$335@fridge.shore.net>
Tom Christiansen wrote in message <6h0bsc$s9g$1@csnews.cs.colorado.edu>...
>No sir. perl2exe is a lie. It doesn't compile
>your source code into machine code.
I can easily understand why you'd be a little touchy about this whole
"compiler question" right now, but 'perl2exe' is not meant to address
performance issues, so it's not really fair to criticize it for failing to
do so. 'perl2exe' is meant to be a way of dealing with packaging and
distribution issues on Win32 platforms.
Unlike the UNIX world, where the presence of some version of Perl is almost
a given, most Win32 machines don't have Perl installed. Without 'perl2exe'
or something similar, the only way to run a Perl script on a Win32 machine
would be to install the entire Perl-Win32 distribution.
It's a Very Good Thing that anyone, anywhere, can install the development
environment if they so wish. But, end users shouldn't be forced to do so,
just to run a simple script.
-grinch
----
"Of course coffee doesn't make the world go around. It
just makes it go faster." - me
Sherm Pendley
grinch@whoville.com
http://www.whoville.com
------------------------------
Date: 14 Apr 1998 16:33:38 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Hide or Encrypt perl source code
Message-Id: <m33efgx9kd.fsf@windlord.Stanford.EDU>
Chris Adams <cadams@ro.com> writes:
> Well, there are some scripts that it would be nice to not have world
> readble. For example: our modem login system logs access to a MySQL
> database. I want users to be able to check their usage but not anyone
> else's usage. The database requires a username and password to connect,
> but then I have to put them in the perl script that checks usage. How
> can I keep them from the users if the script is world-readble?
Put the username and password in a file that isn't world-readable rather
than putting them in the script?
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Mon, 13 Apr 1998 15:16:02 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: How could I improve my perl script's speed ?
Message-Id: <35322941.17453846@news.btinternet.com>
On Tue, 14 Apr 1998 11:34:31 +0200, Denis DORR <dorr@cetrel.lu> wrote:
>
>I have to write a script to erase all data on hard disks.
<snip>
mkfs ?
/j\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: Mon, 13 Apr 1998 15:15:54 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: how to parse "this", "that", "other"
Message-Id: <35320db0.10698621@news.btinternet.com>
On 14 Apr 98 14:43:43 GMT, root@ (root) wrote:
<snip>
>
>$dat = '"this","that and","the other",565,"sdf",etc';
>@fields = split(/\"*,\s*\"*/, $dat);
>
You might want to examine perlfaq4 wherein is described an initially
alarming looking but effective method for doing just this thing.
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: 14 Apr 1998 23:10:40 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: How to read systemcommand value to a variable?
Message-Id: <6h0qdg$imh$1@comdyn.comdyn.com.au>
In article <6gvjqh$3nb$1@verkko.uwasa.fi>,
e75727@vilkku.uwasa.fi (Tony Christian Svderudd) writes:
> So how should I do this in order to get it work?
> I tried..
>
> $a=system("finger|grep 75727");
>
> but it doesn't work. It only executes the finger command but
> doesn't put the value of it to $a.
> Does anyone know how this should be done?
You should use backticks or qx//, as mentioned in the documentation
for system().
# perldoc system
[snip]
This is I<NOT> what you want to use to capture
the output from a command, for that you should use merely backticks or
qx//, as described in L<perlop/"`STRING`">.
# perldoc perlop
/`STRING`
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | If it isn't broken, it doesn't have
Commercial Dynamics Pty. Ltd. | enough features yet.
NSW, Australia |
------------------------------
Date: Tue, 14 Apr 1998 22:25:49 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Ideas for installations
Message-Id: <ErFCz2.EvL@world.std.com>
Mark Bunkowske <mbunks@coincnx.com> writes:
>I thought that a CGI/Perl group (Perl IS a CGI language) would be able to at
>least offer an additional idea or two about a CGI/Perl method of doing this. I
>know I didn't necessarily want any code to accomplish this.
This is where your problem is.
Perl is not a "CGI language"
Perl is a general purpose programing language, with many features
geared to text processing and Unix system administration, among other
things.
CGI is a protocol that can be implemented in any language that can
read environment variables, read standard input and write the standard
output stream.
If you have a question along the lines of "how can I get a CGI script
to do ..." the answer would be the same regardless of which language
you use. The newsgroups <URL:news:comp.infosystems.www.authoring.cgi>
is where people with experience in the CGI protocol (regardless of
language) hang out.
If your question was something like "how do I generate random
passwords in perl", then that would be a perl question.
--
Andrew Langmead
------------------------------
Date: 14 Apr 1998 23:11:08 GMT
From: Tony Finch <dot@dotat.at>
Subject: just another perl hacker, was Re: Dynamical function creation ?
Message-Id: <6h0qec$9vt$1@info.noc.demon.net>
Tony Finch <dot@dotat.at> wrote:
>
>However, Perl 5 does support currying directly:
>
>my ($add) = sub { my ($A) = @_;
> my ($addA) = sub { my ($B) = @_;
> return $A + $B; };
> return addA; };
>
>my ($add1) = $add->(1);
>my ($add2) = $add->(2);
>
>print $add1->(1), "\n", $add2->(2), "\n", $add->(3)->(3), "\n";
... which made me think a JAPH along these lines would be fun. Run
this with `perl -P`:
------------------------------------------------------------------------------
#define L(a) sub{my($a)=@_;
sub Y{my($f)=@_;L(x)$f->(&Y($f))->($x)}}; $C=L(x)L(y)L(f)$f->($x)->($y)}}};
$S=L(s)$C->(substr$s,0,1)->(substr$s,1)}; $P=L(c)L(a)L(f)print$c;$f->($a)}}};
(\&Y)->(L(f)L(s)$s?$S->($s)->($P)->($f):$s}})->("just another perl hacker\n");
------------------------------------------------------------------------------
Read L(a) as "lambda a"; application is written (($f)->($a)) instead
of (f a). Y is the recursion combinator, $C is cons, $S takes a string
and returns a consed pair ["s","tring"], and $P prints a character
(using CPS and a state-of-the-world argument to enforce sequencing in
the traditional manner).
Tony.
--
"Gently break the heart of a young lettuce."
------------------------------
Date: Mon, 13 Apr 1998 15:16:04 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Ksh to Perl conversion
Message-Id: <35322a7c.17769336@news.btinternet.com>
On Tue, 14 Apr 1998 10:12:19 -0400, "Bob" <bmalik@geocities.com>
wrote:
>How do I convert the following ksh script to perl ??
>
>#!/usr/bin/ksh
>
>ftp -niv <<!
>open ${server}
>user ${user} ${password}
>cd '${filepath}'
>get ${filename} ${downloadfilepath}/$filename
>bye
>!
>
to retain that ksh look'n'feel you might try the slightly dumb
open(FTP,"|/usr/bin/ftp -niv") || die "Cant open ftp";
print FTP <<EEE;
open $server
user $user $password
cd $filepath
get $filename ${downloadfilepath}/$filename
bye
EEE
or alternatively you might check out the infinitely less dumb Net::FTP
module available from CPAN.
/j\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: 14 Apr 1998 23:56:49 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Ksh to Perl conversion
Message-Id: <6h0t41$imh$7@comdyn.comdyn.com.au>
In article <6gvq1q$j3v$1@charm.magnus.acs.ohio-state.edu>,
"Bob" <bmalik@geocities.com> writes:
> How do I convert the following ksh script to perl ??
>
> #!/usr/bin/ksh
>
> ftp -niv <<!
Ideally, by using the Net::FTP module. Or maybe even the LWP modules.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: 14 Apr 1998 17:28:51 -0400
From: Dean Pentcheff <dean@tbone.biol.sc.edu>
Subject: Re: Learning Perl
Message-Id: <8790p8m6ss.fsf@tbone.biol.sc.edu>
Sundeep Singatwaria <sundeep@cadence.com> writes:
> Hi All
> I'm trying to learn Perl but 'm not able to find any pointers where I
> can start. Can somebody give some good pointers for begineers. Is it a
> necessity for one to be good in Unix Scripts before learning Perl.
http://www.oreilly.com/
Once there, get the following two books:
Schwartz. Learning Perl (2nd edition).
Wall, Christiansen, and Schwartz. Programming Perl (2nd edition).
The first is a tutorial, the second is the standard reference (and
also includes some tutorial material). You can try other Perl books,
too, but these two are guaranteed to give you a good start.
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org>
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-7068)
------------------------------
Date: Tue, 14 Apr 1998 17:56:07 -0600
From: bidyut@yahoo.com
Subject: Re: Learning Perl
Message-Id: <6h0pi7$f7h$1@nnrp1.dejanews.com>
In article <3533B70B.3213@cadence.com>,
Sundeep Singatwaria <sundeep@cadence.com> wrote:
>
> Hi All
> I'm trying to learn Perl but 'm not able to find any pointers where I
> can start. Can somebody give some good pointers for begineers. Is it a
> necessity for one to be good in Unix Scripts before learning Perl.
>
> Help appreciated
> -Sundeep
>
U can see Perl5.0 and go to http://refernce.perl.com for more!
Bidyut
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 14 Apr 1998 23:36:25 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: make perl program start with icon
Message-Id: <6h0rtp$imh$6@comdyn.comdyn.com.au>
In article <3531F8E1.4BB5@sonic.net>,
~arthur <star@sonic.net> writes:
> Hi,
>
> How can one get a Perl program to start off of an Icon on the desk top.
Is this a religious icon? Why do you have it on your desk? Shouldn't
it be on the wall?
Oh, you mean desktop as in what you see on your gui screen? What sort
of desktop? Mac? X Windows? MS Windows 3? NT? 95? OS/2?
Some advice:
Go to the newsgroup that talks about whatever desktop you have, and
ask the question there. perl is just an executable, and should be
treated by your OS the same way as any other executable.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Begin at the beginning and go on till
Commercial Dynamics Pty. Ltd. | you come to the end; then stop.
NSW, Australia |
------------------------------
Date: 14 Apr 1998 23:35:37 GMT
From: daniel.mendyke@digital.com (Daniel)
Subject: OOPS and several parents
Message-Id: <6h0rs9$lf1$1@nntpd.lkg.dec.com>
In the following example how do I ensure that
both 'prime::new' and 'extra::new' are called
from 'something::new'? I would like to be able
to do it in an 'oops' friendly way.
I understand that my example will not work
because 'SUPER' only calls the first method
it finds. So my question is 'How do I call
all four constructors?'
-Daniel
#/usr/bin/perl -w
#--------------------------------------------
use strict; # turn on police state
#--------------------------------------------
package prime;
sub new {
my $self = shift;
bless{ color => 'Red', @_ }, $self;
};
#--------------------------------------------
package extra;
sub new {
my $self = shift;
bless { state => 'solid', @_ }, $self;
};
#--------------------------------------------
package second;
@second::ISA = qw( prime );
sub new {
my $self = shift;
SUPER::new $self( age => 10, @_ );
};
#--------------------------------------------
package something;
@something::ISA = qw( second extra );
sub new {
my $self = shift;
SUPER::new $self( cost => 'high', @_ );
};
package main;
my $thing = new something;
print $thing->{ color }; # from 'prime::new'
print $thing->{ state }; ###### from 'extra::new' <= never set !!??
print $thing->{ age }; # from 'second::new'
print $thing->{ cost }; # from 'something::new'
------------------------------
Date: 15 Apr 1998 00:40:24 +0200
From: Matthias Neeracher <neeri@iis.ee.ethz.ch>
Subject: Re: Perl 5.004_64 Slower???
Message-Id: <86iuocjacn.fsf@gwaihir.ethz.ch>
John Taylor-Johnston <eslcafe@callisto.si.usherb.ca> writes:
> > #!perl -w
> > use strict;
> > use diagnostics;
>
> I assume you are using Macperl!? Right!?
> It's a Mac server thing. I never liked a mac, but forced to use it.
> Not much you can do. Macperl runs slower. That's all.
Hey! I resemble that remark! MacPerl doesn't even *run* 5.004_64 :-)
Matthias
--
Matthias Neeracher <neeri@iis.ee.ethz.ch> http://www.iis.ee.ethz.ch/~neeri
"One fine day in my odd past..." -- Pixies, _Planet of Sound_
------------------------------
Date: 14 Apr 1998 23:31:18 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl 5.004_64 Slower???
Message-Id: <6h0rk6$imh$5@comdyn.comdyn.com.au>
In article <3532A3C3.638880C0@earthling.net>,
Bill 'Sneex' Jones <sneaker@earthling.net> writes:
> Is perl 5.004_64 slower???
Anything above 5.004_04 is beta stuff, and therefore should only be
run if you want to play with dangerous goodies. In this case: That
version can be compiled with thread support which slows down things by
about 30% (I heard mention). Very likely that is what you're seeing.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | That's not a lie, it's a terminological
Commercial Dynamics Pty. Ltd. | inexactitude.
NSW, Australia |
------------------------------
Date: Tue, 14 Apr 1998 23:57:36 GMT
From: Bill 'Sneex' Jones <sneaker@earthling.net>
Subject: Re: Perl 5.004_64 Slower???
Message-Id: <3533F660.BF16E733@earthling.net>
John Porter wrote:
> hand,
> John Porter
Well toes, John :-)
I just like you :-)
Here, a bone, er, perl -V output:
Summary of my perl5 (5.0 patchlevel 4 subversion 64) configuration:
Platform:
osname=linux, osvers=2.0.31, archname=i586-linux-thread
uname='linux sneex 2.0.31 #1 sun nov 9 21:45:23 est 1997 i586
unknown '
hint=recommended, useposix=true, d_sigaction=define
usethreads=define useperlio=undef d_sfio=undef
Compiler:
cc='cc', optimize='-g', gccversion=2.7.2.3
cppflags='-D_REENTRANT -Dbool=char -DHAS_BOOL -DDEBUGGING'
ccflags ='-D_REENTRANT -Dbool=char -DHAS_BOOL -DDEBUGGING'
stdchar='char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lgdbm -ldb -ldl -lm -lpthread -lc -lposix -lcrypt
libc=, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: DEBUGGING
Built under linux
Compiled at Apr 11 1998 14:34:43
@INC:
/usr/lib/perl5/i586-linux-thread/5.00464
/usr/lib/perl5
/usr/lib/perl5/site_perl/i586-linux-thread
/usr/lib/perl5/site_perl
.
PS - Tom Phoenix was right :-)
BUT - It may be that DEBUGGING option???
__________________________
Bill Jones...............|
Sneaker's Nest...........|
Chasecreek Systemhouse...|
------------------------------
Date: Tue, 14 Apr 1998 11:44:19 -0400
From: "Michael Kairys" <kairys@mi.sl.com>
Subject: Re: Perl and DOS Console on Win32
Message-Id: <353390a4.0@news.ic.net>
Bill Hess wrote in message ...
>I am running Perl 5.004_04 on WinNT/Win95 and I need to run a Perl Program
>with no DOS Console window popping up - how can I do this???
Cross-posted from comp.lang.perl.tk:
From: Michael Kairys <kairys@mi.sl.com>
Subject: Using Win32::Process::Create to avoid console window
Date: Monday, April 13, 1998 11:26 AM
Someone posted this as a suggestion and I was intgrigued, because I would
like to find a way to run Perl-Tk scripts without the "extra" window. So I
coded up a "startperl" script that called Win32::Process::Create as
described. I found that the scripts I ran with it were failing, and after
some experimentation I found that, in the script running in the created
process,
1. Filename globbing, whether via "<>" or "glob()", fails. "glob(anything)"
returns nothing.
2. Backticks fail to do anything. system() works, but pops up a console
window for an instant.
The first I could work around but the second was a killer. I don't suppose
anyone has a quick fix for either problem at the tips of their fingers? (:-)
Oh, well, guess I'll wait for perl2exe or the Perl compiler for NT. Of
course I have no reason to assume either of those routes would avoid the
console window ...
----------------------------------------------------------------------------
-------------------------------------------------
Here is my current cut at it:
use Env( "LOCAL" );
use Win32::Process;
my ( $obj, $appname, $cmdline, $iflags, $cflags, $curdir, $usage, $script );
$usage = "Usage: plstart.pl [-d <dir>] <script> [<arg> [<arg>...]]\n";
$appname = "$LOCAL\\PERL\\BIN\\perl.exe";
$iflags = 0;
$cflags = DETACHED_PROCESS;
if ( $#ARGV < 0 ) { print $usage; exit }
if ( $ARGV[0] =~ /^-d/i )
{ $curdir = $ARGV[1]; shift; shift }
else
{ $curdir = "." }
$script = $ARGV[0]; shift;
$script = "$script.pl" if not $script =~ /pl$/;
$script = "$LOCAL\\bin\\$script" if not -e $script;
die "Can't find $script: $!\n" if not -e $script;
# Glob filenames here, not in created process
$cmdline = " $script";
foreach ( <@ARGV> ) { $cmdline .= " $_" };
Win32::Process::Create( $obj, $appname, $cmdline, $iflags, $cflags,
$curdir )
or die Win32::FormatMessage(Win32::GetLastError() );
------------------------------
Date: 14 Apr 1998 23:22:15 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: perl and win95
Message-Id: <6h0r37$imh$4@comdyn.comdyn.com.au>
In article <01bd677e$f48c0840$2c5323cb@ceison.lis.net.au>,
"chris" <ceison@lis.net.au> writes:
> I am experimenting with writting tcp servers written in perl and I have
> come accross a brick wall. I wish to know how to make a multithread server
> that is compatable with win95 (not linux).
>
> I have read perlipc and sort help when its examples didn't work - I have
> since been told that the examples are for linux.
>
> can anyone help me find the door?
This is the fifth, no, actually sixth, time I see you post this
question. Please, when you post an article to usenet, be patient for
it to show up, especially when you post through dejanews. It might
take a while to show up on your news server.
See the other post you sent for an answer.
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Inside every anarchy lurks an old boy
Commercial Dynamics Pty. Ltd. | network - Mitchell Kapor
NSW, Australia |
------------------------------
Date: Tue, 14 Apr 1998 10:10:34 +1100
From: Ron Savage <rpsavage@ozemail.com.au>
Subject: Re: Perl state machine strategies
Message-Id: <35329B6A.6FAD@ozemail.com.au>
Phil Ptkwt Kristin wrote:
>
> I'm kind of playing around with a FSM based parser in Perl.[snip]
> Has anyone out there done state machines in perl, and if so what kind of
> strategies have been developed?[snip]
Yes, I've written a state machine package in Perl. It's usable as-is, but I'm cleaning it up.
Given a state transition table, it will write your program for you, outputting dummy subs for you to fill in,
of course.
Let me know if you're interested.
--
Cheers,
Ron Savage
Office: savage.ron.rs@bhp.com.au
Home (preferred): rpsavage@ozemail.com.au
Web: http://www.ozemail.com.au/~rpsavage
------------------------------
Date: Tue, 14 Apr 1998 16:40:19 -0500
From: Pete Nelson <pete.nelson@ci.saint-paul.mn.us>
Subject: perl's 'grep' vs. shell's 'grep'
Message-Id: <3533D7C3.BF65F73E@ci.saint-paul.mn.us>
Maybe I'm doing something wrong (always my first guess).
I'm configuring Darryl Burgdorf's WebCal script
[http://awsd.com/scripts] for local use, and one thing I was wanting to
clean up was his 'delete' menu - a list of every line in the data file
with a checkbox by each one you want removed. Knowing how well 'grep'
works, I had an idea. Give the user a form with a text field to specify
the event they want to delete. then, display only those lines that
match.
Not only would this make it easier to read, but also would help prevent
people from 'accedentially' deleting other people's events.
>From any unix shell, grep will spit out the line where the regexp is
found, but perl 'grep' command would appear to be doing things a little
different. Am I best off calling 'grep' from /usr/bin with an 'exec'
call?
--
Pete Nelson
City of Saint Paul, Web Services
pete.nelson@ci.saint-paul.mn.us
http://www.stpaul.gov
------------------------------
Date: Tue, 14 Apr 1998 22:27:50 GMT
From: John Compe <banman@wwdg.com>
Subject: Perl5 & MDB
Message-Id: <3533E06B.24D2@wwdg.com>
I've recently been making a simple CGI application to add a user to a
database with their email address as a field, then add a pass to the
email address.. well for some reason I keep getting hung on this script
which will add the password: (the database works fine as does the
process_cgi.pl):
#!/usr/bin/perl
require("process_cgi.pl");
&parse_input(*fields);
dbmopen (%users, "users", 0666);
&print_header;
if (!defined($users{$fields{'email'}})) {
print "The email address doesn't exist in the database.";
}
# This is the line I get hung on every time, even if I enter an
# illegal password or whatnot.
elsif (!($users{$fields{'email'}} =~ /::yes$|::no$/)) {
print "There's already a password regged for that address.\n";
}
# If I enter an illegal password it wont hit this line, or anything
# else. Just hangs on that one above ^^
elsif (!($fields{'pass1'} =~ /^[a-zA-Z0-9]{5,10}$/)) {
print "An illegal password!";
}
elsif ($fields{'pass1'} ne $fields {'pass2'}) {
print "passwords dont' match";
}
else {
$users{$fields{'email'}} .= "::$fields{'pass1'}";
print "YAAY, added the password!!!";
}
--
Ryan Banas (Compe)
Email: Banman@WWdg.com
------------------------------
Date: Tue, 14 Apr 1998 17:51:42 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: problems with crypt
Message-Id: <comdog-ya02408000R1404981751420001@news.panix.com>
Keywords: from just another new york perl hacker
In article <3533CCFC.BDBF27D2@wco.com>, Steven Smith <steves@wco.com> posted:
>I seem to be getting the same output from crypt for differing clear text
>input. What's wrong here?
> DB<14> print crypt('testing124', 'Cd')
>CdnHbyg.zu42Q
> DB<15> print crypt('testing126', 'Cd')
>CdnHbyg.zu42Q
>I must be doing something foolish, but don't see what it is!
% perl -e 'print crypt "testing12", "Cd"'
CdnHbyg.zu42Q
how about now :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: 14 Apr 1998 15:14:42 -0700
From: mcravit+usenet@mcravit.vip.best.com (Matthew Cravit)
Subject: Re: problems with crypt
Message-Id: <6h0n4i$6fb$1@shell3.ba.best.com>
In article <3533CCFC.BDBF27D2@wco.com>, Steven Smith <steves@wco.com> wrote:
>I seem to be getting the same output from crypt for differing clear text
>input. What's wrong here?
> DB<14> print crypt('testing124', 'Cd')
>CdnHbyg.zu42Q
> DB<15> print crypt('testing126', 'Cd')
>CdnHbyg.zu42Q
> DB<16> print crypt('testing125', 'Cd')
>CdnHbyg.zu42Q
Well, the problem is that crypt uses the system call of the same name to do
its dirty work for it. On many systems, the number of significant characters
in the password is limited to 8, and if you go over, only the first 8 are
used. So, in your case, it looks like the system is only using "testing1"
in all cases, and is discarding the other characters.
If you need something more secure, and you're encrypting stuff for things
other than a password, the MD5, or Crypt::{IDEA,DES} modules might be worth
a look.
/MC
--
Matthew Cravit, N9VWG | Experience is what allows you to
E-mail: mcravit@best.com (home) | recognize a mistake the second
mcravit@net.com (work) | time you make it.
------------------------------
Date: 14 Apr 1998 19:41:29 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: problems with crypt
Message-Id: <6h0s79$47k$1@monet.op.net>
Keywords: habitant hangman library prizewinning
In article <3533CCFC.BDBF27D2@wco.com>, Steven Smith <steves@wco.com> wrote:
>I seem to be getting the same output from crypt for differing clear text
>input. What's wrong here?
Crypt only looks at the first 8 characters of the input.
------------------------------
Date: Mon, 13 Apr 1998 15:15:59 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Question about Reference to Hash
Message-Id: <353218e6.13558126@news.btinternet.com>
On 12 Apr 1998 01:45:20 -0500, Jonathan Feinberg <jdf@pobox.com>
wrote:
<snip>
>Why books? Why FAQs? Why not <drumroll> the *docs* </drumroll>?
This <drumroll> tag I like a lot: is it in HTML4 or *sigh*
a-Microscoff-specific-implementation? Perhaps it could be extended
thus:
<drumroll drum="timpani">
Thereby enabling a degree of variation in the emphasis of gravity.
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: 14 Apr 1998 20:50:20 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Question about Reference to Hash
Message-Id: <vhsb6eg3.fsf@mailhost.panix.com>
Gellyfish@btinternet.com (Jonathan Stowe) writes:
> Jonathan Feinberg <jdf@pobox.com> wrote:
>
> >Why books? Why FAQs? Why not <drumroll> the *docs* </drumroll>?
>
> This <drumroll> tag I like a lot
I'm morally compelled to indicate that the idea came from one of
GSAR's posts some time ago. It made me laugh heartily, and it got
lodged in me 'ead.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Mon, 13 Apr 1998 15:15:56 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: running `ls $file` on a nt workstation in a search script pro blem?
Message-Id: <3532159a.12714203@news.btinternet.com>
On Sun, 12 Apr 1998 03:38:15 +0100, tony Hitchinson
<tony@corcoll.demon.co.uk> wrote:
>ls does not work under NT. as NT command language is Dos based try using
>dir instead this
<snip>
It does on mine ... Oh yeah the NT resource kit. Alternatively you
might consider checking the Cygnus cygwin32 port of the GNU sh-utils
from (I think) www.cygnus.com.
Or more perlishly you could see a script that does much the same sort
of thing at www.btinternet.com/~gellyfish/resources/dir2html.htm .
Its probably crap and needs fixing but it'll give you a clue.
>
>Tony Hitchinson
>It's can't rain all the time
Tell that to the folks in Oxfordshire. (He smirks from sunny Hastings)
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: 14 Apr 1998 23:19:58 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: server scripts
Message-Id: <6h0quu$imh$3@comdyn.comdyn.com.au>
[There really was no need to post this four times.]
In article <6gv5ib$f6b$1@nnrp2.dejanews.com>,
ceison@lis.net.au writes:
> I am trying to write some small multithread servers using perl - but I am
> unsure how to do this as the example in perlipc.html returns errors.
>
> can someone please point me in the right direction or even give me an example.
>
> I have the perl 5.004 from cspan - and run win95
^^^^^
This is most likely your problem. perlipc is very very unixish, and a
lot of the functionality used in there is simply not available on win
95, because the OS doesn't support it. I am not sure if you can do
this under win95 or NT, but if you can, you should be able to find
some hints on how to do it in the perl for win32 FAQ:
http://www.perl.com/CPAN/doc/FAQs/nt/Perl_for_Win32_FAQ.html
Martien
--
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: Tue, 14 Apr 1998 23:20:45 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: Martin Gregory <mgregory@asc.sps.mot.com>
Subject: Re: suprise results from exit and backticks
Message-Id: <8cn2dong7r.fsf@gadget.cscaper.com>
>>>>> "Martin" == Martin Gregory <mgregory@asc.sps.mot.com> writes:
Martin> I just got suprised by something like this:
Martin> in bar.pl:
Martin> exit(1);
Martin> in foo.pl
Martin> $r = `bar.pl`;
Martin> $status = $?;
Martin> exit($status);
Martin> So... without trying it: what would you guess would be the exit
Martin> status of the execution of foo.pl?
0. :) exit() looks only at the bottom byte. $? returns the "wait"
value, which is the exit status * 256 + 128 if core was dumped plus
the signal number causing termination, if any.
Martin> How could I have known this?
Uh, the manual for $? :-)
What you want is probably:
exit($status >> 8);
Martin> (I get '0'. The value in $status is 256. SunOS 4.1.4 under /bin/csh).
Yeah, I know. I peeked. :)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 139 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Mon, 13 Apr 1998 15:16:00 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: Time:: modules
Message-Id: <35321fbe.15310728@news.btinternet.com>
On Mon, 13 Apr 1998 11:20:46 -0500, "Rick" <rlluhman@iastate.edu>
wrote:
>Can you add Time:: modules to the Novell's Intranetware? If so, how?
>
Eee,
Assuming you have got the later version of the Web server software
(3.0 I think) The original version had a perl 4.036 port and thus no
modules etc etc. You will have to manually install (ie copy) the
files in the appropriate place however (and I wouldnt hazard a guess
where that might right now [check out @INC]). You will probably need
to gain rights to some directories in SYS:WEB (e.g.) if you are not
the Novell administrator as they dont need to be publicly accessible
at all.
You might want to try going to www.novell.com and doing a search for
more on this although they are probably downplaying some of this since
they got all javaed up.
/J\
Jonathan Stowe
See the MetaFaq at http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm
------------------------------
Date: Tue, 14 Apr 1998 23:38:42 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Which Win32 Perl
Message-Id: <ebohlmanErFGCI.1qp@netcom.com>
Jeffrey R. Drumm <drummj@mail.mmc.org> wrote:
: One "gotcha" that came up recently for me is that ActiveState expands file glob
: characters (* and ? in the DOS/NT world) into @ARGV for you while the standard
: distribution (including GSAR's) doesn't. This makes the AS port easier to use
: for quickie one-liner file manipulation scripts.
You can set up the Sarathy port to do this as well; do a DejaNews search
on this group to find out how.
------------------------------
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 2322
**************************************
