[8000] in Perl-Users-Digest
Perl-Users Digest, Issue: 1625 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 12 21:04:49 1998
Date: Mon, 12 Jan 98 18:00:21 -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 Mon, 12 Jan 1998 Volume: 8 Number: 1625
Today's topics:
Re: [Q] how to detect disk usage <ldanna@hotmail.com>
Re: [Q] how to detect disk usage <kmart@kmworks.co.jp>
Re: A newbie's substitution question <ajohnson@gpu.srv.ualberta.ca>
Adding a user perl script (Reception)
checkbox value problem dipaola@ix.netcom.com
Re: checkbox value problem (Martien Verbruggen)
Directory Sizes <gavornik@hotmail.com>
Re: Enumerate directories <ldanna@hotmail.com>
Re: Getting values from ResultSet is slow (vs. Perl/DBI <ml@justintime.com>
hi! help me with cp , plz... <luckycom@ica.net>
Re: hi! help me with cp , plz... (Martien Verbruggen)
Re: Is modulus broken? (Martien Verbruggen)
OLE-Access of M$ Access DBs (Peter Eberl)
Re: Online Career Fair Tuesday <ldanna@hotmail.com>
Re: qxurl/perl peculiarity (from perlfaq9) (Tad McClellan)
setuid wrapper program for perl4 script... <bhewitt@orca.akctr.noaa.gov>
Re: Small Pattern Regrex Question? (Tad McClellan)
Re: UNIX commands via FTP on a MACINTOSH -- HAY-ELP! (Chris Nandor)
Re: use File::Find; ! on MacPerl ? (Martien Verbruggen)
Re: use File::Find; ! on MacPerl ? <neeri@iis.ee.ethz.ch>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 12 Jan 1998 18:48:00 -0500
From: Larry D'Anna <ldanna@hotmail.com>
Subject: Re: [Q] how to detect disk usage
Message-Id: <34BAABAF.6D905B41@hotmail.com>
KMART wrote:
> Hi,there
>
> I am trying to detect disk size and available disk space in C:drive,
> using NT Perl. That is the information found in File Manager's status
> bar.
> I remember that some C routine does that, but am not sure if Perl have a
> code
> that does the same possibly in simpler way.
>
> if anyone knows the answer, please let me know.
>
> KM
you can open "dir c:\ |" and grab the free disk space from the last
line
---------------------------------------------------
|Democracy is the worst system of government. --
|Except for all the others
| -Winston Churchill
---------------------------------------------------
Larry D'Anna "eschew obfuscation"
------------------------------
Date: Tue, 13 Jan 1998 10:20:44 +0900
From: KMART <kmart@kmworks.co.jp>
Subject: Re: [Q] how to detect disk usage
Message-Id: <34BAC16B.752E@kmworks.co.jp>
Larry D'Anna wrote:
>
> KMART wrote:
>
> > Hi,there
> >
> > I am trying to detect disk size and available disk space in C:drive,
> > using NT Perl. That is the information found in File Manager's status
> > bar.
> > I remember that some C routine does that, but am not sure if Perl have a
> > code
> > that does the same possibly in simpler way.
> >
> > if anyone knows the answer, please let me know.
> >
> > KM
>
> you can open "dir c:\ |" and grab the free disk space from the last
> line
>
> ---------------------------------------------------
> |Democracy is the worst system of government. --
> |Except for all the others
> | -Winston Churchill
> ---------------------------------------------------
> Larry D'Anna "eschew obfuscation"
Thanks for the info. but how about whole disk space?
chkdisk have such info, but too slow to process.
km
------------------------------
Date: Mon, 12 Jan 1998 04:37:16 -0600
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: A newbie's substitution question
Message-Id: <34B9F25C.11FDE776@gpu.srv.ualberta.ca>
Bart Lateur wrote:
>
> tadmc@flash.net (Tad McClellan) wrote:
>
> > s[([A-Z][A-Z]+?)|_(.+?)_][defined($1) ? "<b>$1</b>" : "<b>$2</b>"]ge;
>
> I'd turn that into
>
> > s[([A-Z][A-Z]+?)|_(.+?)_][<b>$1$2</b>]g;
>
> Since either $1 or $2 will be empty. It might trigger the "use of
> undefined variable" warning, though (Grrr... I wish there was an easy
> way to suppress those warnings. I usually DON'T use -w, because of these
> irritating warnings).
when there is only one captured substring per alternation and
you just want to use whichever one got found use the $+
variable (it will be the highest numbered of $1 $2...which
contains something):
s[([A-Z][A-Z]\w+)|_(.+?)_][<b>$+</b>]g;
regards
andrew
------------------------------
Date: Tue, 13 Jan 1998 01:50:00 GMT
From: farber@f-tech.net (Reception)
Subject: Adding a user perl script
Message-Id: <34bac71d.38598201@news.f-tech.net>
Im writing a script that will be a menuing type script that will allow
a user (not root) to create user accounts. I'm at a point where some
experience in sys admin/scripting is required. Should I use the crypt
command and manually (through the scripts) add the users entry
/etc/password (can't forget /etc/shadow) or would it be better to try
and execute the passwd program as suid root?
Part two..... how would I go about setting a perl script to run a
program like passwd that will only allow the root user to change
another users passwd? I code example would be helpful.. I scoured
DEJA NEWS but not could find and setuid examples (code that is).
Thanks
Paul
------------------------------
Date: Mon, 12 Jan 1998 18:22:51 -0600
From: dipaola@ix.netcom.com
Subject: checkbox value problem
Message-Id: <884650708.454098947@dejanews.com>
Hi,
My problem is, I'm using :
sub select_apps {
print "<TD>" ;
foreach (@APPS) { print "<INPUT TYPE=\"checkbox\" NAME =\"apps\" SIZE
= 50 VALUE=\"$_ \"> $_"; } print "</TD>\n" ; }
in my script to generate several checkboxes. "apps" is then written to a
file, along with some other data. what happens is when the script reads
this file and parses the fields, it only shows the first item in the
"apps" field, even though they all appear in the file. If I edit the file
in any way, then they all appear. This occurs even if there are no spaces
between the words in "apps" (i.e word1word2word3) A clue is, when I edit
the file in which this value is stored, UNIX seems to think this file is
being edited. It's like something is not properly closing the file after
writing. I've tried every thing I can think of....
Mike
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 13 Jan 1998 01:09:18 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: checkbox value problem
Message-Id: <69eeru$k9o$1@comdyn.comdyn.com.au>
In article <884650708.454098947@dejanews.com>,
dipaola@ix.netcom.com writes:
> Hi,
>
> My problem is, I'm using :
> sub select_apps {
> print "<TD>" ;
>
> foreach (@APPS) { print "<INPUT TYPE=\"checkbox\" NAME =\"apps\" SIZE
> = 50 VALUE=\"$_ \"> $_"; } print "</TD>\n" ; }
Not a problem. Nothing wrong with this, apart from very poor
formatting, and a line break which shouldn't be there. I suppose that
the real code doesn't have that.
> in my script to generate several checkboxes. "apps" is then written to a
How is it written? Where's the code?
> file, along with some other data. what happens is when the script reads
> this file and parses the fields, it only shows the first item in the
How does it read the file? How does it parse the fields?
> "apps" field, even though they all appear in the file. If I edit the file
> in any way, then they all appear. This occurs even if there are no spaces
> between the words in "apps" (i.e word1word2word3) A clue is, when I edit
Maybe you should submit the code that reads and writes that file that
contains "apps". That way we might be able to point out what is going
wrong.
> the file in which this value is stored, UNIX seems to think this file is
> being edited. It's like something is not properly closing the file after
> writing. I've tried every thing I can think of....
Huh? Unix thinks what? This doesn't really make much sense.
What bothers me is that if you already think that the problem lies in
the reading and writing of the file, why don't you include the code
that does that?
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: Mon, 12 Jan 1998 17:07:58 -0800
From: Robert Gavornik <gavornik@hotmail.com>
Subject: Directory Sizes
Message-Id: <34BABE6E.216F3FEE@hotmail.com>
Hi:
Quick question: Is there a way to capture the size of files and
directories? I know the stat function should do this but I'm using
Win32 on NT and it doesnt seem to work (a lot of the stat functions are
UNIX flavored.) Is there an alternative keywork? Thanks.
------------------------------
Date: Mon, 12 Jan 1998 19:36:34 -0500
From: Larry D'Anna <ldanna@hotmail.com>
Subject: Re: Enumerate directories
Message-Id: <34BAB711.D6A21865@hotmail.com>
John Fitzpatrick wrote:
> Hi.
>
> In perl, on NT, I wish to enumerate every subdirectory under a
> specified directory, and put them in an array. Or perhaps there is
> some switch to the foreach command that allows me to do this?
>
> (For those familiar with the FOR command on NT, I want to do the same
> thing that FOR /D does.)
>
> John
File::Find
---------------------------------------------------
|Democracy is the worst system of government. --
|Except for all the others
| -Winston Churchill
---------------------------------------------------
Larry D'Anna "eschew obfuscation"
------------------------------
Date: Mon, 12 Jan 1998 17:23:15 -0800
From: Mike Linksvayer <ml@justintime.com>
Subject: Re: Getting values from ResultSet is slow (vs. Perl/DBI)
Message-Id: <34BAC203.E6AB2271@justintime.com>
Jacqui Caren wrote:
> Mike Linksvayer <ml@justintime.com> writes:
> > $select = "select 13 columns from several tables...";
> > $cursor = $dbh->prepare($select);
> > $cursor->execute;
> > while (@row = $cursor->fetchrow) {}
>
> This is slow - see fetch which will provide a reference instead.
> For large reacords/queries this will improve performance.
I learn something new every day. I've never used fetch. On
my query it does use fewer resources (by about 40%) than fetchrow
but doesn't use less clocktime (according to Benchmark).
> >Typically it takes 6 seconds to execute the query (equivalent to creating
> >a ResultSet).
>
> Do you seperate out Commect time (which involves the database allocating
> SGA space etc)? My slow dev system takes 4+ seconds to do this... Another
> system with more memory takes <1 second.
Of course. I was only counting the time it takes to execute
the four lines of code quoted above (using Benchmark to do the
timing). Anyway, I always hear people talking about multi-second
connect times, but I've never seen it other than when I tried
accessing Oracle via a very immature JDBC driver about a year
and a half ago -- with everything running on a Sparc Classic.
I haven't actually timed it, but my feeling is that via DBI I
could establish 15 new connections per second and via JDBC 5
new connections per second, with the application and Oracle
database running on Ultra 1s.
> Remember DBD::Oracle talks to OCI, and provide a clean interface to a lot
> of its functionality...
>
> If JDBC is anything like ODBC you have significant overheads
> in order to provide the functionality offered by ODBC. Each query
> has far more data processing and manipulation than a mere DBI
> query would (by default).
For now I'll have to go with this explanation.
Thanks,
--
Mike Linksvayer Just in Time Solutions, Inc. tel +1 415 553 6408
ml@justintime.com http://www.justintime.com/ fax +1 415 553 6499
------------------------------
Date: Mon, 12 Jan 1998 20:04:26 -0800
From: Alexander Kovalenko <luckycom@ica.net>
Subject: hi! help me with cp , plz...
Message-Id: <34BAE7C9.45B40DF4@ica.net>
hi guyz! I ran in strange problem.. ;(
My program is the following:
$directory='/'+$name+'/';
system ("cp /main/*.*",$directory);
but for some reasons it does not want to copy all filez from main
directory to a new one... I know that this is basic and that I should
read some FAQ , but I do not have that much time... so if ya know how to
do it..., plz let me know! Thanx a lot!
--
With best wishes,
Alex.
------------------------------
Date: 13 Jan 1998 01:36:17 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: hi! help me with cp , plz...
Message-Id: <69egeh$ked$1@comdyn.comdyn.com.au>
In article <34BAE7C9.45B40DF4@ica.net>,
Alexander Kovalenko <luckycom@ica.net> writes:
> hi guyz! I ran in strange problem.. ;(
guyz?
> system ("cp /main/*.*",$directory);
Don't do that. Use File::Copy.
> but for some reasons it does not want to copy all filez from main
filez?
> directory to a new one... I know that this is basic and that I should
> read some FAQ , but I do not have that much time...
That is plainly lazy and inconsiderate. You want US to read the
faq and documentation for you? Shame on you. Do you suppose we all
have more than enough time to figure out all your problems?
> so if ya know how to do it..., plz let me know! Thanx a lot!
ya? plz? Thanx?
You seem to have a problem with your keyboard. I suggest you get it
fixed.
I had the answer in here, but deleted it after I realised it has
nothing to do with perl, and I don't feel like helping you out too
much with that attitude. Change it, and maybe we'll feel more like
helping.
--
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: 13 Jan 1998 00:12:58 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Is modulus broken?
Message-Id: <69ebia$k1l$1@comdyn.comdyn.com.au>
[ References: <34B2B81D.59CC7C29@rsn.hp.com>
<34B9A65B.B000AD78@coos.dartmouth.edu>
]
If you post a new subject, please don't use an old message to reply
to. A lot of news readers use this information to thread news, and
this sort of screws it up.
In article <EMoyu6.J92@matilda.vut.edu.au>,
martin@matilda.vut.edu.au (Martin D Schweitzer) writes:
> When I run the following expression:
>>perl -e "print 1940641915534 % 11438;"
3862
Maybe because it's larger than 2**32? I get different results again..
Hmm..
# perl4 -e 'print 1940641915534 % 11438, "\n"'
9733
# perl -e 'print 1940641915534 % 11438, "\n"'
9733
# perl -e 'print 169666193 * 11438 , "\n"'
1940641915534
# perl -e 'print 2**32, "\n"'
4294967296
# perl -v
This is perl, version 5.004_04 built for sun4-solaris
> Is there a limit for the % operator?
Looks like it. Maybe you should submit a bug report and see what
happens.
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: 12 Jan 1998 21:13:00 +0100
From: peb@NEWS.eberl.com (Peter Eberl)
Subject: OLE-Access of M$ Access DBs
Message-Id: <6lkQc1Y$vbB@peb.news.eberl.com>
Hello,
I'm having problems getting "real" information out of Access DBs with
PERL. I do not want to use the ODBC - way, I need also to trigger some
Jet-Engine / DAO specific functionality.
A) Is there any good documentation / example out there (Web preferred,
Book welcome) where this issue (OLE interaction with MS COM/DCOM) is
described in more detail?
B) Any quick help on this problem? Compacting an Access DB:
in VB: DBEngine.CompactDatabase ($Var1, $Var2);
$Var1 = old Database name ( to be compacted)
$Var2 = new Database name ( the compacted output)
in PERL??
Thanks in advance for any hint into the right direction
YHS
Peter
------------------------------
Date: Mon, 12 Jan 1998 19:05:24 -0500
From: Larry D'Anna <ldanna@hotmail.com>
Subject: Re: Online Career Fair Tuesday
Message-Id: <34BAAFC4.809454D@hotmail.com>
These guys are really a pain in the ass, aren't they?
---------------------------------------------------
|Democracy is the worst system of government. --
|Except for all the others
| -Winston Churchill
---------------------------------------------------
Larry D'Anna "eschew obfuscation"
------------------------------
Date: Mon, 12 Jan 1998 19:08:31 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: qxurl/perl peculiarity (from perlfaq9)
Message-Id: <fqee96.284.ln@localhost>
John M. Klassa (klassa@aursgh.aur.alcatel.com) wrote:
: From perlfaq9:
: #!/usr/bin/perl -n00
: # qxurl - tchrist@perl.com
: print "$2\n" while m{
: < \s*
: A \s+ HREF \s* = \s* (["']) (.*?) \1
: \s* >
: }gsix;
: I ran my netscape bookmarks file through it, and it did things like
: this:
: http://computerstore.utsa.edu/bsm/biblestudy/translations.html" \
: ADD_DATE="850147572" LAST_VISIT="850402327" LAST_MODIFIED="850402327
: http://www.vaxxine.com/compcare/divine.eht" ADD_DATE="859299560" \
: LAST_VISIT="859299457" LAST_MODIFIED="859299457
: http://users.kconline.com/paul/litv/INDEX.HTM" ADD_DATE="839609312" \
: LAST_VISIT="851353831" LAST_MODIFIED="851353831
: (Extra whitespace added by me, for readability.)
: I'm perplexed about the behavior of the regex. It looks like the .*? is
: being greedy, despite the "?". That is, the ["'] class is matching a double
: quote in this case, so I'd expect the regex engine to stop snarfing
: characters at the first ensuing double quote (which is right after the URL).
: Instead, it keeps snarfing until it hits the *last* one (which seems pretty
: greedy to me), after the LAST_MODIFIED field.
: Is this to be expected?
Yep.
It *must* match '\1\s*>' at the end. So it has to keep going until
it finds a double quote, followed by '>', with some optional
whitespace in between.
If non-greedy stopped at the next double quote, then the expression
above would *not match* at all, and therefore wouldn't print anything...
I dunno much about legal HTML, but those attribute names don't look
familiar to me. Are those in the HTML spec?
I didn't think you could have underscores in NAMES either. I
might be wrong though.
You have a Netscape data file there. Not an HTML file (I think).
Sure does look almost like HTML though.
Tom was depending on HREF being the *only* attribute in the <A> tag.
You can comment out this line:
# \s* >
to work on silly <A> tags such as the above.
: Have I hit upon a bug in the regex engine?
Nope.
: Am I
: just too stupid to see the obvious thing going on here?
The regex was developed for HTML.
I don't think you have HTML there.
GIGO
: Thanks!
You're welcome.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 12 Jan 1998 16:55:01 -0800
From: Bob Hewitt <bhewitt@orca.akctr.noaa.gov>
Subject: setuid wrapper program for perl4 script...
Message-Id: <Pine.SGI.3.95.980112163111.19251A-100000@orca.akctr.noaa.gov>
I've been trying to create and run a setuid C wrapper program such as is
described in the perlsec man page (We have perl 4.036 on SGI with IRIX 5.3
here. We should be getting perl5 when IRIX 6.2 is installed. I have not
found either 'taintperl' or 'suidperl' here.) Anyhow, I always get "Can't
run setuid script with taint checks." when I run that wrapper program. I
expected the wrapper program to handle that problem.
The script to be run is under another home directory, with a first line
like:
#!/usr/bin/perl -wU
The wrapper program is under my home directory, with permissions which
look like:
---S--s--- 1 otheruid ourgroup 11900 Jan 12 16:15 execperl
Any suggestions how to run that script from my userid? Thanks,
[ bhewitt@orca.akctr.noaa.gov, (206)526-4208 ]
------------------------------
Date: Mon, 12 Jan 1998 19:40:29 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Small Pattern Regrex Question?
Message-Id: <dmge96.pc4.ln@localhost>
John Irving (hyperc@magma.ca) wrote:
: Can anyone tell me why the following doesn't match?
: $Query = '(?i)and maintained.|(?i)other patterns|(?i)etc.';
: $Data = 'and maintained.';
: print "\n\nQuery is: $Query";
: if ($Data =~ /\b($Query)\b/) {
^^
^^
: print "\nResult is: $& matches";
: } else {
: print "\nResult is: No Match";
: }
: # why doesn't 'and maintained.' match?
Because \b matches between a \w and a \W char (or vice versa).
The end of the string is taken as a \W char.
So it does NOT match between the dot and the end of the string since
they are both \W characters...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 12 Jan 1998 20:37:46 -0500
From: pudge@pobox.com (Chris Nandor)
Subject: Re: UNIX commands via FTP on a MACINTOSH -- HAY-ELP!
Message-Id: <pudge-1201982037470001@ppp-18.ts-1.kin.idt.net>
In article <peter-ya02408000R0701981620110001@news.iinet.net.au>,
peter@stairways.com.au (Peter N Lewis) wrote:
# In article <sean-0601981701050001@p5.ts1.white.ny.tiac.com>, sean@dcdX.net
# (Sean O'Dwyer) wrote:
#
# >I need to be able to set executability of scripts in my cgi-bin, using
# >commands like chmod, but I can't do that using Anarchie or Fetch (that I
# >know of).
# >
# >Is there a way to do this from my Mac?
#
# You can ask Anarchie to change the permissions using a raw FTP command.
# Changing permissions is not a standard FTP protocol command, so you'll have
# to figure out what command to send on a site by site basis. Perl code to
# ask Anarchie to send a raw command is:
#
# sub sendcommand {
# local($basesite,$command) = @_;
#
# &MacPerl'DoAppleScript(<<"END_SCRIPT");
# tell application "Anarchie"
# set c to 0
# set err to -1
# repeat until err is 0 or c > 10
# if c is not 0 then
# close
# end if
# set c to c + 1
# with timeout of 600 seconds
# set err to sendcommand url "$basesite$command"
# end timeout
# end repeat
# end tell
# END_SCRIPT
# }
You can also use Mac::Apps::Anarchie, which is much faster than plain
AppleScript:
use Mac::Apps::Anarchie;
my $ftp = new Mac::Apps::Anarchie;
$ftp->sendcommandURL($url . $command);
In article <comdog-ya02408000R0901981547540001@news.panix.com>,
comdog@computerdog.com (brian d foy) wrote:
# but just as an aside, has anyone done anything with MacPerl and
# scripting AppleScriptable thingys?
See the most recent TPJ for an article on Apple Events and MacPerl (there
is also a link to the article on the MacPerl site in the URL below).
--
Chris Nandor pudge@pobox.com http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10 1FF7 7F13 8180 B6B6'])
#== MacPerl: Power and Ease ==#
#== Publishing Date: Early 1998. http://www.ptf.com/macperl/ ==#
------------------------------
Date: 13 Jan 1998 00:14:44 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: use File::Find; ! on MacPerl ?
Message-Id: <69eblk$k1l$2@comdyn.comdyn.com.au>
In article <34baa167.32302900@news.ice.net>,
defike@ilstu.edu..spam.not (Don) writes:
> But...When I tried to run from a Mac using MacPerl I get the following
> errors;
>
> "use" may clash with future reserved word
Looks like an old version of perl. Check the versions.
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: 13 Jan 1998 01:40:10 +0100
From: Matthias Neeracher <neeri@iis.ee.ethz.ch>
Subject: Re: use File::Find; ! on MacPerl ?
Message-Id: <86afd1tded.fsf@iis.ee.ethz.ch>
defike@ilstu.edu..spam.not (Don) writes:
> Help!
> I was just introduced to File::Find and was happy. About as happy as
> when I was introduced to associative arrays. Now I wrote a couple of
> quick scripts on NT and Unix using File::Find and I am still happy.
> But...When I tried to run from a Mac using MacPerl I get the following
> errors;
>
> "use" may clash with future reserved word
[...]
> Could someone point out why I can't run this with MacPerl???
Because you are using MacPerl 4. See below for newer versions.
Matthias
-----
Matthias Neeracher <neeri@iis.ee.ethz.ch> http://www.iis.ee.ethz.ch/~neeri
"I'm set free to find a new illusion" -- Velvet Underground
Questions and Answers about MacPerl
Table of contents
General questions
1) How can I get this document?
2) Where can I get real information about MacPerl?
3) What is MacPerl and where can I get it?
4) How do I subscribe/unsubscribe from the MacPerl mailing lists
5) How do I send an article to the MacPerl mailing lists
6) Is there a searchable archive of the MacPerl mailing list?
7) How many people are using MacPerl?
Working with MacPerl
8) Why don't my droplets work?
9) Is there a collection of MacPerl scripts anywhere?
10) Is it possible to develop CGI scripts for MacHTTP using MacPerl?
Further Development
11) When will there be a stable version of MacPerl5?
12) When will there be a multithreaded/OSA Perl?
13) Why doesn't MacPerl make more rapid progress?
Questions
1) How can I get this document?
Well, you have it, don't you? You could always ask me for a copy by
email. The cool new way to get an updated version is by WWW in
"http://www.iis.ee.ethz.ch/~neeri/macintosh/perl-qa.html". Should
further information (e.g., the manual), become available online in the
future, you'll find it on
"http://www.iis.ethz.ch/~neeri/macintosh/perl.html".
2) Where can I get real information about MacPerl?
Luckily, a few brave MacPerl users have started filling the huge gaps
in the MacPerl documentation.
Sandra Silcot publishes a MacPerl primer at
http://www.unimelb.edu.au/~ssilcot/macperl-primer/home.html,
and also by ftp at
ftp://www.unimelb.edu.au/pub/cwis/tools/macintosh/MacPerl-PRIMER-1.1.sea.hqx
Bob Dalgleish and Bob Wilkinson have taken over the MacPerl FAQ from
Hal Wine. It can be retrieved at
http://www.perl.com/CPAN/doc/FAQs/mac/MacPerlFAQ.html.
3) What is MacPerl and where can I get it?
MacPerl is a port of Larry Wall's Perl (Practical Extraction and
Report Language) to the Apple Macintosh.
The most recent versions of MacPerl are always available in
sunsite.cnlab-switch.ch software/platform/macos/perl
This site is mirrored at
mors.gsfc.nasa.gov /pub/MacPerl/Applications
and in a huge number of CPAN (Common Perl Archive Network) mirror sites:
Florida
ftp://ftp.cis.ufl.edu/pub/perl/CPAN/ports/mac/
Illinois
ftp://uiarchive.cso.uiuc.edu/pub/lang/perl/CPAN/ports/mac/
Massachusetts
ftp://ftp.iguide.com/pub/mirrors/packages/perl/CPAN/ports/mac/
Oklahoma
ftp://ftp.uoknor.edu/mirrors/CPAN/ports/mac/
Texas
ftp://ftp.sedl.org/pub/mirrors/CPAN/ports/mac/
ftp://ftp.sterling.com/programming/languages/perl/ports/mac/
Finland
ftp://ftp.funet.fi/pub/languages/perl/CPAN/ports/mac/
France
ftp://ftp.ibp.fr/pub/perl/CPAN/ports/mac/
ftp://ftp.pasteur.fr/pub/computing/unix/perl/CPAN/ports/mac/
Germany
ftp://ftp.leo.org/pub/comp/programming/languages/perl/CPAN/ports/mac/
ftp://ftp.rz.ruhr-uni-bochum.de/pub/programming/languages/perl/CPAN/ports/mac/
Great Britain
ftp://ftp.demon.co.uk/pub/mirrors/perl/CPAN/ports/mac/
The Netherlands
ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/ports/mac/
Portugal
ftp://ftp.ci.uminho.pt/pub/lang/perl/ports/mac/
Sweden
ftp://ftp.sunet.se/pub/lang/perl/CPAN/ports/mac/
Switzerland
ftp://sunsite.cnlab-switch.ch/mirror/CPAN/ports/mac/
Australia
ftp://coombs.anu.edu.au/pub/perl/ports/mac/
ftp://ftp.mame.mu.oz.au/pub/perl/CPAN/ports/mac/
New Zealand
ftp://ftp.tekotago.ac.nz/pub/perl/CPAN/ports/mac/
Japan
ftp://ftp.lab.kdd.co.jp/lang/perl/CPAN/ports/mac/
Taiwan
ftp://dongpo.math.ncu.edu.tw/perl/CPAN/ports/mac/
South Africa
ftp://ftp.is.co.za/programming/perl/CPAN/ports/mac/
The current version of MacPerl is 5.1.8r4.
4) How do I subscribe/unsubscribe from MacPerl mailing lists?
Please be warned that all information about mailing lists is subject to
change within the next few weeks, as the lists will move to a new server.
There are now two mailing lists dedicated to MacPerl. The mac-perl
mailing list is an open discussion list with maybe a dozen articles a
day. The mac-perl-announce list is a very low volume moderated mailin
list with only 1-2 messages a month.
To subscribe to the mac-perl list, send mail to
mac-perl-request@iis.ee.ethz.ch whose BODY (the Subject is
ignored) is the word "subscribe" or "unsubscribe". To subscribe to the
mac-perl-announce list, send this mail to
mac-perl-announce-request@iis.ee.ethz.ch instead. All traffic to
the announce mailing list automatically appears on the regular mailing
list, too, so there is no need to subscribe to both of them.
5) How do I send an article to the MacPerl mailing lists?
Articles sent to mac-perl@iis.ee.ethz.ch are automatically sent to the
list. If you have an article that you have severe doubts whether it should
be distributed, send it to mac-perl-approval@iis.ee.ethz.ch. I will
read your article, and will send it to the list unless I think I can
answer it exhaustively and neither the question nor the answer are of
general interest. Note that I'm severely backlogged in my mail and sending
articles to -approval adds to my work load.
Please help to keep the mailing list an useful resource for as many people
as possible. Don't post an article unless it is
specific for the Macintosh. General Perl questions belong
in comp.infosystems.www.authoring.cgi, if they are CGI programming
related, and in comp.lang.perl.misc otherwise.
If you feel that your message belongs on the -announce mailing list,
send it to mac-perl-announce-approval@iis.ee.ethz.ch. I will send it
to the list if I agree that it's appropriate.
6) Is there a searchable archive of the MacPerl mailing list?
Yes! Sandra Silcot has dedicated the time and resources to build one at
http://www.its.unimelb.edu.au:801/hma/pub/macperl/.
7) How many people are using MacPerl ?
As with most free software, this is hard to say. There are now around
800 subscribers to the mailing list, and version 4.1.8 has been
downloaded thousands of times from ftp.switch.ch alone (in August
1995, I counted close to 800 downloads).
8) Why won't my droplets work?
Due to a bug in MacPerl 4.1.8, droplets only work if you have
AppleScript installed. This bug was fixed in MacPerl 5.
9) Is there a collection of MacPerl scripts anywhere?
I'm building one in ftp://ftp.switch.ch/software/mac/perl/scripts/, but I
don't have much
time to invest. If you have any interesting scripts to offer, send me
(neeri@iis.ee.ethz.ch) a
mail. If you have a whole collection of scripts on your own ftp site,
tell me and I'll set up a mirror.
10) Is it possible to develop CGI scripts for MacHTTP using MacPerl?
Yes. You'll need the MacHTTP CGI Script extension, which is available
in ftp://err.ethz.ch/pub/neeri/MacPerl/
as "PCGI". The latest version, "PCGI_06Feb96.sit.hqx", is largely
compatible with the Unix CGI specification.
11) When will there be a stable version of MacPerl5?
5.1.3 overall looks pretty good, I think. I'm trying to fix the trouble
spots, but see below.
12) When will there be a multithreaded/OSA Perl?
There is a Perl OSA component, but it doesn't seem to be very stable
yet. I don't know when/if there will be a multithreaded Perl.
13) Why doesn't MacPerl make more rapid progress?
Right now, until Spring of 1997, I'm writing my PhD dissertation (on
Distributed Scheduling in Workstation Clusters). Even after that work
is concluded, I expect that there will always be a day job that has
precedence over all MacPerl work.
Last changed: 06Feb97
------------------------------
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 1625
**************************************
