[10770] in Perl-Users-Digest
Perl-Users Digest, Issue: 4371 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 7 10:07:21 1998
Date: Mon, 7 Dec 98 07:00:31 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 7 Dec 1998 Volume: 8 Number: 4371
Today's topics:
Re: 80 column conversion (I.J. Garlick)
Re: 80 column conversion (Bart Lateur)
[ANNOUNCE] Makepatch version 2.00 released (Johan Vromans)
Access a database on a other server <marcov@ctrl-v.nl>
Re: Buffered output of 'piped process' (Andrew M. Langmead)
Re: CGI Redirection <merlyn@stonehenge.com>
Converting DBM-Files From 4.00 to 5.00 <gernot@cat.at>
deleting line in a textfile? <remo.goetschi@bigfoot.com>
Re: Embedded Perl and C <Arved_37@chebucto.ns.ca>
Embedding perl (where's PerlInterpreter in some signatu <Marcin.Kasperski@softax.com.pl>
file creation in Perl iron_fist@my-dejanews.com
file creation in Perl iron_fist@my-dejanews.com
Re: file creation in Perl <rick.delaney@home.com>
Re: FTP commands in a perl script ? dave@mag-sol.com
Re: How to disallow fields to input puncuations excepts davidmaher@my-dejanews.com
How to get name of current sub? <aichner@ecf.teradyne.com>
Re: How to get name of current sub? <Tony.Curtis+usenet@vcpc.univie.ac.at>
Need help getting dir list in V4 <harrisr@ugsolutions.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Perl script on apache rmaglich@my-dejanews.com
Perlscript timeout <e.christensen@netjob.dk>
Re: POSIX not found (Bbirthisel)
Re: Simple dB search results .. help .. <jwilkie@turing.une.edu.au>
Re: Simple Help Needed: How do you get rid of return ca (Tad McClellan)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
strting perl script from anotehr script in background <snowie@bgumail.bgu.ac.il>
test for a directory (Nick Franken)
Re: test for a directory (Tad McClellan)
Uploading files with Perl? <r2-d2@REMOVEbigfoot.com>
Re: Using glob() w/WinNT vs. glob() w/Win95 (Charles Wilt)
VRML Tools for Unix (in Perl?) <Alun.Moon@ncl.ac.uk>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 7 Dec 1998 09:46:47 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
Subject: Re: 80 column conversion
Message-Id: <F3L9tz.3xI@csc.liv.ac.uk>
In article <ebohlmanF3HGBo.Dq9@netcom.com>,
Eric Bohlman <ebohlman@netcom.com> writes:
> Jaya_Kanajan <jkanajan@ets.cis.brown.edu> wrote:
>
> No need to reinvent the wheel. Take a look at the Text::Wrap module that
> comes with the standard distribution. It's designed for exactly this
> sort of thing. If, after looking at it, you find it wanting, go over to
> CPAN and take a look at the Text::Format module before you decide to
> implement the splitting yourself.
>
Thanks Eric.
Don't like Text::Wrap, does screwy things with lines of characters greater
than the max column width when there are no spaces in the line. :-( Anbody
else come across this problem?
Don't know how or why I forgot to look CPAN, too much pressure I think. :-)
--
--
Ian J. Garlick
<ijg@csc.liv.ac.uk>
Man is the only animal that can remain on friendly terms with the
victims he intends to eat until he eats them.
-- Samuel Butler (1835-1902)
------------------------------
Date: Mon, 07 Dec 1998 13:45:00 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: 80 column conversion
Message-Id: <366cdb6d.9767916@news.skynet.be>
I.J. Garlick wrote:
>Don't like Text::Wrap, does screwy things with lines of characters greater
>than the max column width when there are no spaces in the line.
What WOULD you like it to do? I can only think of two possibilities:
A) Split the word that is too long onto chunks of at most 80 characters
B) Don't split the word, leave it as a chunk that is far too long
Neither seems ideal. I don't know what Text::Wrap does, I haven't used
it yet.
Bart.
------------------------------
Date: 07 Dec 1998 09:51:04 +0100
From: JVromans@Squirrel.nl (Johan Vromans)
Subject: [ANNOUNCE] Makepatch version 2.00 released
Message-Id: <wl3hfv8qqrr.fsf@plume.nl.compuware.com>
I'm very pleased to announce release 2.00 of the makepatch package.
URL: $CPAN/authors/id/JV/makepatch-2.00a.tar.gz
This package contains a pair of programs to assist in the generation
and application of patch kits to synchronise source trees.
INTRODUCTION
Traditionally, source trees are updated with the 'patch' program,
processing patch information that is generated by the 'diff' program.
Although 'diff' and 'patch' do a very good job at patching file
contents, most versions do not handle creating and deleting files and
directories, and adjusting of file modes and time stamps. Newer
versions of 'diff' and 'patch' seem to be able to create files, and
very new versions of 'patch' can remove files. But that's about it.
Another typical problem is that patch kits are typically downloaded
from the Internet, of transmitted via electronic mail. It is often
desirable to verify the correctness of a patch kit before even
attempting to apply it.
The makepatch package is designed to overcome these limitations.
DESCRIPTION
The makepatch package contains two programs, both written in Perl:
'makepatch' and 'applypatch'.
'makepatch' will generate a patch kit from two source trees.
It traverses the source directory and runs a 'diff' on each pair of
corresponding files, accumulating the output into a patch kit. It
knows about the conventions for patch kits: if a file named
patchlevel.h exists, it is handled first, so 'patch' can check the
version of the source tree. Also, to deal with the non-perfect
versions of 'patch' that are in use, it supplies 'Index:' and
'Prereq:' lines, so 'patch' can correctly locate the files to patch,
and it relocates the patch to the current directory to avoid problems
with creating new files.
The list of files can be specified in a so called 'manifest' file, but
it can also be generated by recursively traversing the source tree.
Files can be excludes using shell style wildcards and Perl regex
patterns.
Moreover, 'makepatch' prepends a small shell script in front of the
patch kit that creates the necessary files and directories for the
patch process. By running the patch kit as a shell script your source
directory is prepared for the patching process.
But that is not it! 'makepatch' also inserts some additional
information in the patch kit for use by the 'applypatch' program.
The 'applypatch' program will do the following:
- It will extensively verify that the patch kit is complete and not
corrupted during transfer.
- It will apply some heuristics to verify that the directory in
which the patch will be applied does indeed contain the expected
sources.
- It creates files and directories as necessary.
- It applies the patch by running the 'patch' program.
- Upon completion, obsolete files, directories and .orig files are
removed, file modes of new files are set, and the timestamps of
all patched files are adjusted.
Note that 'applypatch' only requires the 'patch' program. It does not
rely on a shell or shell tools. This makes it possible to apply
'makepatch' generated patches on non-Unix systems.
REQUIREMENTS
- Perl 5.005 standard installation.
- For 'makepatch': the 'diff' program.
- For 'applypatch': the 'patch' program.
AVALIABLILTY
CPAN and its mirrors, e.g.
http://www.perl.com/CPAN/authors/id/JV/makepatch-2.00a.tar.gz
--------------------------------------------------------------------------
Johan Vromans jvromans@squirrel.nl
Squirrel Consultancy Haarlem, the Netherlands
http://www.squirrel.nl http://www.squirrel.nl/people/jvromans
PGP Key 2048/4783B14D KFP=65 44 CA 66 B3 50 0B 34 CE 0E FB CA 2D 95 34 D0
---------------------- "Arms are made for hugging" -----------------------
------------------------------
Date: Mon, 07 Dec 1998 14:26:27 +0100
From: Marco Vlemmings <marcov@ctrl-v.nl>
Subject: Access a database on a other server
Message-Id: <366BD783.CB8B96DF@ctrl-v.nl>
Hi all
I have a question.
I want to make a perl script which will work on a webserver.This script
will access a database,but the database is on an other server.How can i
retrieve data from the database server to my webserver?
Can anybody help me.
With kind regards
Marco Vlemmings
email:marcov@ctrl-v.nl or vlemm@iaehv.nl
------------------------------
Date: Mon, 7 Dec 1998 14:52:02 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Buffered output of 'piped process'
Message-Id: <F3Lnyq.Kun@world.std.com>
Sylvain Aunay <aunay@deltacad.utc.fr> writes:
[Something not related to modules, followups set appropriately.]
> #of parent process
> open (JBO, "job |");
> autoflush JBO 1; # disable buffering ?
> while (<JBO>) {
> print $_; # doesn't produce real time output
[stuff deleted]
>Output of "job" is not buffered in interactive mode but is
>in "piped" mode.
Under Unix, and other operating systems and system libraries with a
similar I/O model, a process only the buffering of its
output. Anything like "autoflush READHANDLE" will have no effect. You
have to get the program "job" to change its buffering mode. By
default, most implementations of the standard C library use line
buffering when the output is a terminal, but block buffering when the
output is something else (for example, a file, pipe or fifo)
>How to change this ?
Do you have access to "job"'s source code? If so, change its
buffering, or at least make some sort of command line argument to
change the buffering. (Sort of like "cat -u")
If you don't have access to "job"'s source code, and it doesn't have
any method of changing it buffering, then you might want to look at
the Expect.pm module <URL:http://www.perl.com/CPAN/modules/by-module
/Expect/Expect.pm-1.07.tar.gz> This module gets a pty (a
pseudo-terminal) and redirects the child's process to that pty. Since
the program sees its output to be a terminal, it will likely use line
buffered mode.
--
Andrew Langmead
------------------------------
Date: Mon, 07 Dec 1998 13:53:11 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: CGI Redirection
Message-Id: <8cyaok5aa0.fsf@gadget.cscaper.com>
>>>>> "Alan" == Alan J Flavell <flavell@mail.cern.ch> writes:
Alan> On 6 Dec 1998, Aslan00001 wrote:
>> Your best bet to do this.. is to just simply use html...
>> ie:
>> <meta http-equiv="Refresh" content="4; url=http://www.ramapo.edu">
Alan> I suppose there is some natural law that explains why there's a
Alan> semi-infinite supply of informants who have to lever this non-solution
Alan> into every conceivable problem, even in a case like this where the
Alan> questioner seemingly wanted the proper answer (although they would have
Alan> done better to ask the comp.infosystems.www.authoring.cgi group, if they
Alan> hadn't managed to find the answer already from its FAQ-like resources).
Oh Alan, don't stop there. After all, it's these people that go on to
be "web programmers[sic]" at major sites to write stuff that returns
301 where it should be a 302 (there's NEVER gonna be a useful page
here) or 302 where they mean 301 (yes, stay with the published
URL... this is just a session redirection). Or return a page for a
bad URL that says "that's not found" in some randomly changing text
and then still return status 200 because it's an "expected error"
instead of a proper 404 so I can detect it as a dead link.
Or people that write portable HTML for "BOTH browsers".
Durn people that cannot read specs and then perform "cargo cult
programming" all over the net. Even if I don't see another
s/%../pack()/e to decode URI-escaping for another decade, it'll
*still* be too soon.
OK... someday I'll let you know how I *really* feel. :)
print "Just another Perl hacker and web whacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Mon, 07 Dec 1998 13:50:52 +0100
From: Gernot Homma <gernot@cat.at>
Subject: Converting DBM-Files From 4.00 to 5.00
Message-Id: <366BCF2C.1D9A81C5@cat.at>
This is a multi-part message in MIME format.
--------------33035AD97883ED004B59E57D
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hello!
I have the following problem. I have a lot of dbmfiles, which I created
with dbmopen() in Perl 4.00.
Then I changed to perl 5.00 and now I can't open the databases. I've
tried something with the AnyDBM_File.pm but I've got not clue.
(perl runs on a linux system).
Greetings and many thanks in advance
Gernot
--------------33035AD97883ED004B59E57D
Content-Type: text/x-vcard; charset=us-ascii;
name="gernot.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Gernot Homma
Content-Disposition: attachment;
filename="gernot.vcf"
begin:vcard
n:Homma;Gernot
x-mozilla-html:FALSE
org:Cyber-Atelier
adr:;;;Vienna ;;1210;Austria
version:2.1
email;internet:gernot@cat.at
tel;fax:+43 1 272 92 51 9
tel;work:+43 1 272 92 51
x-mozilla-cpt:;0
fn:Homma, Gernot
end:vcard
--------------33035AD97883ED004B59E57D--
------------------------------
Date: Mon, 07 Dec 1998 15:03:32 +0100
From: Remo Goetschi <remo.goetschi@bigfoot.com>
Subject: deleting line in a textfile?
Message-Id: <366BE034.27DAE23D@bigfoot.com>
granted that I have a textfile (staff.txt) like this one:
Remo Goetschi;4821;remo.goetschi@entreprise.com
Michael Smith;125;michael.smith@entreprise.com
Eddie Miller;4587;eddie.miller@entreprise.com
Megan Riley;4581;megan.riley@entreprise.com
Now I need a little perl programm that deletes the line matching to the
string "Eddie Miller;4587;eddie.miller@entreprise.com" from the
textfile.
Who can help me?
Thanks in advance
Remo
------------------------------
Date: Mon, 7 Dec 1998 10:23:25 -0400
From: Arved Sandstrom <Arved_37@chebucto.ns.ca>
Subject: Re: Embedded Perl and C
Message-Id: <Pine.GSO.3.95.iB1.0.981207101851.3515C-100000@halifax.chebucto.ns.ca>
I might be missing something here, but how is it that you what you want to
do isn't addressed by the example code in "perlembed", specifically under
'Evaluating a Perl statement from your C program'?
It specifically says, also, that:
"Arguably, this is the only routine you'll ever need to execute snippets
of Perl code from within your C program. Your string can be as long as you
wish; it can contain multiple statements; it can use require or do to
include external Perl files."
Maybe you missed this in a too-cursory reading. I've been known to do this
myself. :-) HTH.
On Fri, 4 Dec 1998, Richard Swift wrote:
> I've successfully embedded the perl interpreter in my C program and now
> I'm stuck on what to do next. All of the examples in the docs seem to
> work by reading in perl scripts from files or executing functions
> without actrually showing how the function was loaded.
>
> What I would like to be able to do is have the C program
> compose(possible quite complex) perl programs on the fly and then pass
> them as some sort of character array, array of pointers to strings, etc.
> to the interpreter. Has anyone done this. Could you provide a simple
> example in code?
------------------------------
Date: Mon, 07 Dec 1998 12:38:53 GMT
From: Marcin Kasperski <Marcin.Kasperski@softax.com.pl>
Subject: Embedding perl (where's PerlInterpreter in some signatures)
Message-Id: <366BCC6D.64F01292@softax.com.pl>
I write some application using embedded Perl interpreter.
After reading a bit about it I found that:
- I have to allocate and initialize perl interpreter (perl_alloc,
perl_construct, perl_parse)
but
- methods like perl_call_argv doesn't take this parameter
So: how perl_call_argv decide which interpreter to use??? (of course if
I use -DMULTIPLICITY)
Same problem with utility functions defined in "Advanced Perl
Programming" (by Sriram Srinivasan)
Regards
--
Marcin Kasperski
Marcin.Kasperski@softax.com.pl
------------------------------
Date: Mon, 07 Dec 1998 11:02:24 GMT
From: iron_fist@my-dejanews.com
Subject: file creation in Perl
Message-Id: <74gcjv$8f1$1@nnrp1.dejanews.com>
Hiya Peoples
I am learning PERL atm. I decided to get off my butt and learn CGIs.
I know how to write to a file and open etc. What I cannot figure out is how
to create one.
Basically what I want to do is this
if (-e "filename")
{
open (handle, "filename");
}
else
{
CREATE FILE NAME
}
print "$text";
what is the missing command ("CREATE FILE NAME") to create the file? if it is
possible?
--
Peter Likidis
centuryATiname.com
"It's alright.... we're on a mission from God" - Jake Blues
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 07 Dec 1998 11:03:24 GMT
From: iron_fist@my-dejanews.com
Subject: file creation in Perl
Message-Id: <74gclr$8fb$1@nnrp1.dejanews.com>
Hiya Peoples
I am learning PERL atm. I decided to get off my butt and learn CGIs.
I know how to write to a file and open etc. What I cannot figure out is how
to create one.
Basically what I want to do is this
if (-e "filename")
{
open (handle, "filename");
}
else
{
CREATE FILE NAME
}
print "$text";
what is the missing command ("CREATE FILE NAME") to create the file? if it is
possible?
Can you pleae email a reply (send it to centuryATiname.com) as I do not come
into this group often.
cheers and thanks for any help,
Peter
--
Peter Likidis
centuryATiname.com
"It's alright.... we're on a mission from God" - Jake Blues
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 07 Dec 1998 13:27:30 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: file creation in Perl
Message-Id: <366BD978.A18D37F1@home.com>
[posted & mailed]
iron_fist@my-dejanews.com wrote:
>
> I know how to write to a file and open etc. What I cannot
> figure out is how to create one.
>
What terrible source of information told you about open() and writing to
files, yet didn't explain how to create a file? These are all
intimately related. Look up open in the perlfunc page of your Perl
documentation. In short:
open(FILE, '>filename') or die "Can't open filename: $!\n";
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Mon, 07 Dec 1998 12:17:40 GMT
From: dave@mag-sol.com
Subject: Re: FTP commands in a perl script ?
Message-Id: <74gh13$bqn$1@nnrp1.dejanews.com>
In article <366B89E9.FE760DBB@se.bel.alcatel.be>,
David Van den Brande <brandeda@se.bel.alcatel.be> wrote:
> Hi,
>
> I have to search a very huge directory tree (on another computer) for
> approximately 100 documents and ftp them to my computer.
> For that I would like to write a perl script but I have problems to use
> the FTP commands in it.
> I'm working on a sparc station under Solaris and tried the following:
>
> #!/usr/local/bin/perl5.004 -w
> use Shell qw(ftp open user get ls);
> system("ftp");
> # till here it works (I get the FTP> prompt)
> # but I would like to use the normal ftp commands like open, user, get,
> ... as well
> # So I tried the following:
> system("open hidec");
> # But it doesn't work (hidec is the name of the other computer)
>
> When I do it manually in an xterminal it do works ...
> Any suggestions?
Grab the Net::FTP module from CPAN <http://www.perl.com/CPAN/>.
hth,
Dave...
--
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 07 Dec 1998 14:40:59 GMT
From: davidmaher@my-dejanews.com
Subject: Re: How to disallow fields to input puncuations excepts
Message-Id: <74gpdr$iv7$1@nnrp1.dejanews.com>
Hi --
> How to enable the hypens , a-z , 0-9 but disable blank space and other
> puncuations at the company??
Try something like this:
if ($form{'company'} !~ /^[-A-z0-9]+$/) {
print "Bad\n";
}
else {
print "Good\n";
}
-- Dave
David Maher
http://accesswatch.com/
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 07 Dec 1998 15:00:08 +0100
From: Adrian Aichner <aichner@ecf.teradyne.com>
Subject: How to get name of current sub?
Message-Id: <ud85wgihj.fsf@ecf.teradyne.com>
Hello All!
I wondered if there is a general way to access the name of the current
subroutine in perl.
Despite all of my studies of perl* man pages I am not aware this is
possible.
Hopefully somebody will prove me wrong with a one-liner or few-liner.
Thanks in advance,
Adrian
--
Adrian Aichner
European Design Center
Teradyne GmbH
Semiconductor Test Group Telephone +49/89/41861(0)-208
Dingolfinger Strasse 2 Fax +49/89/41861-217 (What is a Fax?)
D-81673 MUENCHEN E-mail adrian.aichner@teradyne.com
------------------------------
Date: 07 Dec 1998 15:20:47 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: How to get name of current sub?
Message-Id: <83yaokghj4.fsf@vcpc.univie.ac.at>
Re: How to get name of current sub?, APA
<aichner@ecf.teradyne.com> said:
APA> I wondered if there is a general way to access
APA> the name of the current subroutine in perl.
perldoc -f caller
e.g.
-- banana.perl --
sub banana {
my ($package, $filename, $line, $subroutine,
$hasargs, $wantarray, $evaltext, $is_require) = caller(0);
print "$filename:$line: calling $subroutine";
print '(', join(',', @_), ')' if $hasargs;
print "\n";
}
&banana(1, 2, 3, 4);
-- end --
==> banana.perl:11: calling main::banana(1,2,3,4)
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Sun, 06 Dec 1998 01:16:52 -0500
From: Randy Harris <harrisr@ugsolutions.com>
Subject: Need help getting dir list in V4
Message-Id: <366A2154.BA135AD1@ugsolutions.com>
I need to read in a list of subdirectories.
This sub works nicely in Perl 5:
sub GetDataDirList {
opendir (DIRECT, $datadir) || die "Could not access the data
directory!";
# get all dirs (-d), avoid . and .. -
@dirs = grep ( -d && !/^\./, readdir DIRECT ) ;
closedir DIRECT;
}
I can't come up with syntax to make it work in Perl 4 (HP-UX).
Any suggestions appreciated (even untested).
------------------------------
Date: 7 Dec 1998 14:59:13 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <74gqg1$ikt$2@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 30 Nov 1998 14:51:59 GMT and ending at
07 Dec 1998 07:56:09 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) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 267 (51.6% of all posters)
Articles: 393 (29.5% of all articles)
Volume generated: 580.9 kb (26.4% of total volume)
- headers: 271.8 kb (5,671 lines)
- bodies: 300.0 kb (9,608 lines)
- original: 229.1 kb (7,653 lines)
- signatures: 8.6 kb (203 lines)
Original Content Rating: 0.764
Averages
========
Posts per poster: 1.5
median: 1 post
mode: 1 post - 196 posters
s: 1.3 posts
Message size: 1513.6 bytes
- header: 708.2 bytes (14.4 lines)
- body: 781.8 bytes (24.4 lines)
- original: 597.0 bytes (19.5 lines)
- signature: 22.5 bytes (0.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
11 15.8 ( 8.5/ 7.3/ 3.6) "BenJamin Prater" <bprater@jipes.com>
9 15.5 ( 7.8/ 7.7/ 5.3) nospam23_skidoo@geocities.com
8 21.7 ( 7.6/ 14.1/ 12.3) Tripp Lilley <tripp.lilley@perspex.com>
5 6.0 ( 3.6/ 2.4/ 1.3) "Daniel Boksjv" <daniel@boksjo.com>
4 7.1 ( 2.6/ 3.9/ 3.4) Keith Kaple <kak@cisco.com>
4 6.0 ( 2.4/ 3.3/ 1.6) charles.0272@worldnet.no.spam.att.net (Charles Wilt)
4 6.0 ( 3.4/ 2.6/ 1.5) nnickee@nnickee.com
4 7.1 ( 2.2/ 3.8/ 2.6) gward@cnri.reston.va.us
4 4.7 ( 3.1/ 1.6/ 0.7) "Yao, Hsin (EXCHANGE:MTL:1T83)" <hsinyao@americasm01.nt.com>
4 6.4 ( 3.4/ 3.1/ 2.2) hbpursle@duke-energy.com (Bryce Pursley)
These posters accounted for 4.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
21.7 ( 7.6/ 14.1/ 12.3) 8 Tripp Lilley <tripp.lilley@perspex.com>
15.8 ( 8.5/ 7.3/ 3.6) 11 "BenJamin Prater" <bprater@jipes.com>
15.5 ( 7.8/ 7.7/ 5.3) 9 nospam23_skidoo@geocities.com
7.2 ( 3.5/ 2.9/ 1.3) 4 juergen@monocerus.demon.co.uk (Juergen Heinzl)
7.1 ( 2.2/ 3.8/ 2.6) 4 gward@cnri.reston.va.us
7.1 ( 2.6/ 3.9/ 3.4) 4 Keith Kaple <kak@cisco.com>
6.4 ( 2.2/ 4.1/ 2.9) 4 chadbour@news.wwa.com (James Weisberg)
6.4 ( 3.4/ 3.1/ 2.2) 4 hbpursle@duke-energy.com (Bryce Pursley)
6.0 ( 2.4/ 3.3/ 1.6) 4 charles.0272@worldnet.no.spam.att.net (Charles Wilt)
6.0 ( 3.4/ 2.6/ 1.5) 4 nnickee@nnickee.com
These posters accounted for 4.5% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 0.6 / 0.6) 4 jens@gamers.de (Jens Hilgers)
1.000 ( 0.5 / 0.5) 3 "Bruce Davidson" <group95@allied.demon.co.uk>
1.000 ( 1.5 / 1.5) 4 "Darren" <darrensweeney@eswap.co.uk>
0.985 ( 1.9 / 1.9) 3 "John Zeng" <john_z@hotmail.com>
0.927 ( 1.8 / 1.9) 3 chess@watson.ibm.com
0.873 ( 3.4 / 3.9) 4 Keith Kaple <kak@cisco.com>
0.870 ( 12.3 / 14.1) 8 Tripp Lilley <tripp.lilley@perspex.com>
0.820 ( 2.6 / 3.2) 3 sprintfer@yahoo.com (Mike D.)
0.723 ( 2.2 / 3.1) 4 hbpursle@duke-energy.com (Bryce Pursley)
0.718 ( 1.7 / 2.4) 3 mike808@mo.net
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.581 ( 1.5 / 2.6) 4 nnickee@nnickee.com
0.565 ( 1.3 / 2.4) 5 "Daniel Boksjv" <daniel@boksjo.com>
0.501 ( 1.6 / 3.3) 4 charles.0272@worldnet.no.spam.att.net (Charles Wilt)
0.496 ( 3.6 / 7.3) 11 "BenJamin Prater" <bprater@jipes.com>
0.446 ( 1.3 / 2.9) 4 juergen@monocerus.demon.co.uk (Juergen Heinzl)
0.434 ( 0.8 / 1.9) 3 luoni@gol.com
0.413 ( 0.7 / 1.6) 4 "Yao, Hsin (EXCHANGE:MTL:1T83)" <hsinyao@americasm01.nt.com>
0.401 ( 1.1 / 2.6) 3 Marcel Beekmans <beekmans@iae.nl>
0.377 ( 0.9 / 2.5) 3 llopis@zonker.ecs.umass.edu (Noel Llopis)
0.351 ( 1.1 / 3.1) 3 adrian <adrian@internetxs.com>
24 posters (8%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
10 "Mary Fast" <Mary@usa.com>
10 "Matija Polajnar" <Matija.Polajnar@guest.ARNES.Si>
9 llopis@zonker.ecs.umass.edu (Noel Llopis)
4 John LaGue <jjl@wk0c02g6.krf.noaa.gov>
3 hklife@soback.kornet21.net
3 "Matthew Hotstone" <hotstone@ozemail.com.au>
3 targetmailinfo@yahoo.com
2 nnickee@nnickee.com
2 mayer1b@unisys.co.at
2 "McWebber" <mcwebber@my-dejanews.com>
------------------------------
Date: Mon, 07 Dec 1998 14:26:26 GMT
From: rmaglich@my-dejanews.com
Subject: Perl script on apache
Message-Id: <74goie$i2c$1@nnrp1.dejanews.com>
I am trying to get a perl script to run on apache. I know the script is
being accessed and is doing some of it's work but the html in the script is
not being displayed back to the client. Does anyone know if there are any
setting in the configuration that should be checked? Any help would be
appreciated.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 07 Dec 1998 15:05:55 +0100
From: Ernst Christensen <e.christensen@netjob.dk>
Subject: Perlscript timeout
Message-Id: <366BE0C3.425FBDEB@netjob.dk>
Hi
I am using NT and IIS. How can I set the timeout of my perlscripts to fx
5 seconds. the reason is that sometimes i make a script width an
infinite loop, that is running for ever
Ernst
------------------------------
Date: 7 Dec 1998 14:42:45 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: POSIX not found
Message-Id: <19981207094245.21584.00003054@ng122.aol.com>
Hi J.C.:
>I've installed PERL 5.004 but when I try use POSIX the POSIX.PM
> isn't found. I work with WINDOWS 95, and I can't find the module.
Finding it would be the least of your problems. Win95 is not POSIX
compatible so it wouldn't work if you had it. There is a version of
Posix.pm in the ActiveState 5.005 distribution. But it won't work on
Win95, either (I don't recall whether it even compiles). I recall some
user-list question about whether it worked even on NT. But I can't
recall the answer.
What are you trying to accomplish with Posix.pm? TIMTOWTDI
(and on Win95 you are frequently stuck with second, third, ... choices).
-bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: Mon, 07 Dec 1998 23:17:23 +1100
From: Jon Snow <jwilkie@turing.une.edu.au>
Subject: Re: Simple dB search results .. help ..
Message-Id: <366BC753.733580ED@turing.une.edu.au>
Darren wrote:
> $searchit = "select * from test WHERE(name LIKE\"$search\")ORDER BY
> name;";
> ^
Also lose the semi colon after name in the query string.
Jon Snow
jwilkie@turing.une.edu.au
------------------------------
Date: Mon, 7 Dec 1998 07:51:18 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Simple Help Needed: How do you get rid of return carriges?
Message-Id: <mgmg47.fel.ln@metronet.com>
David Van den Brande (brandeda@se.bel.alcatel.be) wrote:
: So Call allways chop after reading a number from the standard input file.
: $originaldist = <STDIN>;
: chop ($originaldist);
Never call chop() after reading a number from the standard input.
Call chomp() after reading a line from the standard input.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 7 Dec 1998 14:59:30 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <74gqgi$ikt$3@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 30 Nov 1998 14:51:59 GMT and ending at
07 Dec 1998 07:56:09 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) 1998 Greg Bacon. All Rights Reserved.
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\@mox\.perl\.com
Totals
======
Posters: 517
Articles: 1334 (496 with cutlined signatures)
Threads: 431
Volume generated: 2196.3 kb
- headers: 941.7 kb (19,250 lines)
- bodies: 1167.2 kb (36,694 lines)
- original: 782.0 kb (26,702 lines)
- signatures: 86.0 kb (1,753 lines)
Original Content Rating: 0.670
Averages
========
Posts per poster: 2.6
median: 1 post
mode: 1 post - 331 posters
s: 5.2 posts
Posts per thread: 3.1
median: 2 posts
mode: 1 post - 131 threads
s: 3.7 posts
Message size: 1685.9 bytes
- header: 722.9 bytes (14.4 lines)
- body: 896.0 bytes (27.5 lines)
- original: 600.3 bytes (20.0 lines)
- signature: 66.0 bytes (1.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
73 138.6 ( 59.8/ 63.6/ 45.4) mgjv@comdyn.com.au (Martien Verbruggen)
34 61.2 ( 22.8/ 31.6/ 17.4) Jonathan Stowe <gellyfish@btinternet.com>
29 53.5 ( 19.4/ 30.9/ 20.4) lr@hpl.hp.com (Larry Rosler)
27 46.9 ( 15.8/ 31.0/ 18.5) tadmc@flash.net (Tad McClellan)
27 44.0 ( 21.2/ 22.8/ 8.3) Tk Soh <r28629@email.sps.mot.com>
25 38.1 ( 13.8/ 24.3/ 14.7) tadmc@metronet.com (Tad McClellan)
24 43.0 ( 16.4/ 19.9/ 11.6) Russ Allbery <rra@stanford.edu>
21 30.9 ( 15.8/ 12.5/ 7.8) Tom Phoenix <rootbeer@teleport.com>
20 30.4 ( 17.1/ 13.3/ 9.0) bart.lateur@skynet.be (Bart Lateur)
18 27.6 ( 14.8/ 12.8/ 5.5) ilya@math.ohio-state.edu (Ilya Zakharevich)
These posters accounted for 22.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
138.6 ( 59.8/ 63.6/ 45.4) 73 mgjv@comdyn.com.au (Martien Verbruggen)
61.2 ( 22.8/ 31.6/ 17.4) 34 Jonathan Stowe <gellyfish@btinternet.com>
53.5 ( 19.4/ 30.9/ 20.4) 29 lr@hpl.hp.com (Larry Rosler)
46.9 ( 15.8/ 31.0/ 18.5) 27 tadmc@flash.net (Tad McClellan)
44.0 ( 21.2/ 22.8/ 8.3) 27 Tk Soh <r28629@email.sps.mot.com>
43.0 ( 16.4/ 19.9/ 11.6) 24 Russ Allbery <rra@stanford.edu>
38.1 ( 13.8/ 24.3/ 14.7) 25 tadmc@metronet.com (Tad McClellan)
37.7 ( 10.7/ 27.0/ 19.2) 13 John Chambers <jc@eddie.mit.edu>
37.7 ( 15.4/ 19.2/ 11.9) 18 eln@cyberhighway.net (Erik)
30.9 ( 15.8/ 12.5/ 7.8) 21 Tom Phoenix <rootbeer@teleport.com>
These posters accounted for 24.2% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.0 / 1.0) 5 "Marcel Ouwendijk" <mouwend@casema.net>
0.993 ( 6.2 / 6.3) 10 fl_aggie@thepentagon.com (I R A Aggie)
0.980 ( 5.6 / 5.7) 6 tye@fohnix.metronet.com (Tye McQueen)
0.939 ( 17.4 / 18.5) 5 Greg Bacon <gbacon@cs.uah.edu>
0.870 ( 12.3 / 14.1) 8 Tripp Lilley <tripp.lilley@perspex.com>
0.817 ( 5.0 / 6.1) 7 Gareth Rees <garethr@cre.canon.co.uk>
0.796 ( 5.3 / 6.7) 8 wyndo@cxo.com
0.746 ( 3.7 / 4.9) 7 dturley@pobox.com
0.738 ( 9.9 / 13.5) 15 aml@world.std.com (Andrew M. Langmead)
0.714 ( 45.4 / 63.6) 73 mgjv@comdyn.com.au (Martien Verbruggen)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.471 ( 4.4 / 9.4) 16 comdog@computerdog.com (brian d foy)
0.443 ( 2.9 / 6.5) 6 abigail@fnx.com
0.431 ( 5.5 / 12.8) 18 ilya@math.ohio-state.edu (Ilya Zakharevich)
0.419 ( 1.3 / 3.0) 6 Rich Grise <richgrise@entheosengineering.com>
0.405 ( 2.5 / 6.2) 12 Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
0.379 ( 1.8 / 4.7) 5 dformosa@zeta.org.au (David Formosa)
0.373 ( 2.8 / 7.6) 8 Jarkko Hietaniemi <jhi@alpha.hut.fi>
0.370 ( 2.3 / 6.2) 5 mark@doddx.com
0.363 ( 8.3 / 22.8) 27 Tk Soh <r28629@email.sps.mot.com>
0.318 ( 2.1 / 6.7) 7 Ken McNamara <conmara@tcon.net>
50 posters (9%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
34 Why is "... @foo ..." occasionally a syntax error?
22 localtime () - perl's bug ?
20 When does CLOSE not FLUSH?
15 Perl on Solaris 2.5.1 (#!/opt/LWperl/bin)?
13 Memory in Perl
13 PC to Unix Problem
12 Terribly simply perl question about qw()
11 field selection using "split" - question
11 Strip and add, perl style
11 Using RCS in Perl scripts
These threads accounted for 12.1% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
84.0 ( 26.5/ 54.1/ 35.3) 34 Why is "... @foo ..." occasionally a syntax error?
50.1 ( 19.0/ 27.6/ 14.4) 22 localtime () - perl's bug ?
37.5 ( 16.3/ 19.0/ 9.6) 20 When does CLOSE not FLUSH?
29.5 ( 7.6/ 19.4/ 14.2) 11 Using RCS in Perl scripts
27.9 ( 12.6/ 13.5/ 8.7) 15 Perl on Solaris 2.5.1 (#!/opt/LWperl/bin)?
25.1 ( 10.1/ 14.2/ 7.4) 13 Memory in Perl
22.8 ( 9.6/ 12.7/ 6.3) 13 PC to Unix Problem
21.9 ( 7.2/ 14.3/ 9.1) 10 newbie file open question
21.1 ( 8.4/ 12.0/ 5.8) 11 Strip and add, perl style
20.0 ( 8.0/ 10.9/ 6.1) 10 Some questions
These threads accounted for 15.5% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.872 ( 1.6/ 1.8) 5 System()
0.833 ( 5.1/ 6.1) 6 Is Tcl/Tk better than Perl ?
0.830 ( 3.2/ 3.8) 5 Perl for old, outdated, ancient systems
0.808 ( 1.4/ 1.7) 7 Random integer numbers (1,2,3,4,5....,.....) HOW???
0.803 ( 3.3/ 4.1) 5 Batch Mailing
0.799 ( 2.5/ 3.1) 6 Date file created check?
0.781 ( 2.1/ 2.7) 5 quickest way to merge two hashes?
0.773 ( 2.9/ 3.7) 7 string to array
0.760 ( 2.5/ 3.3) 5 emulating sed's "/start/,/stop/<do something>"?
0.745 ( 4.6/ 6.1) 7 Excel Spreadsheets, Perl, CGI and Linux
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.480 ( 5.8 / 12.0) 11 Strip and add, perl style
0.465 ( 1.6 / 3.4) 5 Directory?
0.462 ( 1.9 / 4.0) 5 perlshop 3.1
0.461 ( 1.5 / 3.3) 5 help, what's wrong with this very simple prog?
0.454 ( 2.5 / 5.4) 7 Tool to reverse engineer perl code
0.453 ( 1.7 / 3.8) 5 Perl compiler? (Can you get one?)
0.417 ( 1.5 / 3.6) 5 Input from <TEXTAREA> via perl and DBI into MySQL database.
0.406 ( 1.7 / 4.1) 5 Is it possible to mix locale and Perl?
0.392 ( 2.3 / 5.8) 7 $! type variables
0.345 ( 1.9 / 5.6) 6 PERL is TOO flexible
80 threads (18%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
39 comp.lang.perl.modules
17 comp.lang.javascript
16 alt.perl
15 comp.unix.solaris
10 comp.games.development.industry
10 comp.sys.ibm.pc.games.rpg
9 comp.lang.perl
6 comp.unix.shell
5 comp.unix.aix
5 comp.lang.java.programmer
Top 10 Crossposters
===================
Articles Address
-------- -------
12 wyndo@cxo.com
10 "Matija Polajnar" <Matija.Polajnar@guest.ARNES.Si>
10 "Mary Fast" <Mary@usa.com>
9 llopis@zonker.ecs.umass.edu (Noel Llopis)
6 Barry Margolin <barmar@bbnplanet.com>
5 bart.lateur@skynet.be (Bart Lateur)
4 "Craig Horton" <CHorton@STSSystems.com>
4 John LaGue <jjl@wk0c02g6.krf.noaa.gov>
4 tadmc@flash.net (Tad McClellan)
4 eln@cyberhighway.net (Erik)
------------------------------
Date: Mon, 7 Dec 1998 15:12:56 +0200
From: Snowie <snowie@bgumail.bgu.ac.il>
Subject: strting perl script from anotehr script in background
Message-Id: <Pine.OSF.3.96.981207150258.21780A-100000@bgumail.bgu.ac.il>
can someone help me with followoing problems:
Le's say i have script called ScriptInfinite.(it hasinfinite loop inside )
now I need to launch this script from another script, say Script1. After
launching ScriptInfinite, Script1 have to continue its execution.
I've tried things like:
`sh -c "ScriptInfinit"`
system("ScriptInfinit");
various combination with "&". Nothing worked.
Script1 is always pausing after launching second script. I can not
force it to continue execution.
another important probalem:
when launching ScriptInfinite , I need to catch its PID to store it ( to
have possiblity to kill that script afterwards ).
I also can not succeed to do it.
anyone can help?
thansk
Genady
------------------------------
Date: 7 Dec 1998 11:35:05 GMT
From: franken@cistron.nl (Nick Franken)
Subject: test for a directory
Message-Id: <slrn76nf85.46u.franken@franken.localhost>
Hi all,
How do I test if a subdir with any name exists?
My script is as follows.
$dir=`date +%d%b%y`;
chop($dir);
if ( -d "/firstdir/*" ) {
print ("There is a directory yet....check it out!");
exit;
}
the above test for checking if a subdir
exists, works in a plain shell script.
How do I get it to work in Perl?
# mkdir("/first/$dir",0777);
Thanks in advance for the answers.
Nick Franken
------------------------------
Date: Mon, 7 Dec 1998 07:47:19 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: test for a directory
Message-Id: <79mg47.fel.ln@metronet.com>
Nick Franken (franken@cistron.nl) wrote:
: How do I test if a subdir with any name exists?
# UNTESTED
opendir(DIR, '/firstdir') || die "could not open '/firstdir' $!";
@dirs = grep -d, readdir(DIR);
closedir(DIR);
print "subdirs exist\n" if @dirs;
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 7 Dec 1998 14:22:09 -0000
From: "Artoo" <r2-d2@REMOVEbigfoot.com>
Subject: Uploading files with Perl?
Message-Id: <74gobi$amm$1@plug.news.pipex.net>
Hi All
How can you upload a file browsed to by a user on their computer using the
form HTML code:
<input type="File" name="photo" accept="image/jpeg">
So the user can browse to the Jpeg file and the Perl script will interpret
the path and upload the file to the specified directory on the webserver?
What is required in the Perl script to upload the file?
Thanks
Artoo
------------------------------
Date: 7 Dec 1998 14:35:54 GMT
From: charles.0272@worldnet.no.spam.att.net (Charles Wilt)
Subject: Re: Using glob() w/WinNT vs. glob() w/Win95
Message-Id: <MPG.10d5b5679b9c50a2989692@netnews.worldnet.att.net>
In article <slrn76ikhu.ms8.randy@theory.uwinnipeg.ca>,
randy@theory.uwinnipeg.ca says...
> On 4 Dec 1998 22:42:04 GMT,
> Charles Wilt <charles.0272@worldnet.no.spam.att.net> wrote:
> >The following is a short code snippet:
> >
> >#!perl -w
> >
> >while (glob("*.tst")){
> > print "$_\n";
> >}
> >
> >which on a WinNT box correctly prints a list of all files with a tst
> >extension. But on a Win95 box, I get a message saying
> >"Read on closed filehandle <_GEN_0> at mytest line 6."
>
> Hi,
> Is this the entire code? The line numbers don't seem to match
> up (which doesn't necessarily mean anything ...) I checked this
> out on my Windows 98 perl, and it ran fine, though. Which perl are
> you using? Is it fine otherwise? You might want to read the README
> files in the perl source distribution concerning the use of
> glob in Win32 - there's some things you can change to alter the
> glob behaviour.
>
>
Yes that is the entire code, I took out some blank lines before posting.
I'm using version 5.0004_2 downloaded in a binary form from CPAN. I'll
check out the readme(s) again.
Thanks.
--
Charles Wilt
Miami Luken, Inc.
e-mail: charles.0272@worldnet.no.spam.att.net
--->remove the no.spam.
------------------------------
Date: Mon, 07 Dec 1998 11:12:23 +0000
From: Alun Moon <Alun.Moon@ncl.ac.uk>
Subject: VRML Tools for Unix (in Perl?)
Message-Id: <366BB817.843E57FD@ncl.ac.uk>
I'm looking for some tools that I can run under Unix (possibly in Perl?) that
can manipulate VRML files.
Specifically I'm looking for Vrml 1.0 --> Vrml 2.0 Translators
IGES --> Vrml 2.0 Translators
Our CAD package outputs Vrml 1.0, but by the time I've used the vrml1tovrml2.exe
tool that comes with Cosmo, to generate Vrml 2.0 that I can inline, all the
colours in the original model are not rendered!!!!
They are defined in the final Vrml 2.0 files, but don't appear!
Since there is 1MB of Vrml 1 in 41 files, I'd rather not have to go through by
hand correcting this, if I can ever find out what the problem is.
As I don't often manage to check the newsgroups, I'd appreciate email replies
with any good leads.
Thanks
Alun
--
-----------------------------------------------------------------------------
Dr Alun Moon Regional Centre for Innovation in Engineering Design
tel: +44(191) 222 5306 Bruce Building, University of Newcastle upon Tyne
fax: +44(191) 222 5833 NE1 7RU
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 4371
**************************************
