[11649] in Perl-Users-Digest
Perl-Users Digest, Issue: 5249 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 29 10:03:29 1999
Date: Mon, 29 Mar 99 07:00:28 -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, 29 Mar 1999 Volume: 8 Number: 5249
Today's topics:
Re: ./perl harness failures <amcleod@caribSPAMsurf.com>
@ARGV question <kamran@norsar.no>
Re: Bitwise Operators (Bart Lateur)
Re: Bitwise Operators (Sam Holden)
Re: check to see if directory exists (John F)
Re: code to search for URLs? <indexfinger@usa.net>
Re: code to search for URLs? <computerguru@mailexcite.com>
Re: embeded Perl on Win32 <ibelgaufts@gfc-net.de>
Excel file <peter_yang@groton.pfizer.com>
Re: Help with split (Tad McClellan)
How to pass /PATTERN/ to mysplit /%%\n/, 1, 0 ? <alex@kawo2.rwth-aachen.de>
Re: How to pass /PATTERN/ to mysplit /%%\n/, 1, 0 ? (Tad McClellan)
IIS 4,0 and PERL scripts. blazek@sisblansko.cz
Re: Initializing an array with STDIN (newbie) (Larry Rosler)
Re: Input Password (Greg Bacon)
London.pm Meeting <dave@mag-sol.com>
MS-Word save as text problem carlos.alvarez@one.at
Re: Need perl compiler (John F)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
New to perl, how do I test the installation? (LNottingha)
Re: New to perl, how do I test the installation? (Jonathan Stowe)
Newbie question, IE starts winzip <neil@mve.com>
Re: Parsing text file (John F)
Re: Parsing text file (Larry Rosler)
Perl calling MS Word <bdaly@averstar.com>
Re: PWS, Win95, CGI and Perl (Robzenuk)
Re: qe:operation on binary files <jdf@pobox.com>
Re: RE to match one line of Larry's quote (Tad McClellan)
Re: sorting associative array by values (Jonathan Stowe)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 29 Mar 1999 08:17:55 -0400 (AST)
From: "Angus McLeod" <amcleod@caribSPAMsurf.com>
Subject: Re: ./perl harness failures
Message-Id: <nzpyrbqpnevofhespbz.f9cy9v0.pminews@news.caribsurf.com>
On Fri, 26 Mar 1999 21:54:24 -0500, James Schneider wrote:
>Angus,
>
>What version of MP-RAS do you have ? (cat /etc/.relid)
$ cat /etc/.relid
100597 RELEASE 030200 Version 01 OS + Maintenance Updates Edition 3
>What version of SCDE do you have ? (cc -V; pkginfo scde)
$ cc -V; pkginfo scde
(cc:) NCR High Performance C Compiler R3.0 (SCDE 3.03.00)
(cc:) No files specified.
system scde NCR C/C++ Development Toolkit (3.02 and later)
>Which version of perl are you trying to compile ?
$ ls -ld perl*
drwxr-xr-x 23 amcleod other 4096 Mar 26 18:45 perl5.005_02
This is the source distro I got at http://ncrinfo.ncr.com/contrib/svr4/
and I know that a binary is available, but I want to try and compile in
some additional modules.
-+-
Angus McLeod
T. Geddes Grant (Barbados) Limited
------------------------------
Date: Mon, 29 Mar 1999 16:54:24 +0200
From: Kamran Iranpour <kamran@norsar.no>
Subject: @ARGV question
Message-Id: <36FF9420.7C1F@norsar.no>
I am quite new to pearl and need some help.
I am trying to split up ARGV into fields which later will be
pushed into a hash. But I have problems splitting up the ARGV.
Here is what I do:
($id, $record) = split ' ', @ARGV, 2;
and @ARGV is usually of this form :
NOA__6C1 1999-088:08.44.24.000 accurate masked
but I get nothing when I print the values of $id and $record out.
Can anyone help me ?
Thanks in advance
kamran
------------------------------
Date: Mon, 29 Mar 1999 10:31:36 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Bitwise Operators
Message-Id: <36ff49ca.2734001@news.skynet.be>
Abigail wrote:
>Benjamin wrote:
>"" Are there equivalent of C bitwise operators such as AND (&) and OR (|) in
>"" Perl?
>
>Djees. How hard would that be to look up in the manual?
perl perldoc -f "&"
No documentation for perl function `&' found
It's harder than it should have been.
Bart.
------------------------------
Date: 29 Mar 1999 10:56:36 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Bitwise Operators
Message-Id: <slrn7fun34.pd6.sholden@pgrad.cs.usyd.edu.au>
On Mon, 29 Mar 1999 10:31:36 GMT, Bart Lateur <bart.lateur@skynet.be> wrote:
>Abigail wrote:
>
>>Benjamin wrote:
>
>>"" Are there equivalent of C bitwise operators such as AND (&) and OR (|) in
>>"" Perl?
>>
>>Djees. How hard would that be to look up in the manual?
>
> perl perldoc -f "&"
> No documentation for perl function `&' found
>
>It's harder than it should have been.
The subject itself says that the poster new they are operators not
functions. So obviously one looks in perlop not perlfunc.
;perldoc perlop | grep "&"
left &
left &&
print ($foo & 255) + 1, "\n";
For example, 0666 &~ 027 is 0640. (See also the section
Binary "&" returns its operators ANDed together bit by
and so on for 30 lines total...
So the answer appears on the fifth line that matches...
If you claim that that requires knowledge of the answer (which the poster
demonstrated anyway) then how about :
;perldoc perlop | grep bitwise
Unary "~" performs bitwise negation, i.e., 1's complement.
Bitstrings of any size may be manipulated by the bitwise
If the operands to a binary bitwise op are strings of
is a number, that will imply a numeric bitwise operation.
The bitwise operators ("&", "|", "^", "~", "<<", and ">>")
The fifth and last line gives the answer...
It's as easy as it should be.
Also pagers tend to have search functions, and if yours doesn't then
get a new one.
--
Sam
I would like to tell you that Perl is simple in its complexity. But some
people won't understand that. So pretend I didn't say that, unless you
do. --Larry Wall
------------------------------
Date: Mon, 29 Mar 1999 13:24:40 GMT
From: jfreels@layton-graphics.com (John F)
Subject: Re: check to see if directory exists
Message-Id: <36ff7ecf.2931892@news.mindspring.com>
The backslashes depends on the environment you are working in. In a
MKS Kornshell it would be ok, but not in Win32. Also, you might wanna
put that directory in '\"' so you can handle spaces.
JMA, hope it helps
On Fri, 26 Mar 1999 11:36:08 -0800, moseley@best.com (Bill Moseley)
wrote:
>In article <36FBCD28.723197C5@chiso.com>, stephen@chiso.com says...
>> I am trying to see if a directory exists on an NT machine, and am having
>> some troubles.
>>
>> Here is my test statement:
>>
>> if (!(-d "x:\\home\\$Name"))
>> print ("Need to create homedir for $Name");
>>
>> this is not working though.....
>> Any ideas?
>
>Is that really your code. What happens when you run it?
>Do you get a syntax error?
>
>BTW -- You don't need to use backslashes.
>
>
>print "Need to create homedir for $Name"
> unless -d "x:/home/$Name";
>
>
>--
>Bill Moseley mailto:moseley@best.com
------------------------------
Date: Mon, 29 Mar 1999 10:20:30 GMT
From: "IndexFinger.com" <indexfinger@usa.net>
Subject: Re: code to search for URLs?
Message-Id: <36FF533F.82520006@usa.net>
> Alternatively, which language do you think would be the easiest for
> writing a program to do this?
Perl would be the easiest to write, C++ will run faster.
--
========================================================================
SuggestSite Let Your Visitors Do The Talking. Word of
http://www.suggestsite.com mouth is the most powerful marketing tool.
========================================================================
------------------------------
Date: Mon, 29 Mar 1999 09:27:26 -0500
From: "Computer Guru Consulting" <computerguru@mailexcite.com>
Subject: Re: code to search for URLs?
Message-Id: <922717727.094.97@news.remarQ.com>
I don't think he's gonna write a whois app in C! It's been done 50 times b4!
--
Computer Guru Consulting
Bringing your business to the world
http://www.cguru.com
IndexFinger.com wrote in message <36FF533F.82520006@usa.net>...
|> Alternatively, which language do you think would be the easiest for
|> writing a program to do this?
|
|Perl would be the easiest to write, C++ will run faster.
|
|
|--
|========================================================================
|
|SuggestSite Let Your Visitors Do The Talking. Word of
|http://www.suggestsite.com mouth is the most powerful marketing tool.
|
|========================================================================
|
|
|
------------------------------
Date: Mon, 29 Mar 1999 16:50:30 +0200
From: =?iso-8859-1?Q?J=FCrgen?= Ibelgaufts <ibelgaufts@gfc-net.de>
Subject: Re: embeded Perl on Win32
Message-Id: <36FF9336.E349FC71@gfc-net.de>
Marcin,
please re-read my previous postings on this thread. You will
find the source code in the first and the command line in the
second posting. I built Perl 5.005 and Tk 8.008 from the source
distribution with Visual C++ 4.00 and now I am using Visual C++
5.00 (both Microsoft), but I never use the visual tools and
projects. I rather use the command line for compiling and
linking. Hope this helps.
Have a nice day
Juergen Ibelgaufts
-------------------------------------------------------------------
Marcin Kasperski schrieb:
>
> Jurgen, could you tell me how have you compiled your perl (taking just
> defaults or is some other way) ?
> I suspect that the problem is caused by either different perl
> configuration or the fact, that we use Microsoft Visual C++
>
> -- Marcin Kasperski Marcin.Kasperski<at>softax.com.pl
> -- marckasp<at>friko6.onet.pl
> -- Moje pogl1dy s1 moimi pogl1dami, nikogo poza mn1 nie reprezentuj1.
> -- (My opinions are just my opinions.)
------------------------------
Date: Mon, 29 Mar 1999 09:27:43 -0500
From: Petet Yang <peter_yang@groton.pfizer.com>
Subject: Excel file
Message-Id: <36FF8DDF.4DC8@groton.pfizer.com>
Hi.
does anyone know how to retrieve data from MS Excel file using Perl? And
an example too? Thanks in advance.
Peter
------------------------------
Date: Mon, 29 Mar 1999 02:06:20 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Help with split
Message-Id: <cp8nd7.ir5.ln@magna.metronet.com>
Bob Trieger (sowmaster@juicepigs.com) wrote:
: In article <36fef2d1.7640066@news.hex.net>, nf0@10500bc.org wrote:
: >I'm trying to split a line like this:
: >article.php3?file=issues/199903/something
: >I want to split on the /'s but I can't seem to
: >get the syntax correct could some one help?
: >Thanks in advance
: split /\//;
: you have to escape the forward slash with a back slash.
^^^^^^^^^^^^^^
Or, use alternative pattern match delimiters:
split m#/#; # no backwack required
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 29 Mar 1999 14:24:17 +0200
From: Alex Farber <alex@kawo2.rwth-aachen.de>
Subject: How to pass /PATTERN/ to mysplit /%%\n/, 1, 0 ?
Message-Id: <36FF70F1.21AEBFD8@kawo2.rwth-aachen.de>
Hi,
I have written some subroutine, which is called
this way: mysplit ('%%\n', 1, 0). It looks like this:
sub mysplit ($$$)
{
my ($delim, $href, $title) = @_;
...
@blocks = split / $delim /ix, $smth;
...
}
But actually I would like to call it the same way
as the regular split is called: mysplit (/%%/i, 1, 0);
Is it possible? How do I pass a /PATTERN/ ? And
how do I refer to it in my subroutine? Thank you!
/Alex
--
http://www.simplex.ru/news.html
------------------------------
Date: Mon, 29 Mar 1999 02:32:53 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: How to pass /PATTERN/ to mysplit /%%\n/, 1, 0 ?
Message-Id: <5band7.qu5.ln@magna.metronet.com>
Alex Farber (alex@kawo2.rwth-aachen.de) wrote:
: I have written some subroutine, which is called
: this way: mysplit ('%%\n', 1, 0). It looks like this:
: sub mysplit ($$$)
: {
: my ($delim, $href, $title) = @_;
: ...
: @blocks = split / $delim /ix, $smth;
: ...
: }
: But actually I would like to call it the same way
: as the regular split is called: mysplit (/%%/i, 1, 0);
: Is it possible?
Pretty close to that, with a modern perl.
( see perlop )
: How do I pass a /PATTERN/ ?
mysplit ( qr/%%\n/i, 1, 0)
: And
: how do I refer to it in my subroutine? Thank you!
as a scalar:
sub mysplit ($$$)
{
my ($regex, $href, $title) = @_;
my @blocks = split $regex, $smth;
...
}
$smth, and @blocks are global variables in your code.
Bad.
You should fix that.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 29 Mar 1999 11:18:19 GMT
From: blazek@sisblansko.cz
Subject: IIS 4,0 and PERL scripts.
Message-Id: <7dnnhl$tnj$1@nnrp1.dejanews.com>
Hi, I have a script in PERL running on IIS 4.0. We restricted numbers of
users to 2 only but it does not solve the problem. As this script runs about
20 minutes before it finishes users can just start the script and then log
off. The run PERL script is in memory and another user can loging in to our
web server and start another Perl script process. So, in memory we can have
about 25 PERL scripts allocating of 224 MB memory. When the memory is
comming to 250 MB, IIS 4.0 hangs. (We have 64 MB RAM in our server). 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, 29 Mar 1999 06:48:40 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Initializing an array with STDIN (newbie)
Message-Id: <MPG.1169329fcc9d457d9897e9@nntp.hpl.hp.com>
In article <k0noglclk0l.fsf@ido.phys.ntnu.no> on 29 Mar 1999 11:31:22
+0200, Joakim Hove <hove@ido.phys.ntnu.no >says...
...
> An alternative way of accomplishing the same as above is :
>
> while (defined($line = <INFILE>)) { # If your Perl -v > 5.005(?) you can
> # skip defined(..).
> chomp $line;
> push @order, $line; # Insert $line at the end of @order.
> }
An alternative way of accomplishing the same as above is :
chomp(@order = <INFILE>);
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personl/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 29 Mar 1999 14:46:35 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Input Password
Message-Id: <7do3ob$fmu$1@info2.uah.edu>
In article <7dk1rd$28s$1@gellyfish.btinternet.com>,
Jonathan Stowe <gellyfish@gellyfish.com> writes:
: fish,seeds,tools, Term::ReadKey ...
Term::ReadKey won't help in his situation.
Greg
--
>I need to programmatically reboot a Windows NT 4.0 server using Perl.
Any command NT has a certain chance to reboot the machine, hasn't it?
-- Abigail in <7a01hc$lvb$1@client2.news.psi.net>
------------------------------
Date: Mon, 29 Mar 1999 13:12:07 GMT
From: Dave Cross <dave@mag-sol.com>
Subject: London.pm Meeting
Message-Id: <7dnu72$2vp$1@nnrp1.dejanews.com>
It's time for another London Perl M[ou]ngers meeting. We'll be in the cellar
bar of Penderal's Oak on High Holborn on Thursday 1st April[1] from about
6:30pm until... well much later.
No dancing canines, but we *do* have Thirsty Camels.
Further details from our website <http://london.pm.org>.
Dave...
[1] This is *not* and April Fool joke!
--
Dave Cross
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, 29 Mar 1999 11:50:16 GMT
From: carlos.alvarez@one.at
Subject: MS-Word save as text problem
Message-Id: <7dnpdm$v4l$1@nnrp1.dejanews.com>
Hi,
Does anyone know how to save a Word 97 file as plain text?
After creating a word object ($word) using the Win32::OLE library,
I tried something like:
$word->ActiveDocument->SaveAs(FileName=> 'filename',FileFormat =>
'wdFormatText');
but wouldn't work.
If I try:
$word->ActiveDocument->SaveAs('filename');
saves the file as filename, but obviously not as text.
So I think there must be something wrong with the sintax while I tried to save
it as text.
I'm using version 5.005_02 for MSWin32-x86-object.
Could anyone help?
Thanks in advance,
Carlos
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 29 Mar 1999 13:56:51 GMT
From: jfreels@layton-graphics.com (John F)
Subject: Re: Need perl compiler
Message-Id: <36ff864c.4849529@news.mindspring.com>
That is not going to be easy, but I can tell you a place to get one if
you really have the need for one. It costs around $50. Its pretty
good. The company also has another verison that makes really small
EXE's for $100 or so.
On Mon, 29 Mar 1999 09:37:12 GMT, ahoben@globeaccess.net wrote:
>Who can help me have a freeware perl compiler for ibm compatible pc
>Thanks very match
>
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 29 Mar 1999 14:37:59 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7do387$fqc$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 22 Mar 1999 14:34:59 GMT and ending at
29 Mar 1999 07:54:13 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: 257 (49.8% of all posters)
Articles: 398 (29.7% of all articles)
Volume generated: 671.2 kb (29.3% of total volume)
- headers: 280.8 kb (5,840 lines)
- bodies: 376.1 kb (12,403 lines)
- original: 284.0 kb (9,664 lines)
- signatures: 13.9 kb (276 lines)
Original Content Rating: 0.755
Averages
========
Posts per poster: 1.5
median: 1 post
mode: 1 post - 200 posters
s: 2.7 posts
Message size: 1726.9 bytes
- header: 722.3 bytes (14.7 lines)
- body: 967.7 bytes (31.2 lines)
- original: 730.7 bytes (24.3 lines)
- signature: 35.9 bytes (0.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
42 65.9 ( 30.6/ 28.3/ 15.2) Jonathan Stowe <gellyfish@gellyfish.com>
8 10.0 ( 6.2/ 3.8/ 2.1) Michael Cameron <Michael.Cameron@REMOVETHIS.technologist.com>
6 26.7 ( 4.9/ 21.8/ 13.4) "William Flanagan" <wflanagan@msn.com>
5 7.5 ( 3.3/ 4.2/ 1.9) Eric The Read <eric.schwartz@acm.org>
5 10.1 ( 3.4/ 6.7/ 5.3) jt45@tir.com (Murphy)
5 7.9 ( 3.8/ 4.1/ 1.3) "Jason Simms" <ffchopin@worldnet.att.net>
5 5.2 ( 2.8/ 2.3/ 1.2) "Peter Sergeant" <petes@hempseed.com>
5 8.0 ( 2.9/ 5.1/ 2.5) larsot2@krypton.mankato.msus.edu (Timothy Larson)
4 5.2 ( 2.2/ 3.0/ 1.2) k.a.skotheim@usit.uio.no (Kjetil Asbj|rn Skotheim)
4 14.2 ( 3.8/ 10.2/ 4.7) 555034897s@acadiau.ca
These posters accounted for 6.7% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
65.9 ( 30.6/ 28.3/ 15.2) 42 Jonathan Stowe <gellyfish@gellyfish.com>
26.7 ( 4.9/ 21.8/ 13.4) 6 "William Flanagan" <wflanagan@msn.com>
16.7 ( 1.4/ 15.2/ 15.0) 2 John Crownover <johnc@donner.sps.mot.com>
14.2 ( 3.8/ 10.2/ 4.7) 4 555034897s@acadiau.ca
10.1 ( 3.4/ 6.7/ 5.3) 5 jt45@tir.com (Murphy)
10.0 ( 6.2/ 3.8/ 2.1) 8 Michael Cameron <Michael.Cameron@REMOVETHIS.technologist.com>
9.9 ( 0.8/ 8.9/ 8.8) 1 brad@shub-internet.org (Brad Knowles)
8.1 ( 2.7/ 5.4/ 4.5) 4 sstarre@my-dejanews.com
8.0 ( 2.9/ 5.1/ 2.5) 5 larsot2@krypton.mankato.msus.edu (Timothy Larson)
7.9 ( 3.8/ 4.1/ 1.3) 5 "Jason Simms" <ffchopin@worldnet.att.net>
These posters accounted for 7.7% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.910 ( 1.7 / 1.8) 4 "Gabriel Richards" <grichard@uci.edu>
0.854 ( 2.7 / 3.1) 3 Halfdan Ingvarsson <halfdan@no-junk-mail.pison.com>
0.820 ( 4.5 / 5.4) 4 sstarre@my-dejanews.com
0.790 ( 5.3 / 6.7) 5 jt45@tir.com (Murphy)
0.783 ( 2.0 / 2.5) 3 "Ty! Boyack" <ty@cnr.colostate.edu>
0.758 ( 2.2 / 2.9) 3 Tony Bowden <tony@crux.blackstar.co.uk>
0.757 ( 2.4 / 3.1) 3 Tony Bowden <tony@blackstar.co.uk>
0.726 ( 2.6 / 3.6) 3 Huang Lee <hlee@ccserv2.ee.ntu.edu.tw>
0.708 ( 1.7 / 2.4) 4 Christoph Schmitz <cschmitz@stud.informatik.uni-trier.de>
0.615 ( 13.4 / 21.8) 6 "William Flanagan" <wflanagan@msn.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.545 ( 2.1 / 3.8) 8 Michael Cameron <Michael.Cameron@REMOVETHIS.technologist.com>
0.539 ( 15.2 / 28.3) 42 Jonathan Stowe <gellyfish@gellyfish.com>
0.531 ( 1.2 / 2.3) 5 "Peter Sergeant" <petes@hempseed.com>
0.498 ( 2.5 / 5.1) 5 larsot2@krypton.mankato.msus.edu (Timothy Larson)
0.465 ( 1.1 / 2.5) 3 Raven513 <Go-Ravens@Baltimore.Com>
0.461 ( 4.7 / 10.2) 4 555034897s@acadiau.ca
0.455 ( 1.9 / 4.2) 5 Eric The Read <eric.schwartz@acm.org>
0.404 ( 1.2 / 3.0) 4 k.a.skotheim@usit.uio.no (Kjetil Asbj|rn Skotheim)
0.312 ( 1.3 / 4.1) 5 "Jason Simms" <ffchopin@worldnet.att.net>
0.200 ( 0.5 / 2.5) 3 pmak@iname.com
21 posters (8%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
7 Kevin Smith <kevin.smith@ntexpert.demon.co.uk>
5 "Peter Sergeant" <petes@hempseed.com>
4 "Michael Villeneuve" <mickv@home.com>
3 Karen J . Cravens <silver+web@wirebird.com>
3 "$p$p&L%J" <IA'r&n3%>
2 beckb1@mama.indstate.edu
2 brad@shub-internet.org (Brad Knowles)
2 thoye@online.no (Thore Harald Hoye)
2 "Javier Rubio" <javierrubio@interlink.es>
1 "Rovetto Stefan" <designo@gmx.net>
------------------------------
Date: 29 Mar 1999 12:36:09 GMT
From: lnottingha@aol.com (LNottingha)
Subject: New to perl, how do I test the installation?
Message-Id: <19990329073609.24374.00001733@ng119.aol.com>
I just installed perl 5 on an NT server and the script i'm trying to run
doesn't work. How do I test the installation?
------------------------------
Date: Mon, 29 Mar 1999 14:28:56 GMT
From: gellyfish@gellyfish.com (Jonathan Stowe)
Subject: Re: New to perl, how do I test the installation?
Message-Id: <36ff8df4.24274886@news.dircon.co.uk>
On 29 Mar 1999 12:36:09 GMT, lnottingha@aol.com (LNottingha) wrote:
>I just installed perl 5 on an NT server and the script i'm trying to run
>doesn't work. How do I test the installation?
go to the command prompt and type 'perl -v'
/J\
------------------------------
Date: Mon, 29 Mar 1999 11:36:34 +0000
From: Neil Salter <neil@mve.com>
Subject: Newbie question, IE starts winzip
Message-Id: <36FF65C2.B142784C@mve.com>
Hello,
I've checked Deja News, and various FAQ's, and cannot find a solution
to my problem...
I have some text files stored on disk, they're gzipped up and have
the .gz suffix. I want to be able to view them in a browser
and have written a perl CGI script which, given a texfile as an input
parameter, gzcat's the relevant file.
The link(s) in the webpage take the form:
http://machinename/cgi-bin/show_log.pl?logfile=filename.gz
The CGI script (edited for brevity) show_log.pl goes something
like:
#!/usr/local/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $absLogDir="/path/to/logfiles";
my $cat_cmd='/usr/sbin/gzcat';
# Turn on stdout flushing
use FileHandle;
STDOUT->autoflush(1);
$logfile=param('logfile');
print header('text/plain');
system($cat_cmd,"$absLogDir/$logfile");
Everything works fine in Netscape, on both Unix and Windows machines.
However, if someone uses Internet Explorer, the browser starts
winzip when the link is clicked.
I'm guessing that I can fix this by changing the .gz extension in
the URL, and having the CGI script doctor the 'logfile' param
appropriately.
I'd like to know, though, is this the right fix? I can't find any
references to this type of problem anywhere.
Thanks in advance for any help,
Neil.
------------------------------
Date: Mon, 29 Mar 1999 13:19:33 GMT
From: jfreels@layton-graphics.com (John F)
Subject: Re: Parsing text file
Message-Id: <36ff7c7d.2338502@news.mindspring.com>
Just give the man a little code, that will get his intrest sparked:
Here, lets suppost that you have a text file called BAD.LST, in that
file is located the following text:
10002.TIF~THE FIRST IMAGE~90
10003.TIF~THE SECOND IMAGE~90
First we would have to decide what you needed to do. If you just
wanted to split up the columns just use:
open(FILE, "bad.lst");
while(<BAD.LST>)
{
chomp;
split(/\~/, $_); #cut string by '~'and store them in @_
foreach(@_) #foreach entry in the @_, print it.
{
print, "\n";
}
}
if you wanted to store each column in its own variable just insert
'($var1,$var2,$var3) = ' infront of your split.
On Thu, 25 Mar 1999 14:10:27 -0500, Ala Qumsieh <aqumsieh@matrox.com>
wrote:
>
>"Alan Scott" <balanscott@earthlink.net> writes:
>
>> I need to read a test file into an array so I can then write it out as a
>> different file. How would I do this????
>
>Reading some docs and FAQs would be a great start. Try it and let us
>know if you have any problems.
>
------------------------------
Date: Mon, 29 Mar 1999 06:33:26 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Parsing text file
Message-Id: <MPG.11692f09d0bad9d49897e8@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <36ff7c7d.2338502@news.mindspring.com> on Mon, 29 Mar 1999
13:19:33 GMT, John F <jfreels@layton-graphics.com >says...
> Just give the man a little code, that will get his intrest sparked:
I'm sure you are trying to be helpful by providing a little code here.
But when the code is untested and is incorrect on almost every line, you
are not performing a useful service.
> Here, lets suppost that you have a text file called BAD.LST, in that
> file is located the following text:
>
> 10002.TIF~THE FIRST IMAGE~90
> 10003.TIF~THE SECOND IMAGE~90
>
> First we would have to decide what you needed to do. If you just
> wanted to split up the columns just use:
>
> open(FILE, "bad.lst");
Where is the test for failure of this 'open'?
> while(<BAD.LST>)
If the file was opened, the filehandle to read is 'FILE'. What is
'BAD.LST'?
> {
> chomp;
> split(/\~/, $_); #cut string by '~'and store them in @_
If you tested this program with warnings enabled, you would have found
that this implicit split to @_ is deprecated.
> foreach(@_) #foreach entry in the @_, print it.
> {
> print, "\n";
I'm sure you intended to print $_ followed by "\n". There are several
ways to do that, but this isn't one of them.
...
> On Thu, 25 Mar 1999 14:10:27 -0500, Ala Qumsieh <aqumsieh@matrox.com>
> wrote:
>
> >Reading some docs and FAQs would be a great start. Try it and let us
> >know if you have any problems.
That is much better advice than yours.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personl/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 29 Mar 1999 14:35:36 GMT
From: Bob Daly <bdaly@averstar.com>
Subject: Perl calling MS Word
Message-Id: <36FF8FB8.7558134D@averstar.com>
Does anyone know how to call Word in Perl? I've tried the exec and
system commands but nothing seems to work. Also, can commands within
Word be executed, i.e. mail merge?
Thanks,
Bob Daly
------------------------------
Date: 29 Mar 1999 14:22:06 GMT
From: robzenuk@aol.com (Robzenuk)
Subject: Re: PWS, Win95, CGI and Perl
Message-Id: <19990329092206.04694.00001898@ng13.aol.com>
Thanks for the help, I appreciate the quick response.
I had tried to follow the instructions in the perlwin32faq6 that suggested the
same thing.
In regedit.exe on Windows95 I went to:
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\W3SVC\Parameters\Script
Map
Using Edit/New/String Value, I mapped:
.pl => c:\perl\bin\perl.exe
.plx => c:\perl\bin\perlIS.dll
Initially, this made no difference. After a reboot the browser just went out
to lunch waiting for the response. This happened with both GET and POST.
I had already set the execute and script permissions in cgi-bin directory.
I have been using Perl successfully for quite a while. I'm new to using and
posting to the newsgroups and wonder if I'm not posting to the right place. Is
there somewhere else that may be more appropriate for this kind of post (and/or
research)?
I already found a link in another posting to
http://www.btinternet.com/~gellyfish/docs/map.html
This contains a lot of detailed information on all the PWS registry entries.
I'm hoping someone has a cookbook for this or I'm just missing something really
obvious...
Thanks,
Rob
------------------------------
Date: 29 Mar 1999 09:28:00 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Nir Leshem <nirl@zoran.co.il>
Subject: Re: qe:operation on binary files
Message-Id: <m3hfr4nzf3.fsf@joshua.panix.com>
Nir Leshem <nirl@zoran.co.il> writes:
> i need to bitswap each word in a binary file
> (i.e 0000_0000_0000_0001 becomes 1000_0000_0000_0000)
Have you seen the documentation for pack() and unpack()?
perldoc -f pack
perldoc -f unpack
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Mon, 29 Mar 1999 02:02:19 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: RE to match one line of Larry's quote
Message-Id: <rh8nd7.ir5.ln@magna.metronet.com>
Tong (555034897s@acadiau.ca) wrote:
: So here is my conclusion, correct me if I'm wrong (and tell me if I'm
: right):
: During a muti-line RE match
: "\s" will match/eat "\n", while
: "." will still don't match "\n"
Both of those are normally true all of the time.
Single line vx. multi line makes no difference.
\s _always_ matches a newline
. does not match newline, unless you use the m//s option.
: Right? Because they are really not appears in the man pages. Another
: "un-documented" magic usage is "-n0777e". If I changed to "-ne" and it
: wouldn't work any more. I red perlrun several times afterwards and now
: think the 0777 is the same "octnum" as in "-l[octnum]"? I really think
: these 3 points will appear in next perl man pages. :-)
A word search for "0777" in perlrun.pod reveals that is the
"command line way" to get slurp mode ( $/ = undef ).
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 29 Mar 1999 09:53:41 GMT
From: gellyfish@gellyfish.com (Jonathan Stowe)
Subject: Re: sorting associative array by values
Message-Id: <36ff4d70.7756816@news.dircon.co.uk>
On Mon, 29 Mar 1999 15:13:30 +0900, "Hojoo Moon" <hjmoon@netsgo.com>
wrote:
>Hello, help me, please.
>
>Does anybody know how to sort an associative array by values?
>I know there is a way sorting an associative array by indexes:
> sort keys(%arrary)
>
>But I would like to get an easy way to sort:
> (apple 7, pear 15, mellon 5) ==> (pear 15, apple 7, mellon 5)
>
You probably want to look at perlfaq4:
=head2 How do I sort a hash (optionally by value instead of key)?
/J\
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 5249
**************************************
