[17662] in Perl-Users-Digest
Perl-Users Digest, Issue: 5082 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 11 14:10:45 2000
Date: Mon, 11 Dec 2000 11:10:17 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <976561817-v9-i5082@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 11 Dec 2000 Volume: 9 Number: 5082
Today's topics:
MAPI Programming with Perl, MS Exchange interaction? (Grand Moobiey)
Re: MAPI Programming with Perl, MS Exchange interaction (Arek P)
my cgi scripts starts a download? urgent help needed <kingcaller@hotmail.com>
Re: my cgi scripts starts a download? urgent help neede nobull@mail.com
Re: need help with split <jmourney@hotmail.com>
Re: Newbie problem reg. activeperl (Arek P)
Re: Perl 5.6.0 installation question (Andy Dougherty)
Re: Perl 5.6.0 installation question <thoren@southern-division.com>
perl script launch with inetd <news@nicolas.mine.nu>
Re: perl script launch with inetd (Michael Fuhr)
plz help me !!!!!! <Waarddebon@chello.nl>
Re: plz help me !!!!!! <jdhunter@nitace.bsd.uchicago.edu>
Re: plz help me !!!!!! (Richard Zilavec)
Re: plz help me !!!!!! <mbudash@sonic.net>
Re: progress of upload using multipart/form-data yaronn@my-deja.com
Re: progress of upload using multipart/form-data <joe+usenet@sunstarsys.com>
this cgi starts download why?? <kingcaller@hotmail.com>
Re: this cgi starts download why?? <jeffrey@jhu.edu>
Threads in ActivePerl 620 <rainer.biehn@bmt-online.de>
Re: Threads in ActivePerl 620 <dan@tuatha.sidhe.org>
Visual Perl <justinl@lvcablemodem.com>
Re: Why does'nt this script write to the GUEST -file? <ajbetteridge@yahoo.com>
Re: Why isn't Perl highly orthogonal? <mjcarman@home.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Dec 2000 16:41:56 GMT
From: GMoobiey@gmx.net (Grand Moobiey)
Subject: MAPI Programming with Perl, MS Exchange interaction?
Message-Id: <3a3503a3.2446507@news.t-online.de>
Hi,
I have a problem with sending Mail via Perl over a MS Exchange Server.
(MAPI protocol)
Detailed:
How to connect to an MS Exchange Server and send mail over it ?
I know how to work with sockets and have done the same with SMTP
but I need Inforamtion on how to make it with an MS Exchange Sever.
Can anyone give me information how to interact with MAPI and MS
Exchange with perl ?
I would be really thankfull for any help, even the samllest.
Thanx,
MfG (engl. = With friendly Greetings)
Grand Moobiey
------------------------------
Date: Mon, 11 Dec 2000 12:56:43 EST
From: Arek@nospam._pietruszewski_.com (Arek P)
Subject: Re: MAPI Programming with Perl, MS Exchange interaction?
Message-Id: <9134gr$2fka$1@earth.superlink.net>
On Mon, 11 Dec 2000 16:41:56 GMT, GMoobiey@gmx.net (Grand Moobiey)
wrote:
Check Perl OLE documentation; You can create MAPI object and call
methods to create new messages, ect.
Here is a snipet of code from one of my Perl books, I have not tested
this very one below, but it should work ok.
You can always use Microsofts Object Browser for methods/properties
descriptions.
use OLE;
$ActiveSession = CreateObject OLE "MAPI.Session" || or die
"CreateObject: $!";
$LogonName = "Your Profile Name";
$LogonPasswd = undef; # use stored one, or prompt
die "Logon: $!" if $ActiveSession->Logon($LogonName,
$LogonPasswd); # Logon returns 0 on success
$Message = $ActiveSession->Outbox->Messages->Add();
$Recipient = $Message->Recipients->Add();
$Recipient->{Name} = "Joe Shmoe"; # to address
$Recipient->{Type} = 1; # ugly constant, means this is a To address
#0 means msg originator, 2 is CC and 3 is BCC
$Recipient->Resolve();
$Message->{Subject} = "A Message From Perl";
$Message->{text} = "Perl does automation!";
$Message->Update();
$Message->Send(1, 0, 0); # 1 means send and keep copy in SendItems,
# first 0 means no GUI and second is just req
$Message->Logoff();
HTH,
Arek
>Hi,
>
>I have a problem with sending Mail via Perl over a MS Exchange Server.
>(MAPI protocol)
>Detailed:
>
>How to connect to an MS Exchange Server and send mail over it ?
>I know how to work with sockets and have done the same with SMTP
>but I need Inforamtion on how to make it with an MS Exchange Sever.
>
>Can anyone give me information how to interact with MAPI and MS
>Exchange with perl ?
>
>
>I would be really thankfull for any help, even the samllest.
>
>Thanx,
>MfG (engl. = With friendly Greetings)
>Grand Moobiey
------------------------------
Date: Mon, 11 Dec 2000 16:54:01 +0000
From: rob burnett <kingcaller@hotmail.com>
Subject: my cgi scripts starts a download? urgent help needed
Message-Id: <3A3506A8.4E959887@hotmail.com>
i have wrote the following cgi script however when started it starts a
download and ie or netscape tries to download it instead of interacting
with the data
any help would be apprecated
rob
------------------------------
Date: 11 Dec 2000 17:43:59 +0000
From: nobull@mail.com
Subject: Re: my cgi scripts starts a download? urgent help needed
Message-Id: <u9lmtm6eg0.fsf@wcl-l.bham.ac.uk>
rob burnett <kingcaller@hotmail.com> writes:
> i have wrote the following cgi script however when started it starts a
> download and ie or netscape tries to download it instead of interacting
> with the data
I'm going to guess that you mean it starts to download the script.
Configure your web server correctly. For details read the
documentation for your web server or ask in a group where webserver
configuration is on-topic.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 11 Dec 2000 17:35:35 GMT
From: Joe <jmourney@hotmail.com>
Subject: Re: need help with split
Message-Id: <913397$jgv$1@nnrp1.deja.com>
thank you jim i appreciate you experimenting with it. but you're
missing the point of my question. please read the following.
In article <911spe$2jd$2@nnrp2.phx.gblx.net>,
Jim Monty <monty@primenet.com> wrote:
> > but when the script processes records which are missing one
> > or more fields, the split function assigns undef or null to
> > the corresponding variables.
>
> How does the split function know which fields are missing and which
> variables to assign undef to?
>
> > as you know, it generates some
> > warning messages when i try to use these variables.
> >
> > my question is: should i be concerned with the warning messages?
>
> Yes.
>
> > if so, what must be done?
>
> Read the warnings more carefully.
>
> > other than that, the code works okay.
>
> No it doesn't.
>
> > to explain what i mean, try the above code with the following
> > record:
> >
> > MVCD05 1,2 SPA Residencia San Juan de La
Penitencia
>
> This record will not provoke a warning.
>
> $ ./films
> language is FRE, title is Au Revoir les Enfants
> language is GRK, title is Euripides Medea
> language is SPA, title is Residencia San Juan de La Penitencia
of course your code won't, because you didn't try to print the call
number! (which is missing on the example above). add the following
line to your code:
print "call number is $callnum\n";
and you'll know what i mean by it creating a warning message.
-joe
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Dec 2000 12:21:03 EST
From: Arek@nospam._pietruszewski_.com (Arek P)
Subject: Re: Newbie problem reg. activeperl
Message-Id: <9132dv$2chv$1@earth.superlink.net>
On Sun, 10 Dec 2000 21:14:17 GMT, Bob Walton
<bwalton@rochester.rr.com> wrote:
>rajeshpm wrote:
>>
>> I have installed ActivePerl 5.6 on my computer.
My wild guess here is that You *had downloaded* maybe ???
>>I have windows98.
>> When i double click it on windows explorer it gives a message saying that
>> the version of windows i am using is not compatible.
Is it possible that You need to get the updgarde for Windows
installer? I know that I may be reaching here, but from Your
description of the problem.... You never know...
>>
>> So what do i do ? is there a solution to this.?
I am pretty sure that there is...but You need to denfine *this* a
little bit better...
>> Can somebody help.
>...
>> vidya
>Maybe if you told us *exactly* what the error message says and *exactly*
>what you double-clicked on to get it, then someone might be able to
>help.
>--
>Bob Walton
------------------------------
Date: Mon, 11 Dec 2000 17:40:33 -0000
From: doughera@maxwell.phys.lafayette.edu (Andy Dougherty)
Subject: Re: Perl 5.6.0 installation question
Message-Id: <slrn93a4ek.ndl.doughera@maxwell.phys.lafayette.edu>
In article <MPG.149e26668edcb711989702@news.btx.dtag.de>, Thoren Johne wrote:
>hi,
>if i run 'sh Configure -Dprefix='/usr/home/southern/usr/local'
>everything compiles fine, but after installation @INC points to the
>physical path:
>/usr/home/southern/usr/local/lib/perl5/5.6.0/i386-bsdos
Correct. That's where you told Configure to put it.
>what do i need to do that @INC points to my virtual place - like
>/usr/local/lib/perl5/5.6.0/i386-bsdos
Use 'sh Configure -Dprefix=/usr/local'
It sounds to me like you want to *install* it to
/usr/home/southern/usr/local. See the INSTALL file under
=head2 Changing the installation directory
and the following sections. They will probably help you do what you
want to do.
Hope this helps,
--
Andy Dougherty doughera@lafayette.edu
Dept. of Physics
Lafayette College, Easton PA 18042
------------------------------
Date: Mon, 11 Dec 2000 19:06:56 +0100
From: Thoren Johne <thoren@southern-division.com>
Subject: Re: Perl 5.6.0 installation question
Message-Id: <MPG.149f360c4f7e75b9989706@news.btx.dtag.de>
In article <slrn93a4ek.ndl.doughera@maxwell.phys.lafayette.edu>, Andy
Dougherty aka doughera@maxwell.phys.lafayette.edu says...
> In article <MPG.149e26668edcb711989702@news.btx.dtag.de>, Thoren Johne wrote:
> >hi,
>
> >if i run 'sh Configure -Dprefix='/usr/home/southern/usr/local'
> >everything compiles fine, but after installation @INC points to the
> >physical path:
> >/usr/home/southern/usr/local/lib/perl5/5.6.0/i386-bsdos
>
> Correct. That's where you told Configure to put it.
>
> >what do i need to do that @INC points to my virtual place - like
> >/usr/local/lib/perl5/5.6.0/i386-bsdos
>
> Use 'sh Configure -Dprefix=/usr/local'
>
> It sounds to me like you want to *install* it to
> /usr/home/southern/usr/local. See the INSTALL file under
>
> =head2 Changing the installation directory
>
> and the following sections. They will probably help you do what you
> want to do.
i finally got it installed with
sh Configure
-Dinstallprefix=/usr/home/southern/install -Dprefix=/usr/local
following the section 'Creating an installable tar archive' from the
INSTALL file.
it works fine now from the view of my webserver, but if i try to run
'perl -V' from a telnet shell, i run into trouble:
Can't locate Config.pm in @INC (@INC contains:
/usr/local/lib/perl5/5.6.0/i386-bsdos
/usr/local/lib/perl5/5.6.0
/usr/local/lib/perl5/site_perl/5.6.0/i386-bsdos
/usr/local/lib/perl5/site_perl/5.6.0
/usr/local/lib/perl5/site_perl .).
BEGIN failed--compilation aborted.
do i need to install two versions of perl - one for the virtual servers
point of view (the one i've got so far), and one that i could use from
shell where the @INC path should start with
'/usr/home/southern/usr/local...'?
TIA
thoren
8#X
--
----------------------------------------------------------------------
Thoren Johne - 8#X - thoren@southern-division.com
Southern Division Classic Bikes - www.southern-division.com
------------------------------
Date: Mon, 11 Dec 2000 18:26:26 +0100
From: "Nicolas" <news@nicolas.mine.nu>
Subject: perl script launch with inetd
Message-Id: <9132m2$1ffk$1@news5.isdnet.net>
I wrote a perl script that I launch through inetd.
Unfortunately, I'm not able to determine, in my perl script, the ip address of
the person connected to my script via inetd.
How can I find it ?
Tks
Nicolas Pougetoux
------------------------------
Date: 11 Dec 2000 10:40:39 -0700
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: perl script launch with inetd
Message-Id: <9133in$gr7@flatland.dimensional.com>
"Nicolas" <news@nicolas.mine.nu> writes:
> I wrote a perl script that I launch through inetd.
>
> Unfortunately, I'm not able to determine, in my perl script, the ip address of
> the person connected to my script via inetd.
>
> How can I find it ?
What have you tried and what were the results? getpeername(STDIN)
works on many systems; see the getpeername documentation for more
info.
--
Michael Fuhr
http://www.fuhr.org/~mfuhr/
------------------------------
Date: Mon, 11 Dec 2000 17:12:21 GMT
From: "Waarddebon" <Waarddebon@chello.nl>
Subject: plz help me !!!!!!
Message-Id: <VV7Z5.181986$nj7.2018539@Flipper>
Im getting an error 500 on this:
$temp=$a1$a2;
$string = "name=" . $temp . "&a1=" . $a1 . "&a2=" . $a2 . "&a3=" . $a3 .
"&a4=" . $a4 . "&a5=" . $a5 . "&b1=" . $b1 . "&b2=" . $b2 . "&b3=" . $b3 .
"&c1=" . $c1 . "&c2=" . $c2 . "&d1=" . $d1 . "&e1=" . $e1 . "&e2=" . $e2 .
"&e3=" . $e3 . "&f1=" . $f1 . "&f2=" . $f2;
Can anyone help me out and detect the problem ?
Thanks in advance...
------------------------------
Date: 11 Dec 2000 11:47:33 -0600
From: John Hunter <jdhunter@nitace.bsd.uchicago.edu>
Subject: Re: plz help me !!!!!!
Message-Id: <1ritoqalze.fsf@video.bsd.uchicago.edu>
>>>>> "Waarddebon" == Waarddebon <Waarddebon@chello.nl> writes:
Waarddebon> Im getting an error 500 on this: $temp=$a1$a2; $string
Waarddebon> = "name=" . $temp . "&a1=" . $a1 . "&a2=" . $a2
Waarddebon> . "&a3=" . $a3 . "&a4=" . $a4 . "&a5=" . $a5 . "&b1="
Waarddebon> . $b1 . "&b2=" . $b2 . "&b3=" . $b3 . "&c1=" . $c1
Waarddebon> . "&c2=" . $c2 . "&d1=" . $d1 . "&e1=" . $e1 . "&e2="
Waarddebon> . $e2 . "&e3=" . $e3 . "&f1=" . $f1 . "&f2=" . $f2;
I don't know what an error 500 means? Is this a web CGI thing?
I get an error on the $temp = $a1$a2. Do you want concatenation? If
so, use:
my $temp= $a1 . $a2;
I can make a couple of additional suggestions. You should not use double
quotes unless you explicitly want interpolation. If the strings are
literal, use single quotes. If the variable names are really as
regular as you suggest here, you can use an automatic routine to
generate the desired string, which is less bug prone and more readily
alterable. One example below
Cheers,
John Hunter
#!/usr/local/bin/perl -w
use strict;
my %vars = ('a' => [1..5],
'b' => [1..3],
'c' => [1..2],
'd' => [1],
'e' => [1..3],
'f' => [1..2]
);
#test values
my $a1 = 'John';
my $a2 = 'Hunter';
my $temp= $a1 . $a2; #is concatentaion what you want?
my $string = 'name=' . $temp;
foreach my $key (sort keys %vars) {
foreach my $num (@{$vars{$key}}) {
my $varname = $key . $num;
$string .= '&' . $varname . '=$' . $varname;
}
}
print $string, "\n";
------------------------------
Date: Mon, 11 Dec 2000 17:40:22 GMT
From: rzilavec@tcn.net (Richard Zilavec)
Subject: Re: plz help me !!!!!!
Message-Id: <3a3a10ad.614537877@news.tcn.net>
On Mon, 11 Dec 2000 17:12:21 GMT, "Waarddebon" <Waarddebon@chello.nl>
wrote:
>Im getting an error 500 on this:
>
>$temp=$a1$a2;
^^^^^^^^^
$temp = $a1 . $a2;
or
$temp = "$a1 $a2"; # keep the space
$temp = $a1 . ' ' . $a2; # same as above
--
Richard Zilavec
rzilavec@tcn.net
------------------------------
Date: Mon, 11 Dec 2000 10:11:32 -0800
From: Michael Budash <mbudash@sonic.net>
Subject: Re: plz help me !!!!!!
Message-Id: <mbudash-771A5D.10113211122000@news.pacbell.net>
In article <VV7Z5.181986$nj7.2018539@Flipper>, "Waarddebon"
<Waarddebon@chello.nl> wrote:
> $temp=$a1$a2;
s/b:
$temp="$a1$a2";
or
$temp=$a1 . $a2;
hth-
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: Mon, 11 Dec 2000 15:47:34 GMT
From: yaronn@my-deja.com
Subject: Re: progress of upload using multipart/form-data
Message-Id: <912sul$dp1$1@nnrp1.deja.com>
In article <slrn92l4h2.nl7.efflandt@efflandt.xnet.com>,
efflandt@xnet.com wrote:
> You would have to do something browser side for the client to monitor
> upload status. Unless you are using a Perl script to to submit the
data,
> that is beyond the scope of this newsgroup.
and I'm not even sure it's possible on the client side (browser
security issues)...
I've managed to handle the upload myself (reading STDIN and parsing the
multipart/form) although it means that I'll have to parse the rest of
the form variables as well.
The problem I'm having is sysread() working ok only if I'm reading 1
byte at a time
$len = sysread STDIN, $buf, 1;
(something to do with non-blocking ??)
any help on that?
Thanx
Yaron
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Dec 2000 11:14:17 -0500
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: progress of upload using multipart/form-data
Message-Id: <m3y9xngckm.fsf@mumonkan.sunstarsys.com>
yaronn@my-deja.com writes:
> In article <slrn92l4h2.nl7.efflandt@efflandt.xnet.com>,
> efflandt@xnet.com wrote:
> > You would have to do something browser side for the client to monitor
> > upload status. Unless you are using a Perl script to to submit the
> data,
> > that is beyond the scope of this newsgroup.
>
> and I'm not even sure it's possible on the client side (browser
> security issues)...
Sure it is, but you need to use a client-side language that the
browser can understand (like Java or JavaScript).
--
Joe Schaefer
------------------------------
Date: Mon, 11 Dec 2000 16:58:02 +0000
From: rob burnett <kingcaller@hotmail.com>
Subject: this cgi starts download why??
Message-Id: <3A35079A.AB083296@hotmail.com>
#!/usr/bin/perl -wT
use CGI;
use strict;
use CGI::Carp;
use vars qw($FORM);
my $msg = new CGI;
my $name = $msg->param('name');
my $email = $msg->param('email');
my $telephone = $msg->param('telephone');
my $location = $msg->param('menu');
print<<EOT;
<HTML>
<HEAD>
</HEAD>
<BODY>
<center><h1>Confirmation of Registration</h1></center>
<center><table class="t4" border="1" cellpadding="10" cellspacing="10"
width="400">
<td> Thank you $name for voting for on $location for visiting our Web
site.<br>
We will contact you in the near future on telephone number (
$telephone ),
or via your email address( $email ).</td>
</table>
</center>
<center>
print $msg->end_html;
EOT
exit(0);
the above code when started with my form starts ie or netscape to start
a download for the cgi script i'm new to all this and i can't work out
why any help will be appreciated
cheers
------------------------------
Date: Mon, 11 Dec 2000 17:26:25 GMT
From: Jeff S. <jeffrey@jhu.edu>
Subject: Re: this cgi starts download why??
Message-Id: <9132no$j11$1@nnrp1.deja.com>
First of all, this is *not* perl related!
With that out of the way, the answer is taht you forgot the content-type
header:
print "Content-type: text/html\n\n;
or better yet, since you *are* using CGI.pm:
print $msg->header;
VERY important!
In article <3A35079A.AB083296@hotmail.com>,
rob burnett <kingcaller@hotmail.com> wrote:
> #!/usr/bin/perl -wT
> use CGI;
> use strict;
> use CGI::Carp;
>
> use vars qw($FORM);
>
> my $msg = new CGI;
>
> my $name = $msg->param('name');
> my $email = $msg->param('email');
> my $telephone = $msg->param('telephone');
> my $location = $msg->param('menu');
>
> print<<EOT;
>
> <HTML>
> <HEAD>
> </HEAD>
> <BODY>
> <center><h1>Confirmation of Registration</h1></center>
> <center><table class="t4" border="1" cellpadding="10" cellspacing="10"
> width="400">
>
> <td> Thank you $name for voting for on $location for visiting our Web
> site.<br>
> We will contact you in the near future on telephone number (
> $telephone ),
> or via your email address( $email ).</td>
> </table>
> </center>
> <center>
> print $msg->end_html;
> EOT
> exit(0);
>
> the above code when started with my form starts ie or netscape to
start
> a download for the cgi script i'm new to all this and i can't work out
> why any help will be appreciated
>
> cheers
>
>
--
``| |\ /\ ---------------------------------------*
``| | | \ Jeffrey D. Silverman * jeffrey@jhu.edu
`\/ |/ \/ Johns Hopkins University * Baltimore, MD
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Dec 2000 16:13:27 +0100
From: Rainer Biehn <rainer.biehn@bmt-online.de>
Subject: Threads in ActivePerl 620
Message-Id: <3A34EF16.4A75F0FC@bmt-online.de>
Hi,
I am currently using ActivePerl 620. (Below is the output of perl -v)
This is perl, v5.6.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2000, Larry Wall
Binary build 620 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 18:31:05 Oct 31 2000
and tried to use threads with the prime number example from perlthrtut.
The script failed with the following error message:
No threads in this perl at prime.pl line 9.
1 #!/usr/bin/perl -w
2 # prime-pthread, courtesy of Tom Christiansen
3
4 use strict;
5
6 use Thread;
7 use Thread::Queue;
8
9 my $stream = new Thread::Queue;
10 my $kid = new Thread(\&check_num, $stream, 2);
11
12 for my $i ( 3 .. 1000 ) {
13 $stream->enqueue($i);
14 }
15
16 $stream->enqueue(undef);
17 $kid->join();
18
19 sub check_num {
20 my ($upstream, $cur_prime) = @_;
21 my $kid;
22 my $downstream = new Thread::Queue;
23 while (my $num = $upstream->dequeue) {
24 next unless $num % $cur_prime;
25 if ($kid) {
26 $downstream->enqueue($num);
27 } else {
28 print "Found prime $num\n";
29 $kid = new Thread(\&check_num, $downstream, $num);
30 }
31 }
32 $downstream->enqueue(undef) if $kid;
33 $kid->join() if $kid;
34 }
I get the same error message with other scripts at the line where I try
to create a thread object.
Does this mean that this perl version cannot use threads although there
is a "multi-thread" in the output of perl -v
Any help is much appreciated. Thank you.
--
Rainer
------------------------------
Date: Mon, 11 Dec 2000 18:22:12 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: Threads in ActivePerl 620
Message-Id: <oX8Z5.88802$P82.9694748@news1.rdc1.ct.home.com>
Rainer Biehn <rainer.biehn@bmt-online.de> wrote:
> Hi,
> I am currently using ActivePerl 620. (Below is the output of perl -v)
> This is perl, v5.6.0 built for MSWin32-x86-multi-thread
> (with 1 registered patch, see perl -V for more detail)
> Copyright 1987-2000, Larry Wall
> Binary build 620 provided by ActiveState Tool Corp.
> http://www.ActiveState.com
> Built 18:31:05 Oct 31 2000
> and tried to use threads with the prime number example from perlthrtut.
The threading that ActiveState perl uses is incompatible with the
Thread module. (It uses threads differently, to emulate fork() on
Windows) If you want to use threads with perl on Windows, you'll
need to build it yourself.
Dan
------------------------------
Date: Mon, 11 Dec 2000 07:13:36 -0800
From: "Justin and or Denitza" <justinl@lvcablemodem.com>
Subject: Visual Perl
Message-Id: <t39rsrj293gv78@corp.supernews.com>
Does anyone else find it annoying that you have to be a Microsoft Certified
Certification Class Taker to try out the Visual Perl Beta? Does anyone know
a way around this? (please no replies like "hack the planet, save the
rainforest, tell your boss to switch to BSD")
------------------------------
Date: Mon, 11 Dec 2000 14:41:38 GMT
From: "Andy" <ajbetteridge@yahoo.com>
Subject: Re: Why does'nt this script write to the GUEST -file?
Message-Id: <CI5Z5.21327$D8.344457@twister2.tin.it>
You are trying to write to "GUEST" filehandle when you haven't opened it.
you've opened your filehandle as "FILE"
regards,
Andy,
Fabian Thorbjörnsson <fabian@markisspecialisten.com> wrote in message
news:CX2Z5.3094$O%.493811@newsc.telia.net...
>
> Please help me with this one, regards Fabian
>
> if ( $FORM{'post'} && $linkmail ) {
> open (FILE,"+< $guest") || die "Can't Open $guest: $!\n";
> flock FILE,2; # lock file during modification
> seek FILE,0,0;
> @LINES = <FILE>;
> seek FILE,0,0;
> truncate FILE,0;
>
> foreach (@lines) {
> if (/<!--begin-->/) {
> print GUEST "<!--begin-->\n" if $entry_order;
> print GUEST "$FORM{'foretag'}<br>$FORM{'realname'}<br>",
> "$FORM{'adress'}<br>$FORM{'post'}<br><br>" ;
> print GUEST "<!--begin-->\n" unless $entry_order;
> } else {
> print GUEST $_;
> }
> }
> close GUEST;
> }
>
>
>
------------------------------
Date: Mon, 11 Dec 2000 08:46:44 -0600
From: Michael Carman <mjcarman@home.com>
Subject: Re: Why isn't Perl highly orthogonal?
Message-Id: <3A34E8D4.6B1809F5@home.com>
Terrence Brannon wrote:
>
> [C]onceptually similar operations do not map to the same name
> in Perl. Why does this make Perl a better and not worse language,
> than the intended replacement to Perl, Ruby, which is in fact highly
> regular in all places where Perl isn't [...]
Heh. Careful, there! By whom is Ruby intended to be a replacement to
Perl? ;)
Most of the responses have centered on your example, not the subject of
your question. Perl is non-orthogonal by design. From 'perldoc perl'
"The language is intended to be practical (easy to use,
efficient, complete) rather than beautiful (tiny, elegant,
minimal)."
IIRC, Larry Wall has referred to Perl as being a "diagonal" language.
Instead of forcing a rigid method of doing things, Perl provides you
with options and allows you to choose the most natural (i.e. idiomatic)
method. Whether this is a good thing or a bad thing is largely a matter
of preference. If you want a minimal language, then it's awful. But if
you want to be able to write an arbitrary piece of code quickly and
concisely, then it's wonderful.
IMHO, orthogonality is overrated. It sounds nice on the surface, but you
invariably end up with a situation where you have to write some ugly
hack to get around the restrictions of the language.
-mjc
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 5082
**************************************
