[17361] in Perl-Users-Digest
Perl-Users Digest, Issue: 4783 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 1 09:05:28 2000
Date: Wed, 1 Nov 2000 06:05:10 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <973087509-v9-i4783@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 1 Nov 2000 Volume: 9 Number: 4783
Today's topics:
Re: "chown" of symlink instead of linked file <uri@sysarch.com>
About killing processes?? <esa.vihtonen@lut.fi>
asp (Pinchao Lu)
CGI file uploading stupot999@my-deja.com
Re: Creating a new user in FreeBSD (Martien Verbruggen)
Re: Creating a new user in FreeBSD <s_h=t-i_r@astelit.ru>
Re: cutting / parsing URLS out of a live HTML document (Tad McClellan)
Re: Do such a forum exist in language GERMAN? <Peter.Dintelmann@dresdner-bank.com>
Re: Do such a forum exist in language GERMAN? (Anno Siegel)
Re: Do such a forum exist in language GERMAN? (Marcel Grunauer)
Re: do you know why this doesn't work? (Garry Williams)
Re: Having a brain fade <bart.lateur@skynet.be>
Keeping a List of Objects (Anno Siegel)
Re: Keeping a List of Objects <jeffp@crusoe.net>
Re: Keeping a List of Objects <uri@sysarch.com>
Re: Keeping a List of Objects <rick.delaney@home.com>
Re: newbie again <vertical.reality@ntlworld.com>
Perl Question <graemeturner@blueyonder.co.uk>
Re: Perl Question (Tad McClellan)
Printing a file under Win95 <richard_hainsworth@my-deja.com>
Re: Printing a perldoc (Tad McClellan)
Re: regular expression <bart.lateur@skynet.be>
RESG Event: Large Scale Requirements Analysis, 3 Novemb venez1@my-deja.com
Re: running UNIX utilities in perl (Tad McClellan)
Re: Script calling <wyzelli@yahoo.com>
Re: Script calling (Tad McClellan)
Re: What about CGI.pm? <bart.lateur@skynet.be>
Re: What about CGI.pm? <flavell@mail.cern.ch>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 01 Nov 2000 13:36:17 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: "chown" of symlink instead of linked file
Message-Id: <x7aebjizl9.fsf@home.sysarch.com>
>>>>> "MV" == Martien Verbruggen <mgjv@tradingpost.com.au> writes:
MV> I just checked this, because I seemed to recall GNU chown does support
MV> -h. The manual page on GNU/Linux does mention this option, and it
MV> actually also works.
MV> Are you maybe using an old version?
yeah, a little old. i need to upgrade my gnu stuff.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Wed, 1 Nov 2000 13:50:01 +0200
From: "Esa Vihtonen" <esa.vihtonen@lut.fi>
Subject: About killing processes??
Message-Id: <8tp08e$t2d$1@juuri.cc.lut.fi>
Ok - here´s the deal.
I want to run a c-program which will be started using perl script. What
would be the easiest way for controlling the time that c-program has been
running and how to kill it if running time gets too long (for example the
c-program has got into neverending loop)?
I´ve never been part of these newsgroups but if someone could help me with
the problem, i´d be very happy =)
Esa Vihtonen - student@ University of Lappeenranta ( Finland :)
------------------------------
Date: 1 Nov 2000 10:54:01 GMT
From: pl8f@cs.virginia.edu (Pinchao Lu)
Subject: asp
Message-Id: <8toso9$95u$1@murdoch.acc.Virginia.EDU>
------------------------------
Date: Wed, 01 Nov 2000 11:30:28 GMT
From: stupot999@my-deja.com
Subject: CGI file uploading
Message-Id: <8tousl$l07$1@nnrp1.deja.com>
i am trying to find out how to use cgi to allow
people to upload files to my server. i have made
the neccessary html page all i need toknow is how
to get it to be uploaded.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 1 Nov 2000 22:09:33 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Creating a new user in FreeBSD
Message-Id: <slrn8vvufd.ac5.mgjv@martien.heliotrope.home>
On Wed, 01 Nov 2000 12:59:49 +0300,
Shtirlitz <s_h=t-i_r@astelit.ru> wrote:
> Hello!
>
> How can I create new uaser account under FreeBSD?
You use the tools that FreeBSD provides for that. To find out which ones
they are, ask on a FreeBSD group, read the manual pages, or visit
www.freebsd.org. You do not do this with Perl.
Martien
--
Martien Verbruggen |
Interactive Media Division | If at first you don't succeed, try
Commercial Dynamics Pty. Ltd. | again. Then quit; there's no use
NSW, Australia | being a damn fool about it.
------------------------------
Date: Wed, 01 Nov 2000 15:12:44 +0300
From: Shtirlitz <s_h=t-i_r@astelit.ru>
Subject: Re: Creating a new user in FreeBSD
Message-Id: <f3200tsd73p4dbu576c6vek2gpaabli2ls@4ax.com>
On Wed, 1 Nov 2000 22:09:33 +1100, mgjv@tradingpost.com.au (Martien
Verbruggen) wrote:
>On Wed, 01 Nov 2000 12:59:49 +0300,
> Shtirlitz <s_h=t-i_r@astelit.ru> wrote:
>> Hello!
>>
>> How can I create new uaser account under FreeBSD?
>
>You use the tools that FreeBSD provides for that. To find out which ones
>they are, ask on a FreeBSD group, read the manual pages, or visit
>www.freebsd.org. You do not do this with Perl.
So, I need to run an external FreeBSD util ( adduser ) ?
>
>Martien
------------------------------
Date: Wed, 1 Nov 2000 07:38:07 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: cutting / parsing URLS out of a live HTML document
Message-Id: <slrn9003lf.a5b.tadmc@magna.metronet.com>
On Tue, 31 Oct 2000 23:27:53 +0100, Maarten <maartenh@usa.net> wrote:
>>
>> print "$1 \n" if ($stuff =~ /"(http.*)">/i);
>
>Hey Chris,
>
>Thanks a lot for your reply, but it's still not working.
>tried this one:
>---------
>use LWP::Simple;
>$stuff= get('http://www.hartsuijker.com/2000egypt_ses_index.html');
>open STUFF, $stuff;
>while (<STUFF>) {
>print "$1 \n" if ($_ =~ /"(http.*)">/i);
>}
>--------
>but no cigar :-(
You have multiple problems, the largest problem appears to be
confusion about the distinction between a filename and data.
If you had checked the return value from the open() you would
have gotten a hint about what you are doing wrong.
You should always, yes *always*, check the return value from open():
open STUFF, $stuff or die "could not open '$stuff' $!";
That is likely to make boatloads of output.
The second argument to open() is a filename. Do you have a
filename in the $stuff variable? No. You have the _contents_
of a web page (data) in $stuff.
You are trying to open a file with a ridiculously long name like
<HTML><BODY><P>Hello World</P></BODY></HTML>
That is, you are using the _entire contents_ of the web page
as if it was simply a filename.
You *already have* the data you need from the get(). You do
not need any file I/O at all!
use LWP::Simple;
$stuff= get('http://www.hartsuijker.com/2000egypt_ses_index.html');
print "$1 \n" if ($stuff =~ /"(http.*)">/i);
But that only finds the first one. To find all of them:
print "$1 \n" while $stuff =~ /"(http.*)">/ig;
^^^^^ ^
^^^^^ ^
Or, if you want to process the web page a-line-at-a-time
for some reason, break it up into lines:
while ( $stuff =~ /(.*\n)/g ) {
my $line = $1;
print "$1 \n" while $line =~ /"(http.*)">/ig;
}
You have yet another problem. Your pattern match will not
do the Right Thing with:
# one big "line"
$stuff = '<a href="http://www.perl.com">Perl</a>'
. ' <a href="http://www.perl.org">Perl Mongers</a>';
.* is greedy and matches as much as it can, which is too much for
your application.
I suggest you change it to:
print "$1 \n" while $stuff =~ /"(http[^"]*)">/ig;
But then there is yet still another problem!
Your code will not do the Right Thing with this perfectly legal HTML:
<a href='http://www.perl.com'>
Hopefully by now you realize that what you are trying to do is
a great deal harder than you might imagine it is.
Use a module that has already handled all of the problems.
The HTML::LinkExtor module's purpose in life is to do what
you are attempting to do. I'd just use that.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 1 Nov 2000 12:04:08 +0100
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: Do such a forum exist in language GERMAN?
Message-Id: <8totcp$nat2@intranews.bank.dresdner.net>
sly schrieb in Nachricht <39FFF7BF.59E2F767@mailto.de>...
>Do such a forum exist in language german
try de.comp.lang.perl
Peter
------------------------------
Date: 1 Nov 2000 12:06:59 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Do such a forum exist in language GERMAN?
Message-Id: <8tp113$iu9$1@lublin.zrz.tu-berlin.de>
Dr. Peter Dintelmann <Peter.Dintelmann@dresdner-bank.com> wrote in comp.lang.perl.misc:
>sly schrieb in Nachricht <39FFF7BF.59E2F767@mailto.de>...
>>Do such a forum exist in language german
>
> try de.comp.lang.perl
I haven't seen that one, but de.comp.lang.perl.misc and
de.comp.lang.perl.cgi exist.
Anno
------------------------------
Date: 1 Nov 2000 12:56:17 GMT
From: marcel@codewerk.com (Marcel Grunauer)
Subject: Re: Do such a forum exist in language GERMAN?
Message-Id: <slrn900bpl.6ld.marcel@saruman.localhost>
On Wed, 01 Nov 2000 12:00:15 +0100, sly <sly@mailto.de> wrote:
>Do such a forum exist in language german
de.comp.lang.perl.misc
de.comp.lang.perl.cgi (for CGI questions *only*)
or check with your local Perl Mongers (see www.pm.org).
Marcel
--
We are Perl. Your table will be assimilated. Your waiter will adapt to
service us. Surrender your beer. Resistance is futile.
-- London.pm strategy aka "embrace and extend" aka "mark and sweep"
------------------------------
Date: Wed, 01 Nov 2000 13:41:44 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: do you know why this doesn't work?
Message-Id: <s4VL5.39$FG.4053@eagle.america.net>
On Wed, 1 Nov 2000 13:38:16 +1100, jason <elephant@squirrelgroup.com> wrote:
>jt_2000_ky@my-deja.com wrote ..
>>I'm trying to write a simple script to check to make sure a box is up.
>>I thought the easy part would be to get the Ping module to work
>>correctly but the script below doesn't work. Any suggestions?
>...
>thus endeth the first lesson in testing functions that have command line
>equivalents
What makes you think there's a command line equivalent to the
functionality in Net::Ping? Did you read the Net::Ping manual page?
--
Garry Williams
------------------------------
Date: Wed, 01 Nov 2000 12:09:42 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Having a brain fade
Message-Id: <4j100tc1ggfajesmg2s39mhvmpjtrd50qj@4ax.com>
dottiebrooks@my-deja.com wrote:
>I need to do some work on all combinations of a variable number of
>fields. For example, if the current run has 3 variables (A, B, C), I
>need to pull input for analysis of A, AB, AC, ABC, ACB, B, BA, BC,
>BAC,... The next run could have 4 variables, for example.
This sound like a job for a binary counter. Actually, you can use an
ordinary counter, and use each bit of it as a flag, indicating if you
need to include that "variable".
sub getemall {
my @result;
for my $i (1 .. 1<<@_) {
push @result, [ map { ($i & 1<<$_)?$_[$_]:() } 0..$#_];
}
return @result;
}
print "@$_\n" foreach getemall('A', 'B', 'C', 'D');
--
Bart.
------------------------------
Date: 1 Nov 2000 13:05:03 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Keeping a List of Objects
Message-Id: <8tp4dv$j13$1@lublin.zrz.tu-berlin.de>
There are situations where all (or some) objects of a class must be
notified (updated) in case of an event. So the new() method pushes
a reference to each object on an array to have them all accessible.
We don't want the objects to collect indefinitely on the list, so the
next step is to write a DESTROY method that removes an object when it
gets out of scope. The catch is that an object *doesn't* go out of
scope as long as it is on the list, so the DESTROY method is never
called. (Well, it is called during global destruction, but that's
too late to be useful.)
Is there a general solution to this problem? The situation can't
be rare.
In my particular case, I can work around it by not storing the
complete object but only a component that needs to be updated.
What if you need all of the object for an update? Build a dummy
structure that contains references to all the object data but isn't
the object itself? This looks very unattractive.
Anno
------------------------------
Date: Wed, 1 Nov 2000 08:33:02 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Keeping a List of Objects
Message-Id: <Pine.GSO.4.21.0011010825350.25313-100000@crusoe.crusoe.net>
[posted & mailed]
On Nov 1, Anno Siegel said:
>There are situations where all (or some) objects of a class must be
>notified (updated) in case of an event. So the new() method pushes
>a reference to each object on an array to have them all accessible.
>We don't want the objects to collect indefinitely on the list, so the
>next step is to write a DESTROY method that removes an object when it
>gets out of scope. The catch is that an object *doesn't* go out of
>scope as long as it is on the list, so the DESTROY method is never
>called. (Well, it is called during global destruction, but that's
>too late to be useful.)
>
>Is there a general solution to this problem? The situation can't
>be rare.
Are you willing to use:
package Obj;
use Devel::Peek 'SvREFCNT_dec';
my %objects;
# or my @objects
sub new {
my $self = bless ...;
$objects{$self} = $self;
# or push @objects, $self
SvREFCNT_dec($self);
return $self;
}
It's black magic, sure, but it's allowed.
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
------------------------------
Date: Wed, 01 Nov 2000 13:51:50 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Keeping a List of Objects
Message-Id: <x77l6niyvb.fsf@home.sysarch.com>
>>>>> "AS" == Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> writes:
AS> There are situations where all (or some) objects of a class must be
AS> notified (updated) in case of an event. So the new() method pushes
AS> a reference to each object on an array to have them all accessible.
AS> We don't want the objects to collect indefinitely on the list, so the
AS> next step is to write a DESTROY method that removes an object when it
AS> gets out of scope. The catch is that an object *doesn't* go out of
AS> scope as long as it is on the list, so the DESTROY method is never
AS> called. (Well, it is called during global destruction, but that's
AS> too late to be useful.)
i have a similar problem with callbacks and the objects they callback
both needing refs to each other thereby generating a cycle. i force the
use of explicit shutdown calls which break the cycles.
another solution which may work for you is to make a parent object which
owns the object which is on the list. then the parent object (which can
just be a scalar holding a ref to the real object but inheritance is an
issue then), would have its DESTROY called when it goes out of scope and
the proper delete method can be called on the real object.
also check out weak refs in 5.6. the list of objects could be made with
weak refs so they don't count in reference counting. then when the
object goes out of scope, DESTROY can delete it from list. making that
object list a hash might simplify things too.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Wed, 01 Nov 2000 13:56:04 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Keeping a List of Objects
Message-Id: <3A002400.40BFE2A2@home.com>
[posted & mailed]
Anno Siegel wrote:
>
> There are situations where all (or some) objects of a class must be
> notified (updated) in case of an event. So the new() method pushes
> a reference to each object on an array to have them all accessible.
See the section, "Weak references", in perldelta for v5.6. They are
designed specifically for this scenario. Experimental, sure, but not
quite the black magic that Jeff's suggestion is.
> Is there a general solution to this problem? The situation can't
> be rare.
Not rare, but unfortunately it has taken a while to get to even an
experimental solution. Still, if you don't try it, how will we ever
know if it works well or not. :-)
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Wed, 1 Nov 2000 13:34:48 -0000
From: "vertical.reality" <vertical.reality@ntlworld.com>
Subject: Re: newbie again
Message-Id: <S0VL5.672$5j5.13339@news6-win.server.ntlworld.com>
it OK, sorted it
Cheers
------------------------------
Date: Wed, 01 Nov 2000 12:39:04 GMT
From: "Graeme Turner" <graemeturner@blueyonder.co.uk>
Subject: Perl Question
Message-Id: <I9UL5.3$zf7.232@news1.cableinet.net>
Hello, I am at University and for my dissertation I aim to make an online
commentary system for football. I aim to have a java applet which allows the
user to update events during a game. Any events entered will be broadcast to
all people connected to the socket.
Does anyone know how to pass numerous variables into a java applet from a
perl script (I will be obtaining several values from a mysql database). Once
the Java applet has finished, how can I get values of the variables inside
the applet back into a CGI script??
There will be a lot of variables being passed into and out of the applet. It
would need to be a POST method used to send the data back out of the applet
I would really appreciate any help
Thanks
Graeme
------------------------------
Date: Wed, 1 Nov 2000 07:43:42 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Perl Question
Message-Id: <slrn9003vu.a5b.tadmc@magna.metronet.com>
On Wed, 01 Nov 2000 12:39:04 GMT, Graeme Turner
<graemeturner@blueyonder.co.uk> wrote:
> Subject: Perl Question
>I would really appreciate any help
You could greatly increase the chances of getting help if you
would put the subject of your article in the Subject header
of your article.
Your article was likely widely ignored.
When you post to clpmisc you are in competition with every other
poster, and there are lots and lots of them. (and *all* of them
have a "Perl Question")
Nobody reads all the articles posted here (there are just too many).
So they must decide somehow which ones they will read and which
ones they will skip. Most do this by looking at the Subject.
Many folks will skip an article if they cannot tell what it
is about from the Subject header.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 01 Nov 2000 13:49:09 GMT
From: Richard Hainsworth <richard_hainsworth@my-deja.com>
Subject: Printing a file under Win95
Message-Id: <8tp70h$r9t$1@nnrp1.deja.com>
Can anyone tell me how to invoke the printer interface of windows. I
want to print a data structure generated by a perl script with some
formating, eg., TrueType fonts.
All I have found so far are Graphic Display Interface (GDI) functions
accessible from the Win32API. The documentation assumes calls from a C
program.
Can anyone help?
Richard
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 31 Oct 2000 23:09:36 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Printing a perldoc
Message-Id: <slrn8vv5s0.98f.tadmc@magna.metronet.com>
On Wed, 01 Nov 2000 04:37:12 GMT, mike <mike> wrote:
>
>How can I convert perldoc DBI to a text file so I can print it?
^^^^
Type:
perldoc perldoc
and search for "text".
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 01 Nov 2000 11:35:24 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: regular expression
Message-Id: <kovvvs0lfh3hbf6i3vjhctml9mc3o8oi0l@4ax.com>
Edwin Mercado wrote:
>Is there a way to do the following in perl?
>
>$re = 'string';
>while (<>) {
> if (/value of $re/sm) { # instead of having----> if (/'string'/sm) {
> ... do something
> }
>}
This is built-in by default.
if(/$re/sm) { ... }
If $re doesn't change over the entire lifespan of the script, then you
can throw in the /o option, which makes the regex compile only the first
time it is executed. After that, changing $re no longer has any effect.
if(/$re/smo) { ... }
Be aware the the *contents* of $re must be what you would type between
the slashes, so you might need some extra backslashes when typing in the
regex.
$re = '\\d+';
/($re)/o
is pretty much the same as
/(\d+)/
--
Bart.
------------------------------
Date: Wed, 01 Nov 2000 13:30:17 GMT
From: venez1@my-deja.com
Subject: RESG Event: Large Scale Requirements Analysis, 3 November 2000, UMIST
Message-Id: <8tp5t9$qa6$1@nnrp1.deja.com>
The Requirements Engineering Specialist Group (RESG)
of the British Computer Society (BCS)
presents
"Large Scale Requirements Analysis as Heterogeneous Engineering"
Professor Kalle Lyytinen, Department of Computer Science and
Information Systems, University of Jyväskylä
RESG Event
11:00am, 3rd November 2000
Room F10, Dept of Computation
MSS Building, UMIST, Sackville Street, Manchester M60 1QD
Abstract
Large information system development initiatives continue to fail at an
alarming rate. This paper examine how to improve our understanding in
stating and managing successfully requirements for such systems. We
argue that the current concept of a system requirement is ill suited to
develop true requirements for large systems. The received concept
follows a technical rationality, which regards requirements as goals to
be discovered and solutions as separate technical elements. In
consequence, current Requirements Engineering (RE) theory separates
these issues and reduces RE to an activity where a technical solution
is documented for a given set of goals. In contrast, we advocate a view
where a requirement specifies a set of mappings between problem and
solution spaces, which both are socially constructed and negotiated.
Requirements, by nature are, emergent and need to be discovered through
a complicated and contracted process, which likens a “garbage-can”
decision-making process. Large scale system requirements thereby
embrace an emergent functional ecology of requirements. In addition, we
see all requirements specifications to be inherently political due to
the need to establish stable networks involving both social and
technical elements through successful engineering (if the network is
not stable the system fails!). This leads to equate large scale
requirements engineering with heterogeneous engineering, which has been
studied in the history of technology in relations to large evolutionary
technical systems. The admitted heterogeneity of technological activity
avoids a commitment to social (or technological) reductionism inherent
in the RE theory. Consequently requirements engineers need to be seen
as “heterogeneous engineers” who must associate successfully entities
that range from people, through skills, to artifacts and natural
phenomena. This is successful only, if the consequent socio-technical
networks are able to maintain stability in the face of the attempts of
other entities to dissociate them. Keywords: system requirements,
functional requirements, system failures, heterogeneous engineering,
politics of system development.
Kalle Lyytinen is a professor Case Western Reserve University in
Information Systems (as of 1.1.2001) and a professor at the University
of Jyväskylä, Finland. He has served on the editorial boards of several
leading IS journals including MISQ, EJIS, JSIS, Information Systems
Research, Accounting Management and Information Technologies,
Requirements Engineering Journal, and Information Systems Journal. He
is also the past Senior Editor of MISQ. He has published over 70
articles and edited or written six books. His research interests
include information system theories, system design and requirements
capture, system failures and risk assessment, computer supported
cooperative work, and diffusion of complex technologies.
Cost for registration (all prices inclusive of
VAT):
[ ] RESG Members free
[ ] Others £5
(proof of identity required with
registration)
This meeting is organised by the BCS
Requirements Engineering Specialist
Group (RESG). For more information about the
group and its activities
(including membership), please visit
http://www.resg.org.uk
Alternatively, please contact Laurence Brooks, University of York
(lsb@cs.york.ac.uk)
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 1 Nov 2000 07:47:35 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: running UNIX utilities in perl
Message-Id: <slrn900477.a5b.tadmc@magna.metronet.com>
On Wed, 01 Nov 2000 06:02:28 GMT, Chris Fedde
<cfedde@fedde.littleton.co.us> wrote:
>In article <39FFADDE.905A38E1@student.murdoch.edu.au>,
>Ryan Fraser <r.fraser@student.murdoch.edu.au> wrote:
>>How do I run a "make" for the "C" compiler command in a perl CGI script.
>>
>>Fraser
>>
>
>Who was it that was recently asking about morally questionable
>questions in this news group?
What is morally questionable in his question?
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 1 Nov 2000 22:36:51 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Script calling
Message-Id: <ZxUL5.10$kM6.2046@vic.nntp.telstra.net>
"Andy White" <apw4@mcs.le.ac.uk> wrote in message
news:39FFEEDD.B9140E1D@mcs.le.ac.uk...
> How can you get one script to call another one in perl? I'm afraid that
> all my beginners books don't answer that question!!
>
Check out the documentation on 'do', 'require' and 'use'.
Wyzelli
--
#Modified from the original by Jim Menard
for(reverse(1..100)){$s=($_==1)? '':'s';print"$_ bottle$s of beer on the
wall,\n";
print"$_ bottle$s of beer,\nTake one down, pass it around,\n";
$_--;$s=($_==1)?'':'s';print"$_ bottle$s of beer on the
wall\n\n";}print'*burp*';
------------------------------
Date: Wed, 1 Nov 2000 07:50:24 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Script calling
Message-Id: <slrn9004cg.a5b.tadmc@magna.metronet.com>
On Wed, 01 Nov 2000 10:22:21 +0000, Andy White <apw4@mcs.le.ac.uk> wrote:
>How can you get one script to call another one in perl? I'm afraid that
>all my beginners books don't answer that question!!
Though you cannot be expected to have tried the right search
term, the answer is in the Perl FAQs already installed on
your hard drive.
perldoc -q STDERR
How can I capture STDERR from an external command?
There are three basic ways of running external commands:
...
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 01 Nov 2000 11:48:44 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: What about CGI.pm?
Message-Id: <t6000togujvklgnj6ejak76rq1slotfjs2@4ax.com>
Jeff Zucker wrote:
>> *reading from disk* of the 200k source that is much of the overhead.
>
>Thanks, Bart, I wasn't sure it was actually testing what I wanted it to
>test. But may I ask how you came to your conclusion? I guess I was
>going by what perldoc -f do says:
>
> ... code evaluated with `do FILENAME' ... does reparse
> the file every time you call it, so you probably don't want to
> do this inside a loop.
It's not perl doing that, so you won't find it in in the Perl docs. But
disk caching is done by the system.
Simply run the same script, any script, a few times with the same source
file. Sometimes the script may run almost 3 times faster than the very
first time. That shows that disk reading time is not to be ignored, that
automatic disk caching can make a large difference. And that makes
making a real-world benchmark very hard.
Time::HiRes can help.
It can also mean that it may not be so bad for CGI.pm, because the
source might just be in the disk cache.
--
Bart.
------------------------------
Date: Wed, 1 Nov 2000 13:34:21 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: What about CGI.pm?
Message-Id: <Pine.GHP.4.21.0011011332090.9708-100000@hpplus03.cern.ch>
On Wed, 1 Nov 2000, Bart Lateur wrote:
> It's not perl doing that, so you won't find it in in the Perl docs. But
> disk caching is done by the system.
So, why is this a problem? If you have a server which is busy running
CGI.pm, then surely CGI.pm will be in the disk cache? If you haven't
got a busy server, then the overhead isn't a problem.
The solution is to use CGI.pm more often. [half a smiley]
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 4783
**************************************
