[8106] in Perl-Users-Digest
Perl-Users Digest, Issue: 1725 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 25 13:08:22 1998
Date: Sun, 25 Jan 98 10:00:24 -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 Sun, 25 Jan 1998 Volume: 8 Number: 1725
Today's topics:
ANNOUNCE: RPC::Simple v0.4 (alpha) <domi@marlis.grenoble.hp.com>
Re: can not run a brand new install of PERL <dcameron@bcs.org.uk>
Re: chown -h (Chip Salzenberg)
Re: custom scripts (calling all perl and/or w3-msql exp (Chip Salzenberg)
Re: Decimal places (Honza Pazdziora)
Decrypting modules for Perl <davidu@eciti.com>
Re: Decrypting modules for Perl (Honza Pazdziora)
Re: FAQ too big (Was: Re: PERL forking) (Chip Salzenberg)
Re: Finding the missing bracket? <webmaster@fccj.cc.fl.us>
Re: Help Setting up CGI.pm (Chip Salzenberg)
Re: HELP!!! - How do you add #'s within an array (Martin Vorlaender)
how to do formfeed/pagebreak <feng@haas.berkeley.edu>
Re: How to get at stuff piped into Perl? <gilh@sysdep.elex.co.il>
Re: IP Address as new File <ebohlman@netcom.com>
Re: living and free software (was: Re: source into bina <rjc@liddell.cstr.ed.ac.uk>
perl 5.004 installation: make failed <tolya@senet.com.au>
Perl Source Obfuscator <nmarino@home.com>
Pointless questions (was: Re: Perl, Sybperl, and Year 2 <rootbeer@teleport.com>
Re: Reading persistent logs (Chip Salzenberg)
Re: Unix domain sockets in Perl <sas@arstel.ru>
Re: Using a variable in a pattern match <ebohlman@netcom.com>
Re: Using a variable in a pattern match (malgosia askanas)
Re: White Hats and Black <tchrist@mox.perl.com>
Re: Why warn? (WAS: Re: Critique My Code! (Please)) (Gabor)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Jan 1998 15:30:44 GMT
From: Dominique Dumont <domi@marlis.grenoble.hp.com>
Subject: ANNOUNCE: RPC::Simple v0.4 (alpha)
Message-Id: <6aflr4$fdn$1@news1.teleport.com>
Hello
Here's the first official announcement for RPC::Simple. Although previous
unstable versions were posted on CPAN, I hope this one is good enough
for a public annoucement,
I suggest the following line for the module list in section 5 :
RPC::Simple adpO Simple OO async remote procedure calls DDUMONT
Here's the README file from the distribtion.
This is the README file for RPC::Simple::* , a bunch of Perl
classes to perform simple remote procedure calls in an object oriented
way.
This module uses Tk's control loop on the local side and a IO::Select
based control loop on the server side.
To use this set of classes, the user will have to create a set of twin
classes. One will run on the local side, the other on the remote side.
Each twin class will inherit a RPC::Simple::Any[Local|Remote] class.
When done you'll be able to invoke a method from the remote class on the
local object and vice versa. (like $localObj->remotePrint).
When calling the remote method from the local side, you may pass a code
reference which
will be stored by the RPC::Simple objects. This code ref will be called
back when the remote function is over. Note that the remote calls are not
blocking, all feedback from the remote side is performed through
asynchronous call-back.
Note that simultaneous remote calls on the same object (or on
different objects) are supported, you'll get the relevant call-back
as usual.
On the other hand (or side ...), the callback mechanism does not work
when calling a method from the remote side to the local side.
Only a simple method call (albeit with optionnal parameters) is allowed
from the remote side.
Note that the attribute of the twin objects are not automagically
copied or updated on the other side. You will have to explicitely
pass the necessary data from one side to the other if you need it.
See the man pages or the test.pl script to get further details.
Note you have install Tk to be able to perform the tests.
About security: When running the server, only a localhost (127.0.0.1)
connection is allowed by default. You may call a server method to allow
connections from other IP (either numeric or name) addresses. Once this is
done, the decalred address is considered as a "buddy" and the data
sent to the server are not checked for security (i.e. the Taint mechanism
is defeated). Consider yourself warned.
Note that if security is a real problem for you, you should consider using
penguin. (See CPAN). (Note also that I always opened to comments and
suggestion to improve the security aspects)
All in all, I've tried to keep things simple.
So this module should be :
- quite simple to use (thanks to autoload mechanisms)
- lightweight
It sure is not :
- DCE
- CORBA (which is blocking)
- bulletproof
- foolproof
But it works. (Although I'm opened to suggestion regarging the "un-
proof" areas)
This module was written with perl5.004.
See the embedded documentation in the module for more details.
Comments and suggestions are always welcome.
Note that this module is in alpha state. Its interface may change (but
I hope not).
Alpha exit criteria:
- When some peoples (well, say 10 guys) tell me that they've used it
and did not find major bug with the module or minor problems with the
interface.
Legal mumbo jumbo:
Copyright (c) 1995 Dominique Dumont. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
Share and enjoy
--
Dominique_Dumont@grenoble.hp.com
------------------------------
Date: 25 Jan 1998 15:10:40 GMT
From: "Duncan Cameron" <dcameron@bcs.org.uk>
Subject: Re: can not run a brand new install of PERL
Message-Id: <01bd29a3$543e0280$b13b63c3@dns.btinternet.com>
That's not quite the way to run perl under Windows 95
Using your favourite editor create a perl script, e.g. myscript.pl
run a DOS Command prompt then ...
perl myscript.pl
note that the installation should have put the perl directory in your PATH
variable
You can also run perl from a command prompt without an input file (your
method f) and key in your script directly but have to terminate with
Ctrl-Z.
Hope this helps.
Duncan Cameron
Aldo Alejandro <*aalejan@pacbell.net> wrote in article
<6ada7q$iau$1@nnrp2.snfc21.pbi.net>...
> Please tell me what I am doing wrong as I can not run the downloaded
5.003
> "Build "315" version of win32 from activestate.
>
> a) I unzipped it
> b) Installed to g:\perl directory
> c) automatically installed the perlw32 install file
> d) rebooted
> e) I tried both methods
> 1) double clicking the executable file in windows
> 2) running the command through the dos line
> f) typed
>
> #!/usr/bin/perl -w
> print ("Hello, world!\n");
>
> Nothing happens after pressing the return key.
>
> --
> Thanks & have a nice day! ;-)
> Remove the "*" when replying
>
>
>
------------------------------
Date: Sun, 25 Jan 1998 15:38:41 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: chown -h
Message-Id: <6afmdh$916$1@cyprus.atlantic.net>
According to Douglas McNaught <doug@tc.net>:
>Mark Moe <mark.moe@medtronic.com> writes:
>> Hi, I'm using perl's chown on a symlink, but it follows the link.
>> Is there a way to make it change the owner and/or group of the
>> link itself? (like the -h option to the unix chown)
Recent UNIXen have introduced a new system call lchown() to do what
you ask. Perl was written before it existed, so Perl doesn't use it
unless you hack your Perl to do so.
>I'm not sure why you'd want to--ownership and permissions are ignored
>on symlinks
Not *quite*. The ownership of a symlink determines who can remove it
in a directory with the sticky bit set (chmod +t).
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
** Perl Training from Stonehenge Consulting Services: (503) 777-0095 **
------------------------------
Date: Sun, 25 Jan 1998 15:50:44 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: custom scripts (calling all perl and/or w3-msql experts)
Message-Id: <6afn40$92u$1@cyprus.atlantic.net>
Keywords: from just another new york perl hacker
According to comdog@computerdog.com (brian d foy):
>if the pointy haired bosses are skimping on the budget, you might
>suggest something fairly useable and inexpensive, like msql.
s/msql/MySQL/
MySQL is really and truly free. And it's a better program to boot.
<URL:http://www.tcx.se>
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
** Perl Training from Stonehenge Consulting Services: (503) 777-0095 **
------------------------------
Date: Sun, 25 Jan 1998 14:46:53 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Decimal places
Message-Id: <adelton.885739613@aisa.fi.muni.cz>
"Brad Grove" <brad.grove@b131.aone.net.au> writes:
> How do I control the number of decimal places or better still extract the
> integer from a scalar variable. For instance :
>
> $a = 1234;
> $b = 23;
> $percent = $b/$a*100;
>
> How do I stop '$percent' displaying as 1.8638574 or whatever. Is there an
> int() function or something similar to left(), mid() which I could use as if
> it were a string.
My perl 5.004_04 knows int() function just fine and man page perlfunc
documents it. I'm not sure what would left() and mid() do, but you can
always use sprintf to do whatever (nearly) formatting you need. And
you can check perlfaq4 page for "Does perl have a round function?"
section.
Hope this helps,
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Sat, 24 Jan 1998 23:50:31 -0800
From: "David" <davidu@eciti.com>
Subject: Decrypting modules for Perl
Message-Id: <6aequf$800$1@volt.electriciti.com>
I have written a perl script that takes input, incrypts it via 'crypt,' and
then stores it in a file. I need to be able to decrypt this file when it is
needed, the 'crypt' function does not allow me to do this. I am in search
of existing code(preferably in OOP, but normal perl is fine) that will be
able to sufficiently encrypt code, and the be able to decrypt with the
correct salt. DES encryption strength is sufficient. as is RSA, MD5, or
any other 'standard.' If the code uses a custom algorithem, I must have the
right to change the algorithem.
Thank you,
David U.
davidu@eciti.com
------------------------------
Date: Sun, 25 Jan 1998 15:47:02 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Decrypting modules for Perl
Message-Id: <adelton.885743222@aisa.fi.muni.cz>
"David" <davidu@eciti.com> writes:
> I have written a perl script that takes input, incrypts it via 'crypt,' and
Crypt is not a think you should use for encryption of data.
> then stores it in a file. I need to be able to decrypt this file when it is
> needed, the 'crypt' function does not allow me to do this. I am in search
> of existing code(preferably in OOP, but normal perl is fine) that will be
> able to sufficiently encrypt code, and the be able to decrypt with the
> correct salt. DES encryption strength is sufficient. as is RSA, MD5, or
> any other 'standard.' If the code uses a custom algorithem, I must have the
> right to change the algorithem.
Check CPAN for
modules/by-category/14_Authentication_Security_Encryption
section.
Hope this helps,
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Sun, 25 Jan 1998 15:28:58 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: FAQ too big (Was: Re: PERL forking)
Message-Id: <6aflqq$8ui$1@cyprus.atlantic.net>
According to bart.mediamind@tornado.be (Bart Lateur):
>But the problem in DOS is not the grep tool, but the integration with
>other tools, like an editor/browser that can open the POD file at the
>right line.
The only problem here is one of expectations. Why do Windows users
expect anything more than grep + edit w/search? For the number of
FAQs a person may look up in his lifetime, that probably takes less
time than complaining about it.
BTW, if you don't want to install "grep", the standard DOS utility
"find" serves:
find /i "thing" filename
(The "/i" flag means "case-insensitive".) It's nowhere as nice to use
as grep, but it'll do in a pinch. For help, type "find /h".
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
** Perl Training from Stonehenge Consulting Services: (503) 777-0095 **
------------------------------
Date: Sun, 25 Jan 1998 11:07:57 -0500
From: "Webmaster" <webmaster@fccj.cc.fl.us>
Subject: Re: Finding the missing bracket?
Message-Id: <34cb6456.0@usenet.fccj.cc.fl.us>
On MAC I find BBEdit kicks ass - plus it has Perl-awareness (can help you
keep track of syntax to a degree :-)
HTH,
Bill
Michael Budash wrote in message ...
>In article <34CA2111.A178761B@coos.dartmouth.edu>, rjk@coos.dartmouth.edu
wrote:
>
>>> Michael Budash wrote:
>>> >
>>> > In article
<Pine.GSO.3.96.980123134723.17597Q-100000@user2.teleport.com>,
>>> > Tom Phoenix <rootbeer@teleport.com> wrote:
>>> >
>>> > >> A programmers' text editor should be able to help you indent code
>properly
>>> > >> and to match up braces in pairs.
>>> >
>>> > Could you (and/or the others 'round here) be so kind as to recommend
such
>>> > an editor, i.e., one that is perl-savvy?
>>>
>>> emacs
>>>
>>> Did you have a specific platform in mind?
>>>
>
>oops...win32 or mac, pls?
>
>--
>Michael Budash, Owner * Michael Budash Consulting
>mbudash@sonic.net * http://www.sonic.net/~mbudash
>707-255-5371 * 707-258-7800 x7736
------------------------------
Date: Sun, 25 Jan 1998 15:36:30 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Help Setting up CGI.pm
Message-Id: <6afm99$90a$1@cyprus.atlantic.net>
According to Dave Barnett <barnett@houston.Geco-Prakla.slb.com>:
>corey andersen hammer wrote:
>> I also can't even find patch 7 to PERL 5.
>
>For Unix, or Win95? Either way, check out:
>http://www.perl.com
Won't find it there, because it doesn't exist. ("patch 7"??)
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
** Perl Training from Stonehenge Consulting Services: (503) 777-0095 **
------------------------------
Date: Sun, 25 Jan 1998 09:49:53 +0100
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: HELP!!! - How do you add #'s within an array
Message-Id: <34cafcb1.524144494f47414741@radiogaga.harz.de>
webmaster@pclightning.com wrote:
: I have an array called @file
: It contains the values of 8 7 6 4 9 3 and so.
: I want to add these numbers together to get 37.
[...]
: So, is there a way to give the sum of an array???
$sum = eval join '+', @file; # TMTOWTDI ;-)
cu,
Martin
Disclaimer: I know that adding up the values in a loop is more than 10 times
faster.
--
| Martin Vorlaender | VMS & WNT programmer
Ceterum censeo | work: mv@pdv-systeme.de
Redmondem delendam esse. | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: Sun, 25 Jan 1998 09:00:47 -0800
From: Patience <feng@haas.berkeley.edu>
Subject: how to do formfeed/pagebreak
Message-Id: <34CB6FBF.FE0EC4BC@haas.berkeley.edu>
Hi guys,
I want to use perl to generate simple forms for printout. Would you
tell me how to do formfeed/pagebreak?
Thanks a bunch in advance! : )
Patience (Pei-shen)
------------------------------
Date: Sun, 25 Jan 1998 12:51:15 GMT
From: Gil Hirsch <gilh@sysdep.elex.co.il>
Subject: Re: How to get at stuff piped into Perl?
Message-Id: <34CB3543.2E12@sysdep.elex.co.il>
Michael Kairys wrote:
>
> Environment: Windows NT, Perl 5.04.04
>
> I want to pipe lists of files into Perl and assemble them into a command,
> eg.
>
> > grep foo * | myscript.pl
>
> I can't figure out how to get at the output of the grep once I'm in
> myscript.pl. I've read all the references I can find about pipes but they
> all seem to be talking about using open and creating a process to read/write
> from/to.
Hmmm... Have you tried <STDIN> yet?
( @grepOutput = <STDIN>; )
Gil.
--
------------------------------------------------------
Gil Hirsch E-Mail: gilh@sysdep.elex.co.il
Telrad Communications gilh@inter.net.il
------------------------------------------------------
------------------------------
Date: Sun, 25 Jan 1998 14:42:09 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: IP Address as new File
Message-Id: <ebohlmanEnCGu9.2Ap@netcom.com>
Chipmunk <rjk@coos.dartmouth.edu> wrote:
: InterActive Promotions wrote:
: >
: > open (TEMP_FILE, "$remote_address");
: > print TEMP_FILE ("$remote_address|$url\n");
: > close (TEMP_FILE);
: BTW, the real problem is that you are opening
: TEMP_FILE for input, and the trying to use it
: for output:
: open (TEMP_FILE, ">$remote_address") or
: die "Unable to open $remote_address: $!";
: But you should still check the return value of open.
And he really should test the name (which came from Outside) to see if
it's reasonable before going ahead and creating a file (which will
destroy any existing file by that name) based on it.
------------------------------
Date: 25 Jan 1998 16:01:03 +0000
From: Richard Caley <rjc@liddell.cstr.ed.ac.uk>
Subject: Re: living and free software (was: Re: source into binary code)
Message-Id: <eyhra5w8rwg.fsf@liddell.cstr.ed.ac.uk>
In article <6a5nvc$36p$1@news.orst.edu>, John Stanley (js) writes:
js> That's nice. Now provide proof that those who hoard code are harmful to
js> society.
Are people who sell some other kind of broken product causing harm?
Depends on your defnitions. People can choose to buy software with
source as they can choose to buy quality video tapes. Some people
still think that those who sell software sans source or video tapes
which turn to snow simulators after a few uses are not nice.
js> Of course there are those risks. I think it is a much greater risk if
js> the technician employed by the hospital to install PC's tries to fix the
js> MRI code than if they had to wait to call GE. Or what if the business
js> owner tries to fix the code, and uses ">file" to open a critical file
js> instead of >>? What is the cost of doing a restore from last
js> backup?
This is no more an argumnet against the usefulness of source than the
fact you can turn your car into a deathtrap is an argument against the
usefulness of workshop manuals.
--
rjc@cstr.ed.ac.uk _O_
|<
------------------------------
Date: Mon, 26 Jan 1998 03:06:26 +1030
From: Anatoly Osiko <tolya@senet.com.au>
Subject: perl 5.004 installation: make failed
Message-Id: <34CB6A0A.58AE@senet.com.au>
This is a multi-part message in MIME format.
--------------7F37417C1A0D
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
SOS.
I was installing Perl5.004_004 (latest) on Linux (SlackWare).
The make run have issued the whole list of the compilation
errors.
Please find, the compilation output and .myconfig output files attached.
--
Anatoly Osiko
work: anatoly@communica.com.au
home: tolya@senet.com.au
--------------7F37417C1A0D
Content-Type: text/plain; charset=us-ascii; name="Makeout970125"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="Makeout970125"
cd /usr/lib/perl5/perl5.004_04/
make
`sh cflags libperl.a miniperlmain.o` miniperlmain.c
CCCMD = gcc -DPERL_CORE -c -DDEBUGGING -O2
In file included from perl.h:1012,
from miniperlmain.c:14:
cop.h:205: parse error before `bool'
cop.h:205: warning: no semicolon at end of struct or union
cop.h:206: warning: data definition has no type or storage class
cop.h:215: parse error before `}'
cop.h:256: field `cx_subst' has incomplete type
In file included from perl.h:1016,
from miniperlmain.c:14:
scope.h:93: parse error before `bool'
scope.h:93: warning: no semicolon at end of struct or union
In file included from miniperlmain.c:14:
perl.h:1315: parse error before `Perl_nomemok'
perl.h:1315: warning: data definition has no type or storage class
In file included from miniperlmain.c:14:
perl.h:1649: parse error before `Perl_in_my'
perl.h:1649: warning: data definition has no type or storage class
perl.h:1689: parse error before `Perl_do_undump'
perl.h:1689: warning: data definition has no type or storage class
perl.h:1723: parse error before `Perl_minus_c'
perl.h:1723: warning: data definition has no type or storage class
perl.h:1728: parse error before `Perl_preprocess'
perl.h:1728: warning: data definition has no type or storage class
perl.h:1729: parse error before `Perl_minus_n'
perl.h:1729: warning: data definition has no type or storage class
perl.h:1730: parse error before `Perl_minus_p'
perl.h:1730: warning: data definition has no type or storage class
perl.h:1731: parse error before `Perl_minus_l'
perl.h:1731: warning: data definition has no type or storage class
perl.h:1732: parse error before `Perl_minus_a'
perl.h:1732: warning: data definition has no type or storage class
perl.h:1733: parse error before `Perl_minus_F'
perl.h:1733: warning: data definition has no type or storage class
perl.h:1734: parse error before `Perl_doswitches'
perl.h:1734: warning: data definition has no type or storage class
perl.h:1735: parse error before `Perl_dowarn'
perl.h:1735: warning: data definition has no type or storage class
perl.h:1736: parse error before `Perl_doextract'
perl.h:1736: warning: data definition has no type or storage class
perl.h:1737: parse error before `Perl_sawampersand'
perl.h:1737: warning: data definition has no type or storage class
perl.h:1738: parse error before `Perl_sawstudy'
perl.h:1738: warning: data definition has no type or storage class
perl.h:1739: parse error before `Perl_sawvec'
perl.h:1739: warning: data definition has no type or storage class
perl.h:1740: parse error before `Perl_unsafe'
perl.h:1740: warning: data definition has no type or storage class
perl.h:1831: parse error before `Perl_dirty'
perl.h:1831: warning: data definition has no type or storage class
perl.h:1833: parse error before `Perl_tainted'
perl.h:1833: warning: data definition has no type or storage class
perl.h:1834: parse error before `Perl_tainting'
perl.h:1834: warning: data definition has no type or storage class
perl.h:1890: parse error before `Perl_preambled'
perl.h:1890: warning: data definition has no type or storage class
In file included from perl.h:1913,
from miniperlmain.c:14:
proto.h:11: parse error before `Perl_Gv_AMupdate'
proto.h:11: warning: data definition has no type or storage class
proto.h:73: parse error before `Perl_do_aexec'
proto.h:73: warning: data definition has no type or storage class
proto.h:75: parse error before `Perl_do_close'
proto.h:75: parse error before `bool'
proto.h:75: warning: data definition has no type or storage class
proto.h:76: parse error before `Perl_do_eof'
proto.h:76: warning: data definition has no type or storage class
proto.h:77: parse error before `Perl_do_exec'
proto.h:77: warning: data definition has no type or storage class
proto.h:89: parse error before `Perl_do_open'
proto.h:90: warning: data definition has no type or storage class
proto.h:92: parse error before `Perl_do_print'
proto.h:92: warning: data definition has no type or storage class
proto.h:95: parse error before `Perl_do_seek'
proto.h:95: warning: data definition has no type or storage class
proto.h:153: parse error before `Perl_hv_exists'
proto.h:153: warning: data definition has no type or storage class
proto.h:154: parse error before `Perl_hv_exists_ent'
proto.h:154: warning: data definition has no type or storage class
proto.h:174: parse error before `Perl_io_close'
proto.h:174: warning: data definition has no type or storage class
proto.h:442: parse error before `Perl_sv_2bool'
proto.h:442: warning: data definition has no type or storage class
proto.h:468: parse error before `Perl_sv_derived_from'
proto.h:468: warning: data definition has no type or storage class
proto.h:506: parse error before `Perl_sv_tainted'
proto.h:506: warning: data definition has no type or storage class
proto.h:510: parse error before `Perl_sv_upgrade'
proto.h:510: warning: data definition has no type or storage class
proto.h:514: parse error before `bool'
proto.h:517: parse error before `bool'
In file included from miniperlmain.c:14:
perl.h:2186: parse error before `Perl_collation_standard'
perl.h:2186: warning: data definition has no type or storage class
perl.h:2194: parse error before `Perl_numeric_standard'
perl.h:2194: warning: data definition has no type or storage class
perl.h:2195: parse error before `Perl_numeric_local'
perl.h:2195: warning: data definition has no type or storage class
make: *** [miniperlmain.o] Error 1
Compilation exited abnormally with code 2 at Mon Jan 26 01:51:38
--------------7F37417C1A0D
Content-Type: text/plain; charset=us-ascii; name="Myconfig"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="Myconfig"
Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration:
Platform:
osname=linux, osvers=2.0.0, archname=i586-linux
uname='linux loony 2.0.0 #1 tue jun 11 10:07:56 cdt 1996 i586 '
hint=previous, useposix=true, d_sigaction=define
bincompat3=n useperlio=undef d_sfio=undef
Compiler:
cc='gcc', optimize='-O2', gccversion=2.7.2
cppflags='-DDEBUGGING'
ccflags ='-DDEBUGGING'
stdchar='char', d_stdstdio=define, usevfork=false
voidflags=15, castflags=0, d_casti32=define, d_castneg=define
intsize=4, alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='ld', ldflags ='-L/lib -L/usr/lib'
libpth=/lib /usr/lib
libs=-lgdbm
libc=/lib/libc.so.5.3.12, so=so
useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_none.xs, dlext=none, d_dlsymun=undef, ccdlflags=''
cccdlflags='', lddlflags=''
--------------7F37417C1A0D--
------------------------------
Date: Sun, 25 Jan 1998 12:05:05 -0500
From: "Nick" <nmarino@home.com>
Subject: Perl Source Obfuscator
Message-Id: <6afrev$ies$1@ha2.rdc1.pa.home.com>
There are utilities available which make C source code unreadable, yet
compilable. The purpose is to distribute source code for recompilation, but
without revealing trade secrets etc.
These type of source code filters are called sometimes called Shrouds or
Obfuscators.
Does anything like that exist for Perl?
------------------------------
Date: Sun, 25 Jan 1998 09:44:58 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Aaron Sylvia <atsylvia@erols.com>
Subject: Pointless questions (was: Re: Perl, Sybperl, and Year 2000)
Message-Id: <Pine.GSO.3.96.980125093304.22096H-100000@user2.teleport.com>
On Sat, 24 Jan 1998, Aaron Sylvia wrote:
> I have read the FAQ for Perl 5.x and it states that it should not cause
> any year 2000 compliance problems
> Has anyone had any experience with this? Has anyone done any testing
> and found anything?
I don't understand why you're asking this. I mean, I understand why you'd
want to know about y2k issues; but I can't see what good it does to ask
_this_. The question seems pointless to me. Suppose there actually IS a
problem with Perl. Suppose that J. Random Hacker has found a serious bug
which he is keeping secret from the Perl developers and from the people
who maintain the FAQ. What makes you think he would tell you about it?
Or maybe you think there's a coverup. Don't you trust the Perl developers
and the FAQ maintainers to tell you the truth? Don't you think that, in
all of the discussions on this newsgroup, somebody would have let the
truth slip out?
What the docs, FAQs, and people of this newsgroup tell you three times is
true.
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sun, 25 Jan 1998 15:33:11 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Reading persistent logs
Message-Id: <6afm33$8vc$1@cyprus.atlantic.net>
According to joseph@5sigma.com:
>die "no filename" unless @ARGV;
>open FH, shift or die "couldn't open file: $!";
>print <FH>;
>for (;;) {
> sleep 2; # no busy waiting please
> seek FH, 0, 1;
> print <FH>;
>}
May I suggest:
use Fcntl;
die "usage: $0 file\n" unless @ARGV;
$FH = shift;
sysopen FH, $FH, O_RDONLY|O_NDELAY
or die "Can't open $FH: $!\n";
for (;;) {
while (<FH>) { print }
sleep 2;
seek FH, 0, 1;
}
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"We can shower it with neutrons."
"Or we can do the Neutron Dance!" // MST3K
** Perl Training from Stonehenge Consulting Services: (503) 777-0095 **
------------------------------
Date: Sun, 25 Jan 1998 19:41:09 +0300
From: Alexander Slinkin <sas@arstel.ru>
Subject: Re: Unix domain sockets in Perl
Message-Id: <34CB6B24.DAA70B82@arstel.ru>
Mark Mielke wrote:
> Alexander Slinkin <sas@arstel.ru> writes:
> > I'm new to Perl and this is my first time in this newsgroup, so don't
> > blame on me for probably obvious question. I want to write a script used
> > as a client for testing a server written in C. The IPC used is UNIX domain
> > sockets. I have reduced the problem down to the following server-client pair
> > written completely in Perl and based on the example in perlipc man page.
>
> The answer off the top of my head is that print() is buffered IO. You need
> to do one of these before the print() statement.
>
> use FileHandle;
> SOCK->autoflush(1);
>
> #or,
> select(SOCK); $| = 1; select(STDOUT);
>
[snip]
autoflush did the trick. Thank you
Alexander
------------------------------
Date: Sun, 25 Jan 1998 14:56:04 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Using a variable in a pattern match
Message-Id: <ebohlmanEnCHHH.35B@netcom.com>
malgosia askanas <ma@panix.com> wrote:
: I am searching through a file to find a match with the value of
: a string variable, $user. The string might contain special characters,
: most notably "+" -- it is an e-mail address. So when I use straight
: $user in the pattern, the addresses containing "+" don't match (everything
: else does OK). When I write the pattern using \Q$user\E, nothing matches
: at all. I tried to say $user = quotemeta($user) before doing anything,
: but this gives me a syntax error. I realize this question is probably
: utterly stupid, but I am nevertheless going nuts. How do I make this work?
What version of Perl are you using? I've got this sneaking suspicion
that it's 4.something, which doesn't have quotemeta or its
syntactically-sugared variants. If so, give your dead camel a decent
burial and get 5.004.
------------------------------
Date: 25 Jan 1998 12:48:34 -0500
From: ma@panix.com (malgosia askanas)
Subject: Re: Using a variable in a pattern match
Message-Id: <6aftti$itt@panix2.panix.com>
Eric Bohlman <ebohlman@netcom.com> wrote:
>What version of Perl are you using? I've got this sneaking suspicion
>that it's 4.something, which doesn't have quotemeta or its
>syntactically-sugared variants. If so, give your dead camel a decent
>burial and get 5.004.
Your sneaking suspicion was absolutely correct: the pathname I was using
was linked to a Perl 4.something. I hope to not be back with the same
question. :-) Many thanks to you and to Brian Foy.
-malgosia
------------------------------
Date: 25 Jan 1998 16:24:14 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: White Hats and Black
Message-Id: <6afove$o0o$1@csnews.cs.colorado.edu>
This article now available at
http://www.perl.com/perl/versus/hats.html
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
stab_val(stab)->str_nok = 1; /* what a wonderful hack! */
--Larry Wall in stab.c from the perl source code
------------------------------
Date: 25 Jan 1998 17:16:07 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: Why warn? (WAS: Re: Critique My Code! (Please))
Message-Id: <slrn6cmsfb.kns.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, dg50@chrysler.com <dg50@chrysler.com> wrote :
# In article <6a3iel$rrt$4@comdyn.comdyn.com.au>,
# mgjv@comdyn.com.au (Martien Verbruggen) wrote:
#
# > It isn't though. If you had had a look at the documentation with
# >
# > perldoc -f warn
# >
# > you would have known that warn does a lot more than just dump a message
# > on STDERR. That is just the _default_ behaviour. You can however set a
# > handler for $SIG{__WARN__}, which allows you to do almost anything on
# > a warning.
# >
# > Martien
#
# Ah, silly me, I used the Blue Camel for reference, not perldoc.
And it's in there on page 139. :-)
# AFAICS, the Blue Camel makes no reference to $SIG(__WARN__) in the
# function reference.
But it does on page 139, Special Variables.
gabor.
--
/* And you'll never guess what the dog had */
/* in its mouth... */
-- Larry Wall in stab.c from the perl source code
------------------------------
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 1725
**************************************
