[12922] in Perl-Users-Digest
Perl-Users Digest, Issue: 332 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 2 10:07:15 1999
Date: Mon, 2 Aug 1999 07:05:11 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 2 Aug 1999 Volume: 9 Number: 332
Today's topics:
Re: Beginner-friendly group as cultural adaptation? (I R A Darth Aggie)
Re: binary data (I R A Darth Aggie)
changing output format <jkotvis@grip.nl>
Re: changing output format <tchrist@mox.perl.com>
Converting EDB files to LDIF format. (J.A. de Vries)
How do I access SSI on Remote Server? <kaiser@webspan.net>
Re: How do I access SSI on Remote Server? <eedalf@eed.ericsson.se>
Re: How to access only last field of a split ? (Andreas Fehr)
how to check if scalar is blank? (hoz)
Re: how to remove cr/lf ??? <eedalf@eed.ericsson.se>
Re: how to remove cr/lf ??? (Dan Wilga)
Re: Installing Perl Modules (Lou Hevly)
Re: Just Can't, Can't get Net::Telnet to work <Colin@Chaplin.sol.co.uk>
Re: Looking for a Regular Expression to do an exact mat <eedalf@eed.ericsson.se>
Looking for a Regular Expression to do an exact match c (Keith S)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Paasing Arguments to System Function (Anno Siegel)
Re: parallel output/input socket (Anno Siegel)
parallel processing in perl <achaubal@admin.tavsnet.com>
Re: passing command-line arguments to script ! <eedalf@eed.ericsson.se>
Re: passing command-line arguments to script ! (PaulK)
Re: perl code can't work (elephant)
Re: Running scrips on own pc <dturley@pobox.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Threading Tools under Windows <dthusma@home.com>
Re: why are you so harsh to this guy ? (Arved Sandstrom)
working with = sign in a directory name - please help! <tflynn@iastate.edu>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 2 Aug 1999 12:44:28 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: Beginner-friendly group as cultural adaptation?
Message-Id: <slrn7qb4pi.pju.fl_aggie@thepentagon.com>
On Mon, 02 Aug 1999 10:11:01 +0200, Philip 'Yes, that's my address'
Newton <nospam.newton@gmx.net>, in <37A55295.3324FCF3@gmx.net> wrote:
+ I R A Darth Aggie wrote:
+ >
+ > grep and perlindex are your friends.
+
+ What's perlindex?
perlindex is an add-on goodie in (according to CPAN):
Distribution ULPFR/perlindex-1.200.tar.gz
and it generates an index of installed *.pod files for key word searching.
One might have an interest in lists:
% perlindex list
1 0.572 lib/perl5/5.00503/Text/Abbrev.pm
2 0.572 lib/perl5/5.00503/pod/perldata.pod
3 0.400 lib/perl5/5.00503/Tie/Handle.pm
4 0.377 lib/perl5/5.00503/pod/perlfunc.pod
5 0.357 lib/perl5/5.00503/pod/perldsc.pod
6 0.352 lib/perl5/5.00503/pod/perlsub.pod
7 0.312 lib/perl5/5.00503/Net/hostent.pm
8 0.267 lib/perl5/5.00503/Text/ParseWords.pm
9 0.265 lib/perl5/5.00503/pod/perlop.pod
a 0.254 lib/perl5/5.00503/ExtUtils/Installed.pm
b 0.252 lib/perl5/5.00503/pod/perlfaq2.pod
c 0.229 lib/perl5/5.00503/lib.pm
d 0.220 lib/perl5/5.00503/pod/perltie.pod
e 0.214 lib/perl5/5.00503/pod/perllol.pod
f 0.214 lib/perl5/5.00503/pod/perlfaq4.pod
Enter Number or 'q'>
Gosh, it picked up the FAQ's and several of the core man pages. Then
enter the number and it will display that item. Afterwards, you can
display another, and so on.
James
------------------------------
Date: 2 Aug 1999 12:53:30 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: binary data
Message-Id: <slrn7qb5af.pju.fl_aggie@thepentagon.com>
On Mon, 02 Aug 1999 12:12:08 +0000, Giorgos Zervas <giorgos@perlfect.com>, in
<37A58B18.E86F41E4@perlfect.com> wrote:
+ Also you don't like upper case variables it seems. Well, it helps us
+ recognise the variables that are defined in the configuration file...
+ What's the problem with that?
'man perlstyle' or 'perldoc perlstyle' will give details, but the short
and skinny:
UPPERCASE for file handles, lowercase for variables. Doesn't mean you can't
have something like $Config_variable or the like.
James - why, yes, I tend towards verbose variable names...
------------------------------
Date: Mon, 2 Aug 1999 14:17:21 +0200
From: "Cistron News" <jkotvis@grip.nl>
Subject: changing output format
Message-Id: <7o44mg$lho$1@enterprise.cistron.net>
Could somebody help me with the following:
I have a webpage where the user answers a series of questions which all have
different scores. In some instances I use percentages to indicate how many
questions are answered correctly. The problem is that in several output
results the score in the end is not a whole number (such as 1, 2, 3) but a
number with the dot (like 1.0, 2.0, 3.0). This is obviously due to the usage
of the percentages.
Is there any way that I can foprce Perl to only output the whole number
(without any numbers behind the dot). In this case the actual output should
be converted for example from 2.7 to 3..
Sorry for my bad english, but I hope you know what I mean.
JK
------------------------------
Date: 2 Aug 1999 07:24:15 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: changing output format
Message-Id: <37a59bff@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
"Cistron News" <jkotvis@grip.nl> writes:
:Is there any way that I can force Perl to only output the whole number
:(without any numbers behind the dot). In this case the actual output should
:be converted for example from 2.7 to 3..
Certainly.
% man perlfaq4
...
Why am I getting long decimals (eg, 19.9499999999999)
instead of the numbers I should be getting (eg, 19.95)?
...
--tom
--
"The strongest reason for the people to retain the right to keep and bear arms
is, as a last resort, to protect themselves against tyranny in government."
- T. Jefferson
------------------------------
Date: Mon, 02 Aug 1999 12:42:04 GMT
From: hdv@oli.tudelft.nl (J.A. de Vries)
Subject: Converting EDB files to LDIF format.
Message-Id: <37a59011.19528891@news.tudelft.nl>
Hi out there,
I am in the process of migrating from a Quipu (X.500) based Directory
Server to a LDAP server. For this I need to export the data in the
current Directory Information Tree (in EDB format) to a LDIF file. I
have found an edb2ldif program that comes with the slapd server.
However I want to make some changes and I am a lot more comfortable
with Perl. So I would like to ask if someone has already written such
a beast that could export my EDB files to LDIF. I couldn't find it on
CPAN, maybe someone can point me in the right direction?
Thanks a lot!
Grx HdV
------------------------------
Date: Mon, 2 Aug 1999 08:36:41 -0400
From: "Somebody..." <kaiser@webspan.net>
Subject: How do I access SSI on Remote Server?
Message-Id: <rqb49c3ldapcq6@corp.supernews.com>
I have been pulling my hair out over the past few days, all because of this
SSI thing with CGI? Here's the problem....I want a page to load, and parts
of the code in the page to change depending on certain things, which the CGI
script would test for. I have to do this through SSI....which my server
supports. Anyway, I have the page located on one server, and the CGI script
located on another server, which is where the problem comes in. On the page
I typed this in:
<!--#exec cgi="http://www.something.com/cgi.pl"-->
And the cgi script is made up of this:
#!/usr/local/bin/perl
print "Content-Type: text/html\n\n";
print "2";
When I run this, on the page I get back:
[an error occurred while processing this directive]
I first thought that maybe my server didn't support SSI, but when I put the
page on the same server as the script, and change the code to this:
<!--#exec cgi="/cgi.pl"-->
Everything works fine. But when I have to access that script outside the
server, and on another server, I get an error? Is there anyway to access a
script using SSI from another server?
Thanks,
kaiser@webspan.net
------------------------------
Date: Mon, 02 Aug 1999 15:23:33 +0200
From: Alex Farber <eedalf@eed.ericsson.se>
To: "Somebody..." <kaiser@webspan.net>
Subject: Re: How do I access SSI on Remote Server?
Message-Id: <37A59BD5.1C3419D0@eed.ericsson.se>
Hi,
"Somebody..." wrote:
> <!--#exec cgi="http://www.something.com/cgi.pl"-->
>
> Everything works fine. But when I have to access that script outside the
> server, and on another server, I get an error? Is there anyway to access a
> script using SSI from another server?
I think not.
Regards
Alex
--
Ich studiere Elektrotechnik (Technische Informatik) an der RWTH Aachen
und bin ein guter Perl-Programmierer (arbeite seit 4 Jahren als Intranet-
Entwickler). Kann auch C, Java, SQL, JavaScript und HTML, CGI und TCP/IP.
Ich suche eine gut bezahlte Diplomstelle in Aachen, Koeln oder Umgebung.
------------------------------
Date: Mon, 02 Aug 1999 11:13:30 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: How to access only last field of a split ?
Message-Id: <37a57d19.21118947@news.uniplus.ch>
On Mon, 02 Aug 1999 10:31:28 +0100, Mark <Mark@Mark.Com> wrote:
>Try:
>$line = "word.10.word.20.30.40.50";
>$scalar = ( reverse split '.',$line)[0]; # last element of split line
>
>
Sorry, does not work for me, I got:
Use of uninitialized value at C:\TEMP\bla11.plx line 17.
Did you try it?
Andreas
------------------------------
Date: Mon, 02 Aug 1999 21:56:07 GMT
From: hoz@rocketmail.com (hoz)
Subject: how to check if scalar is blank?
Message-Id: <37a61329.330820223@news.netvision.net.il>
seems trivial but wondering how to check if a scalar is blank, i.e.
has no value....this is what I have so far...
--8<---
sub is_blank {
local($var) = @_;
if ($var eq "") {
print "$var string is blank\n"; #debug
}
if ($var eq "0") {
print "$var is zero\n"; #debug
}
if (!defined $var) {
print "$! $filename: the variable $var is undefined\n";
}
}
Does this covers all cases?
-hoz
------------------------------
Date: Mon, 02 Aug 1999 15:00:02 +0200
From: Alex Farber <eedalf@eed.ericsson.se>
To: Ming Hubert <hubert.ming@iggi.lu.ch>
Subject: Re: how to remove cr/lf ???
Message-Id: <37A59652.B7E0A52C@eed.ericsson.se>
Hi Hubert,
Ming Hubert wrote:
> user-input-field1
> user-input-field2
> user-input-field3
> ........
> so all the entries have cr/lf. i'd like them to have in the file separated
> by ";" ex:
> user-input-field1;user-input-field2;user-input-field3;user........
>
> my print-command for the file looks like this:
>
> print FILETO $outbuffer;
>
> how can i eliminate the cr/lf and replace it by a separator ??
maybe
$outbuffer =~ s /\r?\n/;/;
Rgeards
Alex
--
Ich studiere Elektrotechnik (Technische Informatik) an der RWTH Aachen
und bin ein guter Perl-Programmierer (arbeite seit 4 Jahren als Intranet-
Entwickler). Kann auch C, Java, SQL, JavaScript und HTML, CGI und TCP/IP.
Ich suche eine gut bezahlte Diplomstelle in Aachen, Koeln oder Umgebung.
------------------------------
Date: Mon, 02 Aug 1999 09:26:20 -0400
From: dwilgaREMOVE@mtholyoke.edu (Dan Wilga)
Subject: Re: how to remove cr/lf ???
Message-Id: <dwilgaREMOVE-0208990926210001@wilga.mtholyoke.edu>
In article <7o3moo$fgt$1@pollux.ip-plus.net>, "Ming Hubert"
<hubert.ming@iggi.lu.ch> wrote:
> hello perl-gurus
> simpel question: a perl-script writes the content of form-fields in a file
> and the entries look like this:
>
> user-input-field1
> user-input-field2
> user-input-field3
> ........
> so all the entries have cr/lf. i'd like them to have in the file separated
> by ";" ex:
> user-input-field1;user-input-field2;user-input-field3;user........
>
> my print-command for the file looks like this:
>
> print FILETO $outbuffer;
>
$outbuffer =~ s/\n/;/g;
print FILETO $outbuffer;
(This assumes your machine treats \n as CR-LF. This is the case if you're
on a PC.)
Dan Wilga dwilgaREMOVE@mtholyoke.edu
** Remove the REMOVE in my address address to reply reply **
------------------------------
Date: Mon, 02 Aug 1999 11:51:03 GMT
From: lou@visca.com (Lou Hevly)
Subject: Re: Installing Perl Modules
Message-Id: <37a585cd.7848086@spamkiller.newsfeeds.com>
fl_aggie@thepentagon.com (I R A Darth Aggie) wrote:
>On Sun, 1 Aug 1999 04:24:18 +1000, Kim Saunders <kims@emmerce.com.au>, in
><933445484.397360@draal.apex.net.au> wrote:
>
>+ Is there any way that I can tell it where I want them? (like in home dir if
>+ you don't have root access), other than manually copying them to the right
>+ place?
>
>perlfaq8: How do I install a CPAN module?
>perlfaq8: How do I keep my own module/library directory?
>perlfaq8: How do I add the directory my program lives in to the
> module/library search path?
I find "perlfaq8: How do I keep my own module/library directory?" to
be a bit at variance with my experience.
I don't have root access, but I can use Telnet. Therefore, to install
the CPAN module in my own directory, following the FAQ, I did:
CPAN-1.47$ perl Makefile.PL PREFIX=/www/visca/cgi-bin/lib
Then, after 'make' and 'make test':
CPAN-1.47$ make install
Installing /www/visca/cgi-bin/lib/lib/perl5/./CPAN/FirstTime.pm
^^^^^^^^^^^^
...etc.
'/www/visca/cgi-bin/lib/lib/perl5/' isn't where I wanted the modules
installed. So I read the Makemaker docs and tried LIB rather than
PREFIX:
CPAN-1.47$ perl Makefile.PL LIB=/www/visca/cgi-bin/lib
This resulted in:
Installing /www/visca/cgi-bin/lib/./CPAN/FirstTime.pm
...etc.
Which is what I wanted. My pages are hosted on Linux 2.0.
--
Lou Hevly (JAPHW)
lou@visca.com
http://www.visca.com
------------------------------
Date: Mon, 2 Aug 1999 12:22:08 +0100
From: "Colin Chaplin" <Colin@Chaplin.sol.co.uk>
Subject: Re: Just Can't, Can't get Net::Telnet to work
Message-Id: <7o3v5o$ple$1@phys-ma.sol.co.uk>
> > Just about. The command prompt is set to
> > ()
>
> Your command prompt is '()'? What an odd choice.
> Brackets in a regexp are special. If your command prompt really is
> '()', then you should do something like:
doh ! But I have had it set to different things,eg prompt and made sure I
got the space in etc.
> I hate to say this, but, it works fine for me. Almost unmodified,
> except for the odd prompt that you decided to use.
>
Hum. Maybe it is my setup, somebody said Perl on redhat 5.2 may be iffy.
>
> I probably wouldn't use a telnet for this, but a rsh. I would probably
> not write a perl program to do this, but a tiny shell script.
>
Well, to cut a long story short, I used expect, which was quite happy with
any odd prompt :)
------------------------------
Date: Mon, 02 Aug 1999 15:13:32 +0200
From: Alex Farber <eedalf@eed.ericsson.se>
To: Keith S <salomon@imds.com>
Subject: Re: Looking for a Regular Expression to do an exact match case indepenent
Message-Id: <37A5997C.CE9D16BB@eed.ericsson.se>
Hi Keith,
Keith S wrote:
> Does anyone know how "regular expression" that matches either upper or
> lower case letter strings and does not use the "/i" option ???
/[a-zA-Z]/
Regards
Alex
--
Ich studiere Elektrotechnik (Technische Informatik) an der RWTH Aachen
und bin ein guter Perl-Programmierer (arbeite seit 4 Jahren als Intranet-
Entwickler). Kann auch C, Java, SQL, JavaScript und HTML, CGI und TCP/IP.
Ich suche eine gut bezahlte Diplomstelle in Aachen, Koeln oder Umgebung.
------------------------------
Date: Mon, 02 Aug 1999 13:08:49 GMT
From: salomon@imds.com (Keith S)
Subject: Looking for a Regular Expression to do an exact match case indepenent
Message-Id: <ZMgp3.263$mE1.2161@news3.mia>
I'd like a "regular expression" that matches either upper or
lower case letter.
I'm using the "Regular Expression" that are provided in Mysql Database engine.
It does not support the /i "case insensitive" option.
So this does not work>
$teststring =~ m/computer administration/i;
Does anyone know how "regular expression" that matches either upper or
lower case letter strings and does not use the "/i" option ???
Thanks for any help
Keith Salomon
------------------------------
Date: 2 Aug 1999 13:42:08 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7o477g$f57$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 26 Jul 1999 13:52:08 GMT and ending at
02 Aug 1999 07:29:21 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 221 (46.5% of all posters)
Articles: 344 (20.6% of all articles)
Volume generated: 559.7 kb (19.1% of total volume)
- headers: 260.9 kb (5,315 lines)
- bodies: 293.2 kb (10,141 lines)
- original: 209.7 kb (7,641 lines)
- signatures: 5.3 kb (154 lines)
Original Content Rating: 0.715
Averages
========
Posts per poster: 1.6
median: 1 post
mode: 1 post - 154 posters
s: 1.3 posts
Message size: 1666.1 bytes
- header: 776.7 bytes (15.5 lines)
- body: 872.7 bytes (29.5 lines)
- original: 624.1 bytes (22.2 lines)
- signature: 15.7 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
10 16.4 ( 8.0/ 7.1/ 5.2) llornkcor <llornkcor@llornkcor.com>
10 17.7 ( 7.8/ 9.9/ 5.7) makarand_kulkarni@my-deja.com
6 10.9 ( 4.5/ 6.4/ 3.5) vlad@doom.net
5 10.3 ( 4.7/ 5.6/ 2.2) Paul Christopher Reid <paulreid@cableinet.co.uk>
5 9.7 ( 5.0/ 4.7/ 1.8) Kin Lum <kin@0011.com>
5 9.0 ( 4.2/ 4.7/ 1.9) "Paolo" <prinspaul@NOSPAM!hotmail.com>
4 7.1 ( 3.0/ 4.1/ 1.2) Adrian Duncan <Adrian.Duncan@trinite.co.uk>
4 4.6 ( 3.0/ 1.6/ 0.8) John Imrie <jimrie@guideguide.com>
4 8.9 ( 3.8/ 5.1/ 3.7) Niek Slatius <nslatius@dds.nl>
4 5.3 ( 2.7/ 2.6/ 0.9) Mark <Mark@Mark.Com>
These posters accounted for 3.4% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
17.7 ( 7.8/ 9.9/ 5.7) 10 makarand_kulkarni@my-deja.com
16.4 ( 8.0/ 7.1/ 5.2) 10 llornkcor <llornkcor@llornkcor.com>
10.9 ( 4.5/ 6.4/ 3.5) 6 vlad@doom.net
10.3 ( 4.7/ 5.6/ 2.2) 5 Paul Christopher Reid <paulreid@cableinet.co.uk>
10.2 ( 2.6/ 7.6/ 6.3) 3 mwang@mindspring.com (Michael Wang)
9.7 ( 5.0/ 4.7/ 1.8) 5 Kin Lum <kin@0011.com>
9.0 ( 4.2/ 4.7/ 1.9) 5 "Paolo" <prinspaul@NOSPAM!hotmail.com>
8.9 ( 3.8/ 5.1/ 3.7) 4 Niek Slatius <nslatius@dds.nl>
8.6 ( 3.2/ 4.8/ 1.8) 4 llornkcor <llornkcor@earthlink.net>
7.9 ( 0.7/ 7.2/ 7.2) 1 GEOFFREY HALLIWELL <GEOFFREY.HALLIWELL@Sun.COM>
These posters accounted for 3.7% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 0.7 / 0.7) 3 "Tom Beauchamp" <acafounder@crosswinds.net>
1.000 ( 1.2 / 1.2) 3 marcza@my-deja.com
1.000 ( 0.6 / 0.6) 3 "dcw" <worenklein@iname.com>
1.000 ( 1.3 / 1.3) 3 ryan7879@my-deja.com
0.992 ( 2.5 / 2.6) 3 "meteorman" <twade@nobmispam.net>
0.911 ( 4.5 / 4.9) 3 "Jan Creemers" <softwareconnection@compuserve.com>
0.858 ( 3.8 / 4.4) 3 Hal Mounce <hal_mounce@amdahl.com>
0.839 ( 6.3 / 7.6) 3 mwang@mindspring.com (Michael Wang)
0.744 ( 1.5 / 2.0) 3 mike@zelea.com (Michael Allan)
0.731 ( 5.2 / 7.1) 10 llornkcor <llornkcor@llornkcor.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.479 ( 0.8 / 1.6) 4 John Imrie <jimrie@guideguide.com>
0.463 ( 1.9 / 4.2) 3 Henrik Gemal <gemal@dk.net>
0.397 ( 2.2 / 5.6) 5 Paul Christopher Reid <paulreid@cableinet.co.uk>
0.392 ( 1.9 / 4.7) 5 "Paolo" <prinspaul@NOSPAM!hotmail.com>
0.372 ( 1.8 / 4.7) 5 Kin Lum <kin@0011.com>
0.369 ( 1.8 / 4.8) 4 llornkcor <llornkcor@earthlink.net>
0.331 ( 0.9 / 2.6) 4 Mark <Mark@Mark.Com>
0.298 ( 1.2 / 4.1) 4 Adrian Duncan <Adrian.Duncan@trinite.co.uk>
0.246 ( 0.7 / 3.0) 3 "Sébastien BEAUGRAND" <beaugrand@activebaseconcept.com>
0.225 ( 0.4 / 1.8) 3 Matt <mattk@cybersurf.net>
27 posters (12%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
7 "Sébastien BEAUGRAND" <beaugrand@activebaseconcept.com>
6 Kin Lum <kin@0011.com>
6 bernie <b.schindlholzer@tirol.com>
2 "Matthew Guy" <newsreply@mpguy.freeserve.co.uk>
2 Ilya <ilya@speakeasy.org>
2 mwang@mindspring.com (Michael Wang)
2 "Otis Nettles" <otis.nettles@intel.com>
1 damercer@mmm.com (Dan Mercer)
1 donn@u.washington.edu (Donn Cave)
1 elflord@news.newsguy.com (Donovan Rebbechi)
------------------------------
Date: 2 Aug 1999 11:33:13 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Paasing Arguments to System Function
Message-Id: <7o3vlp$7oc$1@lublin.zrz.tu-berlin.de>
PaulK <paul@vdkamer.nl> wrote in comp.lang.perl.misc:
>The script query1.cgi uses param(FileNaam) to read the command-line
>argument.
>i do not know if this is cargo-cult ? whatever that means.
>Please any working example can help.
>
>On 1 Aug 1999 22:31:35 GMT, ebohlman@netcom.com (Eric Bohlman) wrote:
>
>>paul (paul@balans.net) wrote:
[...]
Please do us all a favor and place your reply below the quoted text.
Thank you.
Anno
------------------------------
Date: 2 Aug 1999 13:27:46 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: parallel output/input socket
Message-Id: <7o46ci$7t6$1@lublin.zrz.tu-berlin.de>
YMS <yms5000@yahoo.com> wrote in comp.lang.perl.misc:
>
>Hi experts,
>
>I have read the IO::Select manpage and FAQ about IO as well. But i still
>failed in the code such that:
>
>.continuously get the message from the socket
>.send message from STDIN to the socket if any line in STDIN
>
>Any demo code? My OS is NT4.0 and running ActivePerl.
Please state what you have tried and in which way it failed. Otherwise
the answer to your question is trivial. Sockets are filehandles like
other filehandles. Well, they behave more like a terminal than a disk
file, but the program logic is exactly the same.
So, to "continually" get the messages from a socket:
while( my $msg = <SOCKIN> ) {
# do something with $msg
}
close( SOCKIN);
To copy STDIN to a socket:
while( my $line = <STDIN> ) {
print SOCKOUT $line
}
close( SOCKOUT);
For the second example, if STDIN comes from a terminal, to terminate
the interaction the user must type whatever character represents eof
on your system, ^Z, I think (^D on unix, usually).
Anno
------------------------------
Date: Mon, 2 Aug 1999 09:26:41 -0400
From: "Ameet Chaubal" <achaubal@admin.tavsnet.com>
Subject: parallel processing in perl
Message-Id: <7o45lv$6kt$1@frontier2.tavsnet.com>
Hi all
I have a perl script that fetches data from an Oracle database in flat
files.
There are about 200 tables that it recieves data from. .
The processing is done in serial manner, one table after another.So it takes
a long time to complete.
What is the best way to do this in parallel. i.e. 5 to 10 tables at a time.
All the tables are independent of each
other, so there is no problem about order.
Thanks
Ameet Chaubal
------------------------------
Date: Mon, 02 Aug 1999 15:12:10 +0200
From: Alex Farber <eedalf@eed.ericsson.se>
To: PaulK <paul@vdkamer.nl>
Subject: Re: passing command-line arguments to script !
Message-Id: <37A5992A.7D7C3731@eed.ericsson.se>
Hi Paul,
PaulK wrote:
> $test = 'perl \\query\\query1.cgi';
you probably should use single backslashes here.
> $uitkomst = `$test "FileNaam=test.txt"`;
>
> the FileNaam parameter is not filled.
Are you sure?
> When i try to do it the correct way :
> $uitkomst=system("perl","\\query\\query1.cgi","FileNaam=test.txt);
Try using full path to the perl interpreter.
Regards
Alex
--
Ich studiere Elektrotechnik (Technische Informatik) an der RWTH Aachen
und bin ein guter Perl-Programmierer (arbeite seit 4 Jahren als Intranet-
Entwickler). Kann auch C, Java, SQL, JavaScript und HTML, CGI und TCP/IP.
Ich suche eine gut bezahlte Diplomstelle in Aachen, Koeln oder Umgebung.
------------------------------
Date: Mon, 02 Aug 1999 13:13:45 GMT
From: paul@vdkamer.nl (PaulK)
Subject: Re: passing command-line arguments to script !
Message-Id: <37a5991e.27167189@news.wxs.nl>
On Mon, 02 Aug 1999 15:12:10 +0200, Alex Farber
<eedalf@eed.ericsson.se> wrote:
>Hi Paul,
>
>PaulK wrote:
>> $test = 'perl \\query\\query1.cgi';
>
>you probably should use single backslashes here.
>
>> $uitkomst = `$test "FileNaam=test.txt"`;
>>
>> the FileNaam parameter is not filled.
>
>Are you sure?
>
>> When i try to do it the correct way :
>> $uitkomst=system("perl","\\query\\query1.cgi","FileNaam=test.txt);
>
>Try using full path to the perl interpreter.
>
Yep i'm sure. Note that i'm using Active Perl on WinNT.
The script query1.cgi is testing on the variable FileNaam. When it
isn't filled the script will generate an error ! So i'm sure that the
variable is not filled.
------------------------------
Date: Mon, 2 Aug 1999 23:09:42 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: perl code can't work
Message-Id: <MPG.121043a4957a1af989bb0@news-server>
Floyd Morrissette writes ..
>In article <37a5150b.3087082@nntp.jaring.my>,
> keecm@pc.jaring.my wrote:
>> I am beginner in Perl language, please don't mind if my question is
>> stupid.
--
>> Ii use ie4 to view the html file, when i click the GO button, it just
>> shows the source code of the test.pl file, like ....
>
>First you have to put something like #!c:/perl/bin/perl.exe to tell the
>script where perl is located on your computer. And you have to have a
>web server running on your computer.
oh god Floyd .. if you don't know the answer then don't try to help ..
Windows machines don't know about the shebang construct - they use file
associations to run perl script
I'm not seeing the original message yet .. but to whomever it was that
asked - 'keecm' ..
assuming that you have ActiveState perl installed the association will
already be there for non-web based scripts
but to get a CGI script working you need to have the script running via a
proper web server .. Personal Web Server from Microsoft will apparently
do this (I have not tried and so cannot be definite - but I believe the
people who say that they have it working on that)
you should go to Microsoft's site .. it's free .. it may also be called
Option Pack 4.0 .. download it and install it .. and then see the
perlwin32faq6 (Web Server Config) document in the ActiveState
documentation on how to configure the web server to run perl scripts
the knowledge base article mentioned in that FAQ is out of date .. you
should see this one instead
http://support.microsoft.com/support/kb/articles/Q150/6/29.asp
--
jason - remove all hyphens for email reply -
------------------------------
Date: Mon, 02 Aug 1999 11:41:18 GMT
From: David Turley <dturley@pobox.com>
Subject: Re: Running scrips on own pc
Message-Id: <7o404t$esc$1@nnrp1.deja.com>
In article <37A4C3C8.79E011F5@cableinet.co.uk>,
Paul Christopher Reid <paulreid@cableinet.co.uk> wrote:
> When i try to run a script on my pc I get a message box asking if I
want
> to save or open the file. Is there something I can do so that the
script
> executes?
http://www.binary.net/dturley/cgi_testing.html
--
David Turley
dturley@pobox.com
http://www.binary.net/dturley
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 2 Aug 1999 13:42:08 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7o477g$f57$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 26 Jul 1999 13:52:08 GMT and ending at
02 Aug 1999 07:29:21 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 475
Articles: 1671 (688 with cutlined signatures)
Threads: 390
Volume generated: 2936.2 kb
- headers: 1300.4 kb (25,792 lines)
- bodies: 1501.7 kb (47,770 lines)
- original: 1029.7 kb (35,363 lines)
- signatures: 132.5 kb (2,678 lines)
Original Content Rating: 0.686
Averages
========
Posts per poster: 3.5
median: 1 post
mode: 1 post - 278 posters
s: 8.9 posts
Posts per thread: 4.3
median: 3.0 posts
mode: 2 posts - 92 threads
s: 6.2 posts
Message size: 1799.4 bytes
- header: 796.9 bytes (15.4 lines)
- body: 920.3 bytes (28.6 lines)
- original: 631.0 bytes (21.2 lines)
- signature: 81.2 bytes (1.6 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
90 217.7 (101.8/ 75.7/ 71.2) abigail@delanet.com
75 149.2 ( 60.8/ 79.7/ 48.4) David Cassell <cassell@mail.cor.epa.gov>
66 114.9 ( 42.3/ 65.0/ 40.0) lr@hpl.hp.com (Larry Rosler)
65 105.5 ( 43.5/ 61.9/ 28.0) anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
65 174.4 ( 54.5/112.6/100.1) tchrist@mox.perl.com (Tom Christiansen)
58 127.4 ( 52.0/ 53.5/ 23.3) Uri Guttman <uri@sysarch.com>
58 96.4 ( 35.8/ 60.6/ 42.0) tadmc@metronet.com (Tad McClellan)
31 43.2 ( 22.1/ 21.1/ 19.6) fl_aggie@thepentagon.com
31 46.4 ( 24.6/ 16.7/ 7.6) Jonathan Stowe <gellyfish@gellyfish.com>
31 41.8 ( 26.2/ 15.6/ 10.6) bart.lateur@skynet.be (Bart Lateur)
These posters accounted for 34.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
217.7 (101.8/ 75.7/ 71.2) 90 abigail@delanet.com
174.4 ( 54.5/112.6/100.1) 65 tchrist@mox.perl.com (Tom Christiansen)
149.2 ( 60.8/ 79.7/ 48.4) 75 David Cassell <cassell@mail.cor.epa.gov>
127.4 ( 52.0/ 53.5/ 23.3) 58 Uri Guttman <uri@sysarch.com>
114.9 ( 42.3/ 65.0/ 40.0) 66 lr@hpl.hp.com (Larry Rosler)
105.5 ( 43.5/ 61.9/ 28.0) 65 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
96.4 ( 35.8/ 60.6/ 42.0) 58 tadmc@metronet.com (Tad McClellan)
53.4 ( 25.8/ 23.1/ 11.9) 29 brian@pm.org (brian d foy)
50.9 ( 19.6/ 26.3/ 18.9) 24 mgjv@comdyn.com.au (Martien Verbruggen)
46.4 ( 24.6/ 16.7/ 7.6) 31 Jonathan Stowe <gellyfish@gellyfish.com>
These posters accounted for 38.7% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.2 / 1.2) 5 ryanngi@hotmail.com (Ryan Ngi)
1.000 ( 5.2 / 5.2) 9 "Richard Garside" <richard.garside@zen.co.uk>
0.940 ( 71.2 / 75.7) 90 abigail@delanet.com
0.930 ( 19.6 / 21.1) 31 fl_aggie@thepentagon.com
0.895 ( 20.0 / 22.3) 15 Greg Bacon <gbacon@cs.uah.edu>
0.895 ( 4.0 / 4.5) 6 rurban@sbox.tu-graz.ac.at
0.889 (100.1 /112.6) 65 tchrist@mox.perl.com (Tom Christiansen)
0.885 ( 8.3 / 9.4) 9 John Callender <jbc@shell2.la.best.com>
0.824 ( 3.2 / 3.9) 6 japhy@pobox.com
0.764 ( 6.7 / 8.8) 8 mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.452 ( 28.0 / 61.9) 65 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
0.449 ( 1.2 / 2.6) 7 mike@www.intrig.com
0.440 ( 1.2 / 2.7) 7 backwards.saerdna@srm.hc (Andreas Fehr)
0.436 ( 23.3 / 53.5) 58 Uri Guttman <uri@sysarch.com>
0.413 ( 1.5 / 3.5) 5 HC <carvdawg@patriot.net>
0.406 ( 1.8 / 4.4) 7 Carfield Yim <c8133594@comp.polyu.edu.hk>
0.397 ( 2.2 / 5.6) 5 Paul Christopher Reid <paulreid@cableinet.co.uk>
0.392 ( 1.9 / 4.7) 5 "Paolo" <prinspaul@NOSPAM!hotmail.com>
0.372 ( 1.8 / 4.7) 5 Kin Lum <kin@0011.com>
0.276 ( 1.7 / 6.3) 5 "James Williamson" <james.williamson@bbc.co.uk>
60 posters (12%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
42 ebcdic packed numbers
36 Beginner-friendly group as cultural adaptation?
30 Getting Height and Width of GIF/JPEG in PERL?
26 Beginner needs help with a function
25 NEWSFLASH: Supremes rule anti-advert-ware illegal
24 How to read the submit button as a name or value
24 How to trim a String
23 Easy way to emulate Unix's "sort" command?
21 OOP question.
20 reg expression
These threads accounted for 16.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
80.6 ( 36.8/ 38.8/ 19.4) 42 ebcdic packed numbers
63.3 ( 29.1/ 32.0/ 21.2) 36 Beginner-friendly group as cultural adaptation?
56.1 ( 28.1/ 23.3/ 14.7) 30 Getting Height and Width of GIF/JPEG in PERL?
53.8 ( 19.4/ 30.4/ 20.2) 21 OOP question.
47.2 ( 15.2/ 31.0/ 21.9) 17 [Summary] Korn Shell or Perl?
46.2 ( 23.5/ 20.0/ 12.9) 24 How to read the submit button as a name or value
43.4 ( 21.0/ 18.7/ 11.7) 26 Beginner needs help with a function
42.7 ( 19.7/ 21.9/ 14.6) 25 NEWSFLASH: Supremes rule anti-advert-ware illegal
40.8 ( 5.8/ 34.2/ 32.0) 7 defconfaq - Q&A on arguments against the hypothetical ?? operator
37.8 ( 17.5/ 19.1/ 11.5) 23 Easy way to emulate Unix's "sort" command?
These threads accounted for 17.4% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.936 ( 32.0/ 34.2) 7 defconfaq - Q&A on arguments against the hypothetical ?? operator
0.914 ( 4.0/ 4.4) 5 Perl 5.005_58 ... a bug.
0.866 ( 2.2/ 2.6) 6 Perl Question
0.860 ( 2.7/ 3.2) 5 Modules for Dummies
0.852 ( 7.1/ 8.4) 15 cgi HTTP header information
0.844 ( 10.0/ 11.9) 6 Reading the binary files in Perl
0.840 ( 6.4/ 7.6) 7 Announcement: "CRAP"
0.826 ( 1.5/ 1.9) 5 Q: compare two arrays
0.820 ( 4.8/ 5.8) 9 Simple form problem
0.815 ( 9.1/ 11.1) 7 two forms interact with one script?
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.493 ( 4.2 / 8.5) 11 How to: run a DOS batch in perl/cgi?
0.492 ( 2.2 / 4.5) 7 variation on /^=/ .. /^=cut/
0.473 ( 3.5 / 7.5) 6 Directory Listing with Size
0.452 ( 2.0 / 4.3) 7 perl IP to OS mapping help
0.405 ( 2.1 / 5.3) 6 Geekspeak Programming Contest
0.399 ( 1.9 / 4.8) 6 print "Location: http://..." avec paramètres
0.388 ( 2.3 / 5.9) 5 File upload problem Newbie!!
0.383 ( 1.1 / 2.9) 5 Can anyone explain concepts of Perl Objects?
0.375 ( 3.4 / 9.2) 10 form, binary attachments <again>
0.370 ( 0.6 / 1.6) 5 LINUX APACHE PERL
116 threads (29%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
27 comp.unix.shell
13 comp.lang.perl.modules
13 alt.perl
13 comp.infosystems.www.authoring.html
6 microsoft.public.fr.iis
6 fr.comp.lang.perl
5 pl.comp.lang.perl
4 comp.land.perl.modules
4 comp.lang.perl
4 alt.perl.sockets
Top 10 Crossposters
===================
Articles Address
-------- -------
8 brian@pm.org (brian d foy)
7 "Sébastien BEAUGRAND" <beaugrand@activebaseconcept.com>
6 arc@flash.net
6 bernie <b.schindlholzer@tirol.com>
6 Kin Lum <kin@0011.com>
6 mwang@tech.cicg.ml.com (Michael Wang)
5 michel.dalle@usa.net (Michel Dalle)
4 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
3 ken@halcyon.com
3 Eric The Read <emschwar@rmi.net>
------------------------------
Date: Mon, 02 Aug 1999 11:55:49 GMT
From: Darrin H <dthusma@home.com>
Subject: Re: Threading Tools under Windows
Message-Id: <37A58A84.E6579AF5@home.com>
"Brett Dickson <> brett.dickson@clear.net.nz" wrote:
> What tools and methods are available for developing Perl programs under a
> Windows system that need threads?
>
> The situation is that I need a program that can both act as both client and
> server in a network at the same time without blocking (ie: send and recive
> asynchronously).
> ____________
> Brett Dickson.
lemme know if anything comes back good on this.
In the meantime, you could prob take some comfort in knowing activestate is
working with Microsoft on fully porting
perl to win32, so supported threading should be fourthcoming, and tcl is
working on porting its threading app to win32, so perl should be soon after.
What I use for the basis of my client server apps is the FreezeThaw/Msg/RPC
examples found in the OReilly Advanced Perl Programming book, vic page 190,
see if that helps your situation.
------------------------------
Date: Mon, 02 Aug 1999 08:11:26 -0300
From: Arved_37@chebucto.ns.ca (Arved Sandstrom)
Subject: Re: why are you so harsh to this guy ?
Message-Id: <Arved_37-0208990811260001@dyip-27.chebucto.ns.ca>
In article <37a565a8_1@newsread3.dircon.co.uk>, Jonathan Stowe
<gellyfish@gellyfish.com> wrote:
> I see thousands of people asking and perhaps tens of people making useful
> answers.
>
I scour this NG looking for MacPerl-related questions, and try to field
those, and there are a few others that do likewise. If at all possible we
try to redirect them to the MacPerl mailing lists.
I'd answer more general questions, but I gave up when I realized that by
some quirk of the news-server and/or my timezone, every time I look at
this NG somewhere on the order of 90% of the posts have already been
answered.
I'm not knocking the stalwarts, but I suggest that if the top 25 answer
machines exercised some restraint and left a few posts for others,
especially the easier ones (not the FAQ questions, just easier), it might
let some of the second team have a chance and maybe distribute the load
more equitably.
Arved
------------------------------
Date: Mon, 2 Aug 1999 08:01:38 -0500
From: "Timothy J Flynn" <tflynn@iastate.edu>
Subject: working with = sign in a directory name - please help!
Message-Id: <7o44rp$ji1$1@news.iastate.edu>
HI,
I am in the process of converting several shell scripts to perl. I have
come accross some system calls that work with directories starting with an =
sign for listing purposes I guess. I have found that the only perl function
that works is a mkdir. I have tried just about every way of escaping for
this with little success. Is there any way around this? Thanks!
tflynn@iastate.edu
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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 V9 Issue 332
*************************************
