[11811] in Perl-Users-Digest
Perl-Users Digest, Issue: 5411 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Apr 18 14:07:26 1999
Date: Sun, 18 Apr 99 11:00:17 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 18 Apr 1999 Volume: 8 Number: 5411
Today's topics:
Re: "Dynamic Download" application with Perl5 (I R A Aggie)
Re: "mixed"-Quantifier available ? (Tad McClellan)
A note about Perl overhead for socket I/O <ejk@uiuc.edu>
Re: A problem.. (Tim Herzog)
Re: Any software convert html code into perl code?? (Tim Herzog)
Re: Any software convert html code into perl code?? (Matthew Bafford)
Any source of writing chat room on homepage? <carfield@polyu.hknet.com>
Re: Any source of writing chat room on homepage? <tchrist@mox.perl.com>
Re: FAQ 3.9: Is there an IDE or Windows Perl Editor? <aperrin@mcmahon.qal.berkeley.edu>
global @INC vs. extra @INC <bseib@purdue.edu>
Re: global @INC vs. extra @INC <tchrist@mox.perl.com>
Re: How to embed external ads (Tim Herzog)
Re: How to embed external ads <tchrist@mox.perl.com>
Re: JPL: JNI Panic on 3rd call returning String[] <bwymans@home.com>
matching more than one line <winstonrp@worldnet.att.net>
NDBM -> DB Convert <yanek@cs.wm.edu>
Re: Parsing exported Access Text Files <jeff@vpservices.com>
Re: Perl as a first programming language - suitability, (Jacobson-Peregrino)
Please tell me how to do make in Win95 <kenmar@ihug.co.nz>
Re: Problematic subroutine.. (Matthew Bafford)
Weird problem with perl 5.003, Solaris 2.6 and VXFS (Rolf Petter Halle)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Apr 1999 16:03:40 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: "Dynamic Download" application with Perl5
Message-Id: <slrn7hk0nm.igh.fl_aggie@stat.fsu.edu>
On Fri, 16 Apr 1999 20:53:45 GMT, Steve Springett
<sspringett@cwe2.com>, in
<trNR2.2697$RD5.154861682@dca1-nnrp1.news.digex.net> wrote:
+ What I would like to happen is to have the option for the end user to
+ download (as a file) the contents of the BLOB.
+ I would like to stay away from creating a temporary text file for the
+ download.
+ Does any of this sound realistic and if so, I can I go about accomplishing
+ this?
Yes. You'll probably need to do this as an NPH script -- you'll have
to generate your own headers, since the server won't. I haven't done
this in a while, so go look up <url:http://www.w3.org/CGI/> for more
details.
James
------------------------------
Date: Sun, 18 Apr 1999 08:03:23 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: "mixed"-Quantifier available ?
Message-Id: <bmhcf7.jc1.ln@magna.metronet.com>
Stefan Pochmann (pochmann@gmx.de) wrote:
: Rick Delaney wrote:
: > > I'd like to have a regular expression for the following problem:
: > >
: > > It shall recognize a sequence of (unordered) tokens, but at most one
: > > of each,
: >
: > print "Matched $_\n" if
: > /([abc]{3})/ # a sequence of (unordered) tokens
: > && # but
: > $1 !~ /([abc]).*(\1)/; # at most one of each
: Thanx, but ...
[snip]
: But the main problem is, if your regex finds a sequence with your first
: matching, it's over ! As far as I know, perl will stop searching as soon
^^^^^^^^^
: as it is successfull.
You don't mean "searching", as in pattern matching.
You mean "evaluating" as in evaluating clauses in a
logical expression.
I think what you were trying to say is:
perl will stop evaluating clauses in an expression
when it can determine the value of the expression
When it can "determine the value of the expression" depends
on which logical operator is being used.
TRUE || anything
As soon as perl evaluates the first clause to TRUE, it knows
the value of the entire expression must be TRUE since TRUE
or'ed with anything is TRUE.
So "anything" never gets evaluated.
This is, I think, what you were thinking of.
: When you test the no-more-than-one rule
: afterwards, how can you tell perl to continue searching, where it has
: stopped ?
But Rick wasn't using ||, he was using &&.
FALSE && anything
As soon as perl evaluates the first clause to FALSE, it knows
the value of the entire expression must be FALSE since FALSE
and'ed with anything is FALSE.
So "anything" _does_ get evaluated when the first pattern
matches (since it returns TRUE, perl needs to keep on
evaluating to determine the value of the entire expression)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 18 Apr 1999 12:20:02 -0500
From: Ed Kubaitis <ejk@uiuc.edu>
Subject: A note about Perl overhead for socket I/O
Message-Id: <371A1442.5EA9F616@uiuc.edu>
Recently got around to thinking about updating some
ancient Perl 4 code used here since the early 90's for
opening a TCP connection. This code depended on
sys/socket.ph for the necessary socket definitions, or
(since creating a sys/socket.ph on some platforms was
much more easily said than done) on a configuration
section with hard-wired definitions.
Perl 5 "use Socket" makes the symbol definition problem
vanish, and Perl 5.004+ IO::Socket turns the exercise into
an elegant single call with three arguments.
However, discovered there is a significant difference in
perl overhead for these three methods. Basically, the more
modern the method, the higher the overhead. For some
environments, say very heavily used CGI scripts that provide
a simple gateway to services on other servers, the difference
in start-up overhead for the three methods might have a
noticeable effect on overall server performance.
At http://ejk.cso.uiuc.edu/perl-tcp/ there are three simple
perl scripts differing only in the method used to open a
TCP socket. Below are approximate CPU times for "perl -c" on
each of the three scripts on an 80 MHz RS/6000 25t and a 300
MHz Ultra 2300. (Perl 5.005_03 was used on both.)
Script- Method---- 25t- 2300-
tcp0.pl (Perl 4) 0.07 0.01+
tcp1.pl Socket 0.50 0.07
tcp2.pl IO::Socket 1.13 0.17
None of which is to say one should avoid the modern methods.
For most applications, the additional overhead would likely
never be noticed. Just pointing out something that might
represent a performance issue for some applications on some
platforms.
--------------------------
Ed Kubaitis - ejk@uiuc.edu
CCSO - University of Illinois at Urbana-Champaign
------------------------------
Date: Sun, 18 Apr 1999 10:28:03 -0500
From: therzog@knotech.com (Tim Herzog)
Subject: Re: A problem..
Message-Id: <therzog-1804991028030001@therzog-host105.dsl.visi.com>
In article <37197C75.786205D3@cooper.edu>, ulrich@cooper.edu wrote:
>Howdy..
>I was wondering if anyone could think of a way to create variables
>depending on a user inputted value.. example:
> I'm trying to create an array of arrays, the number of arrays is
>defined by the bitlength of the values in the array (so if there's an
>array, @test = (0010, 1001, 0101, 1111)), it would define four different
>arrays:
>@subtest1, @subtest2, @subtest3, @subtest4 => to stick values of @test
>within.. Then I would put all these arrays within one giant array....
>the problem I'm having is coming up with a way to code it so that the
>arrays are defined after the point.. understand what I'm saying? It's a
>problem i've encountered no matter what language I'm using, so I
>figgered, I'll search for an answer now while it's imperitive.. Any help
>would be greatly appreciated.. thanks..
Sounds like what you ultimately want is an array of arrays. Here's a stub:
@array1 = (1, 2, 3);
@array2 = qw(blue red green);
push @big, [@array1];
push @big, [@array2];
foreach $array(@big) {
foreach $element(@{$array}) {
print "$element\n";
}
}
This yields:
1
2
3
blue
red
green
Perl supports arrays of arrays, arrays of hashes, hashes of arrays, hashes
of hashes, etc. Nothing need be static length. The camel book has a lot
of useful data structure code examples in Chapter 4.
--
Tim Herzog
------------------------------
Date: Sun, 18 Apr 1999 10:50:00 -0500
From: therzog@knotech.com (Tim Herzog)
Subject: Re: Any software convert html code into perl code??
Message-Id: <therzog-1804991050010001@therzog-host105.dsl.visi.com>
In article <7fc6t0$5pv11@news1.cityu.edu.hk>, "Kevin
!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;" <austin95002887@yahoo.com>
wrote:
>Any software convert html code into perl code??
That's like trying to convert gasoline into paint. HTML is a language
used to describe page content to a web browser. Perl is a language used
to create programs that make a computer do something (hopefully) useful.
Except that perl is often used to create programs that themselves create
HTML code (that gets sent to a web browser), the two have nothing to do
with each other.
--
Tim Herzog
------------------------------
Date: Sun, 18 Apr 1999 17:35:56 GMT
From: dragons@dragons.duesouth.net (Matthew Bafford)
Subject: Re: Any software convert html code into perl code??
Message-Id: <slrn7hk4rr.ft.dragons@dragons.duesouth.net>
On Sun, 18 Apr 1999 17:02:58 +0800, Kevin !;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!;!; <austin95002887@yahoo.com>
lucked upon a computer, and thus typed in the following:
) Any software convert html code into perl code??
Didn't this just get asked a few days ago?
Yep, I thought so.
http://www.dejanews.com/[ST_rn=ps]/viewthread.xp?search=thread&AN=466681239&svcclass=dnserver&frpage=getdoc.xp
--Matthew
------------------------------
Date: Sun, 18 Apr 1999 22:25:44 +0800
From: Carfield Yim <carfield@polyu.hknet.com>
Subject: Any source of writing chat room on homepage?
Message-Id: <3719EB68.B1965A8C@polyu.hknet.com>
As title, Can I write the ICQ chat room like thing and play it at
browser?
------------------------------
Date: 18 Apr 1999 10:01:19 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Any source of writing chat room on homepage?
Message-Id: <371a01cf@cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, c8133594@comp.polyu.edu.hk writes:
:As title, Can I write the ICQ chat room like thing and play it at
:browser?
Please find the right newsgroup. This certainly isn't it.
--tom
--
"I believe OS/2 is destined to be the most important operating
system, and possibly program, of all time" - Bill Gates, Nov, 1987.
------------------------------
Date: Sun, 18 Apr 1999 09:38:10 -0700
From: Andrew Perrin <aperrin@mcmahon.qal.berkeley.edu>
Subject: Re: FAQ 3.9: Is there an IDE or Windows Perl Editor?
Message-Id: <371A0A72.2816420C@mcmahon.qal.berkeley.edu>
Just FYI, emacs for Windows can be found at
http://www.cs.washington.edu/homes/voelker/ntemacs.html
Cheers,
Andy Perrin
------------------------------
Date: 18 Apr 1999 17:02:20 GMT
From: Broc Seib <bseib@purdue.edu>
Subject: global @INC vs. extra @INC
Message-Id: <7fd36s$djh$1@mozo.cc.purdue.edu>
Keywords: @INC global systemwide
Hello,
I could not find this in the FAQ...
If we want our installation of perl to extend its @INC path
to include some extra paths systemwide, must we recompile?
If so/not, how is this set/extended?
I'm not referring to using 'use lib "/path/xyz";' in scripts. In our
case, everytime that perl executes, we want the @INC path to include
some extra non-standard paths for all of our users (this includes
crontabs and Makefiles, which make it hard/ugly to setup PERL5LIB env
vars, at least on AIX.)
Thanks,
-b
------------------------------
Date: 18 Apr 1999 11:39:35 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: global @INC vs. extra @INC
Message-Id: <371a18d7@cs.colorado.edu>
Keywords: @INC global systemwide
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Broc Seib <bseib@purdue.edu> writes:
:If we want our installation of perl to extend its @INC path
:to include some extra paths systemwide, must we recompile?
:If so/not, how is this set/extended?
That's what your site_perl directory is for. It's the place you put
local modules. Try running "perl -V" and noticing the part at the bottom
that has site set in it. We specifically set up matters so there
would be a place for system things and a place for local things.
--tom
--
"Since when did you hear people talk about writing LISP or BASIC *scripts*?
JCL and shell make command *scripts*; perl and LISP make *programs*." --me
------------------------------
Date: Sun, 18 Apr 1999 10:39:03 -0500
From: therzog@knotech.com (Tim Herzog)
Subject: Re: How to embed external ads
Message-Id: <therzog-1804991039030001@therzog-host105.dsl.visi.com>
In article <37193FA9.7D2793C@allstarboston.com>, webman
<webman@allstarboston.com> wrote:
>I want to embed banner ads in the header output of a working cgi script.
>My ads are served up by this code:
>
><A HREF="http://www.sample.com/ads/ad9999-map.cgi">
> <IMG SRC="http://www.sample.com/cgi-bin/ads/ad9999.cgi"
> BORDER=0 WIDTH=468
> HEIGHT=60></A>
>
>How can I call this code from within the first script ? Thanks from a
>cgi neophyte.
Consider this:
exec './cgi-bin/ads/ad9999.cgi';
exec terminates the current process (the perl script) and transfers to
ad9999.cgi instead. Assuming ad9999.cgi dumps the banner ad to stdout
(which it would have to do for your URL to work), this'll do. That means,
of course, that the exec call has to be the last thing your Perl script
does, because it will terminate as soon as exec is called.
You could in theory also do:
$ad = `./cgi-bin/ads/ad9999.cgi`;
print $ad;
However, I've had problems w/perl messing up the binary content of my gif,
so I chose the former approach.
--
Tim Herzog
------------------------------
Date: 18 Apr 1999 10:02:56 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How to embed external ads
Message-Id: <371a0230@cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, therzog@knotech.com (Tim Herzog) writes:
:exec terminates the current process (the perl script)
Technically speaking, the process remains as it was: same pid, same
everything. Well, almost -- only the program changes.
--tom
--
You have made an excellent hit on the UNIX.--More--
------------------------------
Date: Sun, 18 Apr 1999 15:56:26 GMT
From: Blair Wyman <bwymans@home.com>
Subject: Re: JPL: JNI Panic on 3rd call returning String[]
Message-Id: <371A009E.B7634593@home.com>
kucerar@hhmi.org wrote:
>
> Hello all who understand the workings of JPL:
Not familiar with this -- Perl interconnectivity with Java? Cool!
> "JNI Panic: JNI received a class argument that is not a class
> at Perly.main(Compiled Code)"
Indicates that a call to 'FindClass' returned zero, maybe, or
that something other than a jclass object has been passed
as an operand to Get[Static|][Method|Field]ID. Would really
have to see more of the code to make a better guess.
--
___ _ Blair Wyman bwymans@home.com
( /_) / _ ' _ Systems Programmer
_/__)_/_<_/_/_/_' In continuous operation since 1957.
_
'/ , , ,_ _/ _ Lynda Wyman bwymans@home.com
/__ \/_/ /_<_/_<_/_, "The Truth Is Out There"
_/ --------------------------------
------------------------------
Date: 18 Apr 1999 16:55:11 GMT
From: "paul winston" <winstonrp@worldnet.att.net>
Subject: matching more than one line
Message-Id: <01be89bc$26c42bc0$7a7a490c@default>
HI,
I am new at perl and I am trying to match text on a log file. The logs all
have a time date stamp followed by the fault which is one or more lines
long. I am able to match more than one line in the description area, and
this is because the line never ends. But I have not been able to match the
time date stamp and the following line. I have tried the \n,\r,\f. and
none seem to help. Here are a couple of things I have tried. If anyone
has any suggestion please let me know.
#!/usr/local/bin/perl -w
> ($file) = @ARGV;
> open(HANDLE, $file);
> while (<HANDLE>) {
> print if /((99)\n|(Event)|dependency)/msix; #99 for date stamp, Event
is #first line of text and #dependency is for 3rd line
> }
>
------------------------------
Date: Sun, 18 Apr 1999 16:18:36 GMT
From: Yanek Korff <yanek@cs.wm.edu>
Subject: NDBM -> DB Convert
Message-Id: <371A0602.1CC663C8@cs.wm.edu>
I've been running AIX 4.2 w/ Perl 5.004_03. I'm moving to a Linux 2.2.5
w/ Perl 5.004_05. I used dbmopen and dbmclose to deal with .dir and
.pag files in AIX, and now I'm using tie/untie in Linux to deal with
files with no extention (DB_File). Is there any way at all to convert
these .dir and .pag files to DB_Files that my new scripts will be able
to read? I'd hate to lose all the data.
ReplyTo: yanek@cs.wm.edu
-Yanek.
------------------------------
Date: Sun, 18 Apr 1999 10:03:37 -0700
From: Jeff Zucker <jeff@vpservices.com>
To: Pamela Goldfarb <pamelag@interlog.com>
Subject: Re: Parsing exported Access Text Files
Message-Id: <371A1069.C6E29BF5@vpservices.com>
[posted and emailed]
Pamela Goldfarb wrote:
>
> I am storing an exported access table on my web server. It is an ascii
> file with comma delimited fields and with strings enclosed with "".
> ...
> I want to create a perl script that can parse this data into an array
> of fields that can then be searched, processed, etc. and the outputted
> to a html file.
Use DBI.pm and DBD::CSV.pm. The CSV (comma separated value) module is
specifically designed to parse such files regardless of embedded
quotation marks, embedded commas, etc. I have used it to parse Access,
Filemaker, and Excel CSV files and it allows you to search and process
using SQL.
> 123, "abc", 456,
> 124, "first word then
> newline", 888,
> 125, "first word ""quoted"" end
> ,,,", 999
Well DBD::CSV could handle all of that *except* the embedded newline.
Are you sure Access is exporting an embedded newline? If it is, what is
it using as a record separator?
--
Jeff Zucker Co-coordinator, UNICEF Voices of Youth
\/ http://www.unicef.org/voy/
-<>-
/\ CTO, Virtual Production Services LLC
jeff@vpservices.com http://www.vpservices.com/jeff/
------------------------------
Date: Sun, 18 Apr 1999 12:18:36 -0400
From: james_peregrino@harvard.edu (Jacobson-Peregrino)
Subject: Re: Perl as a first programming language - suitability, good books ?
Message-Id: <1999041812183641584@nas5-13.fas.harvard.edu>
Randal L. Schwartz <merlyn@stonehenge.com> wrote:
> I've also been asked for training materials to give Perl instruction
> to non-programmers, and I face the same problem there. Some people can
> get what a variable is, almost by intuition. Others sit and stare and
> ask "why would I ever use a variable?". I wonder why these people are
> trying to learn to be programmers, but that's another story. :)
Yes, you can teach "non-programmers" how to program. However, some will
take to it quite naturally, and others find it an uphill battle just to
grasp the most fundamental concepts - like variables, like sequential
instructions.
To us (we programmers) this all seems perfectly natural. But there are
plenty of people out there who have lead successful lives who don't
think in this fashion. That's why they "sit and stare" at you.
At some point a light goes on in the minds of these students and they
realize that programming means telling the computer every single last
thing it has to do in exacting detail.
------------------------------
Date: Tue, 20 Apr 1999 01:23:37 +0800
From: Ken Mar <kenmar@ihug.co.nz>
Subject: Please tell me how to do make in Win95
Message-Id: <371B6699.7B0CCDA9@ihug.co.nz>
> Go download a win32 port of gcc. I like to use the mingw32 port personally,
> but there is also a (slow) cygnus port and a (pretty cool) dos port DJPP.
Gee I know this going to be a dumb question, but could you kindly point
me the location where I could download one? Preferably in *.zip or
something which winzip would hv no problem extracting. I found the gcc
but it's a 6+ MB whopper. Is that the correct one?
-Ken
------------------------------
Date: Sun, 18 Apr 1999 17:35:55 GMT
From: dragons@dragons.duesouth.net (Matthew Bafford)
Subject: Re: Problematic subroutine..
Message-Id: <slrn7hk4h0.ft.dragons@dragons.duesouth.net>
On Sun, 18 Apr 1999 04:15:03 GMT, ulrich@cooper.edu <ulrich@cooper.edu>
lucked upon a computer, and thus typed in the following:
[snip one function is hanging on him]
Use:
perl -d
) Matty U!
--Matthew
------------------------------
Date: Sun, 18 Apr 1999 17:16:07 GMT
From: rph@nextel.no (Rolf Petter Halle)
Subject: Weird problem with perl 5.003, Solaris 2.6 and VXFS
Message-Id: <rroS2.309$TC5.1562@news1.online.no>
Keywords: perl, Solaris, VXFS
Hi!
We're experiencing some strange problems with perl 5.003 on a
multi processor sparc running Solaris 2.6 with VXFS.
A perl script which usually finishes after about 5 user seconds, takes
15 seconds when the perl binary is some hours or days older. The
script regains speed if the binary is copied, before loosing speed
after a few more hours or days.
A slow run is like this:
# time -p ./perl script
print dill:500000500002, delta: 15
real 15.67
user 14.08
sys 0.00
which can be speeded up by copying
# cp ./perl ./perl.copy
# time -p ./perl.copy script
print dill:500000500002, delta: 4
real 4.42
user 4.20
sys 0.02
The perl binary is located on a VXFS filesystem. An identical copy on
a UFS filesystem never appears to be slow.
Both perl 5.004 and 5.005 seems to run all right, but I'm not sure if
the problem is only related to 5.003, thus I'd be grateful for any
tips or hints about what could be wrong.
A truss/strace does not indicate any differences between the two runs,
except the time.
Details about the system, perl and script are below.
Thanks.
Rolf Halle <rph@nextel.no>
* uname -a
SunOS the.host.name 5.6 Generic_105181-12 sun4u sparc SUNW,Ultra-Enterprise
* VXFS version
3.2.4 Advanced for Solaris 2.5.1 and 2.6
* First lines of device information from sysinfo
SUNW,Ultra-Enterprise
openprom is a "Open Boot PROM" device
options is a "PROM Settings"
aliases is a "PROM Device Aliases"
central0 is a "Clock Board"
fhc3 is a "FireHost Controller" Utility Bus
eeprom is a "EEPROM" device
zs0 is a "Zilog 8530" serial communications chip
zs1 is a "Zilog 8530" serial communications chip
sysboard0 is a "CPU & Memory Board"
fhc0 is a "FireHost Controller" Utility Bus
ac0 is a "Memory Controller"
simm-status0 is a "SIMM Status"
environment0 is a "Environmental Sensor"
sram0 is a "SRAM"
flashprom is a "Flash PROM"
cpu0 is a "248 MHz SUNW,UltraSPARC-II" CPU
sysboard2 is a "CPU & Memory Board"
fhc1 is a "FireHost Controller" Utility Bus
ac1 is a "Memory Controller"
simm-status1 is a "SIMM Status"
environment1 is a "Environmental Sensor"
sram1 is a "SRAM"
cpu1 is a "248 MHz SUNW,UltraSPARC-II" CPU
cpu2 is a "248 MHz SUNW,UltraSPARC-II" CPU
* perl -V
Platform:
osname=solaris, osver=2.5.1, archname=sun4-solaris
uname='sunos my.host 5.5.1 generic_103640-02 sun4u sparc sunw,ultra-1 '
hint=recommended, useposix=true, d_sigaction=define
Compiler:
cc='gcc', optimize='-O', gccversion=2.7.2.1
cppflags='-I/usr/local/include'
ccflags ='-I/usr/local/include'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
voidflags=15, castflags=0, d_casti32=define, d_castneg=define
intsize=4, alignbytes=8, usemymalloc=y, randbits=15
Linker and Libraries:
ld='gcc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
libs=-lsocket -lnsl -lgdbm -ldb -ldl -lm -lc -lcrypt
libc=/lib/libc.so, so=so
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=, ccdlflags=' '
cccdlflags='-fpic', lddlflags='-G -L/usr/local/lib'
@INC: /local/lib/perl5/sun4-solaris/5.003 /local/lib/perl5 \
/local/lib/perl5/site_perl/sun4-solaris /local/lib/perl5/site_perl .
* script contents
my $start = time();
my $dill = compute_something();
my $end = time();
my $delta = $end - $start;
print "print dill:$dill, delta: $delta\n";
sub compute_something{
my $i = 0;
my $dill = 2;
for ($i=0; $i <= 1000000; $i++){
$dill = $dill + $i;
}
return $dill;
}
* ls -l perl perl.copy
-rwxr-xr-x 1 root root 552552 Apr 16 15:36 perl*
-rwxr-xr-x 1 root root 552552 Apr 18 18:58 perl.copy*
* sum perl perl.copy
29626 1080 perl
29626 1080 perl.copy
* ldd ./perl
libsocket.so.1 => /usr/lib/libsocket.so.1
libnsl.so.1 => /usr/lib/libnsl.so.1
libgdbm.so.1 => /usr/lib/libgdbm.so.1
libdl.so.1 => /usr/lib/libdl.so.1
libm.so.1 => /usr/lib/libm.so.1
libc.so.1 => /usr/lib/libc.so.1
libmp.so.2 => /usr/lib/libmp.so.2
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 5411
**************************************
