[12515] in Perl-Users-Digest
Perl-Users Digest, Issue: 6115 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 24 07:07:12 1999
Date: Thu, 24 Jun 99 04:00:21 -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 Thu, 24 Jun 1999 Volume: 8 Number: 6115
Today's topics:
Re: 'Perl core' or 'perl core'? zenin@bawdycaste.org
@array= qx{<command>} - handling <martin@unix-ag.uni-siegen.de>
Re: A foreach question (Larry Rosler)
ActiveState PERL and COM problems <kevin.hill@tab.co.nz>
Re: ANNOUNCE: PUBcrawl newsletter <gellyfish@gellyfish.com>
Re: Can I do this? Conditional Operator construct.... (Larry Rosler)
faqs, beginner question <agille@mail.msy.bellsouth.net>
Re: foo, backtick, and others (Larry Rosler)
How can I use Perl variables in Javascript ? <qtxnmaj@kk.etx.ericsson.se>
Re: How can I use Perl variables in Javascript ? (Bart Lateur)
Re: How do you use XML Modules with ActiveStatePerl? (Arved Sandstrom)
How to access MS Access using perl/cgi/unix <Bruce.Chao@ncmail.net>
Re: Intelligent case conversion? (eg., Title Case) <Savage.Ron.RS@bhp.com.au>
Re: linux passwords (Bart Lateur)
Re: Newbie - Perl books - which to get? <graham@cs.man.ac.uk>
Re: Perl Alphanumeric Sort? <jlarke@uu.net>
Please help newbie : Registry.pm <sigvald.refsum@siemens.no>
Re: Referencing question, was: "Re: use strict question (H. Camphausen)
Re: Variable not imported (Arnaud Limbourg)
Re: Viral matters [completely off-topic] (Philip 'Yes, that's my address' Newton)
Re: Viral matters [completely off-topic] (Philip 'Yes, that's my address' Newton)
Re: Viral matters [completely off-topic] <matt.sergeant@ericsson.com>
Re: Writing to a terminal from a perl script (Dave)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 Jun 1999 09:31:38 GMT
From: zenin@bawdycaste.org
Subject: Re: 'Perl core' or 'perl core'?
Message-Id: <930216922.116329@thrush.omix.com>
Bart Lateur <bart.lateur@skynet.be> wrote:
: Larry Rosler wrote:
:>So, which should it be, 'Perl core' or 'perl core'?
My vote, "perl core".
: Change the wording. Replace "perl core" with "binary core" and "Perl core"
: with "language core". I'd say that both work.
:
:>The default sort runs entirely in C code in the binary core, but any
:>sortsub must execute Perl code.
:
:>The default sort runs entirely in C code in the language core, but any
:>sortsub must execute Perl code.
:
: Urm... "binary core" works a little better.
Actually I'd change this to, "C code in the interpreter", as the
word "Perl" is the assumed subject already and so there is no need
to specify that we are still talking about Perl.
--
-Zenin (zenin@archive.rhps.org) "Hey, are you one of those Linux coders?"
"Nyet. Linux coder in next office."
"Good man. Ignore the screams."
--www.userfriendly.org
------------------------------
Date: 24 Jun 99 10:27:31 GMT
From: Martin Leja <martin@unix-ag.uni-siegen.de>
Subject: @array= qx{<command>} - handling
Message-Id: <37720813.0@rainbow.hrz.uni-siegen.de>
hi,
consider the following code:
bash$ perl -e '@array=qx{/usr/bin/printf "bla\nblub\n"}; print("*$array[0]*$array[1]*");'
*bla
*blub
*bash$
ok, the two lines are split correctly into the array, but why does every
array variable still contain a trailing '\n'?
--
Regards, martin@unix-ag.org
------------------------------
Date: Thu, 24 Jun 1999 01:15:52 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: A foreach question
Message-Id: <MPG.11db89144dd71f68989c37@nntp.hpl.hp.com>
In article <3771B7A7.EE1B97D2@mail.cor.epa.gov> on Wed, 23 Jun 1999
21:44:23 -0700, David Cassell <cassell@mail.cor.epa.gov> says...
> CharlieMa wrote:
> >
> > OK a note of clarification for photoguy, who having only
> > been exposed to the madness of perl for 3 weeks may find
> > Larry Rossler's reply unintelligible. When I was learning
>
> Umm, Larry's last name has only one 's'. But that's okay.
> You should see how some posters have butchered Randal's
> names.
Would you believe that that's not the first time for that error? :-)
> > perl I found newsgroup replies rather confusing, especially
> > the use of 'and' and 'or' for abbreviating code. See
>
> But 'and' and 'or' [or && and ||] are not abbreviations.
> They are specific features of Perl which permit the application
> of powerful features when needed.
It is likely that he considers this:
$foo and do $something;
to be an abbreviation of the full-blown conditional:
if ($foo) { do $something }
(on at least three lines, of course), which is taught first. And I
think he is right, in this regard.
...
> > /baz/ and print "Matched baz in $_"; }
> > #this tries to match /baz/ and will only execute
> > #the 2nd half of the 'and' statement if the first half
> > #evaluates to true.
>
> Correct. Many people might write this differently.
>
> print "Matched baz in $_" if (/baz/);
>
> is one way [and there are many, so pick one you like].
> But the text above is The Rosler Idiom.
Yes. Yes. Yes. Keep saying it, and people will believe it! (But I
think it really applies to '$x && $y', not '$foo and do $something'.)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 24 Jun 1999 05:54:24 GMT
From: Kevin Hill <kevin.hill@tab.co.nz>
Subject: ActiveState PERL and COM problems
Message-Id: <7ksh6d$st1$1@nnrp1.deja.com>
I can't get ActivePerl to handle IDispatch interfaces the way they are
documented. The examples for Excel make sense, but I can't get my
objects to return other objects like they do (e.g.
$excelObj->Workbooks->Add).
For example let's say an object called MyApplication exposes an
IDispatch interface. Within that interface is a property "TheQueue"
which is another IDispatch interface to a Queue object.
# I create an instance of MyApplication:
$app = Win32::OLE->new('Test.MyApplication');
# now create an instance of a queue
$queue = Win32::OLE->new('Test.Queue');
# this line fails with "Member not found"
$app->{TheQueue} = $queue;
# however this line fails with "Type mismatch"... go figure
$app->{TheQueue} = 7;
Equally I can't return any IDispatch-based object from within another
one. Why not?
My IDL is sensible, and each object works independently from each other,
but I can't get or put another IDispatch-based object across an
interface... The equivalent application in VBScript works fine. Is
this something peculiar to ActivePerl?
John Curtis
Perplexed Person
PLEASE REPLY BY EMAIL, TO KEVIN.HILL@TAB.CO.NZ, AS SUPPORT FOR
NEWSGROUPS IS SLACK HERE!
--
-+-+-+-+-+-+-+-+-+-+-+-+-+-+
Kevin Hill
kevin.hill@tab.co.nz or
kevin_hill@bigfoot.com
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 24 Jun 1999 09:13:52 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: ANNOUNCE: PUBcrawl newsletter
Message-Id: <3771e8c0@newsread3.dircon.co.uk>
David Cassell <cassell@mail.cor.epa.gov> wrote:
> Andrew Johnson wrote:
>> Announcing PUBcrawl Issue 01:
>> [snip]
>> For LP and noweb info see:
>> http://shelob.ce.ttu.edu/daves/faq.html
>
> I read this...
>
>> http://www.cs.virginia.edu/~nr/noweb/
>
> But I was rudely told I didn't have permission to peek at this
> one. And I pulled up a 403 error to add insult to injury.
> I even tried using one of the 'popular' browsers, to no avail.
>
It seems alright for me - must be that .gov address it doesnt like ....
/J\
--
"You don't watch the Eurovision Song Contest to hear good music" -
Katrina Leskanich, Katrina and the Waves
------------------------------
Date: Thu, 24 Jun 1999 00:57:59 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Can I do this? Conditional Operator construct....
Message-Id: <MPG.11db84be1813f12989c36@nntp.hpl.hp.com>
In article <1dtvosk.1vdhceb1sy004kN@p15.tc1.metro.ma.tiac.com> on Thu,
24 Jun 1999 01:30:32 -0400, Ronald J Kimball
<rjk@linguist.dartmouth.edu> says...
> Larry Rosler <lr@hpl.hp.com> wrote:
>
> > Take your pick.
> >
> > TEST_EXPR ? $some_value = 1, $other_value = 0 : IF_FALSE_EXPR
>
> Don't pick this one. It's a syntax error.
OK, so parenthesize it:
TEST_EXPR ? ($some_value = 1, $other_value = 0) : IF_FALSE_EXPR
I believe there is a compiler bug lurking here. If I understand it, the
grammar is:
EXPR ? EXPR : EXPR
and the precedences are such that the inner EXPR can be *anything*. It
works for a single assignment, though '=' has lower precedence than '?
:'. So why shouldn't it work for ',' also???
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 24 Jun 1999 01:58:45 -0500
From: Alan Tod Gillespie <agille@mail.msy.bellsouth.net>
Subject: faqs, beginner question
Message-Id: <3771D725.4D067EC6@mail.msy.bellsouth.net>
i'm brand new to perl. upon reading the general introductory faqs, i
noticed that the relationship between perl, c, and unix is not outwardly
defined. it seems to me from reading that perl is an extension of c,
but i would like to understand the relationship better. can anyone
help?
tod
------------------------------
Date: Thu, 24 Jun 1999 01:31:44 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: foo, backtick, and others
Message-Id: <MPG.11db8cc65df4db45989c38@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <Tyic3.180$Sw3.3853292@newsie.cais.net> on Thu, 24 Jun 1999
00:35:34 -0400, Andy <ranaylor@cais.net> says...
> Could someone please point to a resource that has definitions for terms like
> foo, backtick, etc.
>
> Not knowing these terms are getting in the way of my understanding perldoc,
> man pages and the newsgroups explanations.
Here is one of the many places you can find the 'official' hacker's
dictionary. It doesn't have 'backtick' but it has a lot about 'foo'.
<URL:http://www.umd.umich.edu/docs/jargon/jargon_toc.html>
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 24 Jun 1999 11:15:45 +0200
From: Nina Mayor <qtxnmaj@kk.etx.ericsson.se>
Subject: How can I use Perl variables in Javascript ?
Message-Id: <3771F741.A42677C1@kk.etx.ericsson.se>
Hi !
How can I use Perl variables in Javascript ?
I handle an event in javascript and I need to use some of the variables
from javascript in Perl or viceversa.
Does anyone know how to do that ?
Shortly I wonder about Perl interactivity with other languages...
Thanks !!!
/N. Mayor
------------------------------
Date: Thu, 24 Jun 1999 10:24:11 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: How can I use Perl variables in Javascript ?
Message-Id: <377406b8.2554342@news.skynet.be>
Nina Mayor wrote:
>How can I use Perl variables in Javascript ?
>I handle an event in javascript and I need to use some of the variables
>from javascript in Perl or viceversa.
>Does anyone know how to do that ?
>Shortly I wonder about Perl interactivity with other languages...
Keep wondering. Javascript resides in the browser, Perl on the server.
So you need to do a GET or a POST to tell Perl to do anything, and it's
replies will be in a new page that the browser will load. So, you can
encode Perl's vbariables into the generated HTML page that Javascript
can read, and you must supply Javascript's variables as parameters to
the GET or POST.
Bart.
------------------------------
Date: Thu, 24 Jun 1999 06:38:20 -0300
From: Arved_37@chebucto.ns.ca (Arved Sandstrom)
Subject: Re: How do you use XML Modules with ActiveStatePerl?
Message-Id: <Arved_37-2406990638210001@dyip-104.chebucto.ns.ca>
In article <3770FC6D.4E118FF@ericsson.com>, Matt Sergeant
<matt.sergeant@ericsson.com> wrote:
> robert sarno wrote:
> >
> > I am realitively new to Perl but have an ok handle on C. I am
> > programming Perl with the newest Perl compiler I can find 5.00503. How
> > do we use the XML mods with ActiveStatePerl. I have the XML mods on my
> > desktop.
>
> perldoc XML::Parser
>
> Or define exactly what you're trying to do.
>
You'll probably end up installing Matt's latest build of XML::Parser using
PPM. I suggest perusing the Perl-XML FAQ at
http://www.perlxml.com/faq/perl-xml-faq.html
which describes the exact PPM options for obtaining this build.
Once you've got a recent XML::Parser installed, you should be set. Every
other XML-related module that I'm aware of is non-XS, so you just need to
put .pm files in the proper places in your 'site_lib'. I don't think any
of the XML modules even need to be Autosplit. Again, read the FAQ.
Arved
------------------------------
Date: Wed, 23 Jun 1999 08:52:34 -0400
From: Bruce Chao <Bruce.Chao@ncmail.net>
Subject: How to access MS Access using perl/cgi/unix
Message-Id: <3770D892.84CECBB@ncmail.net>
Hi,
Is there any way that I can connect to MS Access
from a Netscape Server on Unix platform using /Perl/Cgi???
Thanks!
------------------------------
Date: Thu, 24 Jun 1999 16:16:42 +1000
From: "Ron Savage" <Savage.Ron.RS@bhp.com.au>
Subject: Re: Intelligent case conversion? (eg., Title Case)
Message-Id: <7ksigb$j6q20@atbhp.corpmel.bhp.com.au>
Is the module Lingua-EN-NameParse relevant?
--
Ron Savage
Office (preferred): Savage.Ron.RS@bhp.com.au
Home: rpsavage@ozemail.com.au
http://www.ozemail.com.au/~rpsavage
Lee Borkman wrote in message <3771a32a.8367011@news>...
>Hi,
>
>In PerlFaq4, this RE substitution is given for doing UNintelligent
>'title-case' conversions:
>
>$line =~ s/(\w+)/\u\L$1/g;
>
>
>As the FAQ points out, that capitalizes the first letter of EVERY
>word, which is not usually what is needed.
>
>I have done a fair bit of searching, but have found no existing
>modules, etc, which implement intelligent title-case conversion (ie.,
>Capitalise first letter of every word, but don't capitalise 'small'
>words unless they are at beginning of a sentence)
>
>I would like something like this:
>
>$line = tcase($line, @exclusions);
>
>...to supply my own list of words that shouldn't be capitalized
>(except at the start of a sentence).
>
>Alternatively, the function could also be called without the
>exclusions list, and should have its own default list.
>
>I have spent some time trying to write my own, but complications keep
>arising, and I can see that the function really needs to do
>significant parsing on the text, in order to figure out when sentences
>start, etc.
>
>Does anyone know of an existing module that implements this (or
>something similar)? Or is the answer really very simple, like one
>line of demented code :-)?
>
>TIA,
>Lee Borkman
------------------------------
Date: Thu, 24 Jun 1999 09:09:42 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: linux passwords
Message-Id: <3774f32e.8899937@news.skynet.be>
assakhof wrote:
>My friend found a code (below) at http://www.boutell.com/calendars/ to
>change apache authentication password mentioned by .htaccess .
>
>sub pwd
>{
> my($arg) = @_;
> return crypt($arg,pack("CC",ord('a')+rand(26),ord('a')+rand(26)));
>}
>
>It will return encrypted string.
>
>I don't know whether this encrypted string is same as in /etc/password .
>Does anyone know ?
The same? Not necessarily. It will return a different encrypted password
every time it's called, because of the rand()'s in there.
But it SHOULD be compatible. You can test if it is for your password.
Get the two first characters of your encrypted password. Encrypt your
password with crypt() with those characters as the salt (=second
parameter). The result returned should be what you saw in the file.
Bart.
------------------------------
Date: 24 Jun 1999 09:55:10 +0100
From: Graham Gough <graham@cs.man.ac.uk>
Subject: Re: Newbie - Perl books - which to get?
Message-Id: <ttlwvwu7zbl.fsf@sphere.cs.man.ac.uk>
Don't forget Perl: The Programmer's Companion by Nigel Chapman. Unlike
the ORA books this treats Perl like a conventional programming
language, it even has syntax diagrams! He explains some of the more
arcane areas of Perl with a clarity and detachment that I'm afraid is
missing from some of the ORA books. The examples are also interesting
and clear. This book is definitely worth a read.
Graham
------------------------------
Date: 24 Jun 1999 02:09:19 -0400
From: Jason Larke <jlarke@uu.net>
Subject: Re: Perl Alphanumeric Sort?
Message-Id: <vathfnydt9s.fsf@anthem.aa.ans.net>
>>>>> On Wed, 23 Jun 1999 17:46:38 GMT, doug_johnston@my-deja.com
>>>>> said:
dj> It's a little more complex than that, but basically it works
dj> whenever I want to sort only numbers or letters, but when
dj> sorting this, it doesn't seem to work. I would expect @temp1
dj> to contain ("A1","A2","A3","A4") after the sort, but it ends
dj> up being just the same as it was when it went in. This just
dj> doesn't make sense to me so I'm hoping someonw else out there
dj> has experienced this and can help me. Thanks
jlarke@anthem ~% perl
@letter_nums = ("A4","A2","A1","A3");
sub by_values
{
($a cmp $b)
}
@temp1 = sort by_values (@letter_nums);
print @temp1 , "\n";
A1A2A3A4
Works for me. You might want to post the full code you're using.
--
Jason Larke- jlarke@uu.net- http://www.nnaf.net/~jlarke Send mail for PGP key
I don't speak for UUnet Worldcom or the international communist conspiracy.
"The Rock can't say I quit, because the Rock only talks in the third person."
"People change, and smile: but the agony abides."-T.S. Eliot, The Dry Salvages
------------------------------
Date: Thu, 24 Jun 1999 12:47:56 +0200
From: Sigvald Refsum <sigvald.refsum@siemens.no>
Subject: Please help newbie : Registry.pm
Message-Id: <37720CDC.AB86A8BE@siemens.no>
I have a problem with Registry.pm.
I had a working ActiveState installation untill my HD crashed (?).
Getting a new HD i decided to install the Standard version of perl
together with the Win32 stuff.
I think a got everything tru the compiler, after some tveaking, but I
get the following message when a script
contains "use Win32::Registry":
"Win32::Registry" is not exported by the Win32::Registry module at
C:\perl\site\5.00556\lib/Win32/OLE/Const.pm line 8
Can't continue after import errors at
C:\perl\site\5.00556\lib/Win32/OLE/Const.pm line 8
BEGIN failed--compilation aborted at
C:\perl\site\5.00556\lib/Win32/OLE/Const.pm line 8.
BEGIN failed--compilation aborted at MOmatch.pl line 10.
The relevant info about installation ?:
H:\wrk\src\gdmoparser>perl -V
Summary of my perl5 (revision 5.0 version 5 subversion 56)
configuration:
Platform:
osname=MSWin32, osvers=4.0, archname=MSWin32-x86
uname=''
config_args='undef'
hint=recommended, useposix=true, d_sigaction=undef
usethreads=undef useperlio=undef d_sfio=undef
use64bits=undef usemultiplicity=undef
Compiler:
cc='cl.exe', optimize='-O', gccversion=
cppflags='-DWIN32'
ccflags ='-Od -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT '
stdchar='char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
alignbytes=8, usemymalloc=n, prototype=define
Linker and Libraries:
ld='link', ldflags =''
libpth=d:\"Program Files"\DevStudio\vc\lib
libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.
lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib
uuid.lib wsock
32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib
PerlCRT.lib winine
t.lib
libc=msvcrt.lib, so=dll, useshrplib=yes, libperl=perl.lib
Dynamic Linking:
dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ', lddlflags='-dll '
Characteristics of this binary (from libperl):
Built under MSWin32
Compiled at May 19 1999 15:33:08
%ENV:
PERLBIN="C:\perl\5.00556\bin;C:\perl\5.00556\bin\MSWin32-x86"
@INC:
C:\perl\5.00556\lib/MSWin32-x86
C:\perl\5.00556\lib
C:\perl\site\5.00556\lib/MSWin32-x86
C:\perl\site\5.00556\lib
The script opens a winword doc, search for a bookmark, selects text from
first bookmark to next bookmark
write text to file and close doc.
The program:
####################################################################################
use English;
use Text::Parser;
use Text::ml;
use Time::Local;
use File::Basename;
use Getopt::Long;
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
use Win32::Clipboard;
use Cwd;
###
### About 5000 lines deleted.
###
if ($UseOle) {
# Open Application winword and clipboard
chdir "$SrcDir";
my $Word = Win32::OLE->new('Word.Application', 'Quit')
or die "Couldn't run Word";
foreach $Arg (@ARGV)
{
@Files = glob($Arg);
$CurrentFile = basename($Arg,"\.doc");
addFile($CurrentFile);
chdir "$SrcDir";
print "$SrcDir\n";
# Open file
my $Doc = $Word->Documents->Open("$SrcDir\\$Arg");
# Navigate
$Doc->GoTo({What =>wdGoToBookmark, Name =>
"StartGDMODescription"});
$Doc->Bookmarks('StartGDMODescription')->Select();
my $Range = $Word->Selection();
with ($Range, ExtendMode => 1);
$Range->GoTo({What => wdGoToBookmark, Name =>
"EndGDMODescription"});
# Copy selection to clipboard
$Range->Copy();
print $Range->FormattedText;
# Close file without saving
$Doc->Close;
# Create temp file
open(TextFile,">$CurrentFile.txt");
printf TextFile ("%s\n", Win32::Clipboard::Get());
close TextFile;
# Parse the file.
@Files = glob("$CurrentFile\.txt");
$GDMOParser->Parse(\@Files);
chdir "$DestDir";
incFileheader();
chdir "$CurrDir";
}
# Disconnect OLE
undef $application;
}
The question:
Can anybody give me a hint or a direction of where to look, please.
Sigvald Refsum
------------------------------
Date: 24 Jun 1999 09:25:16 GMT
From: h.camp@creagen.de (H. Camphausen)
Subject: Re: Referencing question, was: "Re: use strict question"
Message-Id: <MPG.11dc1416d35175cc98968a@news.scm.de>
[Fup zu Shane Fisher's Posting vom Wed, 23 Jun 1999 17:14:31 -0700]
Hi,
> > # here we go again, strict won't complain, 'symbolism' is working fine:
> > $result = &{$func_refs{$my_func}};
>
> I'm doing something similar in my email script...
Yes, something _similar_ ;-)
Note the curly brackets...
...and referr to Eric's posting. If you use the (really better readable)
'->'-dereferencing mechanism, you'll _have_ to put the round, args-
enclosing brackets '(..)' after the '->', even if you don't pass any args
to your function:
$result = $func_refs{$my_func}->();
That works ok.
mfg, Hartmut
--
-----------------------------------
CREAGEN Computerkram
Hartmut Camphausen
Kirchstrasse 8
35042 Marburg
Fon: 06424/923826
Fax: 06424/923827
Emil: h.camp@creagen.de
WWW: http://www.creagen.de/
------------------------------
Date: Thu, 24 Jun 1999 07:28:24 GMT
From: haytounet@my-dejanews.com (Arnaud Limbourg)
Subject: Re: Variable not imported
Message-Id: <3771ddd8.2186021@news.bull.fr>
> (F) While "use strict" in effect, you referred to a global variable
> that you apparently thought was imported from another module, because
> something else of the same name (usually a subroutine) is exported
> by that module. It usually means you put the wrong funny character
> on the front of your variable.
>
>But this doesn't look as if it's what you're talking about....
I was using strict actually, so i had to write my $mail_command. ANd
so it just works fine, thank you !
------------------------------
Date: Thu, 24 Jun 1999 08:20:49 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Viral matters [completely off-topic]
Message-Id: <3771e997.62822881@news.nikoma.de>
On Wed, 23 Jun 1999 12:02:22 -0700, David Cassell
<cassell@mail.cor.epa.gov> wrote:
>I hereby nominate the subroutines in Matt's Scripts as examples
>of Perl viruses. They certainly fit the clasical Latin original:
>"slimy liquid, poison, offensive odour or taste". They can't
>exist except within Perl programs. They're impossible to get
>rid of [except in one's own scripts]. They seem to proliferate
>at a terrifying rate. Their very nature seems to induce their
>replication.
After installing the newest ActiveState build of Perl in order to get
newer docs, I had a look at some of the Win32 specific facts. One of
them specifically points people at Selena Sol's and Matt Wright's
script archives as places to get scripts from. ... Don't know whether
there's much to add to that.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Thu, 24 Jun 1999 08:20:50 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Viral matters [completely off-topic]
Message-Id: <3771e9e3.62898348@news.nikoma.de>
On Wed, 23 Jun 1999 17:18:33 +0100, Matt Sergeant
<matt.sergeant@ericsson.com> wrote:
>Tom Christiansen wrote:
>>
>> Feel free to point others thither. No, Unix has no viruses. Neither
>> does Perl.
>
>BS. So I take it "Bliss" is a figment of my imagination?
Who's he/she/it?
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Thu, 24 Jun 1999 09:33:53 +0100
From: Matt Sergeant <matt.sergeant@ericsson.com>
Subject: Re: Viral matters [completely off-topic]
Message-Id: <3771ED71.1E70BA90@ericsson.com>
"Philip 'Yes, that's my address' Newton" wrote:
>
> On Wed, 23 Jun 1999 17:18:33 +0100, Matt Sergeant
> <matt.sergeant@ericsson.com> wrote:
>
> >Tom Christiansen wrote:
> >>
> >> Feel free to point others thither. No, Unix has no viruses. Neither
> >> does Perl.
> >
> >BS. So I take it "Bliss" is a figment of my imagination?
>
> Who's he/she/it?
You have access to the internet, right?
Matt.
------------------------------
Date: Thu, 24 Jun 1999 01:50:19 GMT
From: dave@foobar.com (Dave)
Subject: Re: Writing to a terminal from a perl script
Message-Id: <37718cf3.1747583031@news.mindspring.com>
Here's a sh way:
for TM in `who | awk "/$LOGNAME/{ print \\$2 }"`
do
echo "Hello World!" > /dev/$TM
done
Yeah, yeah, I know it's not in perl...
cheers!
Dave
On Wed, 23 Jun 1999 14:59:40 -0700, Shane Fisher
<fishers@lister.acm.wwu.edu> wrote:
> Greets,
>
> I am trying to figure out how to write to my terminal from a perl script
> invoked by another process. For example, a biff-like "new mail" notice
> when procmail pipes a message to a perl script. I understand that
> whenever procmail executes a script, it invokes it with the same
> environment as the intended recipient. So, I'm wondering if there is an
> environment variable that the perl script can use to "find" the terminal
> to write to.
>
> Is this more of a "sockets" question, or interprocess communication? I've
> read through the docs on termio and termcap, but I don't think those are
> what I need to accomplish this.
>
> Any help would be greatly appreciated.
>
> Regards,
> Shane
>
> =========================================================================
> Shane M. Fisher
> CS Major, Western Washington University
> E-Mail: fishers@acm.wwu.edu, smfisher@gte.net
> Web: http://www.acm.wwu.edu/fishers
> =========================================================================
>
>
+---------------------+---------------+
|nojunkmail@nospam.com| mindspring.com|
|nospam@nojunkmail.com| davegrantier@ |
+---------------------+---------------+
------------------------------
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 6115
**************************************
