[19529] in Perl-Users-Digest
Perl-Users Digest, Issue: 1724 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 10 11:05:31 2001
Date: Mon, 10 Sep 2001 08:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1000134306-v10-i1724@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 10 Sep 2001 Volume: 10 Number: 1724
Today's topics:
Re: @INC on VMS <dan@tuatha.sidhe.org>
Re: Baiting Gozilla to obtain quality code for nothing! <tsee@gmx.net>
Re: Baiting Gozilla to obtain quality code for nothing! (Randal L. Schwartz)
Re: Happy Rollover <davidhilseenews@yahoo.com>
How can I correct "Use of uninitialized value in substi <guest@email.com>
How can I correct "Use of uninitialized value in substi <Dan.Nguyen@lsil.com>
Re: How can I find the PID's of my children? (Anno Siegel)
How can I popup a info window in perltk, and have execu (Stan Brown)
How to code windows service ? (Samppa)
Is there any perl script formater? (Dav Lam)
Re: Is there any perl script formater? (Tad McClellan)
Problem with parsing more than one line ( Please HELP ) (Laird)
Re: Problem with parsing more than one line ( Please HE <Thomas@Baetzler.de>
Re: Problem with parsing more than one line ( Please HE (Randal L. Schwartz)
Re: system() can't start serever app - HELP (Steve Klebar)
Re: system() can't start serever app - HELP <Thomas@Baetzler.de>
Re: terminal Emulator news@roaima.demon.co.uk
Re: use strict my $foo = ""; Bug? <tsee@gmx.net>
Re: Where can I find a Perl SSH Telnet Client? <pilsl_@goldfisch.at>
Re: Where can I find a Perl SSH Telnet Client? (Anno Siegel)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 10 Sep 2001 13:58:03 GMT
From: Dan Sugalski <dan@tuatha.sidhe.org>
Subject: Re: @INC on VMS
Message-Id: <LF3n7.324201$v5.32430837@news1.rdc1.ct.home.com>
Patrick Flaherty <Patrick_member@newsguy.com> wrote:
> In article <6Hem7.316511$v5.31719849@news1.rdc1.ct.home.com>, Dan says...
>>
>>Patrick Flaherty <Patrick_member@newsguy.com> wrote:
>>
>>>How do I define @INC on VMS? (Presumably with a logical name). Looked through
>>> the documentation and it's not yet apparent to me.
>>
>>Just like you do everywhere else. :)
> Well I of course tried that but it didn't work (to the best of my
> understanding):
> RM763A>defi "@INC" U8:[UTIL.PERL5.LIB]
Nonononono. Like this:
perl "-Ifoo/bar" "-Isome_place:[a.dir]" prog.pl
or
perl -e "push @INC, ""foo/bar"""
@INC is a perl variable. You need to set it from within perl. :)
If you want it persistent because, say, you have a private library
directory, take a look at the perlrun section of the manual,
specifically for the PERL5LIB environment variable. Set that
(As a process-mode or higher logical on VMS) and you should
be OK.
Dan
------------------------------
Date: Mon, 10 Sep 2001 15:32:50 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: Baiting Gozilla to obtain quality code for nothing!!
Message-Id: <9nif5c$2kp$06$1@news.t-online.com>
"Kate" <kathrynmwood@earthlink.com> schrieb im Newsbeitrag
news:Vd2n7.10910$5r.876241@newsread2.prod.itd.earthlink.net...
> 2 words - lighten up! This isn't a group therapy session, which is a good
> thing cuz we might all be in a lot of trouble if it was. She obviously
> enjoys her work, and she's good at it. And if she just says what every
woman
> that ever went into a "man's" profession thinks 50 times a day - good!
> Someone has to say it, don't they.
You also think we're all part of the same troll?
Scary thought.
Umm, I'll shut up. It's all mule manure anyway.
Steffen
------------------------------
Date: 10 Sep 2001 07:51:48 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Baiting Gozilla to obtain quality code for nothing!!
Message-Id: <m1g09vksjf.fsf@halfdome.holdit.com>
>>>>> "Kate" == Kate <kathrynmwood@earthlink.com> writes:
Kate> She obviously enjoys her work, and she's good at it.
That's two presumptions that assume facts not in evidence. :)
In fact, for the latter, my expert opinion is that she's a junior
programmer (but a lot further along than last year) who thinks she's a
senior programmer. So, the second presumption is actually false
through evidence.
Kate> And if she just says what every woman that ever went into a
Kate> "man's" profession thinks 50 times a day - good! Someone has to
Kate> say it, don't they.
Sounds like you have your *own* axe to grind, and that blinds you to
the actual distruption that Kira is... namely that some of the newbies
get distracted into thinking that Kira's advice is not sometimes the
blind leading the blind on a sightseeing tour. :)
She's also very good at publicly criticizing her critics, usually
devolving to a personal attack when she can't find a technical
come-back. This is a pretty junior thing to do as well. I wish her
the best, but she's still got some growing up to do.
print "Just another Perl hacker," # and professional programmer for 25 years
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 10 Sep 2001 13:26:14 GMT
From: "David Hilsee" <davidhilseenews@yahoo.com>
Subject: Re: Happy Rollover
Message-Id: <Wb3n7.87903$hT4.22738699@news1.rdc1.md.home.com>
"Brendon Caligari" <bcaligari@fireforged.com> wrote in message
news:9nhjk30asc@enews4.newsguy.com...
>
> "revjack" <revjack@revjack.net> wrote in message
> news:9nhapg$njh$1@news1.Radix.Net...
> > ~$ perl -wle 'print length time'
> > 10
> >
> > Happy rollover. Is the world supposed to end now?
> >
>
> Yes
>
> perldoc -f time
>
> time Returns the number of non-leap seconds since whatever time the
> system considers to be the epoch (that's 00:00:00, January 1,
> 1904 for MacOS, and 00:00:00 UTC, January 1, 1970 for most
other
> systems). Suitable for feeding to "gmtime" and "localtime".
>
> perldoc -f length
>
> length Returns the length in characters of the value of EXPR. If EXPR
> is omitted, returns length of "$_". Note that this cannot be
> used on an entire array or hash to find out how many elements
> these have. For that, use "scalar @array" and "scalar keys
> %hash" respectively.
>
> $ perl -wle 'print time'
> 1000100535
> $perl -wle 'print length time'
> 10
>
> on the other hand
> $ perl -wle 'print scalar localtime'
> Mon Sep 10 07:43:22 2001
>
So when do we get the punch line? I was expecting something like...
$ perldoc -f time
Returns the number of non-leap seconds since whatever time the
system considers to be the epoch (that's 00:00:00, January 1,
1904 for MacOS, and 00:00:00 UTC, January 1, 1970 for most other
systems). Suitable for feeding to "gmtime" and "localtime". Note that,
on some systems, if the value returned by time() is 10 digits long (or
more),
the world ends.
--
David Hilsee
------------------------------
Date: Mon, 10 Sep 2001 09:28:38 -0500
From: "guest" <guest@email.com>
Subject: How can I correct "Use of uninitialized value in substitution iterator at ..."?
Message-Id: <9niinq$klm$1@news.lsil.com>
Hello perl experts out there,
I'm having a problem of using the example of "removing C/C++ comments" in
page 293 of in the "Mastering Regular Expressions" book
written by Jeffrey E. F. Friedl. The problem occurred when I used "(?:" in
the "Traditional C comments" statement.
The program seemed to work fine EXCEPT it gave me the WARNING that really
want to fixed.
I'm very appreciated for all of your help. Below is the program that I
have executed.
Dan
(316-636-8484)
############################################################################
##############
> rcomments test.h
###################
PROGRAM -comments:
###################
#!/bin/perl -w
print "\nUsage: $0 inFile\n" unless (($inFile) = @ARGV);
undef $/; open (FIN, "<$inFile") or die "$0 can't open input ($inFile)\n";
$dataFile = <FIN>; close (FIN);
print "\n###################\nPROGRAM -$0:\n###################\n";
system("cat $0");
print "\n###########\nINPUT FILE:\n###########\n$dataFile\n";
###Line below is 8
$dataFile =~ s {
# First, we'll list things we want to match, but not throw
away
(
[^"'/]+ # other stuff that couldn't possibly
begin one of other alternatives
| # -or-
(?:"[^"\\]*(?:\\.[^"\\]*)*" [^"'/]*)+ #
doublequoted string
| # -or-
(?:'[^'\\]*(?:\\.[^'\\]*)*' [^"'/]*)+ #
singlequoted constant
)
| # OR...
# ...we'll match a comment. Since it's not in the
$1 paraenthese above,
# the comments will disappear when we use $1 as the
replacement text.
/ # (all
comments start with a slash)
(?:
\*[^*]*\*+(?:[^/*][^*]*\*+)*/ #
Traditional C comments
| # -or-
/[^\n]* # C++
//-style comments
)
}{$1}gsx;
$dataFile =~ s { (^\s+[\n]) | (^[\n]) } []gmx; # remove
all blank lines
print "\n############\nOUTPUT FILE:\n############\n$dataFile\n";
###########
INPUT FILE:
###########
/* *********** test.h ********** */
constant char *startC1 = "/*", *endC1 = "*/"; /* This is a traditional
comment */
constant char *startC2 = "//", *endC2 = "//"; // This is the C++ comment
x="/* THIS IS A CONSTANT OF COMMENT */";
y="// THIS IS A CONSTANT OF COMMENT //";
Use of uninitialized value in substitution iterator at rcomments line 8.
Use of uninitialized value in substitution iterator at rcomments line 8.
Use of uninitialized value in substitution iterator at rcomments line 8.
############
OUTPUT FILE:
############
constant char *startC1 = "/*", *endC1 = "*/";
constant char *startC2 = "//", *endC2 = "//";
x="/* THIS IS A CONSTANT OF COMMENT */";
y="// THIS IS A CONSTANT OF COMMENT //";
------------------------------
Date: Mon, 10 Sep 2001 09:38:31 -0500
From: "Dan Nguyen" <Dan.Nguyen@lsil.com>
Subject: How can I correct "Use of uninitialized value in substitution iterator at ..."?
Message-Id: <9nijab$kmv$1@news.lsil.com>
Hello perl experts out there,
I'm having a problem of using the example of "removing C/C++ comments" in
page 293 of in the "Mastering Regular Expressions" book
written by Jeffrey E. F. Friedl. The problem occurred when I used "(?:" in
the "Traditional C comments" statement.
The program seemed to work fine EXCEPT it gave me the WARNING that really
want to fixed.
I'm very appreciated for all of your help. Below is the program that I
have executed.
Dan
(316-636-8484)
############################################################################
##############
> rcomments test.h
###################
PROGRAM -comments:
###################
#!/bin/perl -w
print "\nUsage: $0 inFile\n" unless (($inFile) = @ARGV);
undef $/; open (FIN, "<$inFile") or die "$0 can't open input ($inFile)\n";
$dataFile = <FIN>; close (FIN);
print "\n###################\nPROGRAM -$0:\n###################\n";
system("cat $0");
print "\n###########\nINPUT FILE:\n###########\n$dataFile\n";
###Line below is 8
$dataFile =~ s {
# First, we'll list things we want to match, but not throw
away
(
[^"'/]+ # other stuff that couldn't possibly
begin one of other alternatives
| # -or-
(?:"[^"\\]*(?:\\.[^"\\]*)*" [^"'/]*)+ #
doublequoted string
| # -or-
(?:'[^'\\]*(?:\\.[^'\\]*)*' [^"'/]*)+ #
singlequoted constant
)
| # OR...
# ...we'll match a comment. Since it's not in the
$1 paraenthese above,
# the comments will disappear when we use $1 as the
replacement text.
/ # (all
comments start with a slash)
(?:
\*[^*]*\*+(?:[^/*][^*]*\*+)*/ #
Traditional C comments
| # -or-
/[^\n]* # C++
//-style comments
)
}{$1}gsx;
$dataFile =~ s { (^\s+[\n]) | (^[\n]) } []gmx; # remove
all blank lines
print "\n############\nOUTPUT FILE:\n############\n$dataFile\n";
###########
INPUT FILE:
###########
/* *********** test.h ********** */
constant char *startC1 = "/*", *endC1 = "*/"; /* This is a traditional
comment */
constant char *startC2 = "//", *endC2 = "//"; // This is the C++ comment
x="/* THIS IS A CONSTANT OF COMMENT */";
y="// THIS IS A CONSTANT OF COMMENT //";
Use of uninitialized value in substitution iterator at rcomments line 8.
Use of uninitialized value in substitution iterator at rcomments line 8.
Use of uninitialized value in substitution iterator at rcomments line 8.
############
OUTPUT FILE:
############
constant char *startC1 = "/*", *endC1 = "*/";
constant char *startC2 = "//", *endC2 = "//";
x="/* THIS IS A CONSTANT OF COMMENT */";
y="// THIS IS A CONSTANT OF COMMENT //";
------------------------------
Date: 10 Sep 2001 13:43:46 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How can I find the PID's of my children?
Message-Id: <9nig2i$r5g$1@mamenchi.zrz.TU-Berlin.DE>
According to Benjamin Goldberg <goldbb2@earthlink.net>:
> Stan Brown wrote:
> >
> > I'm writing a perlTK script, which will spawn at least one child task
> > to do some long runing processing.
> >
> > However, I'm going to leave the user the option of canceling from an
> > "exit" button on the main window. So I need to be able to send a
> > kill() signal to my children.
>
> Here's another solution, which I should have thought of before.
>
> When you create the child put something like this on the following line:
>
> eval qq[END: { kill "EXIT", $pid }];
^^^^
TERM?
> Or whatever cleanup code you want to do.
Well... A string eval that adds an END block at runtime? I can't say
that I like it. I mean, when you later describe this way of managing
the PIDs as
> 6) Don't store them, eval an END block when the proc is created, which
> will do whatever cleanup is necessary.
you *are* actually storing them, but you are compiling a bit of code
that holds the individual PID. That doesn't look very efficient,
neither in space nor in time.
Doing the sanitary kills in an END block is of course reasonable. If
you want to avoid a global variable for the PIDs, you can use an
accessor to a lexical inside the END block:
END {
my @kidpids;
sub add_pid { push @kidpids, $_[0]}
kill "TERM", @kidpids;
}
Then you'd let the parent "add_pid( $pid)" for each child. It's a bit
more code, but it doesn't stress technology to the breaking point just
to keep track of a few PIDs.
Anno
------------------------------
Date: 10 Sep 2001 09:17:14 -0400
From: stanb@panix.com (Stan Brown)
Subject: How can I popup a info window in perltk, and have executuon continue?
Message-Id: <9niegq$gtk$1@panix2.panix.com>
I have a perlTK script which does a (potenialy long) db query. I would like
to popup n information window to advise the user that this may take a
whi;e. I would like this window to popup, and have the main executuin
return to the TK mainloop. I will dismiss this opoup when the process is
done. Or the user can dismiss it.
The only way I see to do this is to spawn a child process. Is this really
necessary? is there a simpler way?
------------------------------
Date: 10 Sep 2001 06:46:37 -0700
From: sami@xenetic.fi (Samppa)
Subject: How to code windows service ?
Message-Id: <30586a1d.0109100546.7f16eb2f@posting.google.com>
Hello there,
There is a lot of discussion about how to
make an exe file act like windows service.
1. Use srvany.exe
I dont want to use this utility because you can not
(obviously) distribute it freely according Microsoft's license.
2. Dave Roth's win32::daemon module
This module is released under gnu GPL license and
it requires external ini file. Both of these features
does not suit to my purpose.
3. Win32::Lanman::CreateService
This utility creates a service which is pointed to
win32 executable. Obviously the exe file you are
running must support windows control functions.
(I think, that this is what srvany.exe is doing)
This code is released under GPL license too.
Does somebody know how to code a program which can be
executed as windows service ?
(Standalone code which can be defined as service in
the registry.)
Is it possible to make this kind of code with Perl
or is c/c++ required ?
Is there maybe some else utility which acts like srvany.exe
but it can be freely distributed and is not under GPL too ?
regards, Sami
------------------------------
Date: 10 Sep 2001 06:15:53 -0700
From: crud@hongkong.com (Dav Lam)
Subject: Is there any perl script formater?
Message-Id: <fc25f4f2.0109100515.1a55d488@posting.google.com>
Any perl formator out there that is to reformat perl scripts?
Thanks in advance..
------------------------------
Date: Mon, 10 Sep 2001 14:18:59 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Is there any perl script formater?
Message-Id: <slrn9ppev6.u4h.tadmc@tadmc26.august.net>
Dav Lam <crud@hongkong.com> wrote:
>Subject: Is there any perl script formater?
^^^^^^^^
>Any perl formator out there that is to reformat perl scripts?
perldoc -q formatter
"Is there a pretty-printer (formatter) for Perl?"
You are expected to check the Perl FAQs *before* posting to the
Perl newsgroup.
>Thanks in advance..
Uh huh.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 10 Sep 2001 07:02:57 -0700
From: kenlaird@yahoo.com (Laird)
Subject: Problem with parsing more than one line ( Please HELP )
Message-Id: <94a02505.0109100602.cfb103c@posting.google.com>
I've got this file:
...
# name -a
service number1234 comments
# name-b
service numberxxxx comments
# name-c
service numberyyyy
# name-d name-e comments
service numberzzzz
service numbernnnn
# name-other comments
service number4321
...
Every name line is followed by a service with a number.
Service is always the same.
For example numberxxxx belongs with name-b,
number4321 belongs with name-other.
But there are lines with more than 1 name ,
like the this with name-d and name-e
followed by 2 lines with the respective numbers.
So numberzzzz belongs with name-d and
numbernnnn belongs with name-e.
So my problem is how to parse a line with more name 1 name in it,
followed by the line with the respective numbers.
Thanks in advance for any advice on the subject
Ken Laird
------------------------------
Date: Mon, 10 Sep 2001 16:34:49 +0200
From: =?ISO-8859-1?Q?Thomas_B=E4tzler?= <Thomas@Baetzler.de>
Subject: Re: Problem with parsing more than one line ( Please HELP )
Message-Id: <7gjpptc2tb69k38v4c1ssvb6948u3hr2br@4ax.com>
On 10 Sep 2001 07:02:57 -0700, kenlaird@yahoo.com (Laird) wrote:
>I've got this file:^
[...]
>So my problem is how to parse a line with more name 1 name in it,
>followed by the line with the respective numbers.
more than one?
You might consider keeping state while reading. This should work fine
for well-formed input:
open( IN, $yourdatafile )
or die "Can't open input $yourdatafile: $!\n";
my $curr_name;
while( defined( my $line = <IN> ) ){
if( $line =~ m/name/ ){
# do something with a name line
$curr_name = 'whatever';
} elsif( $line =~ m/service/ ) {
# do something with service data based on
# the fact that you know $curr_name
}
}
Can' t really say more (except use Parse::RecDescent :-)) unless we
know more about your data.
HTH,
use strict;my($i,$t,@r)=(0,'5 -.@BHJPT4acd6e2hk2lmn2o4r2s3tuz',map{ord}
split//,unpack('u*','L#`T&)QD5#0`#!!`#%1D)#08`#P05!!(3``$$"``#"0L&``('.
'"`P<!`````0$`'));$t=~s/(\d)(.)/$2x$1/eg;map{$t.=substr$t,$i,1,''while
$_--;$i++}@r;print"$t\n";
------------------------------
Date: 10 Sep 2001 07:43:35 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Problem with parsing more than one line ( Please HELP )
Message-Id: <m1n143ksx4.fsf@halfdome.holdit.com>
>>>>> "Laird" == Laird <kenlaird@yahoo.com> writes:
Laird> I've got this file:
Laird> ...
Laird> # name -a
Laird> service number1234 comments
Laird> # name-b
Laird> service numberxxxx comments
Laird> # name-c
Laird> service numberyyyy
Laird> # name-d name-e comments
Laird> service numberzzzz
Laird> service numbernnnn
Laird> # name-other comments
Laird> service number4321
Laird> ...
Laird> Every name line is followed by a service with a number.
Laird> Service is always the same.
Laird> For example numberxxxx belongs with name-b,
Laird> number4321 belongs with name-other.
Laird> But there are lines with more than 1 name ,
Laird> like the this with name-d and name-e
Laird> followed by 2 lines with the respective numbers.
Laird> So numberzzzz belongs with name-d and
Laird> numbernnnn belongs with name-e.
Laird> So my problem is how to parse a line with more name 1 name in it,
Laird> followed by the line with the respective numbers.
Can you distinguish "comments" somehow, before knowing how many
"service" line there are?
That is, on the line
# name-d name-e comments
how do you know "comments" is a comment? Is there a pattern that
matches the name but not the comments?
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 10 Sep 2001 06:30:23 -0700
From: sjklebar@hotmail.com (Steve Klebar)
Subject: Re: system() can't start serever app - HELP
Message-Id: <1a4e7e5d.0109100530.4bb3a37e@posting.google.com>
efflandt@xnet.com (David Efflandt) wrote in message news:<slrn9pio3p.d8j.efflandt@typhoon.xnet.com>...
> On 7 Sep 2001 15:34:41 -0700, Steve Klebar <sjklebar@hotmail.com> wrote:
> > I can not start an application on a server (Mandrake 8.0, apache) via
> > a perl/cgi script started on a win client. I have set xhosts + (to
> > simplify test)
>
> What does xhosts have to do with CGI? If you are trying to run an X
> program remotely, have you set $ENV{DISPLAY} to point to the remote X
> server. This might not work from CGI unless you daemonized the Perl or
> bash first (perldoc perlipc).
>
> > Client perl cgi script
> > $runcmd = "bin/switch";
> > $rtn = system ($runcmd);
> >
> > Server bash script "/bin/switch";
> > echo "This is a test" >> /var/www/temp/test
> > /usr/bin/appname
>
> To also see stderr you might want to do: /usr/bin/appname 2>&1
>
> > Results:
> > 1) appname starts when bash script is run from the server cmd line
> > 2) bash script will not run when started from client cgi script
> > ($rtn=256)
> > 3) comment out #/usr/bin/appname in bash script and
> > bash script runs when started from client cgi script ($rtn=0)
>
> Looks like a permission (or maybe a path) problem.
> So what is your Perl question?
Dear Dave
I guess I am a classic example of "You don't know what you don't
know". I think what you are telling me that this perl takes no active
role in determinng permissions or enforcing security. I assumed that
even so that from a functional perspective this would have been an
issue that would have been encountered by perl developers. Any
suggestion on a search criteria for the newsgroup or in your opinion
should this be a topic for a windows, linux or apache newsgroup.
Thanks Steve
------------------------------
Date: Mon, 10 Sep 2001 16:47:56 +0200
From: =?ISO-8859-1?Q?Thomas_B=E4tzler?= <Thomas@Baetzler.de>
Subject: Re: system() can't start serever app - HELP
Message-Id: <c9kpptk7ugo28mh6ferushoah5tc38gcq5@4ax.com>
On 10 Sep 2001, sjklebar@hotmail.com (Steve Klebar) wrote:
>I guess I am a classic example of "You don't know what you don't
>know". I think what you are telling me that this perl takes no active
>role in determinng permissions or enforcing security. I assumed that
>even so that from a functional perspective this would have been an
>issue that would have been encountered by perl developers. Any
>suggestion on a search criteria for the newsgroup or in your opinion
>should this be a topic for a windows, linux or apache newsgroup.
Obviously comp.os.linux.misc - but it really wouldn't hurt if you
brushed up on your basic Unix/Linux skills ("RTFM") before you post
there. How'bout chapters 4 and 5 ("Users, Groups and the Superuser",
"The UNIX Filesystem") of "Practical Unix and Internet Security" by
Garfinkel and Spamford, available from O'Reilly?
HTH,
use strict;my($i,$t,@r)=(0,'5 -.@BHJPT4acd6e2hk2lmn2o4r2s3tuz',map{ord}
split//,unpack('u*','L#`T&)QD5#0`#!!`#%1D)#08`#P05!!(3``$$"``#"0L&``('.
'"`P<!`````0$`'));$t=~s/(\d)(.)/$2x$1/eg;map{$t.=substr$t,$i,1,''while
$_--;$i++}@r;print"$t\n";
------------------------------
Date: 10 Sep 2001 14:26:57 GMT
From: news@roaima.demon.co.uk
Subject: Re: terminal Emulator
Message-Id: <3b9cbfa1@news.netserv.net>
In alt.perl.sockets Doyle Rivers <doylerivers@home.com> wrote:
> I would like to be able to connect to a server via telnet and run
> various scripts, however the Net::Telnet module is not sufficient for
> my needs.
> Anyway, if you know of a perl terminal emulator out there please let
> me know [...]
A terminal emulator is generally something used by a real human, and I
would expect it to understand cursor movements, etc. From what you say,
I would assume this isn't really what you want.
It would probably help if you could explain why Net::Telnet doesn't cut
the mustard for you.
Chris
------------------------------
Date: Mon, 10 Sep 2001 15:43:31 +0200
From: "Steffen Müller" <tsee@gmx.net>
Subject: Re: use strict my $foo = ""; Bug?
Message-Id: <9nifpe$m68$02$1@news.t-online.com>
"James Gilbert" <jgrg@sanger.ac.uk> schrieb im Newsbeitrag
news:3B9CB627.B1333E63@sanger.ac.uk...
>
> A new programmer who has just started working
> for me had this piece of code:
>
> use strict
>
> my $foo = "";
>
> ie: he forgot the semi-colon after use strict.
> This has the effect of turning off strict because
> it is doing:
>
> use strict "";
>
> This doesn't appear to be a deliberate part of
> the syntax. The documented version being:
>
> use no strict;
No.
use strict;
or for the opposite:
no strict;
> or:
>
> use strict 'refs', 'vars'; # Allow unstrict 'subs'
Correct.
This doesn't explicitly allow unstrict subs, though. I think that if you
previously declared strict subs, in the same or bigger scope, it's still in
effect. Use "no strict 'subs';" for that.
> Bug? James
No, I think not.
I'm not that much into the perl guts, but I think perl reads this as
something like
use strict(my $foo="");
Which, I guess again, would be the same as "use strict("");".
Now, this isn't opposing documentation. It doesn't say that if you pass an
empty string, full strict is assumed. Basically, you're not telling strict
to do anything, so it doesn't.
Steffen
------------------------------
Date: Mon, 10 Sep 2001 15:25:18 +0200
From: peter pilsl <pilsl_@goldfisch.at>
Subject: Re: Where can I find a Perl SSH Telnet Client?
Message-Id: <3b9cbf40$1@e-post.inode.at>
Tad McClellan wrote:
>
> Maybe you are ignorant of Dennis' posting history here?
>
You refer to the "BUCK NAKED WHAT A MAN" ?
peter
--
peter pilsl
pilsl_@goldfisch.at
http://www.goldfisch.at
------------------------------
Date: 10 Sep 2001 13:47:55 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Where can I find a Perl SSH Telnet Client?
Message-Id: <9nigab$r5g$2@mamenchi.zrz.TU-Berlin.DE>
According to peter pilsl <pilsl_@goldfisch.at>:
> Tad McClellan wrote:
>
> >
> > Maybe you are ignorant of Dennis' posting history here?
> >
>
> You refer to the "BUCK NAKED WHAT A MAN" ?
Himself.
I'm answering for Tad here, but yes, that's whom he means, and he
does have a posting history as described.
Anno
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 1724
***************************************
