[16647] in Perl-Users-Digest
Perl-Users Digest, Issue: 4059 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 18 14:10:37 2000
Date: Fri, 18 Aug 2000 11:10:22 -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: <966622221-v9-i4059@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 18 Aug 2000 Volume: 9 Number: 4059
Today's topics:
Re: Perl guestbook hacking (with HTML enabled) (Gwyn Judd)
Re: Perl guestbook hacking (with HTML enabled) <newsposter@cthulhu.demon.nl>
Re: Perl guestbook hacking (with HTML enabled) <sandra@siliconrack.com>
Problem installing mysql module <michael.segulja@sgi-lsi.com>
Re: Problem with hash initialization using list <aqumsieh@hyperchip.com>
Re: Problem with hash initialization using list nobull@mail.com
Re: problems with Tk and NT4 <bkennedy99@home.com>
Re: Regex Alternation Question nobull@mail.com
Re: Regex Alternation Question <abe@ztreet.demon.nl>
Re: setting up a cgi directory cedop@my-deja.com
Signal blocking skesavan@my-deja.com
substring-p <agw@smolyak.cs.columbia.edu>
system() and error handling <roman.stawski@fr.adp.com>
Re: system() and error handling nobull@mail.com
Thread & LWP::UserAgent seg faults rosmith_ixl@my-deja.com
Re: try & catch (Michael P. Soulier)
Re: try & catch (Mark-Jason Dominus)
Re: Two pipes and only one runs, why? <o_dehon@my-deja.com>
We Need Your Feedback waseema@my-deja.com
Re: We Need Your Feedback <care227@attglobal.net>
Re: Win2K; Perl from command line <abe@ztreet.demon.nl>
Re: Win2K; Perl from command line <guenther.degenfelder@datev.de>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 18 Aug 2000 15:06:22 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Perl guestbook hacking (with HTML enabled)
Message-Id: <slrn8pqk7b.apk.tjla@thislove.dyndns.org>
I was shocked! How could Sandra <sandra@siliconrack.com>
say such a terrible thing:
>
>We have a simple Perl guestbook based on Matt W.'s guestbook,
>we have HTML enabled. Server is redhat 6.1
>
>Question:
>
>1. I read somewhere it's easy to hack servers using
>HTML-enabled perl guestbooks. Is this true? which procedure?
I believe all it is necessary to do is attempt to write to the guestbook
from two different computers at more or less the same time. This will if
you are lucky (and assuming matt hasn't updated his code) delete your
guestbook.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
I can't understand why a person will take a year or two to write a novel
when he can easily buy one for a few dollars.
-Fred Allen
------------------------------
Date: 18 Aug 2000 16:04:11 GMT
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: Perl guestbook hacking (with HTML enabled)
Message-Id: <8njmpr$ma4$1@internal-news.uu.net>
Gwyn Judd <tjla@guvfybir.qlaqaf.bet> wrote:
> I was shocked! How could Sandra <sandra@siliconrack.com>
> say such a terrible thing:
>>1. I read somewhere it's easy to hack servers using
>>HTML-enabled perl guestbooks. Is this true? which procedure?
> I believe all it is necessary to do is attempt to write to the guestbook
> from two different computers at more or less the same time. This will if
> you are lucky (and assuming matt hasn't updated his code) delete your
> guestbook.
Wouldn't it be easier to post a message containing some evil JavaScript
fragment?
Erik
------------------------------
Date: Fri, 18 Aug 2000 16:30:38 GMT
From: Sandra <sandra@siliconrack.com>
Subject: Re: Perl guestbook hacking (with HTML enabled)
Message-Id: <vEzMNt5PUBGv6qmXeaV1iQbaNFq4@4ax.com>
>>We have a simple Perl guestbook based on Matt W.'s guestbook,
>>we have HTML enabled. Server is redhat 6.1
>>1. I read somewhere it's easy to hack servers using
>>HTML-enabled perl guestbooks. Is this true? which procedure?
>
>I believe all it is necessary to do is attempt to write to the guestbook
>from two different computers at more or less the same time. This will if
>you are lucky (and assuming matt hasn't updated his code) delete your
>guestbook.
That would be ok... I don't care about the guestbook data,
I was worried about those hackers hacking files on
other directories through the guestbook and executing
malicious code on the server through the guestbook.
Sandra
------------------------------
Date: Fri, 18 Aug 2000 11:08:09 -0500
From: "Michael Segulja" <michael.segulja@sgi-lsi.com>
Subject: Problem installing mysql module
Message-Id: <6bdn5.8347$2k1.283864@news-west.usenetserver.com>
I hope somebody can help me with this. I posted this a couple of weeks ago,
and still haven't figured it out. I downloaded the appropriate modules and
installed MySql on my Linux server, but I can't get the mysql module to test
correctly. I ran perl Makefile.PL without any problems, and ran make
without any problems. However, make test fails with the message below. I'm
using the test database that comes with mysql, and using the root user
account with no password. I haven't changed anything with mysql yet. I'm
also running as Linux user root.
make[1]: Entering directory
`/usr/local/src/perl/Msql-Mysql-modules-1.2214/mysql'
make[1]: Leaving directory
`/usr/local/src/perl/Msql-Mysql-modules-1.2214/mysql'
make[1]: Entering directory
`/usr/local/src/perl/Msql-Mysql-modules-1.2214/mysql'
PERL_DL_NONLAZY=1
/usr/bin/perl -I../blib/arch -I../blib/lib -I/usr/lib/perl5/5.6.0/i386-linux
-I/usr/lib/perl5/5.6.0 -e 'use Test::Harness qw(&runtests $verbose);
$verbose=0; runtests @ARGV;' t/*.tt/00base............install_driver(mysql)
failed: Can't load '../blib/arch/auto/DBD/mysql/mysql.so' for module
DBD::mysql: ../blib/arch/auto/DBD/mysql/mysql.so: undefined symbol:
uncompress at /usr/lib/perl5/5.6.0/i386-linux/DynaLoader.pm line 200. at
(eval 1) line 3 Compilation failed in require at (eval 1) line 3.
at t/00base.t line 38
t/00base............dubious
Test returned status 255 (wstat 65280, 0xff00)
Undefined subroutine &Test::Harness::WCOREDUMP called at
/usr/lib/perl5/5.6.0/Te
st/Harness.pm line 334.
make[1]: *** [test_dynamic] Error 255
make[1]: Leaving directory
`/usr/local/src/perl/Msql-Mysql-modules-1.2214/mysql'
make: *** [test] Error 2
I searched for mysql.so and found this:
/usr/local/src/perl/Msql-Mysql-modules-1.2214/blib/arch/auto/DBD/mysql/mysql
.so
/usr/lib/perl5/site_perl/5.6.0/i386-linux/auto/DBD/mysql/mysql.so
The make test acts like it can't find mysql.so, but it's obviously there.
Can somebody help? I don't know if this is because mysql is installed
wrong, or if it's the mysql module that's not doing what it's supposed to
do.
Thanks in advance for any help.
Michael Segulja
------------------------------
Date: Fri, 18 Aug 2000 15:27:09 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: Problem with hash initialization using list
Message-Id: <7a1yzmk2sw.fsf@merlin.hyperchip.com>
nobull@mail.com writes:
> priitr.randla@eyp.ee (Priit Randla) writes:
>
> > ($key,$info{$key}) = split /=/ while <> ;
> > Obviously this does not work and i do understand why($key not
> evaluated yet
> > when evaluating $info{$key}).
>
> > Is there some way to initialize hash _elements_ using lists as
> > %hash = ($key1, $val1, $key2, $val2 ) is doing for _entire_ hash?
>
> %hash = %hash, $key, $val;
>
> But this is not efficient since it unrolls and rerolls the hash each time.
>
> > I'm simply trying to avoid unneccessary temporary variables.
>
> %hash = map { /(.*?)=(.*)/ } <>;
>
> Note: I've not used split because you presumably want to ignore lines
> that contain no "=".
I am not sure, but I think that this will read all the contents of the
file into memory first, apply the map(), and then do the hash
assignment. Not very efficient for large files.
I would do it this way:
/(.*?)=(.*)/ and $hash{$1} = $2 while <>;
> BTW: are you sure you didn't want a chomp() in there somewhere?
>
> %hash = map { chomp; /(.*?)=(.*)/ } <>;
The chomp() is useless as the '.*' will not match any newlines unless
the /s modifier is used (assuming the default value of $/).
--Ala
------------------------------
Date: 18 Aug 2000 18:35:45 +0100
From: nobull@mail.com
Subject: Re: Problem with hash initialization using list
Message-Id: <u98ztumpzi.fsf@wcl-l.bham.ac.uk>
Ala Qumsieh <aqumsieh@hyperchip.com> writes:
> nobull@mail.com writes:
> > priitr.randla@eyp.ee (Priit Randla) writes:
> > > I'm simply trying to avoid unneccessary temporary variables.
> > %hash = map { /(.*?)=(.*)/ } <>;
> I would do it this way:
>
> /(.*?)=(.*)/ and $hash{$1} = $2 while <>;
Yes, that's more efficient. But I thought the OP wanted to avoid
temporary variables because he found them aesthetically displeasing.
As such a solution using $1 and $2 rather than $key and $val is no
better. Maybe I'd misunderstood his objectives.
> > %hash = map { chomp; /(.*?)=(.*)/ } <>;
>
> The chomp() is useless as the '.*' will not match any newlines...
Oops.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Fri, 18 Aug 2000 15:05:26 GMT
From: "Ben Kennedy" <bkennedy99@home.com>
Subject: Re: problems with Tk and NT4
Message-Id: <Wgcn5.110731$A%3.1444732@news1.rdc2.pa.home.com>
"chris müller" <jemand@klop.com> wrote in message
news:8nioa9$rr3$1@pollux.ip-plus.net...
> hi
> i have installt the neewest vesrion of perl and Tk.
> can it bee, that i need to install a C++ compiler?
> chris
No, the ppm distributions of Perl modules contain compiled binaries - it
could easily be an NT / SP6 issue too. But if the binaries don't run, then
theres probably not much you can do.
--Ben
------------------------------
Date: 18 Aug 2000 18:19:35 +0100
From: nobull@mail.com
Subject: Re: Regex Alternation Question
Message-Id: <u9d7j6mqqg.fsf@wcl-l.bham.ac.uk>
Jonas Reinsch <Jonas.Reinsch@ppi.de> writes:
> So to reformulate my question:
> I'm thinking of a feature analogous to $+.
> While $+ gives the text that was matched
> by the last matching parenthesized pattern,
> the feature I think of would give the pattern of
> the last matching parenthesized pattern.
Alternatively you want a XS function that given a list returns the
index of the first defined element. This sounds like the sort of
thing that might belong in List::Utils.
Can't be all that hard to add.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Fri, 18 Aug 2000 19:53:22 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: Regex Alternation Question
Message-Id: <lisqpso1vchmhefh4vmkjmerb8ri8mh9s9@4ax.com>
On 18 Aug 2000 14:48:57 GMT, abigail@foad.org (Abigail) wrote:
....
> I tried to automate the the process:
>
> #!/opt/perl/bin/perl -w
>
> use strict;
> use re 'eval';
>
> my $string = "bla bli blurlp";
>
> my @sub_matches = qw /blub bli blurp/;
> my $i = -1;
At last, here you could have used our().
our $i = -1;
> my $re = join "|" =>
> map {"($sub_matches[$_](?{ \$i = $_ }))"} 0 .. $#sub_matches;
>
> # print $re, "\n";
> $string =~ /$re/;
>
> if ($i == -1) {
> print "No match\n";
> }
> else {
> print "Matched: $sub_matches[$i]\n";
> }
>
> __END__
>
>
> But while $re contains exactly the same string as in the previous code
> fragment, $i remains -1. I've no idea why this doesn't work.
Must be a scope issue if it runs with our().
The perlre manpage suggests $^R is set to the result of the code in (?{
... }) assertions.
--
Good luck,
Abe
------------------------------
Date: Fri, 18 Aug 2000 15:58:57 GMT
From: cedop@my-deja.com
Subject: Re: setting up a cgi directory
Message-Id: <8njmfi$3v4$1@nnrp1.deja.com>
Im running redhat linux 6.2
I dont know which apache server is installed, but
when I try to load the script, i get the whole script
returned in the browser, not the expected output
ie,
instead of getting the line:
Hello World
I get:
print "Hello World";
the script is correct, in that it works at UNI on my account
there, but not at home.
In article <slrn8ppn0m.26j.tim@degree.ath.cx>,
tim@degree.ath.cx (Tim Hammerquist) wrote:
> On Fri, 18 Aug 2000 01:59:01 GMT, cedop@my-deja.com
<cedop@my-deja.com> wrote:
> > Hello,
> >
> > can someone please tell me how I set up a cgi-bin directory, so that
I
> > can execute a perl script from a web page. My system is running
linux
> > 6.2 (Redhat), and perl is installed.
> >
> > When I type which perl, I get
> > /usr/bin/perl
> >
> > when I execute a perl script by typing
> > perl scriptName.pl
> >
> > it works fine, but when i try to run the script from the web
browser, I
> > just get an error page
>
> Assumption #1: You're using Apache 1.3.x server.
> Assumption #2: You're getting a 500 server error.
>
> If both of these assumptions is correct, I recommend making sure your
> script is sending the correct headers to the browser client.
>
> If you're actually getting a 404 or other such error, then yes, it's
> most likely a server config issue.
>
> See the documentation...usually a collection of HTML files within a
> directory named 'manual'. If you're installations like mine (Mandrake
7
> linux;Apache/1.3.12), look in /home/httpd/html/manual or maybe a
> variation thereof.
>
> But again, we're missing important information. I had to make
> assumptions, and when stressed-out programmers have to make
assumptions,
> watch out! =)
>
> Hope this helps,
> --
> -Tim Hammerquist <timmy@cpan.org>
> The optimist thinks this is the best of all possible worlds.
> The pessimist fears it is true.
> -- Robert Oppenheimer
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 18 Aug 2000 16:53:43 GMT
From: skesavan@my-deja.com
Subject: Signal blocking
Message-Id: <8njpmd$807$1@nnrp1.deja.com>
Am rewriting a daemon in perl and can somebody
throw more
light on the following perl equivalent that I
think will
work to block signals during signal handling.
Also, is this the right approach to it or I
better
go for POSIX::Sigaction module?
#// in C
sigemptyset(&sigs);
sigaddset(&sigs, SIGALRM);
sigaddset(&sigs, SIGHUP);
sigaddset(&sigs, SIGINT);
sigaddset(&sigs, SIGQUIT);
memset(&catchother, 0, sizeof catcher);
catcher.sa_handler=&catch_sigterm;
catcher.sa_mask=sigs;
catcher.sa_flags=0;
sigaction(SIGTERM, &catcher, &oldact);
...
..
#// perl signal handling
$SIG{TERM} = \&catch_term;
sub catch_int_term_quit {
local $SIG{ALRM} = 'IGNORE';
local $SIG{HUP} = 'IGNORE';
local $SIG{INT} = 'IGNORE';
local $SIG{QUIT} = 'IGNORE';
local $SIG{PIPE} = 'IGNORE';
$sigterm=1;
}
Thanks
Sree
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 Aug 2000 13:48:47 -0400
From: Art Werschulz <agw@smolyak.cs.columbia.edu>
Subject: substring-p
Message-Id: <ylavgwybgu8.fsf@smolyak.cs.columbia.edu>
Hi.
I would like to determine whether a particular string (say, $word)
appears as a substring of another string (say, $keywords). The
obvious thing to do would be
print $word, "\n" if ($keywords =~ $word);
Unfortunately, this doesn't work if (e.g) $word contains a
parenthesis. The main point here is that I would like $word to be
treated as a garden variety string, not a regular expression.
Ideas? Thanks.
--
Art Werschulz (8-{)} "Metaphors be with you." -- bumper sticker
GCS/M (GAT): d? -p+ c++ l u+(-) e--- m* s n+ h f g+ w+ t++ r- y?
Internet: agw@cs.columbia.edu<a href="http://www.cs.columbia.edu/~agw/">WWW</a>
ATTnet: Columbia U. (212) 939-7061, Fordham U. (212) 636-6325
------------------------------
Date: Fri, 18 Aug 2000 16:20:16 +0200
From: Roman Stawski <roman.stawski@fr.adp.com>
Subject: system() and error handling
Message-Id: <399D4620.716804B6@fr.adp.com>
Hi all
I'm calling an external command using system() and testing the exit
status. For example:
#!/usr/local/bin/perl -w
use strict;
my $a = shift || 0;
my $b = qq/perl -e "print qq(Got $a\\n); exit($a)"/;
my $c = system($b);
print "[$b] returns $c (", $? >> 8, ")\n";
This works as expected when executed with args 0..n but floops out
with negative args:
exitstat2 1
Got 1
[perl -e "print qq(Got 1\n); exit(1)"] returns 256 (1)
exitstat2 0
Got 0
[perl -e "print qq(Got 0\n); exit(0)"] returns 0 (0)
exitstat2 -1
Got -1
Can't spawn "perl -e "print qq(Got -1\n); exit(-1)"": No error at exitstat2.pl line 5.
[perl -e "print qq(Got -1\n); exit(-1)"] returns 65280 (255)
Now perlfunc for system says "The return value is the exit status of
the program as returned by the wait() call"; and for wait it says that
"a return value of -1 __could__ mean that child processes are being
automatically reaped, as described in perlipc".
Both my braincells in tandem were unable to find anything in perlipc
that seemed to correspond to this 'unerror'. Unfortunately, for me -1
is a real exit status for a 3rd party program, and I need to be able
to catch it.
Has anyone else any ideas? What have I missed in the docs?
--
Roman Stawski - ADPgsi
------------------------------
Date: 18 Aug 2000 18:25:19 +0100
From: nobull@mail.com
Subject: Re: system() and error handling
Message-Id: <u9aeeamqgw.fsf@wcl-l.bham.ac.uk>
Roman Stawski <roman.stawski@fr.adp.com> writes:
> Unfortunately, for me -1 is a real exit status for a 3rd party
> program.
You you maybe, but not for Unix-like OS. Unix exit stati are in the
range 0..255.
What OS are you using?
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Fri, 18 Aug 2000 15:54:14 GMT
From: rosmith_ixl@my-deja.com
Subject: Thread & LWP::UserAgent seg faults
Message-Id: <8njm6r$3in$1@nnrp1.deja.com>
I would like to build a multi-thread web hammer tool using perl.
The following code works fine for 1 thread, but with 2 or more threads,
it either hangs or seg faults using perl 5.6.0 on Mandrake 7.1.
Does anyone know of a workaround?
I'm not entirely sure what the useithreads does as the docs state this
*doesn't* give you multiple threads. If not what's the point?
Thanks,
Ross
#!/usr/bin/perl
use strict;
$|++;
use LWP::UserAgent;
use Thread;
use LWP::Debug qw(+);
my $ua = LWP::UserAgent->new;
my @thd;
sub get {
my ($thread) = @_;
printf("Thread %d: 1\n", $thread);
my $r = HTTP::Request->new(GET => 'http://localhost/');
printf("Thread %d: 2\n", $thread);
my $response = $ua->request($r);
printf("Thread %d: 3: %d\n", $thread, $response->code());
}
for (my $thread = 0; $thread < 2; $thread++) {
$thd[$thread] = new Thread \&get, $thread;
}
-------------------
Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
Platform:
osname=linux, osvers=2.2.14-5.0smp, archname=i686-linux-thread
uname='linux localhost 2.2.14-5.0smp #1 smp tue mar 7 21:01:40 est
2000 i686 unknown '
config_args='de'
hint=recommended, useposix=true, d_sigaction=define
usethreads=define use5005threads=define useithreads=undef
usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=define
use64bitint=undef use64bitall=undef uselongdouble=undef
usesocks=undef
Compiler:
cc='cc', optimize='-O2', gccversion=egcs-2.91.66 19990314/Linux
(egcs-1.1.2 release)
cppflags='-D_REENTRANT -fno-strict-aliasing -I/usr/local/include'
ccflags ='-D_REENTRANT -fno-strict-aliasing -I/usr/local/include -
D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
stdchar='char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lpthread -lc -lposix -lcrypt
libc=/lib/libc-2.1.3.so, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: USE_THREADS USE_LARGE_FILES
PERL_IMPLICIT_CONTEXT
Built under linux
Compiled at Aug 17 2000 11:15:50
@INC:
/usr/local/lib/perl5/5.6.0/i686-linux-thread
/usr/local/lib/perl5/5.6.0
/usr/local/lib/perl5/site_perl/5.6.0/i686-linux-thread
/usr/local/lib/perl5/site_perl/5.6.0
/usr/local/lib/perl5/site_perl
.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 Aug 2000 17:30:01 GMT
From: msoulier@nortelnetworks.com (Michael P. Soulier)
Subject: Re: try & catch
Message-Id: <8njrqp$fte$1@bmerhc5e.ca.nortel.com>
In article <slrn8pqkdt.pnk.rgarciasuarez@rafael.kazibao.net>,
Rafael Garcia-Suarez wrote:
>Well, try/catch is usually for handling exceptional conditions, not for
>this kind of job. Why not simply write :
>
> -w $file or sleep($duration);
> -w $file or die "I've waited too much, I give up\n";
Actually, perl can do more than this. While formally, exceptions were
undertaken in Python, in Perl, the basic functionality of exceptions could be
handled with eval.
eval {
some_function();
};
if ($@}
handle_exception($@);
}
If some_function() uses die(), the $@ variable will contain the die
message, and the eval block will ensure that the program does not exit. The if
test then is only true if an exception is thrown somewhere in the call stack
from some_function() down.
You can also put in a hack to make this construct look like try/catch, but
it's not necessary.
If you wish to throw objects, use OO perl and do so.
Mike
--
Michael P. Soulier, 1Z22, SKY Tel: 613-765-4699 (ESN: 39-54699)
Optical Networks, Nortel Networks, SDE Pegasus
"...the word HACK is used as a verb to indicate a massive amount
of nerd-like effort." -Harley Hahn, A Student's Guide to UNIX
Nortel Linux User's Group Ottawa: (internal) http://nlug.ca.nortel.com:8080
------------------------------
Date: Fri, 18 Aug 2000 17:25:32 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: try & catch
Message-Id: <399d718b.307$1b2@news.op.net>
In article <399D4D51.97593664@mail.com>, GI812 <mail@mail.com> wrote:
>I've got a little bit of a c/java
>background and have used tries and catches before. Just wondering if
>there is something of the sort for perl.
Look at search.cpan.org for the 'Error' and 'Exception:Class' modules
and other modules with similar names.
http://search.cpan.org/search?dist=Error
may be what you want.
------------------------------
Date: Fri, 18 Aug 2000 15:06:03 GMT
From: Olivier Dehon <o_dehon@my-deja.com>
Subject: Re: Two pipes and only one runs, why?
Message-Id: <8njjca$3i$1@nnrp1.deja.com>
In article <399D310D.8C62A147@us.ibm.com>,
"Paul R. Andersen" <panderse@us.ibm.com> wrote:
> Adjusting times and loop counts don't seem to matter. Why is it that
> the repeat() only seems to run once for each message DummyProcess puts
> out and why it that DummyProcess shows output first?
>
Even though you set the "repeat" timer to 2000 ms, its callback will
only be called when MainLoop can handle further events. This means that
as long as the button callback is running (which reads from the pipe),
the repeat() callback cannot be invoked.
HTH, -Olivier
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 18 Aug 2000 15:50:01 GMT
From: waseema@my-deja.com
Subject: We Need Your Feedback
Message-Id: <8njluv$377$1@nnrp1.deja.com>
Hi
We are currently at the very end of the developemnt of a brand new IT
site , covering every issue to do with the this vast medium of
communication and business.
We would like your feedback on what we should include on the site.
Please visit http://www.itstop.com
pre-register and youi will be sent an intorductory Pack via e-mail
alternatively e-mail us at
info@itstop.com
Thank you for your time
Waseem
into sport? then goto
http://www.sportwebpages.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 18 Aug 2000 12:18:20 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: We Need Your Feedback
Message-Id: <399D61CC.1927ADD8@attglobal.net>
waseema@my-deja.com wrote:
>
>
> We would like your feedback on what we should include on the site.
>
> Please visit http://www.itstop.com
>
> pre-register and youi will be sent an intorductory Pack via e-mail
^^^^ ^^^^^^^^^^^^
^
Maybe you should include a spell checker?
------------------------------
Date: Fri, 18 Aug 2000 17:19:56 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: Win2K; Perl from command line
Message-Id: <ftkqpsckq5jootjc3rf8v77toudsfr691s@4ax.com>
On Fri, 18 Aug 2000 10:24:01 -0400, "Michael Weir" <mweir@jetform.com>
wrote:
> Is there a way to invoke perl the way you do batch files? So instead of
> typing 'perl myCmd.pl' I could just type 'myCmd' on the command line?
>
Type the folling on your commandline:
help ftype
--
Good luck,
Abe
------------------------------
Date: Fri, 18 Aug 2000 17:44:07 +0200
From: "Guenther Degenfelder" <guenther.degenfelder@datev.de>
Subject: Re: Win2K; Perl from command line
Message-Id: <399d5a4e$1@news.datev.de>
"Michael Weir" <mweir@jetform.com> schrieb im Newsbeitrag
news:spqhvanm87v139@corp.supernews.com...
> Is there a way to invoke perl the way you do batch files? So instead of
> typing 'perl myCmd.pl' I could just type 'myCmd' on the command line?
>
> Thanks
Normaly the setup procedure of your perl-interpreter will join files with
the .pl extension to perl.exe (look at the file-types-section in your
file-explorer).
But this make trouble with redirecting output like
myCmd >myOutput
So better use the pl2bat conversion utility:
pl2bat myCmd.pl
You will get a
myCmd.bat
and everything is OK.
rgds
Guenther
------------------------------
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 4059
**************************************
