[7107] in Perl-Users-Digest
Perl-Users Digest, Issue: 732 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 14 05:17:21 1997
Date: Mon, 14 Jul 97 02:01:53 -0700
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, 14 Jul 1997 Volume: 8 Number: 732
Today's topics:
Re: Perl: deleting spaces etc in strings <bkyan@mindcast.com>
Re: PerlScript returns blank documents! <rootbeer@teleport.com>
Re: Printing first portion of a variable. <rootbeer@teleport.com>
Re: Printing first portion of a variable. (Clay Irving)
Re: Printing first portion of a variable. (Roderick A. Anderson)
Re: Prototypes and Import - HowTo <rootbeer@teleport.com>
Re: recursion (M.J.T. Guy)
Re: Redirect STDIO? <rootbeer@teleport.com>
regexp- capturing matched pattern with an alternation c (Dave Naden)
SMTP interface for Perl? (Doug Jacobs)
Re: SMTP interface for Perl? <rootbeer@teleport.com>
Re: SMTP interface for Perl? (Lutz Albers)
Re: Strategies for dealing with the 'Use of uninitializ (M.J.T. Guy)
Re: syswrite vs. select S;$|=1;print S <rootbeer@teleport.com>
Re: Tracking running time?? <rootbeer@teleport.com>
Re: what's going on here?? (Gerben Vos)
Re: While loop question (Tung-chiang Yang)
Re: while.problem (Andrew M. Langmead)
Why won't this blessed thing destruct? (Andrew Pimlott)
Re: Why won't this blessed thing destruct? (Andrew Pimlott)
Win32 - problems with pipes (Greg Weaver)
Re: Win32 - problems with pipes <youngej@magpage.com>
X11::Fvwm 0.4 uploaded to PAUSE (Randy J. Ray)
Re: YOU ALL SUCK! bodi@newscene.com
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 13 Jul 1997 00:40:23 -0700
From: Benjamin Kyan <bkyan@mindcast.com>
To: X <eeiX@eei.ericsson.se>
Subject: Re: Perl: deleting spaces etc in strings
Message-Id: <33C88667.61101E64@mindcast.com>
X wrote:
>
> I'm new to this language and I was wondering could anyone tell me how
> to delete spaces from strings such as:
>
> 152 41-CAX 102 577
$text = "152 41-CAX 102 577";
$text =~ s/\s//g; # Replaces all whitespace with NULL.
--
Best Regards,
Benjamin Kyan
bkyan@mindcast.com
========================== ======================== ==============
Clickstream Communications 9101 W. Sahara, #105-183 T 404.685.0852
(website) www.mindcast.com Las Vegas, Nevada 89117 F 404.685.0853
========================== ======================== ==============
------------------------------
Date: Sat, 12 Jul 1997 21:52:53 -0700
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: PerlScript returns blank documents!
Message-Id: <Pine.GSO.3.96.970712215219.14874G-100000@kelly.teleport.com>
On 13 Jul 1997, Dave Roth wrote:
> I've installed Activeware's PerlScript for ASP but the samples that come
> with the archive just will not work. It constantly returns a "Document
> contains no data". The ISAPI filter works as well as perl from command
> line and cgi scripts.
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to
solving such problems. It's available on the perl.com web pages. Hope
this helps!
http://www.perl.com/perl/
http://www.perl.com/perl/faq/
http://www.perl.com/perl/faq/idiots-guide.html
--
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/
------------------------------
Date: Sat, 12 Jul 1997 12:32:49 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Stephen Hill <buck@huron.net>
Subject: Re: Printing first portion of a variable.
Message-Id: <Pine.GSO.3.96.970712123227.20720C-100000@kelly.teleport.com>
On Sat, 12 Jul 1997, Stephen Hill wrote:
> How can i print the first 100 characters of a variable?
Use substr(), documented in perlfunc(1). Hope this helps!
--
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/
------------------------------
Date: 12 Jul 1997 20:25:38 -0400
From: clay@panix.com (Clay Irving)
Subject: Re: Printing first portion of a variable.
Message-Id: <5q97a2$lkm@panix.com>
In <33C7A3D2.F99F5495@huron.net> Stephen Hill <buck@huron.net> writes:
>How can i print the first 100 characters of a variable?
Uh, substr function, perhaps?
>I can chop off the last character till it is the right length, but that
>doesn't seem to efficient.
Yup.
>Please email your response to.......buck@huron.net
cc'd to poster...
--
Clay Irving See the happy moron,
clay@panix.com He doesn't give a damn,
http://www.panix.com/~clay I wish I were a moron,
My God! Perhaps I am!
------------------------------
Date: 13 Jul 97 17:15:16 GMT
From: andersr@gryphon (Roderick A. Anderson)
Subject: Re: Printing first portion of a variable.
Message-Id: <33c90d24.0@news.iea.net>
Stephen Hill (buck@huron.net) wrote:
: How can i print the first 100 characters of a variable?
print substr($var, 0, 100);
: I can chop off the last character till it is the right length, but that
: doesn't seem to efficient.
: Please email your response to.......buck@huron.net
: Thanks..
You're welcome.
------------------------------
Date: Sat, 12 Jul 1997 18:17:33 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Helmut Jarausch <jarausch@numa1.igpm.rwth-aachen.de>
Subject: Re: Prototypes and Import - HowTo
Message-Id: <Pine.GSO.3.96.970712181002.3712J-100000@kelly.teleport.com>
On 9 Jul 1997, Helmut Jarausch wrote:
> Until I have missed something, Perl (5.00401) seems to forget
> prototypes when doing an import.
It's not supposed to do that.
> Unfortunately Perl doesn't like a protoype in the @EXPORT-List.
No, you don't export the prototype, just the function name.
> use Exporter ();
I don't know whether this is a problem, but the docs have C<require
Exporter;>.
> package main;
>
> import Foo;
Unless I missed something, I don't think you ever defined an import
routine. Besides, it looks like you're trying to implement use without a
BEGIN block. That can't work.
See whether you can make it work by following the instructions in the docs
for Import.pm. Hope this helps!
--
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/
------------------------------
Date: 12 Jul 1997 14:11:03 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: recursion
Message-Id: <5q839n$lkt@lyra.csx.cam.ac.uk>
Andrew Johnson <ajohnson@gpu.srv.ualberta.ca> wrote:
>
>sub fact {
> my $n=shift;
> return $n if $n==1;
> return $n*&fact(--$n);
>}
Naughty, that. Perl doesn't define order of evaluation. So on my
Perl installation it says fact(5)==24.
And God help you if you try fact(0).
But your example does illustrate recursion, which is all it was required
to do. :-)
Mike Guy
------------------------------
Date: Sat, 12 Jul 1997 07:32:42 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Randy Parker <entropy@interaccess.com>
Subject: Re: Redirect STDIO?
Message-Id: <Pine.GSO.3.96.970712072851.2012K-100000@kelly.teleport.com>
On Fri, 11 Jul 1997, Randy Parker wrote:
Newsgroups: comp.lang.perl
If your news administrator still carries comp.lang.perl, please encourage
him or her to check out the frequent posting about bogus newsgroup names
in news.announce.newgroups. You'll be doing yourself and many others a
favor to use comp.lang.perl.misc (and other valid Perl newsgroups)
instead.
news:news.announce.newgroups
> Anyone know a way to redirect STDIO? I tried the example under 'open'
> in perl.man, and it doesn't seem to be working.
What's perl.man? (Do you mean perlfunc, or are you using an old version of
Perl in which there was just one mondo manpage?) The examples under open
in perlfunc work for me.
> Basically, I want to have my script execute another script and place its
> output in a variable.
See qx// in perlop.
> I want the script to have access to variables in my original script, so
> I need to do something with do or eval. Piping a new process doesn't
> allow this.
Well, I wouldn't say it's not allowed... But it's not easy. You may want
to use 'use', if you can turn the other script into a module. You can also
pass variables by reference, which may do what you need. Hope this helps!
--
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/
------------------------------
Date: Sun, 13 Jul 97 15:29:46 GMT
From: dnaden@dgs.dgsys.com (Dave Naden)
Subject: regexp- capturing matched pattern with an alternation character
Message-Id: <5qas33$sj$1@news.dgsys.com>
Keywords: regexp pattern_match, $1 $2 variables, alternation pattern
I've encountered a thorny problem. I want to use regexps to read a file
containing a list of files (eg, a DOS "DIR" listing). I need to pick out the
filename in 8.3 format, such as "FILE.TXT" or some such. Since files may or
may not have an extention, the pattern has to allow for both possibilities, as
in:
/[a-zA-Z0-9]{1,8}\.[a-zA-Z0-9]{1,3}/ # (regular 8.3 format)
/[a-zA-Z0-9]{1,8}(\.[a-zA-Z0-9]{1,3})?/ # (choice of 8 or 8.3 formats)
The problem comes when I want to capture the filename with the $& or the $1,
$2 variables; the second pattern above only gives the easiest match (the 8
chars) and then stops before matching the 8.3 even if it's there. But the
first pattern only matches 8.3 filenames, and misses those without a suffix.
Any solutions?
Thanks for any suggestions.
-Dave Naden
DNADEN@DGS.DGSYS.COM
------------------------------
Date: 12 Jul 97 23:06:13 GMT
From: djacobs@tsoft.net (Doug Jacobs)
Subject: SMTP interface for Perl?
Message-Id: <33c80de5.0@news.tsoft.net>
Greetings.
I'm writing a CGI script for my webpage, and would like to have people send
me mail, but do so such that it looks like it came from the webpage.
I've been able to have it use /usr/bin/mail and feed it the information
(to, subject, etc.) I'd like to feed it things like From: but mail won't
let me do it.
I know how to use the SMTP port...but that requires telnet and I'm not
quite sure how to get Perl to talk to the port... Sockets? Spiffy
package? Or, do I just execute it and shove everything through in 1 large
string with "\n"'s innerspersed here and there?
Any ideas?
Thanks :)
------------------------------
Date: Sat, 12 Jul 1997 17:08:41 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Doug Jacobs <djacobs@tsoft.net>
Subject: Re: SMTP interface for Perl?
Message-Id: <Pine.GSO.3.96.970712170724.3712C-100000@kelly.teleport.com>
On 12 Jul 1997, Doug Jacobs wrote:
> I know how to use the SMTP port...but that requires telnet and I'm not
> quite sure how to get Perl to talk to the port... Sockets?
Unless you have your heart set on reinventing a thoroughly-debugged wheel,
you'll probably want to use one of the modules on CPAN for this. Good
luck!
--
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/
------------------------------
Date: Sun, 13 Jul 1997 10:17:53 +0200
From: lutz@muc.de (Lutz Albers)
Subject: Re: SMTP interface for Perl?
Message-Id: <lutz-ya023480001307971017530001@news>
In article <33c80de5.0@news.tsoft.net>, djacobs@tsoft.net (Doug Jacobs) wrote:
>I've been able to have it use /usr/bin/mail and feed it the information
>(to, subject, etc.) I'd like to feed it things like From: but mail won't
>let me do it.
>
>I know how to use the SMTP port...but that requires telnet and I'm not
>quite sure how to get Perl to talk to the port... Sockets? Spiffy
>package? Or, do I just execute it and shove everything through in 1 large
>string with "\n"'s innerspersed here and there?
>
>Any ideas?
Check CPAN, there are Modules for creating and sending mail (ever over SMTP).
ciao
lutz
--
Lutz Albers, lutz@muc.de, pgp key available from <http://www.pgp.net>
Do not take life too seriously, you will never get out of it alive.
------------------------------
Date: 12 Jul 1997 13:07:00 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Strategies for dealing with the 'Use of uninitialized value' warning.
Message-Id: <5q7vhk$j3i@lyra.csx.cam.ac.uk>
In article <33c679b7.5910204@news.one.net>, view archives <over@the.net> wrote:
>dyarbrou@clark.net (Danny Yarbrough) wrote:
>>
>>I'm curious to see how perl folks out there deal with the somewhat
>>vague perl warning:
>>
>>Use of uninitialized value at myscript line xxx
>>
>
>You didn't really mean to ask this did you?
Why not? Seems to me a good deal more sensible than many of the questions
we get here. And it certainly isn't adequately answered in the FAQ,
man pages etc. (Indeed, it currently doesn't have an adequate answer ...)
MIke Guy
------------------------------
Date: Sat, 12 Jul 1997 07:26:30 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Keith Kong <kkong@ece.ucdavis.edu>
Subject: Re: syswrite vs. select S;$|=1;print S
Message-Id: <Pine.GSO.3.96.970712072509.2012J-100000@kelly.teleport.com>
On 12 Jul 1997, Keith Kong wrote:
> The following does NOT force 'C' to be printed out to the
> socket S:
>
> $_ = 'C';
> select S; $|=1;
> print S $_;
Sounds like a bug. Maybe your perl binary was miscompiled, or maybe you
have an old version.
> I'm writing a server/client application using perl 5.002 on
Ah, well, if you can reproduce this behavior under 5.004, run perlbug to
file a bug report. Hope this helps!
--
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/
------------------------------
Date: Sat, 12 Jul 1997 06:15:48 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: mashfiel <ashfield.matthew@miti.nb.ca>
Subject: Re: Tracking running time??
Message-Id: <Pine.GSO.3.96.970712061406.2012C-100000@kelly.teleport.com>
On 11 Jul 1997, mashfiel wrote:
> I am comparing the running times of two similar programs, and want
> to see which is faster and by how much.
You may be looking for time(1), but you can use the Benchmark module to
time algorithms and code snippets. Hope this helps!
--
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/
------------------------------
Date: 12 Jul 1997 17:41:16 GMT
From: gerben@cs.vu.nl (Gerben Vos)
Subject: Re: what's going on here??
Message-Id: <5q8fjs$af6@star.cs.vu.nl>
Fan Ng writes:
>I saw this in a book and I realy don't what's this means?
>who can explain to me, thank you.
Which book, may i ask? Some of use may have that book as well, and if
you give its name and the page number where you didn't understand it,
someone here may be able to help you better.
>$/ = " ";
>while ($paragraph=<>) #Here I can't see any relate with first line.
If you're talking about paragraphs, maybe you want to set $/ to "" instead
of " ". The <> will then read data from the files mentioned in @ARGV (or
from standard input if there are none), until it finds an empty line,
i.e., a paragraph. Read the perlvar manual page for more.
The next time, please explain what you expected the program fragment
to do, and what it actually did when you ran it. Then we can help you
better.
>{ while ($paragraph =~ /[a-z] [' ")] * [.!?] + [' " )] * \s/g) {
You put too many spaces inside that regular expression. I think you mean
/[a-z]['")]*[.!?]+['")]*\s/g , or maybe you want to use the /x switch.
>$sevtences++;
$sentences++;
> }
>}
>print "$sentences\n";
. . . . . . . . . . . . . . . . . . . . . . . . . . . G e r b e n V o s <><
mailto:gerben@cs.vu.nl http://www.cs.vu.nl/%7Egerben/
Phevbfvgl xvyyrq gur png.
------------------------------
Date: Sun, 13 Jul 1997 10:43:12 GMT
From: tcyang@netcom.com (Tung-chiang Yang)
Subject: Re: While loop question
Message-Id: <tcyangED9740.I81@netcom.com>
Never, never, never use '=' to compare strings. '==' might be a little
bit better, but '=' is the worst of the worst of the worst.
===============================
Brian Scott Ashcraft wrote after zapping the scum of the universe:
: (deleted)
: #look for the string in field3
: if($field3 = /some_string_here){
^
: #auto incriment the previously initialized variable
: $variable ++;
: }#end if
: (deleted)
--
====== Try the low-crossposting robomoderated 'alt.culture.taiwan' ======
soc.culture.taiwan, soc.culture.china (by SCC FAQ Team) FAQ's:
http://www.iglou.com/tcyang/Taiwan_faq.shtml, China_faq.shtml
------------------------------
Date: Sat, 12 Jul 1997 15:17:15 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: while.problem
Message-Id: <ED7p4s.13q@world.std.com>
A copy of a similar article was e-mailed to the author of the
referencing article. I made some changes to the posted version]
In comp.lang.perl.misc you write:
><> is the same as <STDIN>. Since it's the only thing in the while
>condition, it automatically assigns to $_. These are equivalent:
<> is not the same as <STDIN>
<STDIN> is the expression to read from the standard input file handle
set up by the program that called it. (usually a shell.)
<> is a read from a special magic filehandle that automatically opens
all the files listed in the @ARGV array. (defaulting to the arguments
on the command line) or standard input if @ARGV is empty.
<> emulates the file processing behaviour commonly found in
unix utilities.
cat file1 file2 file3
reads files "file1", "file2", and "file3"
while
cat
reads from standard input.
--
Andrew Langmead
------------------------------
Date: 12 Jul 1997 15:53:10 GMT
From: andrew@pimlott.student.harvard.edu (Andrew Pimlott)
Subject: Why won't this blessed thing destruct?
Message-Id: <slrn5sfa7i.g8c.andrew@pimlott.student.harvard.edu>
I am getting a situation in which (it appears) that a blessed object is not
calling its DESTROY method when it goes out of scope. Consider the
following script:
#!/usr/bin/perl
package mytest;
use Carp;
sub new { carp "New"; my $tmp; bless \$tmp, 'mytest'; }
sub DESTROY { carp "Death"; }
package main;
{
my $joe;
my $moe = bless \$joe, 'mytest';
# my $moe = new mytest;
print "moe is $moe\n";
print "Leaving block\n";
}
print "Left block\n";
print "moe is $moe\n";
print "Program ending\n";
This output is:
moe is mytest=SCALAR(0x80b0b60)
Leaving block
Left block
moe is
Program ending
Clearly, $moe is a (reference to a) mytest, and went out of scope after the
close brace in main. $joe, the blessed scalar pointed to by $moe, also went
out of scope. Yet destroy is never called, even when the whole program
ends!
However, if I uncomment the commented line, and comment the two above it,
the output becomes:
New at try line 20
moe is mytest=SCALAR(0x80b0ba8)
Leaving block
Death at try line 27
Left block
moe is
Program ending
So now the mytest is properly destructed after the block ends. (Er, never
mind the line numbers. They don't correspond to the program as typed.)
Can anyone tell me why the second works but the first does not?
Andrew
------------------------------
Date: 12 Jul 1997 16:00:51 GMT
From: andrew@pimlott.student.harvard.edu (Andrew Pimlott)
Subject: Re: Why won't this blessed thing destruct?
Message-Id: <slrn5sfam0.gd3.andrew@pimlott.student.harvard.edu>
On 12 Jul 1997 15:53:10 GMT, Andrew Pimlott
<andrew@pimlott.student.harvard.edu> wrote:
>I am getting a situation in which (it appears) that a blessed object is not
>calling its DESTROY method when it goes out of scope.
I'm sorry--before you call me an idiot, I tested this under 5.003 and
5.004_1.
Andrew
------------------------------
Date: Sat, 12 Jul 1997 15:26:57 GMT
From: greg@weaver.net.au (Greg Weaver)
Subject: Win32 - problems with pipes
Message-Id: <5q8b21$5ob@kosh.fl.net.au>
I have Perl for Win 32 (build 306) and it all seems to be running quite well,
but there is one thing that I'm finding perplexing.
I have have perl in my path, and my scripts seem to run fine from the command
line, but with the following exceptions.
d: myscript.pl filename
produces output as expected.
d: myscript.pl filename | grep parameter
produces nothing at all, as does
d: myscript.pl filename > save_output.txt
This gives me a blank file.
But d: perl myscript.pl filename > save_output.txt work fine !!
Any ideas on what I'm doing wrong/how I can fix this/ should I not worry at
all. ?
Greg Weaver
-----------------------------------------------------
PERSONAL INTERNET SERVICES - http://www.weaver.net.au
Internet and Computer Consulting
Ph. +61 2 9568-5457 Fx. +61 2 9564-5485
Mobile (0411) 429958 mailto: greg@weaver.net.au
"The truth is out there........ But so are lies"
-----------------------------------------------------
------------------------------
Date: 12 Jul 1997 18:18:13 GMT
From: Ed Young <youngej@magpage.com>
To: Greg Weaver <greg@weaver.net.au>
Subject: Re: Win32 - problems with pipes
Message-Id: <5q8hp5$d9n$0@204.179.92.201>
Greg Weaver wrote:
>
> I have Perl for Win 32 (build 306) and it all seems to be running quite well,
> but there is one thing that I'm finding perplexing.
>
> I have have perl in my path, and my scripts seem to run fine from the command
> line, but with the following exceptions.
>
> d: myscript.pl filename
>
> produces output as expected.
>
> d: myscript.pl filename | grep parameter
>
> produces nothing at all, as does
>
> d: myscript.pl filename > save_output.txt
>
> This gives me a blank file.
>
> But d: perl myscript.pl filename > save_output.txt work fine !!
>
> Any ideas on what I'm doing wrong/how I can fix this/ should I not worry at
> all. ?
>
> Greg Weaver
Unfortunately MSDOS is not UNIX (or even close). It's command line
mechanism is poorly (barely) implemented:
1) The she-bang (#!) mechanism doesn't work. So you have to use the
perl -x slimy hack in a BAT file to get self running programs. BAT
files do not understand or use stdin and stdout. So you can't pipe to
or from a script file.
2) The piping mechanism runs output to an intermediate file, and from
there to the receiving program (in Win95). So your pipeline is not
multiprocessing, the first program ends before the second begins and so
forth. Not very good if you are handling large files. Lots of IO
overhead.
3) Failed pipes are not recognized in Win95, WinNT does slightly
better. This can lead to silent failure.
The work around:
- use "perl myscript.pl filename | whatever" for piping. This works
because
perl is a program and can pipe. Silent failures will still happen.
- use "perl myscript.pl filename > whatever.file" for redirection, same
reason.
Or use Linux...
------------------------------
Date: 12 Jul 1997 19:16:23 GMT
From: rjray@tremere.ecte.uswc.uswest.com (Randy J. Ray)
Subject: X11::Fvwm 0.4 uploaded to PAUSE
Message-Id: <5q8l67$7pi$1@nadine.teleport.com>
Sun Jul 6 17:26:26 MDT 1997
Version 0.4 of X11::Fvwm has been uploaded to PAUSE, and should propagate to
CPAN servers over the next few days.
This is the second beta release. I plan to hold here until the next major
upgrade to Fvwm itself, as I am now distibuting fvwm patches that I suspect
will be included in the next release (post-2.0.45). The interface style
and overall functionality are now fairly stable, and drastic changes should
be minimal. Changes in this version are listed below.
>From the README file for 0.4:
X11::Fvwm version 0.4 (beta 2)
WHAT IS IT?
This is a Perl 5 extension to simplify writing Fvwm2 modules in Perl 5. Not
only in Perl 5, but with either the Tk extension or the Xforms library as
your GUI choices!
This requires fvwm 2.0.45 or better, and Perl 5.002 or better. It is
very highly recommended that you also install the latest version of Tk
or X11::Xforms, also available from CPAN.
WHAT DOES IT DO?
Fvwm2 has a very well-defined module API, to allow the brunt of non-core
window-manager work be done by external modules. X11::Fvwm is a layer over
this interface, allowing you to use Perl rather than C as the language for
developing these modules.
When fvwm launches a module, it sets up file descriptors for two-way
communication, and proceeds to occassionally broadcast data packets to
those modules that have asked to receive the given data type. The modules,
in turn, can send commands back to fvwm, including requests for more (and
more specific) data, operation on windows managed by fvwm, etc.
PROBLEMS/BUG REPORTS
Please send any reports of problems or bugs to randy@uswest.com. I wouldn't
mind a short note to know that you're using this, just so I can justify its
continued development :-).
CREDITS AND LICENSES
This package is copyright (c) 1997 by Randy Ray (randy@uswest.com) and may be
distributed under terms of the Artistic License used to cover Perl itself.
See the file Artistic in the distribution of Perl 5.002 or later for details
of copy and distribution terms. All rights reserved.
>From the Changes file for 0.4:
* Some demos re-named to support a constant scheme: All demos start with
"Perl" so that a single Style class can be applied to them. Those that also
use Tk have names that start "PerlTk". This affected pDebug (now PerlDebug)
and TkPerlConsole (now PerlTkConsole).
* Docs cleaned up some.
* Now package and ship three patches that are relevant to the implementation
of this module, in a "patches" directory. Described in the CAVEATS section
of X11::Fvwm.3.
* P_PACKET_PASSALL was a do-nothing option (the nature of split and unpack
already controlled the number of parts that a packet was broken down into).
It has been removed, and P_ALL_OPTIONS updated.
* Removed the "Stack Trace" button in Fvwm::Defaults.pm:TkFvwmError():
Duh, it's always called from the same sequence of routines (processPacket,
etc.).
--
===============================================================================
Randy J. Ray -- U S WEST Technologies IAD/CSS/DPDS Phone: (303)595-2869
Denver, CO rjray@uswest.com
"It's not denial. I'm just very selective about the reality I accept." --Calvin
------------------------------
Date: Sun, 13 Jul 1997 08:17:57 GMT
From: bodi@newscene.com
Subject: Re: YOU ALL SUCK!
Message-Id: <33cd8ec3.36478007@news1.newscene.com>
On Sat, 12 Jul 1997 21:34:54 -0700, MOJO <mojo375059@aol.com> wrote:
>YOU ALL SUCK! SPAM RULES!! BUTE ME LOSERS!YOU ALL SUCK! SPAM RULES!!
>BUTE ME LOSERS!YOU ALL SUCK! SPAM RULES!! BUTE ME LOSERS!YOU ALL SUCK!
>SPAM RULES!! BUTE ME LOSERS!YOU ALL SUCK! SPAM RULES!! BUTE ME
>LOSERS!YOU ALL SUCK! SPAM RULES!! BUTE ME LOSERS!
Hmmm....We'll see what postmaster@sna.com has to say about your forged
headers. Pretty sloppy, little boy. You'll have to do better if you
want to play with the big kids.
------------------------------
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 732
*************************************
