[7894] in Perl-Users-Digest
Perl-Users Digest, Issue: 1519 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Dec 21 22:08:13 1997
Date: Sun, 21 Dec 97 19:00:26 -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, 21 Dec 1997 Volume: 8 Number: 1519
Today's topics:
ANNOUNCE: DBD::XBase 0.039 (Honza Pazdziora)
ANNOUNCE: VMS::Process 1.03 (First public release) (Dan Sugalski)
ANNOUNCE: VMS::System 1.03 (First public release) (Dan Sugalski)
Re: bug? (was: Bitwise XOR (^) doesn't work on strings? (Tad McClellan)
Re: calling two arrays in a function as variables <joegottman@nospam.worldnet.att.net>
Re: Compilation error with Format (Randy)
Re: Dynamic s/// vs. s///i? (Tad McClellan)
Fast Suggestions for this string manipulation problem <shadowweb@worsdall.demon.co.uk>
Re: Fast Suggestions for this string manipulation probl (brian d foy)
Help. CGI sessions in perl under password protected dir <concord@cam.org>
Re: hey guyz! plz help me out! (Martien Verbruggen)
Re: Holiday Sale: CGI Programming <bugaj@bell-labs.com>
Re: MDQ: Calling Subroutines <bugaj@bell-labs.com>
per TR <75762.2332@CompuServe.COM>
Re: per TR <rra@stanford.edu>
Re: per TR (Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh")
perl5.004_04 and dynamic loading under HP-UX 10.20 <pareis@cs.tu-berlin.de>
Re: Scanning the access_log file <dgoyette@NoMoreSPAMpcisys.net>
Re: unshift, @INC, require??? (Martien Verbruggen)
Re: unshift, @INC, require??? (Charles DeRykus)
Re: Which language pays most 17457 -- C++ vs. Java? <Bill_Leary@msn.com>
Re: Which language pays most 17457 -- C++ vs. Java? (David Grove)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Dec 1997 02:41:37 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: ANNOUNCE: DBD::XBase 0.039
Message-Id: <67kk11$6i2$1@news1.teleport.com>
Hello,
I have uploaded file
http://www.fi.muni.cz/~adelton/perl/DBD-XBase-0.039.tar.gz
to
file: $CPAN/authors/id/JANPAZ/DBD-XBase-0.039.tar.gz
size: 25304 bytes
md5: 9eb32fe8c0b2ff40b4de466789cc41e8
Except minor bug fixes in core XBase module, this is the first release
that actually can do something via DBI. Currently, only select and
delete are supported, but hey, it's nice to say
select name,address there income > 5000 and name != 'Alex'
and get (hopefully) good result. The nine in the version number says
that I will be working on it, to at least add insert and update
commands. I would appreciate any comments from both XBase, DBI and
Perl gurus about the code -- feel free to send me any bug report about
DBD::XBase.
The core XBase code seems to be rather stable. I think I will add
support for fpt files in a month or so and then say it's released. Of
course, there is still an open question about index support and
locking -- this is something you might or might not actually need
(I don't ;-), so write me if you do to encourage me to spend some time
on it.
I'm releasing the module even if the DBD part is not quite ready,
because I won't probably have much time to work on it during the
following week. I will probably get mad of this ... holiday, so am
looking forward for January and better times.
Have a nice day,
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: 22 Dec 1997 02:45:30 GMT
From: sugalskd@osshe.edu (Dan Sugalski)
Subject: ANNOUNCE: VMS::Process 1.03 (First public release)
Message-Id: <67kk8a$6lp$1@news1.teleport.com>
Keywords: Perl $GETJPI process info VMS
I've uploaded to CPAN the first public release of VMS::Process.
This module provides functions to list, pause, release, delete, or get
information on any process running on the current machine or VMS cluster.
More specifically, you can:
1) Get a list of all processes running on the cluster or local node, or a
subset that match a search criteria
2) Kill any process running on the cluster or local node.
3) Suspend any process running on the cluster or local node.
4) Release any process currently suspended on the cluster or local node.
5) Fetch any or all information on any process running on the cluster or
local node (All the information, except for rightslists and privileges,
available from the $GETJPI system service, or the DCL lexical F$GETJPI)
6) Decode bitmaps and coded information returned for a process.
Normal VMS system security is enforced, so non-privileged users can't
compromise the integrity of the node or cluster.
This module is living at $CPAN/modules/by-module/VMS_Process-1_03.zip,
available at a fine CPAN mirror near you.
(As a hysterical note, most of the functionality of this module previously
appeared in the unannounced VMS::ProcInfo module, which is now officially
deceased)
Dan
------------------------------
Date: 22 Dec 1997 02:45:03 GMT
From: sugalskd@osshe.edu (Dan Sugalski)
Subject: ANNOUNCE: VMS::System 1.03 (First public release)
Message-Id: <67kk7f$6lb$1@news1.teleport.com>
Keywords: VMS perl $GETSYI cluster
I've uploaded to CPAN the first public release of VMS::System.
This module provides two major functions for perl scripts:
1) Lists the names of all machines in a VMS Cluster (or the current
machine, if not clustered)
2) Fetch any or all of the information available through the $GETSYI
system call or via the DCL lexical function F$GETSYI. Some restrictions
apply. (Not all values are available for remote nodes--a VMS limitation)
3) Fetch any or all of the system parameters (available through SYSGEN or
SYSMAN) for the local node.
The current version is living at
$CPAN/modules/by-module/VMS/VMS_System-1_03.zip, available at a fine CPAN
mirror near you.
Dan
~
------------------------------
Date: Sun, 21 Dec 1997 12:16:08 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: bug? (was: Bitwise XOR (^) doesn't work on strings?)
Message-Id: <8dmj76.il1.ln@localhost>
[ posted, emailed]
Tom Phoenix (rootbeer@teleport.com) wrote:
: On Sat, 20 Dec 1997, Tad McClellan wrote:
: > This appears to be a bug in the documentation to me.
: Yes, it did to me, too. I'm appending the doc patch I submitted early in
: November. Does this seem to cover the lacks that you're seeing?
I have some suggestions.
: Let me
: know of anything that's still missing - I'd rather overdocument rather
: than underdocument!
Me too. So here goes!
<broad-strokes>
1) The primary thing to get across is that the bitwise operators
have different behavior when both operands are 'strings' than when
both or either of the operands are 'numbers'.
I can see where this could be implied from your patch, but I'd
prefer to be explicit about it somewhere.
2) The patch introduces the term 'bitstring' without a definition.
Since it says "Bitstrings of any size" I guess that it means:
"strings of bits from a 'string' rather than from a 'number'"
because numeric bitwise operators _are_ size limited by the
underlying architecture. (though this definition may be implied
by virtue of it being in the "Bitwise String Operators" section.
See #3 below)
The term 'bit string' is already used in the pods in three places
(related to vec() and pack()), where it does not have the
same meaning (I think)
3) Statements that are only true if you remember the context given
by the =head2 section heading. I fear folks will miss the
"qualified by context" approach.
eg1: the "any size" thing from #2 above, yet:
eg2: Several of your examples are numeric bitwise ops, but they are
in the 'string' bitwise op context (section)
</broad-strokes>
I think #1 and #3 above could be resolved by adding two =head2
sections instead of one.
-----------------------
=head2 Bitwise Operators [up there before "Bitwise And" somewhere?]
If you are intending to manipulate bitstrings, you should be certain that
you're supplying bitstrings: If either operand is a number, that will imply
^^^^^^
a B<numeric> bitwise operation (See also L<Integer Arithmetic>).
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
<add-sentence>
If both operands are strings, that will imply a B<string> bitwise
operation (See also L<Bitwise String Operators>).
</add-sentence>
You may explicitly show which type of
operation you intend by using C<""> or C<0+>, as in the examples below.
$foo = 150 | 105 ; # yields 255 (0x96 | 0x69 is 0xFF)
$foo = '150' | 105 ; # yields 255
$foo = 150 | '105'; # yields 255
$foo = '150' | '105'; # yields string '155' (under ASCII)
$baz = 0+$foo & 0+$bar; # both ops explicitly numeric
$biz = "$foo" ^ "$bar"; # both ops explicitly stringy
...
=head2 Bitwise String Operators
[ as in your patch, sans the above part ]
-----------------------
Please feel free to wordsmith at will, of course.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 21 Dec 1997 19:34:22 -0500
From: Joe Gottman <joegottman@nospam.worldnet.att.net>
Subject: Re: calling two arrays in a function as variables
Message-Id: <67kcq1$i23@bgtnsc02.worldnet.att.net>
Honza Pazdziora wrote:
>
> Aragorn <mbijlsma.nospam@xs4all.nl> writes:
>
> > Hi,
> > I've got a problem calling two lists or arrays into a function. When I
> > call them inside the function using (@foo, %bar) = @_; perl tends to
> > assign all elements - both arrays - to the first one, leaving the second
>
> [...]
>
> > won't work.
> > Is there any special syntax forcing perl to keep the two devided, any
> > trick to get the arrays back in line, just.. anything that will work? :)
>
> It's documented in the docs. You need to pass references to those
> objects -- two scalars:
>
> sub function
> {
> my $arrayref = shift;
> my $hashref = shift;
>
> [...]
> }
>
> function(\@array, \%hash);
>
Actually, if you use prototyping you can define the function as
sub function(\@\%)
then you could call it using
function(@array, %hash);
Note that you would still have to use references in the actual function
definition,
i.e.
my $arrayref = shift;
my $hashref = shift;
but the user could call the function without knowing that it used refs.
--
Joe Gottman
joegottman@nospam.worldnet.att.net
[Remove nospam to reply]
------------------------------
Date: Mon, 22 Dec 1997 01:07:11 GMT
From: randx@imagin.net (Randy)
Subject: Re: Compilation error with Format
Message-Id: <67ke7b$4q7@news.imagin.net>
In article <Pine.GSO.3.96.971221143853.4811J-100000@user2.teleport.com>, Tom Phoenix <rootbeer@teleport.com> wrote:
>On Sun, 21 Dec 1997, Randy wrote:
>
>> Format not terminated at listword.plx line 20, at end of line
>
>Make sure that the period terminating the format is on a line by itself,
>with no hidden control characters before or after it. A good programmer's
>editor should be able to help you to see these. Hope this helps!
>
Thanks Tom, you were right on the money.
I just logged back in to answer my own question, and you were
right. I did not have an end of line after the peiod, at the end
of the fille. Adding a return after the period fixed my problem.
Lesson one. Remember that last CR at the end of the file, for
format statements and data, especially.
Make the obvious name change in the return address.
Randy Thomson
K4MMW
Fort Worth, TX
------------------------------
Date: Sun, 21 Dec 1997 12:31:08 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Dynamic s/// vs. s///i?
Message-Id: <c9nj76.do1.ln@localhost>
Joe Casadonte (joc@netaxs.com) wrote:
: I am trying to write a script that will help non-Perl users get some of
: the power of Perl search and replace. I would like to write a single
: match (m//) and substitute (s///) statement that can handle things
: like word-boundaries (or not) or case insensitivity (or not), all
: depending on the users immediate needs. Is there an easy way without
: using eval?
This was discussed here last month in the thread with:
Subject: pattern matching options
You can do it without eval() for these options: i m s x
The 'word boundary' part is not a 'option' though. You might
be able to add that to the regex yourself though.
I wouldn't characterize any of the solutions as "an easy way"
though, maybe "a pretty easy way" instead ;-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 22 Dec 1997 00:55:37 +0000
From: Mark Worsdall <shadowweb@worsdall.demon.co.uk>
Subject: Fast Suggestions for this string manipulation problem
Message-Id: <ddi6XMAJqbn0Ewj1@worsdall.demon.co.uk>
Hi, I am looking for the fastest solution to the problem below:-
I have say the following IP locations:-
1) taos.nj.nec.com
2) ppp534.quebectel.com
and I want to subtract the front word/s from the string, now example 2
will change into:-
quebectel.com
while example 1 will turn into:-
nj.nec.com
The difference being that there is an extra word in example 1 (There
could be more than one extra word) compared to example 2.
Any ideas? I have tried various ways but they all seem to end up
humungasly harendorsly long...
--
Mark Worsdall (Webmaster) - WEB site:- http://www.shadow.org.uk
Shadow:- webmaster@shadow.org.uk
Home :- shadowweb@worsdall.demon.co.uk
Any opinion given is my own personal belief...
------------------------------
Date: Sun, 21 Dec 1997 20:22:11 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Fast Suggestions for this string manipulation problem
Message-Id: <comdog-2112972022110001@news.panix.com>
In article <ddi6XMAJqbn0Ewj1@worsdall.demon.co.uk>, Mark Worsdall <shadowweb@worsdall.demon.co.uk> wrote:
> I have say the following IP locations:-
>
> 1) taos.nj.nec.com
> 2) ppp534.quebectel.com
>
> and I want to subtract the front word/s from the string, now example 2
> will change into:-
> quebectel.com
perhaps you wanted something like:
#!/usr/bin/perl -w
foreach( qw(taos.nj.nec.com ppp534.quebectel.com) )
{
(undef, $name) = split /\./, $_, 2;
print "$name\n";
}
__END__
--
brian d foy <http://computerdog.com>
#!/usr/bin/perl
$_=q|osyrNewkecnaYhe.mlorsePptMskurj|;s;[NY.PM]; ;g;local$\=
qq$\n$;@pm=split//;while($NY=pop @pm){$pm.=$NY;$ny.=pop @pm}
$pm=join'',reverse($ny,$pm);open(NY,'>&STDOUT');print NY $pm
------------------------------
Date: Sun, 21 Dec 1997 18:20:09 -0500
From: Alex Chkliar <concord@cam.org>
Subject: Help. CGI sessions in perl under password protected directory
Message-Id: <349DA429.7E92@cam.org>
Dear reader,
I need to develop secure CGI sessions in perl under password protected
directory on
Apache server. What bothers me that every time when a user will call a
CGI
file, the browser will prompt the user to log in again and again. Is
there a way to avoid this ?
This development will be done under the SSL.
Any examples ? Any help? Any http ref.?
Thanks.
------------------------------
Date: 22 Dec 1997 00:49:42 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: hey guyz! plz help me out!
Message-Id: <67kdf6$3t8$4@comdyn.comdyn.com.au>
In article <349AD6A0.26A9FB7@ica.net>,
Alex Kovalenko <luckycom@ica.net> writes:
> hey there programmerz...
> i am recently in perl, so i am have some faq ques...
Sheesh, I need a decoder here.
You probably already got the first-time-poster's welcoming mail, but,
you can find the perl FAQs here: http://language.perl.com/faq/index.html
> 1) i need to make up a cgi script which will do the following:
This is not a perl question, but a CGI question. Check the FAQ's.
Check www.cgi-resources.com. Check the comp.infosystems.www.* news
groups. Check Selena Sol's bunch of scipts (do a search, you'll be
able to find it).
> if ya can help me out , than plz HELP ME PLZ!
> any ideas would be VERY appreciated!
maybe you should not use intentionally wrong spelling.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: Sun, 21 Dec 1997 21:19:04 -0500
From: Stephan Vladimir Bugaj <bugaj@bell-labs.com>
Subject: Re: Holiday Sale: CGI Programming
Message-Id: <349DCE18.167E@bell-labs.com>
Discount computer programs!
Save up to +/-100% on used and factory second computer programs!
Only during this special limited time offer you can get computer
programs at discount prices. These programs may be used, but
they're just as good as the day they were written! Why pay for
this year's version when last year's version is still just as
good as it was last year? Why pay high programmer salaries when
you can save electrons and money by recycling used and factory
second code? We guarantee all our programs to be within three
orders of magnitude of 100% bug free and operationally correct,
or we'll refund the difference. You'd be hard pressed to find
code like this be sold by anyone else!
Supplies are limited. Act now!
(Custom programming services are also available at a high price/
performance ratio with a complete vaporware guarantee!)
------------------------------
Date: Sun, 21 Dec 1997 21:03:49 -0500
From: Stephan Vladimir Bugaj <bugaj@bell-labs.com>
Subject: Re: MDQ: Calling Subroutines
Message-Id: <349DCA85.41C6@bell-labs.com>
> Perl's prototypes perform a differnt function than C
> prototypes. Again, according to the perlsub man page, the main purpose
> of them is so non-core functions can work like certain core functions
> do, not to try to create strict compile time type checking. The intent
> is most telling in this passage:
>
Hmmmm...
It seems I'm being Cish again.
But, in a large program where one is writing a lot of subroutines, it
can be pretty painful to find subtle bugs without function prototypes.
I guess it's just a matter of being careful...
I can see the benefits of a function that expects a number of
references to arrays to be able to accept an array of references...
@foo = $r_array1, $r_array2,...,$r_arrayn;
bar(@foo);
#I guess you're saying this fails with the prototype,
#but doesn't without
sub bar ($..n..$)
{
my($r1,...,$rn) = @_;
#blah
}
> Since all method lookups are done at runtime, prototypes aren't
> consulted. Have you considered using runtime checks? (especially in
> addition to a debugging flag?)
>
> use constant DEBUGGING => 1;
> #... time passes
> die "wrong number of args" if DEBUGGING and @_ != 2;
>
Yeah, I do some of this... but if I make this code available to others
someday, I was under the impression that protos would help enforce
calling properly but I was also deluded by the notion of proper calling
a'la C/C++ with formal parameters. The perlsub man page also reccomends
that if you're going to be writing modules that prototypes are a good
thing... hmmm...
LL+P,
Stephan
"Do computers think?"
---------------------------------------------------------------
Stephan Vladimir Bugaj bugaj@bell-labs.com
Member of Technical Staff (908) 949-3875
Multimedia Communication Research Dept. Rm. 4F-601, Holmdel
Bell Labs of Lucent Technologies www.multimedia.bell-labs.com
PGPkey from http://www.pgp.net/wwwkeys.html or other keyservers
Non-Lucent website: http://www.cthulhu-dynamics.com/stephan
---------------------------------------------------------------
STANDARD DISCLAIMER:My opinions are NOT those of LUCENT
---------------------------------------------------------------
"Do submarines swim?" - E.W. Dijkstra
------------------------------
Date: Sun, 21 Dec 1997 18:01:43 -0500
From: Ruben Safir <75762.2332@CompuServe.COM>
Subject: per TR
Message-Id: <OFZ1oRmD9GA.288@ntdwwaaw.compuserve.com>
One is - why can't you use the brakets in the tr command such as
$myline =~ tr/[\s\d]/_/c;
The other question comes from a small peice of code which is failing.
It was my thought that when we open a file which doesn't exist for writing
such as
#unless( open( CART, ">$homeplate")){
unless( open( CART, ">/home/arijt/www/shop/10")){
die("Can't open Shopping Cart");
}
that a new file would automatically be created like it is in BORNE
I guess from the behavior of my program - it doesn't.
How does one create a new file in perl and what file permisions are
automatically created if it is running as a CGI in apache.
One is - why can't you use the brakets in the tr command such as
$myline =~ tr/[\s\d]/_/c;
The other question comes from a small peice of code which is failing.
It was my thought that when we open a file which doesn't exist for writing
such as
#unless( open( CART, ">$homeplate")){
unless( open( CART, ">/home/arijt/www/shop/10")){
die("Can't open Shopping Cart");
}
that a new file would automatically be created like it is in BORNE
I guess from the behavior of my program - it doesn't.
How does one create a new file in perl and what file permisions are
automatically created if it is running as a CGI in apache.
One is - why can't you use the brakets in the tr command such as
$myline =~ tr/[\s\d]/_/c;
The other question comes from a small peice of code which is failing.
It was my thought that when we open a file which doesn't exist for writing
such as
#unless( open( CART, ">$homeplate")){
unless( open( CART, ">/home/arijt/www/shop/10")){
die("Can't open Shopping Cart");
}
that a new file would automatically be created like it is in BORNE
I guess from the behavior of my program - it doesn't.
How does one create a new file in perl and what file permisions are
automatically created if it is running as a CGI in apache.
[A[A[A[A[A[A[A[A/
------------------------------
Date: 21 Dec 1997 15:43:32 -0800
From: Russ Allbery <rra@stanford.edu>
Subject: Re: per TR
Message-Id: <m3oh2a2rff.fsf@windlord.Stanford.EDU>
Ruben Safir <75762.2332@CompuServe.COM> writes:
> One is - why can't you use the brakets in the tr command such as
> $myline =~ tr/[\s\d]/_/c;
You can. You're just replacing the literal characters [ and ].
> unless( open( CART, ">/home/arijt/www/shop/10")){
> die("Can't open Shopping Cart");
> }
> that a new file would automatically be created like it is in BORNE
It is.
> I guess from the behavior of my program - it doesn't.
I think something else is going wrong rather that. Are you sure that the
user your process is running as has permission to create a file in that
directory?
--
#!/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: Sun, 21 Dec 97 19:36:15 -0500
From: bsa@void.apk.net (Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh")
Subject: Re: per TR
Message-Id: <349db6c8$1$ofn$mr2ice@speaker>
In <OFZ1oRmD9GA.288@ntdwwaaw.compuserve.com>, on 12/21/97 at 06:01 PM,
Ruben Safir <75762.2332@CompuServe.COM> said:
+-----
| One is - why can't you use the brakets in the tr command such as
| $myline =~ tr/[\s\d]/_/c;
+--->8
tr/// already behaves as a bracketed expression. Why do you want to add
brackets?
| unless( open( CART, ">/home/arijt/www/shop/10")){
| die("Can't open Shopping Cart");
+--->8
Try changing that line to
die("Can't open Shopping Cart: $!");
You will no doubt discover that programs started by the web server don't have
permission to create a file in that directory.
--
use 5.004;sub AUTOLOAD{print$_{$_.++$x{$_}}}sub new{my%x;%_=map{++$a%2?$_.++$x{
$_}:$_}split(//,pack('N*',unpack('w*',unpack('u*','M@H*HP\'2"@\C`88+SE/!EA(F!'.
"A'6\$LZV0+(3;C9QRA9NAPG2&D\\G(88:KL=A0\n4AN.5W\"\"&\\[W>;H>3S>0\@A\\N\@PB\$`")
)));bless{}}$b=(new main);map{$b->_}split(//,' Brandon S. Allbery KF8NH') # :-)
------------------------------
Date: Mon, 22 Dec 1997 01:53:00 +0100
From: Andre Pareis <pareis@cs.tu-berlin.de>
Subject: perl5.004_04 and dynamic loading under HP-UX 10.20
Message-Id: <349DB9EC.552F5087@cs.tu-berlin.de>
Hello,
I have spent severeal hours while trying to build perl
5.004_04 under HP-UX 10.20 using gcc 2.7.2.3.
The problem is not the build itself, the problem is that I
did not get the dynamic loading (the system supports it) to
work. Static loading is useless for me, because I need PerlQt,
which in turn depends on dynamic loading.
The Configure script is searching for a 'dlopen' routine (in dld.h,
which I don't have). On my system dynamic loading is done with
shl_load, which is declared in /usr/include/dl.h.
My question to you is: is it possible to get that thing to work?
Are the shl_load and dlopen calls equivalant? In this case I could
simply call gcc with defines like -Ddlopen=shl_load -Ddlclose=...
Strange is that 5.003 worked with dynamic loading (at that time I needed
it for perl/Tk, which is now beeing obsolete for me)
Thank you,
Andre
------------------------------
Date: 21 Dec 1997 23:03:15 GMT
From: "Don" <dgoyette@NoMoreSPAMpcisys.net>
Subject: Re: Scanning the access_log file
Message-Id: <01bd0e64$84f96fe0$4c68d2d0@586win95>
Thanks Tom, I appreciate your assistance!
-Don
Reply to: (dgoyette"at-sign"pcisys.net) and NOT the auto-reply address
---------------------------------------------------------------------
Tom Phoenix <rootbeer@teleport.com> wrote in article
<Pine.GSO.3.96.971220115700.2947P-100000@user2.teleport.com>...
> On 19 Dec 1997, Don wrote:
>
> > I guess I would need the following 'routines' and/or 'code sections':
> >
> > 1. A means to scan (read through) every record in the access_log file.
>
> Any good book for Perl beginners should show you how to read files. I
> recommend the Llama book, available from your favorite bookstore.
>
> > 2. A means to select ONLY those records that contain the string
> > "~dgoyette".
>
> You can do that using index().
>
> > 3. A means to store all 'selected' records, or just the URL part of the
> > record (could be tens of thousands of records selected).
>
> If you want to store those into a file or array, there should be a
chapter
> on either of those in any good book. If you wish to use a database, the
> Llama even has a chapter about that.
>
> > 4. A means to scan all selected records accumulating totals for each
> > 'specific' filename (for example
"~dgoyette/index.html/whitesat.jpg").
>
> A hash might be good, if you wish to tally each individual file. The
Llama
> has a chapter on hashes as well.
>
> > 5. A means to store the filenames and their accumulated totals in a
> > plain text file for transfer to our PC for printing and/or storage.
>
> And writing files should be covered near where the book talks about
> reading them.
>
> If you're not sure which one is the Llama book, there's information about
> it in the perlbook manpage. Hope this helps!
>
> --
> Tom Phoenix http://www.teleport.com/~rootbeer/
> rootbeer@teleport.com PGP Skribu al mi per Esperanto!
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
> Ask me about Perl trainings!
>
>
------------------------------
Date: 22 Dec 1997 00:38:35 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: unshift, @INC, require???
Message-Id: <67kcqb$3t8$3@comdyn.comdyn.com.au>
In article <67brsj$jqe@catapult.gatech.edu>,
gt2863a@acmey.gatech.edu (Mark) writes:
>
> I used to keep everything in one directory and my code
> looked as follows
>
> unshift (@INC, "L:\scripts\mec") #directory where everything is
> require("Header.pl")
> require("OpenFile.pl")
Why don't you do it with use lib?
backslashes need to be doubled inside double quotes.
Instead of backslashes you might just use one regular slash. Perl
should deal with that correctly.
Wasn't there some problem with stuff on different disks under win32
ports of perl?
use lib 'l:/scripts/mec';
Martien
--
Martien Verbruggen | My friend has a baby. I'm writing down
Webmaster www.tradingpost.com.au | all the noises the baby makes so later
Commercial Dynamics Pty. Ltd. | I can ask him what he meant - Steven
NSW, Australia | Wright
------------------------------
Date: Mon, 22 Dec 1997 01:26:21 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: unshift, @INC, require???
Message-Id: <ELKHBy.7p0@bcstec.ca.boeing.com>
In article <349CFFD0.12C7@asi.fr>, Marc de GOUTTES <mdgoutte@asi.fr> wrote:
>Just one question : does it work when you execute your script invoking
>perl with '-I' argument, giving path to your personal directory ?
>Marc
Yes, that works. Did you hava a problem ?
Regards,
--
Charles DeRykus
------------------------------
Date: Sun, 21 Dec 1997 21:08:58 -0500
From: "William J. Leary Jr." <Bill_Leary@msn.com>
Subject: Re: Which language pays most 17457 -- C++ vs. Java?
Message-Id: <e8Hnv5nD9GA.93@upnetnews04>
Peter Seebach wrote in message <67iipp$ktj$1@darla.visi.com>...
>Then you're using "freestanding environments", which are a separate
language.
>The library is, indeed, part of the hosted environment form of C.
As I've said in several other messages which have forked off this main one,
it was my understanding that the argument was over the LANGUAGE, not the
ENVIRONMENT.
The language spec (the part that says 'if means this, = means this, ++ means
this and so on) doesn't include that standard library jazz or specify that
things like "memcpy" are reserved words. The reserved words there are
things like "if," "for," "switch" and so forth. In that spec you won't find
"memcpy" along with "switch" as a reserved word.
The hosted environment may well do so.
The compilers I used (Metaware, Microsoft C/C++, and a few others we
evaluated but didn't use for production work) all did just what you say. If
we targeted DOS or UNIX or what have you, there were definite limitations on
what we could do. If we target nothing (or embedded, or whatever option the
compiler required) we could use any name we felt like for any purpose
whatever.
- Bill
------------------------------
Date: Sun, 21 Dec 1997 19:47:20 GMT
From: dgrove@ntslink.net (David Grove)
Subject: Re: Which language pays most 17457 -- C++ vs. Java?
Message-Id: <349d7218.98517020@news.ntslink.net>
I should point out that these languages pay more because it's hard to
find people who would stoop so low as to work with them. :)
>Craig A. Johnston wrote:
>>
>> COBOL. COBOL pays the most. Get to it, son.
>
>This is not strictly true - MUMPS pays even more than COBOL.
>However, there are more COBOL positions available (but it makes
>no difference, since you'll never find an unemployed MUMPS or COBOL
>programmer).
>
>Gary
>--
>"I kicked the perl habit, and so can you. Ask and I'll show you how."
>
>pub 1024/C001D00D 1996/01/22 Gary Howland <gary@hotlava.com>
>Key fingerprint = 0C FB 60 61 4D 3B 24 7D 1C 89 1D BE 1F EE 09 06
------------------------------
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 1519
**************************************
