[7607] in Perl-Users-Digest
Perl-Users Digest, Issue: 1233 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 27 12:17:13 1997
Date: Mon, 27 Oct 97 09:00:22 -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, 27 Oct 1997 Volume: 8 Number: 1233
Today's topics:
Agrep for perl ? <matousek@sunman.cern.ch>
Browser redirect for MSIE4.0 <acauth1@swbell.net>
Re: BUG in WinPerl; OK in Unix Perl <pfortin@cisco.com>
CGI using Perl on NT 4.0 IIS <yjan@ms7.hinet.net>
Re: Has Perl gone off the deep end or is it me??? <mpchandler@mema.mail.fedex.com>
Help with VMSPerl <randy_crepeault@mitel.com>
Re: HELP: Registration with .htaccess ???? (robert)
How to send keystrokes from Perl to Win95 app <lafleur@usl.edu>
Http header and filename <per@beining.dk>
Re: Memory problems - how can I fix? <rootbeer@teleport.com>
Re: other language for perl <petri.backstrom@icl.fi>
Passing HTML Forms to IMAP4/POP3 sysdev5@hotmail.com
Re: Passing HTML Forms to IMAP4/POP3 <larsga@ifi.uio.no>
Re: Perl 5 and here documents <rootbeer@teleport.com>
Re: Perl module for system-independent "stty raw"? (Lloyd Zusman)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: tcp/ip connecttions (I R A Aggie)
Urgent Perl question <jjune@miday.uchicago.edu>
Re: Your opinion on The Perl Journal (TPJ) ? (Jeffrey R. Drumm)
Re: Your opinion on The Perl Journal (TPJ) ? (Steffen Beyer)
Re: Your opinion on The Perl Journal (TPJ) ? (Toutatis)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 27 Oct 1997 13:26:39 GMT
From: Petr Matousek <matousek@sunman.cern.ch>
Subject: Agrep for perl ?
Message-Id: <3454968F.6B2E@sunman.cern.ch>
Hi,
I am looking for perl module/package which contains agrep (grep for
approximate matching). Has anybody heard about it?
Petr
*************************************************
Petr Matousek
IT Division, bldg.31.1.018; CERN; CH-1211 Geneva 23; Switzerland
phone: +41 22 767 9801
e-mail: Petr.Matousek@cern.ch
------------------------------
Date: Mon, 27 Oct 1997 09:49:04 -0600
From: "acauth1" <acauth1@swbell.net>
Subject: Browser redirect for MSIE4.0
Message-Id: <632d32$6bi$1@news3.texas.net>
Trying to find a browser redirect script that will recognize Netscape, MSIE
3, and MSIE 4.0 as well as others. Please let me know if anyone knows of
one.
Thanks,
Robert
------------------------------
Date: Mon, 27 Oct 1997 11:02:36 -0500
From: Pierre Fortin <pfortin@cisco.com>
To: John Bokma <jbokma@caiw.nl>
Subject: Re: BUG in WinPerl; OK in Unix Perl
Message-Id: <3454BB1B.1C8C7B02@cisco.com>
John,
Thanks for the info... <SIGH> It's no wonder I've always hated
WindHose...
And I just purchased "Cross-Platform Perl" which mentions using binmode
for CRLF; but not for EOF... I've added "and 0x1A = EOF" (in red ink) at
the bottom of Page 80. Thanks! It amazes me that MS couldn't think of
detecting EOF based on... umm... file length?
Perl porting issue: It would seem to me that something like "binmode"
should be tied to open() and made platform-aware in order to make Perl
code more directly portable... and where "chr 10" is not automatically
converted to "\n"(CRLF in the case of Win(er.. Lose))... I would have
expected that printing individual characters(bytes) would override any
conversion to "\<*>".
Pierre
@Perl_Pros = ('many ways to solve a problem', 'many places to find
information');
@Perl_Cons = @Perl_Pros;
John Bokma wrote:
> Pierre Fortin <pfortin@cisco.com> wrote in article
> <3453E734.77CF2F94@cisco.com>...
> > There is a bug in WinPerl wherein a file which contains 0x1A can't
> be
> > read past that point...
> >
> open(FILE, "xxxx");
> binmode(FILE) # this does the trick
>
> You have to open the file in binary mode because 0x1a means end of
> file
> (I walked into this 'feature' when I tried to read the width and
> height of
> gif files. Some gifs caused problems (yes you guessed right: at least
> one of the dimensions was 26 pixels)
>
> John
>
> BTW this is in the FAQ
>
> --
> ----------------------------------------------------------------------
> ------
> C A S T L E A M B E R Freelance Software Development
> (Java/Perl/C/CGI)
> http://www.caiw.nl/~jbokma/ [Java demo's,Perl scripts,Xara graphics,
> Resume]
> mail:jbokma@caiw.nl phone: +31 10 4291827
------------------------------
Date: 26 Oct 1997 12:31:03 GMT
From: "CMR" <yjan@ms7.hinet.net>
Subject: CGI using Perl on NT 4.0 IIS
Message-Id: <01bce20c$17f8d680$91bc5fa8@hntp1.hinet.net>
Hey, all
I am using Perl writing CGI on my Web Server (NT 4.0 with IIS).
I have configured cgi-bin using Service Manager (HTML one).
But the CGI does not work correctly. Every time when a click on
an <a href="http://xxx.xx.x.xx/cgi-bin/xxx.pl>, it just prompt out
a window asking if I want it to write to disk or open it.
Could anyone tell me what else do I need to configure ????
Thanks in advance.
Jonathan
------------------------------
Date: Mon, 27 Oct 1997 10:37:18 -0600
From: Michael P Chandler <mpchandler@mema.mail.fedex.com>
Subject: Re: Has Perl gone off the deep end or is it me???
Message-Id: <3454C33E.15EB3B53@mema.mail.fedex.com>
> $Type = "P";
>
> print "Type = $Type\n";
> if ($Type == "X")
> {
I thought string comparisons needed:
if ( <str_expr> eq <str_expr>) .......
------------------------------
Date: Mon, 27 Oct 1997 09:18:04 -0500
From: Randy Crepeault - ops <randy_crepeault@mitel.com>
Subject: Help with VMSPerl
Message-Id: <3454A29C.8C8507C1@mitel.com>
Hi All,
I have recently installed Perl on our Alpha computer and cannot seem to
get Perl to accept input
from the command line.
example .com file:
$ MCR dsa530:[perl5]Perl.exe "-I[-.lib]"
$ deck/dollar=$$END_PROG$$
Print STDOUT " Please enter your name : ";
chop($name=<STDIN>);
print STDOUT "Your name is $name,\n";
$$END_PROG$$
$!
This com file will display the prompt on the screen but not stop and
wait for input as it does in UNIX,
instead it just prints out "Your name is " and exits.
I thought is was a sys$input/sys$command thing, when I tried defining
sys$input as sys$command,
the program just sat there, displaying no output at all.
Any ideas ??? Do I need a special module or something, all the
documentation I have read seems to indicate
that this should work as in UNIX.
Thanks,
Randy Crepeault
randy_crepeault@mitel.com
------------------------------
Date: 27 Oct 1997 13:07:42 +0100
From: robert@il.fontys.nl (robert)
Subject: Re: HELP: Registration with .htaccess ????
Message-Id: <63206e$en@bsd1.hqehv-internal.ilse.net>
tkonink@horizon.nl:
>I hope you can help me.
>I want to set up a member-only zone, with pages and scripts only for
>members. A person entering this zone has to log in.
>The problems I face are:
>- If someone has logged in (.htacces or ????) and starts a script within
>the zone (of scripts and pages), can I identify (within a Perl-script)
>the person by getting his Loginname somehow.
Sure, the login-name will be in the environment-variable REMOTE_USER.
>Other question:
>- Can I use Cookies (getting/sending/deleting) within Perl-scripts ?
That too, check out the libwww-perl module
(ftp://ftp.cs.ruu.nl/users/mirror/CPAN/modules/by-module/LWP/)
robert
------------------------------
Date: 27 Oct 1997 14:00:45 GMT
From: "L. Dwynn Lafleur" <lafleur@usl.edu>
Subject: How to send keystrokes from Perl to Win95 app
Message-Id: <01bce2e0$c6f79fc0$1b404682@ucs.usl.edu>
Is it possible to send keystrokes from a running Perl script to a Win95
application that the script has opened? For example, from a Perl script,
can I open Notepad and then issue a command in the script to insert a text
string into the Notepad document?
If not, does anyone know of a Win95 scripting language in which this can be
done?
--
===========================================
L. Dwynn Lafleur
Professor of Physics
The University of Southwestern Louisiana
Lafayette, Louisiana (USA)
lafleur@usl.edu
===========================================
------------------------------
Date: Mon, 27 Oct 1997 14:04:57 +0100
From: Per Beining <per@beining.dk>
Subject: Http header and filename
Message-Id: <34549178.B2FE66B9@beining.dk>
Hi there!
I'm hoping anyone can help me, with the following problem, or at least
tell me that I have to find another way around this problem.
My problem is the following:
I am loading files up to a Perl-script and saving these with ascending
filenames:
DOWNLOAD.GIF -> 1.file
afterwards I want to download these files with the following
commandline:
http://www.beining.dk/cgi-bin/download.cgi?filename=DOWNLOAD.GIF&fileid=1
My download.cgi (Perl-script) look's simplified like this:
$filetype = "image/gif";
print "Content-type: $filetype\n\n";
open (FILE, "$fileid.fil")
while (FILE){
print;
}
close (FILE);
There is no problem downloading, but when I want to save the file, the
name the browser suggest is download.cgi
Is it possible, in the http-header to set what the filename of the
transfering file is - or is there no way around rename the file before
downloading it.
I do hope that the above gives some kind of meaning, and that anyone has
a solution to the problem.
Per Beining
------------------------------
Date: Mon, 27 Oct 1997 07:33:33 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Ryan <wwolfe@netcom.com>
Subject: Re: Memory problems - how can I fix?
Message-Id: <Pine.GSO.3.96.971027073149.15628F-100000@usertest.teleport.com>
On Mon, 27 Oct 1997, Ryan wrote:
> I realise that perl can't free() up a block of memory back to the
> OS, but shouldn't perl be able to reuse memory it's already allocated?
It can and does reuse memory, with one notable exception (unreachable
circular data structures). If you find other situations in which it fails
to re-use reclaimable memory, please file a bug report with perlbug.
Thanks!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Mon, 27 Oct 1997 11:11:33 +0200
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: other language for perl
Message-Id: <34545AC5.33EF@icl.fi>
Geoffrey Hebert wrote:
>
> I wish to translate my site to another language.
> Most of the site is html created from perl cgi.
>
> Could someone tell me how the process might work?
If it is about translating, e.g., an English language
site to, say, Finnish, then you:
1) Find all the HTML templates you use (surely,
nobody generates HTML directly from Perl, do
they ;-)
2) Find all CGI scripts and other pieces that
generate output.
3) Translate all that (it is simple, of course,
since every sensible developer isolates
presentation from function, translatable
texts from code, etc.; i.e., strings are in
one place/file & such ;-)
4) Check/convert/fix things such as date & time
presentation formats, currency formats,
sorting/collating order stuff, etc.
5) Put up the translated stuff alongside the
original (set up different language front
pages that people can bookmark, and add
links to each to switch to the other).
On the other hand, if you meant to translate from
Perl to another programming language, then:
Why?
Anyway, if that really is what you want, it'll go
like this:
1) You learn Perl well enough to understand
what the code is doing.
2) You learn another language well enough
to get done what you need done.
3) You port the Perl code to the other
language.
Besides reimplementing/redesigning your existing code,
you also need to port or replace any Perl modules
someone else has done that your existing code is using.
You also have to figure out how to do things that may
be difficult/overly complicated to accomplish in your
"new" language, that are easy in Perl (how much work
that is depends on the language chosen, and possible
libraries/tools available to augment it).
When you've chosen your new language, then go to
a newsgroup for that language, and post snippets
of Perl there, and ask questions like:
<this> (whatever "this" is) is done thus in
Perl, how do I do it in <other-language>?
In order to avoid flames, I suggest - however -
that you learn enough of the new language, read
all pertinent documentation and FAQ lists before
you post such questions (and preferrably also add
an example or two of how you tried to use the new
language yourself, and how it failed, and what you
expected to happen).
regards,
...petri.backstrom@icl.fi
ICL Data Oy
Finland
------------------------------
Date: Mon, 27 Oct 1997 09:22:16 -0600
From: sysdev5@hotmail.com
Subject: Passing HTML Forms to IMAP4/POP3
Message-Id: <877964876.20030@dejanews.com>
Is it possible to submit HTML form content to an IMAP4/POP3 server either
directly from a browser or through the use of an intermediary PERL module
or other code?
Please reply to jerome.bradenbaugh@firstunion.com
Thanks in advance.
Jerry Bradenbaugh
First Union National Bank
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 27 Oct 1997 17:18:50 +0100
From: Lars Marius Garshol <larsga@ifi.uio.no>
Subject: Re: Passing HTML Forms to IMAP4/POP3
Message-Id: <wkoh4bkwlx.fsf@ifi.uio.no>
* sysdev5@hotmail.com
|
| Is it possible to submit HTML form content to an IMAP4/POP3 server either
| directly from a browser or through the use of an intermediary PERL module
| or other code?
Yes, with the caveat that IMAP4 and POP3 are protocols for _downloading_
mail, not sending it. Use <FORM ACTION="mailto:address"> (note that this
will URL-encode the form data, which does not make for readability) or
submit it to a CGI program that can forward it via SMTP.
| Please reply to jerome.bradenbaugh@firstunion.com
On USENET asking for replies to your email address only is considered
both rude and unwise. This is because:
- other people may want to see the answer as well
- if you want people spend some of their time to help you, the least
you can do is to take a little extra time to check the groups
- others can't challenge/verify the correctness of the answers you get
and they can't start any discussions on the group, which might be of
interest to both you and others
- others can't see if the question has already been answered satisfactorily
If you can't read the group (or it's very difficult for you), then say
so, and ask for replies to your email address as well as to the group.
--
________________________________________________________________________
Lars Marius Garshol
"Make it idiot proof and someone will make a better idiot", Bill Arnett
http://www.ifi.uio.no/~larsga/ http://birk105.studby.uio.no/
------------------------------
Date: Mon, 27 Oct 1997 07:29:34 -0800
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Perl 5 and here documents
Message-Id: <Pine.GSO.3.96.971027072709.15628E-100000@usertest.teleport.com>
On 26 Oct 1997, Steve Walker wrote:
> Can't find string terminator " end_of_html" anywhere before EOF at
> class_ad_test.cgi line 905.
When Perl gives the error message that it can't find the string
terminator of a here-document, almost always that means that you have
some (invisible) characters before or after the termination line, which
should contain nothing but that string and its trailing newline. Make
sure that there aren't any spaces, tabs, return characters, or anything
else before or after the tag. If you've moved the file from machine to
machine without converting line endings properly, that's likely to be
the problem. Hope this helps!
> Please remove the nospam part to reply by email....
Please remove the nospam part to get replies by email.... :-)
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 27 Oct 1997 12:51:36 GMT
From: ljz@asfast.com (Lloyd Zusman)
Subject: Re: Perl module for system-independent "stty raw"?
Message-Id: <slrn6593ca.r60.ljz@ljz.asfast.net>
> I looked through CPAN, and I haven't been able to find what I'm
> looking for: a Perl module which will allow me to do an "stty raw", an
> "stty sane", etc. in a system independent manner. Furthermore, I
> would like to do this totally within my Perl process, and therefore I
> want to avoid using "system('stty raw')".
In case anyone else is wanting something like this, I want to report
that I found what I was looking for: it's the Term::ReadKey module, and
it can be downloaded from CPAN.
It seems to work just fine.
--
Lloyd Zusman
ljz@asfast.com
------------------------------
Date: 27 Oct 1997 15:31:41 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <632c4t$4ks$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 18 Oct 1997 09:51:31 GMT and ending at
25 Oct 1997 06:10:03 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" e-mail address and name.
- Original Content Rating is the ratio of the original content volume
to the total body volume.
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 363
Total number of articles: 742 (279 with cutlined signatures)
Total number of threads: 326
Total volume generated: 1307.4 kb
- headers: 526.5 kb (10,562 lines)
- bodies: 718.4 kb (22,915 lines)
- original: 507.8 kb (16,765 lines)
- signatures: 60.6 kb (1,348 lines)
Original Content Rating: 0.7068
Averages
========
Number of posts per poster: 2.04
median: 1 post
mode: 1 post - 252 posters
s: 3.24 posts
Number of posts per thread: 2.28
median: 2.0 posts
mode: 1 post - 130 threads
s: 1.49 posts
Message size: 1804.2 bytes
- header: 726.7 bytes (14.2 lines)
- body: 991.5 bytes (30.9 lines)
- original: 700.7 bytes (22.6 lines)
- signature: 83.6 bytes (1.8 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
28 55.0 ( 23.2/ 31.8/ 22.1) Doug Seay <seay@absyss.fr>
25 74.7 ( 22.1/ 52.5/ 20.4) faust@wwa.com
24 53.5 ( 15.2/ 28.8/ 19.4) Mike Stok <mike@stok.co.uk>
22 32.8 ( 15.0/ 13.0/ 8.1) brian d foy <comdog@computerdog.com>
22 34.2 ( 18.4/ 11.5/ 7.4) Tom Phoenix <rootbeer@teleport.com>
17 25.2 ( 11.2/ 10.3/ 5.7) Jeremy D. Zawodny <zawodny@hou.moc.com>
17 24.2 ( 11.7/ 12.1/ 5.7) Toutatis <toutatis@_SPAMTRAP_toutatis.net>
14 24.4 ( 7.9/ 16.5/ 10.1) Tad McClellan <tadmc@flash.net>
13 20.7 ( 9.1/ 8.8/ 5.3) Martien Verbruggen <mgjv@comdyn.com.au>
10 20.7 ( 6.2/ 12.5/ 9.3) Andrew M. Langmead <aml@world.std.com>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
74.7 ( 22.1/ 52.5/ 20.4) 25 faust@wwa.com
55.0 ( 23.2/ 31.8/ 22.1) 28 Doug Seay <seay@absyss.fr>
53.5 ( 15.2/ 28.8/ 19.4) 24 Mike Stok <mike@stok.co.uk>
34.2 ( 18.4/ 11.5/ 7.4) 22 Tom Phoenix <rootbeer@teleport.com>
32.8 ( 15.0/ 13.0/ 8.1) 22 brian d foy <comdog@computerdog.com>
25.2 ( 11.2/ 10.3/ 5.7) 17 Jeremy D. Zawodny <zawodny@hou.moc.com>
24.4 ( 7.9/ 16.5/ 10.1) 14 Tad McClellan <tadmc@flash.net>
24.2 ( 11.7/ 12.1/ 5.7) 17 Toutatis <toutatis@_SPAMTRAP_toutatis.net>
20.7 ( 9.1/ 8.8/ 5.3) 13 Martien Verbruggen <mgjv@comdyn.com.au>
20.7 ( 6.2/ 12.5/ 9.3) 10 Andrew M. Langmead <aml@world.std.com>
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
------ -------------- ----- -------
0.9991 9.2 / 9.2 7 "hcondon" <hcondon@ix.netcom.com>
0.9919 9.0 / 9.0 6 John Moreno <phenix@interpath.com>
0.9859 3.3 / 3.3 6 Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh" <bsa@void.apk.net>
0.8107 9.8 / 12.1 6 Stephan Vladimir Bugaj <bugaj@bell-labs.com>
0.8044 2.7 / 3.4 5 petri.backstrom@icl.fi
0.7436 9.3 / 12.5 10 Andrew M. Langmead <aml@world.std.com>
0.6968 22.1 / 31.8 28 Doug Seay <seay@absyss.fr>
0.6921 4.8 / 6.9 5 "Allen Evenson" <ase@seanet.com>
0.6731 19.4 / 28.8 24 Mike Stok <mike@stok.co.uk>
0.6432 7.4 / 11.5 22 Tom Phoenix <rootbeer@teleport.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
------ -------------- ----- -------
0.5549 5.7 / 10.3 17 Jeremy D. Zawodny <zawodny@hou.moc.com>
0.5321 3.6 / 6.7 7 abigail@fnx.com
0.5274 3.8 / 7.3 8 Nem W Schlecht <nem@abattoir.cc.ndsu.nodak.edu>
0.5255 2.0 / 3.9 6 Craig A. Shortreed <cshortreed@valnet.com>
0.4822 2.7 / 5.7 6 Jim Stern <jstern@world.northgrum.com>
0.4670 5.7 / 12.1 17 Toutatis <toutatis@_SPAMTRAP_toutatis.net>
0.4641 1.8 / 3.8 5 Ilya Zakharevich <ilya@math.ohio-state.edu>
0.4425 2.1 / 4.7 5 Eike Grote <eike.grote@theo.phy.uni-bayreuth.de>
0.4231 2.4 / 5.6 5 Mike Heins <mheins@prairienet.org>
0.3883 20.4 / 52.5 25 faust@wwa.com
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
9 Most efficient way to parse large text files
7 @ + @ = % but how?
7 help solving this beginning 'perl' program
7 Year 2000 for GNU-Perl5
7 Primes via regexen (Was: Re: non-greedy regexps)
7 Year2000 problem with localtime();
6 [Reposted due to Enlow UCE cancel]: Re: How do I collect email address using perl?
6 Move specified number of variables into one array???
6 non-greedy regexps
6 Learning Perl... best way?
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
20.9 ( 9.3/ 11.6/ 10.4) 6 [Reposted due to Enlow UCE cancel]: Re: How do I collect email address using perl?
19.5 ( 2.6/ 16.8/ 4.0) 2 [Reposted due to Enlow UCE cancel]: Re: HELP! perl and windows!
17.6 ( 4.8/ 12.8/ 11.7) 5 OR v. Randal: Employees have no 1st Amendment Rights
17.6 ( 7.0/ 9.9/ 5.9) 9 Most efficient way to parse large text files
16.3 ( 6.1/ 7.6/ 4.6) 4 [Reposted due to Enlow UCE cancel]: Re: How do I match the first word in a string?
15.5 ( 5.7/ 9.8/ 6.2) 4 [Reposted due to Enlow UCE cancel]: Re: map or for : which is better in this case?
14.9 ( 4.5/ 8.8/ 4.8) 6 non-greedy regexps
14.5 ( 6.0/ 7.9/ 3.8) 7 Primes via regexen (Was: Re: non-greedy regexps)
13.9 ( 4.8/ 8.4/ 5.7) 7 @ + @ = % but how?
13.5 ( 6.1/ 6.9/ 5.4) 7 Year 2000 for GNU-Perl5
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
30 comp.lang.perl.modules
18 comp.lang.perl
7 misc.jobs.offered
7 misc.jobs.misc
7 jobs
7 alt.jobs
6 comp.databases.oracle.misc
6 comp.databases.sybase
6 comp.lang.perl.tk
6 alt.jobs.overseas
Top 10 Crossposters
===================
Articles Address
-------- -------
73 "hcondon" <hcondon@ix.netcom.com>
10 "Vangeli Dermatis" <Vangeli@erols.com>
9 Paul Osborn <posborn@menlosoftware.com>
6 Doug Seay <seay@absyss.fr>
6 Jeffrey Kegler <cybersalem@algorists.com>
6 sico@msh.xs4all.nl
6 Jeremy Nelson <nelson@cs.uwp.edu>
6 "Nathanael T. Brooks-English" <nenglish@geo.Arizona.EDU>
5 Mike Stok <mike@stok.co.uk>
5 tkonink@horizon.nl
------------------------------
Date: Mon, 27 Oct 1997 10:13:23 -0400
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: tcp/ip connecttions
Message-Id: <-2710971013230001@aggie.coaps.fsu.edu>
In article <Pine.SOL.3.96.971026232154.24584A-100000@Ra.MsState.Edu>, Will
<whs3@Ra.MsState.Edu> wrote:
+ I am trying to find a perl script that will connect to a remote host,
+ rlogin as a particular user, execute a few commands and then close the
+ connection. I've been looking for a while now and so far I have been
+ unable to fine anything to do this. I'd appreciate any help anyone can
+ give me. Thanks...
You might want to look at Net::Telnet module on CPAN.
<url:http://www.perl.com/CPAN-local/modules/by-module/Net/Net-Telnet-3.00.readme>
<url:http://www.perl.com/CPAN-local/modules/by-module/Net/Net-Telnet-3.00.tar.gz>
James
--
Consulting Minister for Consultants, DNRC
Support the anti-Spam amendment <url:http://www.cauce.org/>
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/perl/faq/idiots-guide.html>
------------------------------
Date: Mon, 27 Oct 1997 13:45:15 GMT
From: "Joseph June" <jjune@miday.uchicago.edu>
Subject: Urgent Perl question
Message-Id: <01bce2d6$119b4b40$210e8780@computer.uchicago.edu>
Hello,
I've posted this particular message before... but I don't think I was very
clear in my description so I will post again.
I'm working on a script that will generate a new file for some server
firewall file. It needs to append the new portion in the file... and to
determine where it will start appending... I'm trying to do a multiple line
"pattern matching" by using a series of if loops... something like
if ($rulefile_line =~ m/\s+:rule_adtr\s+\(/ && $repeat != 1 )
{
$rulefile_buffer_2 = <RULEFILE>;
if ($rulefile_buffer_2 !=~ m/\s+:src_adtr\s+\(/ ) {
$rulefile_buffer_3 = <RULEFILE>;
if ($rulefile_buffer_3 =~ m/\s+:\s+$current_addtrx/ )
{
$rulefile_buffer_4 = <RULEFILE>;
if ($rulefile_buffer_4 =~ m/\s+\)/ )
{
$rulefile_buffer_5 = <RULEFILE>;
if ($rulefile_buffer_5 =~
m/\s+:dst_adtr\s+\(/ )
{
$rulefile_buffer_6 =
<RULEFILE>;
if ($rulefile_buffer_6 =~
m/\s+:\s+X-AAAAAAAAA/ ) {
$repeat = 1;
print "Reference server found.\n\n";
$newxlate = 1;
This will match the entry
:rule_adtr (
:src_adtr (
: Some Network
)
:dst_adtr (
: X-AAAAAAAAA
)
:services_adtr (
: Any
<---snip--->
The key here is X-AAAAAAAAA because there will be other entries that have
something like
:rule_adtr (
:src_adtr (
: Some Network
)
:dst_adtr (
: X-Something else
and these needs to be skipped over and start where X-AAAAAAAAA set starts.
I'm using syswrite to copy over the portion of file that does not need to
be modified... and as soon as the nested if loops are matched... syswrite
is blocked... hence allowing the script the generate the new portion and
start appending...
THe problem is that even though i'm blocking syswrite AFTER the lines been
matched... the 6 lines are being left out in the generated file... so it
looks something like
:rule_adtr (
)
:services_adtr (
: Any
<---snip--->
instead of
:rule_adtr (
:src_adtr (
: Some Network
)
:dst_adtr (
: X-Something else
Does anyone have any ideas or suggestions? I'd be happy to send the entire
script if things are unclear in this posting...
Thank you for your help in advance.
------------------------------
Date: Mon, 27 Oct 1997 12:28:51 GMT
From: drummj@mail.mmc.org (Jeffrey R. Drumm)
Subject: Re: Your opinion on The Perl Journal (TPJ) ?
Message-Id: <345481cb.943122868@news.mmc.org>
On 26 Oct 1997 20:02:31 GMT, as646@FreeNet.Carleton.CA (John Robson) wrote:
>
>The Perl Journal seems to be the only magazine dedicated to Perl. I went
>to its website, read some reviews and it looks to me like a fine journal
>except for the fact that it's published only 4 times a year (quarterly).
>
>I would like to hear your opinions on it. Do you find it useful? Is it
>slanted toward the beginner or the expert, or both? Does it have only
>Perl code, or does it also have fun anecdotal stories about how people use
>Perl creatively?
>What do you like best about the Perl Journal?
>
>Any comments, personal experience are appreciated! (No sales pitch
>please! ;)
I've used Perl for so many different tasks since I really started working with
it a couple of months ago . . . I don't know how many times TPJ has come to my
rescue with code snippets or better/faster ways of accomplishing my goals. I've
not only subscribed, but purchased all the back issues.
An outstanding resource in every respect . . . excellent technical content, and
some fascinating insight with regard to Perl's use in real life. There are
sometimes articles that go way over my head or don't apply to what I do, and
(very occasionally) articles that cover ground I've already been over, but I
try to read 'em all.
My favorite thing about it is its portability; I can read it anywhere. I
haven't got the Cat5 cabling pulled to the bathrooms yet . . . so Internet
access is severely limited a couple of times a day. ;-)
--
Jeffrey R. Drumm, Systems Integration Specialist
Maine Medical Center - Medical Information Systems Group
420 Cumberland Ave, Portland, Maine 04101
Voice: 207-871-2150 Fax: 207-871-6501 Email: drummj@mail.mmc.org
------------------------------
Date: 27 Oct 1997 07:58:46 GMT
From: sb@en.muc.de (Steffen Beyer)
Subject: Re: Your opinion on The Perl Journal (TPJ) ?
Message-Id: <631hjm$o47$1@en1.engelschall.com>
John Robson <as646@FreeNet.Carleton.CA> wrote:
> The Perl Journal seems to be the only magazine dedicated to Perl. I went
> to its website, read some reviews and it looks to me like a fine journal
> except for the fact that it's published only 4 times a year (quarterly).
Alas! Sigh!
> I would like to hear your opinions on it.
> Do you find it useful?
A little useful, and lots of fun! (Very interesting!)
> Is it
> slanted toward the beginner or the expert, or both?
I think it is useful and interesting for both.
> Does it have only
> Perl code,
It usually does not contain code except small stretches to illustrate
what the article is trying to tell you.
> or does it also have fun anecdotal stories
Yes!!! :-)
> about how people use
> Perl creatively?
Yes!!! :-)
> What do you like best about the Perl Journal?
The stories you wouldn't hear about otherwise, for instance the article
"Perl and the Human Genome Project".
> Any comments, personal experience are appreciated! (No sales pitch
> please! ;)
Hope this helps a little.
Yours,
--
Steffen Beyer <sb@sdm.de> http://www.engelschall.com/u/sb/
"There is enough for the need of everyone in this world,
but not for the greed of everyone." - Mahatma Gandhi
>> Unsolicited commercial email goes directly to /dev/null <<
------------------------------
Date: 27 Oct 1997 16:47:53 GMT
From: toutatis@_SPAMTRAP_toutatis.net (Toutatis)
Subject: Re: Your opinion on The Perl Journal (TPJ) ?
Message-Id: <toutatis-ya023180002710971747540001@news.euro.net>
John Robson wrote:
> What do you like best about the Perl Journal?
The picture on page 30 of issue #7 :-)
--
Toutatis
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 1233
**************************************
