Hello Perl gurus,

I'm currently in the process of writing a chat server in Perl.
Everything is all hunky-dory--it parses commands as it should, and is,
of course, quite satisfying. Except for one thing, and that is that...

I have a need at work to monitor external I/O from a PC. Basically I need to turn outputs on and off and monitor some various inputs for different ranges. Since I know *some* Perl and the PC won't be doing anything else I am not worried about making sure the code is enterprise scalable. Is there any direction anyone can point me to start my reading into such a requirement? Additionally if anyone knows of any external hardware with a Perl API that exists, that would be great!

Thanks for any comments!
jlc

Hi,

I just got bitten by a very simple issue, where Perl behaves totally
different from what I had expected;

According to the documentation, lexical variables are visible only after
the line they have been declared in; they may be initialized;
otherwise their value is undefined, so the following short code snippet:

foreach (qw(a b c)) {
my $t;
warn("\$t == ", $t||'undef', "\n");
$t=$_;
}

will 3 times print "$t == undef" (as to be expected).
Now a minor variation:

my $x=undef;
foreach (qw(a b c)) {
my $t =$x if $x;
warn("\$t == ", $t||'undef', "\n");
$t=$_;
}

Dear my friends...

I am still new in perl.

I am writing perl-cgi application for uploading a file. I did "chmod
777 ../../artikel". But I get weird displayed message:
"
ueri: ------------4CyrMz2ZeGIClwYfFsVdcv Co........
î 6êÎ]Ë kšfþx·¾ ðfS4M3>º {½‡<Óöù³®�¯3çýGèBù= „¬È›øRƒ.....
&ƒ ÿƒ&m‡îø'-n nÊÐJ(pÇ 9çqîÎ.........
Ê ¨‚¡ÀÜ EÖ� z!ª˜Y6�¬úÒ„â0J¼“ñË.......
[end so on. very longg.............]
".

And no file copied/uploaded in '../../artikel'. But inserting the record onto
the mysql run properly.

Please tell me why.....

ciwei wrote:

The next two lines should be:

use warnings;
use strict;

You should include the $! variable in the error message so you know why
open() failed:

open WHO, 'who |' or die "Cannot open pipe from 'who' $!";

On Jan 12, 2008 1:50 PM, newsguy.com> wrote:

Rob Dixon 350.com> writes:

Sorry if I was unclear as to what I was after. Yes that was it.

And the bit about `perldoc bytes' was new ground for me too.

I never ran into that usage I guess. Or never really thought to look
a `pragma'.

I thought, right along, that kind of syntax was reserved for pulling
up documentation of a module, like `perldoc File::Find' or whatever.
And have been confused about `pragma' as well.

You've helped clear that up for me too.... thanks.

On Jan 12, 2008 12:29 PM, Rob Dixon 350.com> wrote:
snip

When I execute this line:

$type eq "unknown" ? $type="human" : $type="both";

$type is always "both". But executing this line:

if ($type eq "unknown") {$type="human"} else {$type="both"};

$type is "human", which is want I want and expect. The context for these
statements in my program is pasted in at the bottom.

Thanks for your guidance.

-Kevin

Kevin Zembower
Internet Services Group manager
Center for Communication Programs
Bloomberg School of Public Health
Johns Hopkins University
111 Market Place, Suite 310
Baltimore, Maryland 21202
410-659-6139
====================================
my $type = "unknown"; #The default.

-

Is this what you mean on line 9? I tried and it does not seem to work,
meaning it still descending.