[10703] in Perl-Users-Digest
Perl-Users Digest, Issue: 4302 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 26 09:10:21 1998
Date: Thu, 26 Nov 98 06:00:20 -0800
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, 26 Nov 1998 Volume: 8 Number: 4302
Today's topics:
Re: "ELSE" command in Perl <pulsecode@mailandnews.dot.com>
5.004_04 SelfLoader warings I don't understand? (Jari Aalto+mail.perl)
Accessing Oracle database with perl? <logout@designer.snu.ac.kr>
Anti-Spam Filter - Difficult Pattern Matching Question <Scott@Brumley.com>
Re: Anti-Spam Filter - Difficult Pattern Matching Quest <rick.delaney@shaw.wave.ca>
Re: Beginner Book? dhiraj_malhotra@my-dejanews.com
Calling prolog from perl <dat96gln@student3.lu.se>
Re: Calling prolog from perl <lbenfie1@nospamford.com>
Difficult Pattern Matching <Scott@Brumley.com>
embedded perl's memory management <kocsi@gmx.de>
embedded while loop problem <maurerf@post.ch>
Re: embedded while loop problem <lbenfie1@nospamford.com>
Re: Is it possible to run a web server on Win95? <pulsecode@mailandnews.dot.com>
mail server again <"peter.herger"@swisslife.ch; peter.herger@bigfoot.com>
Re: PERL for windows 95/NT (Bob Hutchinson)
Perl parsing error jannuzzi@csn.com.br
Re: Perl parsing error <jimi@inf.bme.hu>
Perl5.005_02 Perl->C compiler errors <marius@funcom.com>
Re: Simple regexp problem <soma@diku.dk>
Substitution: \x & backreference <pieter@info.vub.ac.be>
Re: Substitution: \x & backreference <J.D.Gilbey@qmw.ac.uk>
Re: Substitution: \x & backreference (Bart Lateur)
Thanksgiving <due@murray.fordham.edu>
Timeout on CGI-scripts that may block <jornt@md1.merkantildata.net>
Re: Using Win32::Process to get running processes??? <carvdawg@patriot.net>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 23 Nov 1998 15:25:02 -0800
From: "PCM" <pulsecode@mailandnews.dot.com>
Subject: Re: "ELSE" command in Perl
Message-Id: <73cquj$ng0$1@news-02.meganews.com>
In clearer terms, use if,elsif,else like this:
if ($age < 18)
{ print "Too young to vote"; }
elsif ($age < 21)
{ print "Too young to drink"; }
else
{ print "Old enough to wish you were young"; }
-Patrick
+--------------------------------+
| Perl help, scripts, references |
| http://error500.hypermart.net |
+--------------------------------+
Matthew Bafford wrote in message ...
>In article <73ch6o$nfa$1@news2.xs4all.nl>, lookitsme@cyberspam.com
>says...
>=> Hi perl wizards,
>=>
>=> a question, I have a Perl script that displays a flat text database. Now
I
>=> want to know if there is such thing as the If-Then-Else command such as
in
>=> VB
------------------------------
Date: 26 Nov 1998 13:11:52 +0200
From: jari.aalto@poboxes.com (Jari Aalto+mail.perl)
Subject: 5.004_04 SelfLoader warings I don't understand?
Message-Id: <ptrsof64sjr.fsf@olkikukka.i-have-a-misconfigured-system-so-shoot-me>
What does following mean? [perl 5.004_04]
Prototype mismatch: sub Lingua::EN::Squeeze::SqueezeHashSet vs ($;$) at (eval 2) line 1.
Prototype mismatch: sub Lingua::EN::Squeeze::SqueezeControl vs (;$) at (eval 2) line 1.
Prototype mismatch: sub Lingua::EN::Squeeze::SqueezeDebug vs (;$$) at (eval 2) line 1.
The Package uses SelfLoader with following prototypes
...
# BEGIN: Devel::SelfStubber
sub Squeeze::SqueezeHashSet ($;$);
sub Squeeze::SqueezeControl (;$);
sub Squeeze::SqueezeDebug (;$$);
# END: Devel::SelfStubber
1;
__DATA__
# -- A U T O L O A D -- A U T O L O A D -- A U T O L O A D --
sub SqueezeHashSet ($;$) { ... }
sub SqueezeControl (;$) { ... }
sub SqueezeDebug (;$$) { ... }
__END__
jari
------------------------------
Date: 26 Nov 1998 12:33:09 GMT
From: Sohn Jung-woo <logout@designer.snu.ac.kr>
Subject: Accessing Oracle database with perl?
Message-Id: <73jhq5$ccd$1@news.kren.nm.kr>
Hello all,
Can somebody suggest me any starting point or package for Perl and Oracle?
That is, I would like to access Oracle with Perl.
Thank you in advance. Sorry for my poor english. :)
--
"I conduct to live, | Sohn Jung-woo
I live to compose." | Structures lab. Aerospace dept.
--- Gustav Mahler | Seoul National university
------------------------------
Date: Thu, 26 Nov 1998 07:55:53 -0500
From: "Scott Brumley" <Scott@Brumley.com>
Subject: Anti-Spam Filter - Difficult Pattern Matching Question
Message-Id: <73jj2s$82b@dfw-ixnews5.ix.netcom.com>
I want to do a pattern match on the common spam flag "$$$" However since
the $ character is an special anchor character I am having difficulty. I
thought I could use \$\$\$ but it does not seem to work either.
------------------------------
Date: Thu, 26 Nov 1998 13:37:50 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: Anti-Spam Filter - Difficult Pattern Matching Question
Message-Id: <365D5B61.F80CE5BD@shaw.wave.ca>
[posted & mailed]
Scott Brumley wrote:
>
> I want to do a pattern match on the common spam flag "$$$" However
> since the $ character is an special anchor character I am having
> difficulty. I thought I could use \$\$\$ but it does not seem to
> work either.
Please don't post the same thing twice.
Show us the actual code you have tried. There is no reason why
print "matched\n" if '$$$' =~ /\$\$\$/;
wouldn't print.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Thu, 26 Nov 1998 13:30:11 GMT
From: dhiraj_malhotra@my-dejanews.com
Subject: Re: Beginner Book?
Message-Id: <73jl4p$ut3$1@nnrp1.dejanews.com>
Try the book "Learning Perl" by Larry Wall (Popularly known as Camel BooK)
It is the best book I have ever seen for the beginner.
Dhiraj
In article <7339e1$eta$1@srv38s4u.cas.org>,
lvirden@cas.org wrote:
>
> According to Jeff Kennedy <jeff.kennedy@natdecsys.com>:
> :I need a book geared to an ABSOLUTE BEGINNER! No perl experience, no
> :programming experience, no real shell scripting experience.
> :
> :What would I be looking for? Not something that assumes I know
> :anything!
>
> That's a good question. I've a co-worker who programmed years ago in
> IBM assembler, who now has a Unix workstation on his desktop. He knows
> enough shell scripting to read a shell script, but not enough to do much
> original scripting. And he knows no C. However, Perl would do wonders
> for him. However, when he's looked at the two O'Reilly's books, as well
> as tried taking intro courses, he found too much pre-reqs on knowing
> scripting and C to get thru the books/courses.
>
> Let me know what you find. I think telling someone to become comfortable
> in programming in a compiled language before learning a scripting language
> seems, to me, to be the wrong approach. Hopefully someone has taken on
> the topic. I know I've had the MacPerl book recommended to me. One of
> these days I need to get it and see how that works out.
> --
> <URL:mailto:lvirden@cas.org> Quote: Saving the world before bedtime.
> <*> O- <URL:http://www.purl.org/NET/lvirden/>
> Unless explicitly stated to the contrary, nothing in this posting
> should be construed as representing my employer's opinions.
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 26 Nov 1998 10:22:04 +0100
From: Gunnar Lindholm <dat96gln@student3.lu.se>
Subject: Calling prolog from perl
Message-Id: <365D1DBB.63F6@student3.lu.se>
Hello.
I have a perl program that will produce some output that will be used
in prolog (SWI-prolog, for those interested in prolog), and the output
from the prolog program will then be used in the perl program.
The question is then how do I write this in perl????
I want it to look like (written in some pseudo code):
perl-code (that produces a file called input)
....
execute prolog-program <input >output <-- how do I do this in perl?
it is the call to the
prolog program...
perl-code continues (that uses a file called output)
....
how the acctual prolog program will work, will be a later problem, but
I'm sure you understand what I want to do.
Thanks a lot!!!!
Gunnar.
------------------------------
Date: Thu, 26 Nov 1998 10:08:04 +0000
From: Lee Benfield <lbenfie1@nospamford.com>
Subject: Re: Calling prolog from perl
Message-Id: <365D2884.B950D62C@nospamford.com>
Not sure if it's useful, but ISTR there's a prolog implementation for
perl. In which case you can integrate the entire thing. Lovely.
(No, I don't remember the URL. But I'm sure you can use altavista as
well as I can. *8)
Lee.
Gunnar Lindholm wrote:
>
> Hello.
> I have a perl program that will produce some output that will be used
> in prolog (SWI-prolog, for those interested in prolog), and the output
> from the prolog program will then be used in the perl program.
> The question is then how do I write this in perl????
>
> I want it to look like (written in some pseudo code):
>
> perl-code (that produces a file called input)
> ....
>
> execute prolog-program <input >output <-- how do I do this in perl?
> it is the call to the
> prolog program...
> perl-code continues (that uses a file called output)
> ....
>
> how the acctual prolog program will work, will be a later problem, but
> I'm sure you understand what I want to do.
>
> Thanks a lot!!!!
> Gunnar.
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Lee Benfield, Ford Motor Co.
------------------------------
Date: Thu, 26 Nov 1998 07:56:02 -0500
From: "Scott Brumley" <Scott@Brumley.com>
Subject: Difficult Pattern Matching
Message-Id: <73jj36$82o@dfw-ixnews5.ix.netcom.com>
I want to do a pattern match on the common spam flag "$$$" However since
the $ character is an special anchor character I am having difficulty. I
thought I could use \$\$\$ but it does not seem to work either.
Scott Brumely
------------------------------
Date: Thu, 26 Nov 1998 12:37:55 +0100
From: Janos Kocsis <kocsi@gmx.de>
Subject: embedded perl's memory management
Message-Id: <365D3D93.56D0@gmx.de>
Hi folks!
I have a problem with embedded perl's memory management.
I called a simple function in an infinite loop (it's just a test),
and got a core dump: out of memory!
What's the problem with this simple test program?
by!
Janos
int match(char *string, char *pattern)
{
static acBuff [1024];
sprintf (acBuff, "$_ = '%s'; if ( /%s/ ) {1;} else {0;}", string,
pattern);
return (SvIV(perl_eval_pv(acBuff, TRUE)));
}
main (int argc, char **argv, char **env)
{
PerlInterpreter *my_perl = perl_alloc();
char *embedding[] = { "", "-e", "0" };
perl_construct(my_perl);
perl_parse(my_perl, NULL, 3, embedding, NULL);
while (1)
{
match ("M250125267246+00001.", "M25[0-9]*[+]0000[0-9]");
}
}
------------------------------
Date: Thu, 26 Nov 1998 12:06:36 +0100
From: "Felix Maurer" <maurerf@post.ch>
Subject: embedded while loop problem
Message-Id: <73jcpc$g07@gd2inews.swissptt.ch>
Hi all,
I have a small problem with a while loop:
while (<FILE1>) {
@uid = split/;/,$_;
while (<FILE2>) {
if ($_ =~ /$uid[0]/) {
print $uid[0],"\n";
next;
}
}
}
The variable $uid[0] in the second while loop stays always to the value of
the first record. This seems to me as there is some bug around? Or is there
something wrong in my procedure? The purpose of this is to compare two files
and print from the second file if there is a match.
Thanks in advance for any help.
Felix
------------------------------
Date: Thu, 26 Nov 1998 11:44:52 +0000
From: Lee Benfield <lbenfie1@nospamford.com>
Subject: Re: embedded while loop problem
Message-Id: <365D3F34.38C1A6DE@nospamford.com>
Felix Maurer wrote:
> I have a small problem with a while loop:
>
> while (<FILE1>) {
> @uid = split/;/,$_;
> while (<FILE2>) {
> if ($_ =~ /$uid[0]/) {
> print $uid[0],"\n";
> next;
> }
> }
> }
>
But the <FILE2> while loop reads the entire of FILE2!
So it only gets read the 1st time round the <FILE1> loop, and then
the 2nd while loop gets ignored completely!
Add this to the fact that you're scanning the ENTIRE of FILE2 for
ONE record from file1....
It's a little unclear what you're trying to do. Compare an instance
of /etc/passwd with a log file?
I'm sure there's a better way to do it, but why not try:
# slurp file2 into @file2
while (<FILE2>) {
push @file2, $_;
}
while (<FILE1>) {
@uid = split/;/,$_;
$uid = $uid[0];
print "Got $uid" if (grep /$uid/, @file2);
}
should do it. (Untested tho... I know not your inputs.. :)
Lee.
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Lee Benfield, Ford Motor Co.
------------------------------
Date: Mon, 23 Nov 1998 09:37:19 -0800
From: "PCM" <pulsecode@mailandnews.dot.com>
Subject: Re: Is it possible to run a web server on Win95?
Message-Id: <73c6il$f0r$1@news-02.meganews.com>
I use Sambar Server. Runs fine on my crappy old 486/66 with 16Mb. Has
web/FTP/proxy servers and comes with Perl 5 preinstalled. Put your stuff in
the cgi-bin and go!
http://www.sambar.com
-Patrick
+--------------------------------+
| Perl help, scripts, references |
| http://error500.hypermart.net |
+--------------------------------+
Kris wrote in message <3654E41F.BA773505@fit2print.com>...
>I have Apache 1.3.3 and Perl 5.0, and I'm wondering if its worth my time
>trying to figure out how to configure them to run on Win95 (4.00.950b,
>96 megs RAM, Pentium 166). Looking through the documentations it seems
>that you can, but I wanted to get some feedback before I spend too much
>time on it. From what I can tell I don't need C++ to run it, but I
>could be mistaken. I've gotten to where I can Apache from a command
>line, but that's about it. Any tips on what to do if I can? Thanks.
------------------------------
Date: Thu, 26 Nov 1998 09:10:48 +0100
From: Herger Peter <"peter.herger"@swisslife.ch; peter.herger@bigfoot.com>
Subject: mail server again
Message-Id: <73j2cs$1ab1@su1010.swisslife.ch>
Hi all
I've wrote a skript to send mails out to the world, but I only see the
mails in my LAN!!! e.g. If I send a mail to my anybody out of our LAN he
can't get it. If I send one inside our LAN, I have to read this mail on
the UNIX workstation. Why can't I see the mail with a common mailprogram
like Outlook or something like that?
My code looks like this:
use Mail::Send;
$mail = Mail::Send->Send->new(
Subject => "Nachricht",
To=>'peter.herger@bigfoot.com');
$mailhandle = $mail->open("sendmail");
print $mailhandle << EOT;
something
EOT
$mailhandle->close();
Thanks a lot
- Peter
------------------------------
Date: Thu, 26 Nov 1998 12:40 +0000 (GMT Standard Time)
From: hutch@cix.compulink.co.uk (Bob Hutchinson)
Subject: Re: PERL for windows 95/NT
Message-Id: <memo.19981126124031.42073B@hutch.compulink.co.uk>
In article <3654FD6F.809F1997@sns.com.sg>, sreenivas@sns.com.sg
(Sreenivas) wrote:
> Hi,
>
> I am new to PERL. I want to know where can I get PERL for windows 95/NT.
>
> Please help.
>
>
> Thanks
> Sreenivas
> email:sreenivas@sns.com.sg
>
>
>
try
http://www.ActiveWare.com
http://www.perl.com
http://www.demobuilder.com
Bye :)=
hutch@cix.co.uk
------------------------------
Date: Thu, 26 Nov 1998 09:30:32 GMT
From: jannuzzi@csn.com.br
Subject: Perl parsing error
Message-Id: <73j73p$jsb$1@nnrp1.dejanews.com>
Fellows,
I4m trying to run a CGI in Perl that uses LibWWW to read a web page.
Everything works fine in the perl command line, the script does exactly what
I want. The problem is when I try to run it from a browser. The CGI directory
in my Web Server (Oracle Web Server)is apparently properly configured, 4cause
other scripts run Ok from it. The error I got when I call the script URL is
"Perl parsing errors". When I comment the line "use LWP::UserAgent" the
script run Ok.
Does anybody know something about it ?
Best Regards,
Alessandro Loesch Jannuzzi
jannuzzi@csn.com.br
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 26 Nov 1998 13:35:22 +0100
From: rauznitz balazs <jimi@inf.bme.hu>
To: jannuzzi@csn.com.br
Subject: Re: Perl parsing error
Message-Id: <Pine.GSO.4.00.9811261330050.1720-100000@kempelen.iit.bme.hu>
Maybe the perl script in cgi-bin sees a different @INC and so does not
see the LWP:: library.
Just an idea:
Balazs
------------------------------
Date: Thu, 26 Nov 1998 13:09:17 +0100
From: Marius Kjeldahl <marius@funcom.com>
Subject: Perl5.005_02 Perl->C compiler errors
Message-Id: <365D44ED.9D2E137F@funcom.com>
This is a multi-part message in MIME format.
--------------4C690869CC37FA389E4B62C0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I've done some testing using the perl to c compiler, and although a
simple "hello world" application works great, I am having trouble
compiling some real world applications. I've included the output
produced when attempting to compile a real world applications, and a
couple of things show up:
1. It seems certain methods are not recognized, like the constants
defined in the Socket, Fcntl and IO::Handle modules (like
Socket::SO_KEEPALIVE, Fctnl::O_NDELAY and IO::Handle::_IOLBF) does not
work with the compiler.
2. One method called in the module Text::Balanced fails during linking
(for exact message see the end of this posting).
I've attached a full printout that shows the complete messages I get
when trying to compile my real world application. If anybody have any
hints I would be most grateful.
TIA,
Marius
--------------4C690869CC37FA389E4B62C0
Content-Type: text/plain; charset=us-ascii;
name="result.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="result.txt"
--------------------------------------------------------------------------------
Compiling pokad.pl:
--------------------------------------------------------------------------------
Making C(pokad.pl.c) for pokad.pl!
perl -I/rdist/concept/usr/lib/perl5/5.00502/i686-linux -I/rdist/concept/usr/lib/perl5/5.00502 -I/rdist/concept/usr/lib/perl5/site_perl/5.005/i686-linux -I/rdist/concept/usr/lib/perl5/site_perl/5.005 -I. -MO=CC,-opokad.pl.c pokad.pl
pokad.pl syntax OK
No definition for sub Socket::SO_DONTROUTE
No definition for sub Socket::SO_DONTROUTE (unable to autoload)
No definition for sub Socket::SO_RCVTIMEO
No definition for sub Socket::SO_RCVTIMEO (unable to autoload)
GameClient has method new: -uGameClient assumed
No definition for sub Socket::AF_UNSPEC
No definition for sub Socket::AF_UNSPEC (unable to autoload)
No definition for sub Socket::MSG_MAXIOVLEN
No definition for sub Socket::MSG_MAXIOVLEN (unable to autoload)
No definition for sub Socket::SO_OOBINLINE
No definition for sub Socket::SO_OOBINLINE (unable to autoload)
No definition for sub Socket::AF_LAT
No definition for sub Socket::AF_LAT (unable to autoload)
No definition for sub Socket::AF_GOSIP
No definition for sub Socket::AF_GOSIP (unable to autoload)
No definition for sub Socket::SO_SNDLOWAT
No definition for sub Socket::SO_SNDLOWAT (unable to autoload)
No definition for sub Socket::PF_802
No definition for sub Socket::PF_802 (unable to autoload)
No definition for sub Socket::PF_APPLETALK
No definition for sub Socket::PF_APPLETALK (unable to autoload)
No definition for sub Socket::AF_HYLINK
No definition for sub Socket::AF_HYLINK (unable to autoload)
No definition for sub Socket::SO_DONTLINGER
No definition for sub Socket::SO_DONTLINGER (unable to autoload)
No definition for sub Socket::PF_NBS
No definition for sub Socket::PF_NBS (unable to autoload)
No definition for sub Socket::AF_ECMA
No definition for sub Socket::AF_ECMA (unable to autoload)
No definition for sub Socket::SO_RCVBUF
No definition for sub Socket::SO_RCVBUF (unable to autoload)
No definition for sub Socket::SOCK_RDM
No definition for sub Socket::SOCK_RDM (unable to autoload)
No definition for sub Socket::SO_RCVLOWAT
No definition for sub Socket::SO_RCVLOWAT (unable to autoload)
No definition for sub Fcntl::O_BINARY
No definition for sub Fcntl::O_BINARY (unable to autoload)
No definition for sub Fcntl::O_CREAT
No definition for sub Fcntl::O_CREAT (unable to autoload)
No definition for sub Fcntl::O_APPEND
No definition for sub Fcntl::O_APPEND (unable to autoload)
No definition for sub Socket::AF_MAX
No definition for sub Socket::AF_MAX (unable to autoload)
No definition for sub Fcntl::O_ASYNC
No definition for sub Fcntl::O_ASYNC (unable to autoload)
No definition for sub Socket::SO_KEEPALIVE
No definition for sub Socket::SO_KEEPALIVE (unable to autoload)
No definition for sub Socket::AF_CCITT
No definition for sub Socket::AF_CCITT (unable to autoload)
No definition for sub Socket::MSG_OOB
No definition for sub Socket::MSG_OOB (unable to autoload)
No definition for sub IO::Handle::_IOLBF
No definition for sub IO::Handle::_IOLBF (unable to autoload)
No definition for sub Fcntl::O_NDELAY
No definition for sub Fcntl::O_NDELAY (unable to autoload)
No definition for sub Fcntl::FD_CLOEXEC
No definition for sub Fcntl::FD_CLOEXEC (unable to autoload)
No definition for sub Fcntl::O_TEXT
No definition for sub Fcntl::O_TEXT (unable to autoload)
No definition for sub Socket::PF_X25
No definition for sub Socket::PF_X25 (unable to autoload)
No definition for sub Fcntl::O_EXLOCK
No definition for sub Fcntl::O_EXLOCK (unable to autoload)
No definition for sub Socket::AF_OSINET
No definition for sub Socket::AF_OSINET (unable to autoload)
No definition for sub Fcntl::F_DUPFD
No definition for sub Fcntl::F_DUPFD (unable to autoload)
No definition for sub Socket::AF_IMPLINK
No definition for sub Socket::AF_IMPLINK (unable to autoload)
No definition for sub Fcntl::O_TRUNC
No definition for sub Fcntl::O_TRUNC (unable to autoload)
No definition for sub Socket::PF_OSI
No definition for sub Socket::PF_OSI (unable to autoload)
No definition for sub Socket::SO_DEBUG
No definition for sub Socket::SO_DEBUG (unable to autoload)
No definition for sub Socket::SO_BROADCAST
No definition for sub Socket::SO_BROADCAST (unable to autoload)
No definition for sub Fcntl::O_DEFER
No definition for sub Fcntl::O_DEFER (unable to autoload)
No definition for sub Socket::AF_DECnet
No definition for sub Socket::AF_DECnet (unable to autoload)
No definition for sub Socket::AF_802
No definition for sub Socket::AF_802 (unable to autoload)
No definition for sub Fcntl::O_NONBLOCK
No definition for sub Fcntl::O_NONBLOCK (unable to autoload)
GameLobby has method new: -uGameLobby assumed
No definition for sub Fcntl::O_RDONLY
No definition for sub Fcntl::O_RDONLY (unable to autoload)
No definition for sub Socket::AF_NBS
No definition for sub Socket::AF_NBS (unable to autoload)
No definition for sub Fcntl::F_EXLCK
No definition for sub Fcntl::F_EXLCK (unable to autoload)
No definition for sub Socket::SO_ACCEPTCONN
No definition for sub Socket::SO_ACCEPTCONN (unable to autoload)
No definition for sub Socket::PF_CHAOS
No definition for sub Socket::PF_CHAOS (unable to autoload)
No definition for sub Socket::PF_INET
No definition for sub Socket::PF_INET (unable to autoload)
No definition for sub Socket::PF_DLI
No definition for sub Socket::PF_DLI (unable to autoload)
No definition for sub Socket::PF_SNA
No definition for sub Socket::PF_SNA (unable to autoload)
No definition for sub Fcntl::O_WRONLY
No definition for sub Fcntl::O_WRONLY (unable to autoload)
No definition for sub Fcntl::O_EXCL
No definition for sub Fcntl::O_EXCL (unable to autoload)
No definition for sub Fcntl::O_RSYNC
No definition for sub Fcntl::O_RSYNC (unable to autoload)
No definition for sub IO::Handle::_IOFBF
No definition for sub IO::Handle::_IOFBF (unable to autoload)
No definition for sub Socket::AF_DATAKIT
No definition for sub Socket::AF_DATAKIT (unable to autoload)
No definition for sub IO::Handle::_IONBF
No definition for sub IO::Handle::_IONBF (unable to autoload)
No definition for sub Fcntl::F_GETFD
No definition for sub Fcntl::F_GETFD (unable to autoload)
No definition for sub Socket::SOL_SOCKET
No definition for sub Socket::SOL_SOCKET (unable to autoload)
No definition for sub Fcntl::F_GETFL
No definition for sub Fcntl::F_GETFL (unable to autoload)
No definition for sub Fcntl::F_SETFD
No definition for sub Fcntl::F_SETFD (unable to autoload)
No definition for sub Socket::PF_NIT
No definition for sub Socket::PF_NIT (unable to autoload)
No definition for sub Fcntl::F_UNLCK
No definition for sub Fcntl::F_UNLCK (unable to autoload)
No definition for sub Fcntl::F_SETFL
No definition for sub Fcntl::F_SETFL (unable to autoload)
No definition for sub Socket::PF_UNSPEC
No definition for sub Socket::PF_UNSPEC (unable to autoload)
No definition for sub Socket::SO_TYPE
No definition for sub Socket::SO_TYPE (unable to autoload)
No definition for sub Socket::AF_X25
No definition for sub Socket::AF_X25 (unable to autoload)
No definition for sub Socket::PF_PUP
No definition for sub Socket::PF_PUP (unable to autoload)
No definition for sub Socket::AF_OSI
No definition for sub Socket::AF_OSI (unable to autoload)
No definition for sub Fcntl::F_SETLKW
No definition for sub Fcntl::F_SETLKW (unable to autoload)
No definition for sub Socket::PF_HYLINK
No definition for sub Socket::PF_HYLINK (unable to autoload)
No definition for sub Fcntl::O_SHLOCK
No definition for sub Fcntl::O_SHLOCK (unable to autoload)
No definition for sub Socket::PF_NS
No definition for sub Socket::PF_NS (unable to autoload)
No definition for sub Socket::PF_GOSIP
No definition for sub Socket::PF_GOSIP (unable to autoload)
No definition for sub Socket::SO_USELOOPBACK
No definition for sub Socket::SO_USELOOPBACK (unable to autoload)
No definition for sub Socket::SO_ERROR
No definition for sub Socket::SO_ERROR (unable to autoload)
No definition for sub Fcntl::O_RDWR
No definition for sub Fcntl::O_RDWR (unable to autoload)
No definition for sub Socket::SOCK_SEQPACKET
No definition for sub Socket::SOCK_SEQPACKET (unable to autoload)
No definition for sub Socket::AF_DLI
No definition for sub Socket::AF_DLI (unable to autoload)
No definition for sub Socket::AF_APPLETALK
No definition for sub Socket::AF_APPLETALK (unable to autoload)
No definition for sub Fcntl::F_SETOWN
No definition for sub Fcntl::F_SETOWN (unable to autoload)
No definition for sub Socket::AF_SNA
No definition for sub Socket::AF_SNA (unable to autoload)
No definition for sub Socket::PF_IMPLINK
No definition for sub Socket::PF_IMPLINK (unable to autoload)
No definition for sub Socket::PF_ECMA
No definition for sub Socket::PF_ECMA (unable to autoload)
No definition for sub Socket::PF_LAT
No definition for sub Socket::PF_LAT (unable to autoload)
No definition for sub Fcntl::F_POSIX
No definition for sub Fcntl::F_POSIX (unable to autoload)
No definition for sub Socket::SO_SNDBUF
No definition for sub Socket::SO_SNDBUF (unable to autoload)
No definition for sub Socket::PF_OSINET
No definition for sub Socket::PF_OSINET (unable to autoload)
No definition for sub Fcntl::F_WRLCK
No definition for sub Fcntl::F_WRLCK (unable to autoload)
No definition for sub Socket::PF_CCITT
No definition for sub Socket::PF_CCITT (unable to autoload)
No definition for sub Socket::AF_NIT
No definition for sub Socket::AF_NIT (unable to autoload)
No definition for sub Socket::AF_CHAOS
No definition for sub Socket::AF_CHAOS (unable to autoload)
No definition for sub Socket::AF_PUP
No definition for sub Socket::AF_PUP (unable to autoload)
No definition for sub Socket::SO_REUSEADDR
No definition for sub Socket::SO_REUSEADDR (unable to autoload)
No definition for sub Socket::SO_LINGER
No definition for sub Socket::SO_LINGER (unable to autoload)
No definition for sub Socket::AF_NS
No definition for sub Socket::AF_NS (unable to autoload)
No definition for sub Socket::PF_DECnet
No definition for sub Socket::PF_DECnet (unable to autoload)
No definition for sub Socket::MSG_DONTROUTE
No definition for sub Socket::MSG_DONTROUTE (unable to autoload)
No definition for sub Socket::MSG_PEEK
No definition for sub Socket::MSG_PEEK (unable to autoload)
No definition for sub Fcntl::O_NOCTTY
No definition for sub Fcntl::O_NOCTTY (unable to autoload)
No definition for sub Fcntl::F_RDLCK
No definition for sub Fcntl::F_RDLCK (unable to autoload)
No definition for sub Socket::SOMAXCONN
No definition for sub Socket::SOMAXCONN (unable to autoload)
No definition for sub Fcntl::F_SHLCK
No definition for sub Fcntl::F_SHLCK (unable to autoload)
No definition for sub Socket::PF_MAX
No definition for sub Socket::PF_MAX (unable to autoload)
No definition for sub Fcntl::F_GETLK
No definition for sub Fcntl::F_GETLK (unable to autoload)
No definition for sub Socket::SO_SNDTIMEO
No definition for sub Socket::SO_SNDTIMEO (unable to autoload)
No definition for sub Fcntl::F_SETLK
No definition for sub Fcntl::F_SETLK (unable to autoload)
No definition for sub Fcntl::O_SYNC
No definition for sub Fcntl::O_SYNC (unable to autoload)
No definition for sub Fcntl::O_DSYNC
No definition for sub Fcntl::O_DSYNC (unable to autoload)
No definition for sub Socket::PF_DATAKIT
No definition for sub Socket::PF_DATAKIT (unable to autoload)
No definition for sub Fcntl::F_GETOWN
No definition for sub Fcntl::F_GETOWN (unable to autoload)
No definition for sub Socket::PF_UNIX
No definition for sub Socket::PF_UNIX (unable to autoload)
No definition for sub Fcntl::O_ACCMODE
No definition for sub Fcntl::O_ACCMODE (unable to autoload)
substcont: op = LOGOP (0x80d0bc8) pp_substcont, pmop = PMOP (0x80d0b30) pp_subst
pmopsym = (OP*)&pmop_list[13]
substcont: op = LOGOP (0x81277a0) pp_substcont, pmop = PMOP (0x81277d8) pp_subst
pmopsym = (OP*)&pmop_list[14]
substcont: op = LOGOP (0x81274b8) pp_substcont, pmop = PMOP (0x81274f8) pp_subst
pmopsym = (OP*)&pmop_list[15]
Compiling C(pokad) for pokad.pl!
perl -I/rdist/concept/usr/lib/perl5/5.00502/i686-linux -I/rdist/concept/usr/lib/perl5/5.00502 -I/rdist/concept/usr/lib/perl5/site_perl/5.005/i686-linux -I/rdist/concept/usr/lib/perl5/site_perl/5.005 -I. /tmp/pokad.pl.tst
cc -Dbool=char -DHAS_BOOL -I/usr/local/include -O2 -I/rdist/concept/usr/lib/perl5/5.00502/i686-linux/CORE /rdist/concept/usr/lib/perl5/5.00502/i686-linux/auto/Data/Dumper/Dumper.so /rdist/concept/usr/lib/perl5/5.00502/i686-linux/auto/Fcntl/Fcntl.so /rdist/concept/usr/lib/perl5/5.00502/i686-linux/auto/Socket/Socket.so /rdist/concept/usr/lib/perl5/site_perl/5.005/i686-linux/auto/DBD/mysql/mysql.so /rdist/concept/usr/lib/perl5/site_perl/5.005/i686-linux/auto/DBI/DBI.so -o pokad pokad.pl.c -L/usr/local/lib -L/rdist/concept/usr/lib/perl5/5.00502/i686-linux/CORE -lperl -lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
/tmp/cca225601.o: In function `pp_sub_Text__Balanced__extract_delimited':
/tmp/cca225601.o(.text+0x29a71): undefined reference to `runops'
ERROR: In compiling code for pokad.pl.c !
--------------4C690869CC37FA389E4B62C0--
------------------------------
Date: 26 Nov 1998 10:39:26 GMT
From: "Sxren" <soma@diku.dk>
Subject: Re: Simple regexp problem
Message-Id: <01be1928$b9274f60$040aa8c0@sorens>
I think that you should just add an e to the end of the expresion,
like in c/ ... /prettyprint(...)/ge
which should tell perl to evaluate whats in the substitute string.
Sxren
Michael S Vernal <vernal@fas.harvard.edu> skrev i artiklen
<73hpse$66k$1@news.fas.harvard.edu>...
> I've got a pretty simple problem, but I don't have any perl books home
> with me for Thanksgiving. I'm trying to do the following substitution:
>
> $some_string =~ s/<!--#echo var="([a-z][0-9])"
-->/pretty_print($some_hash{$1})/g;
>
> It works fine if I don't try and pretty_print() the hash, but when I try
and use
> pretty_print, it just substitutes in "pretty_print(<var>)". (Editor's
Note: I
> couldn't decide whether to follow the rules of grammar and have the
period inside,
> or have it outside to prevent confusion.)
>
> Anyway, if anyone could tell me how to substitute in the string
pretty_print()
> returns, I'd be really happy. Thanks
> -mike
>
>
> --
> /*
> * Michael Vernal
> * vernal@fas.harvard.edu
> *
> * http://www.fas.harvard.edu/~vernal/
> */
>
------------------------------
Date: Thu, 26 Nov 1998 13:55:00 +0100
From: Pieter Liefooghe <pieter@info.vub.ac.be>
Subject: Substitution: \x & backreference
Message-Id: <365D4FA4.4EBE8CB4@info.vub.ac.be>
Hello,
What I want to do is the following:
given $FName = "http%3A%%2F%%2F%www.mysite.be"; I want to get
"http://www.mysite.be"
So I defined the following substitution:
$FName =~ s/(%([0-9a-f_A-F]{2})%)/\x$2/ig;
But I get the following:
http3A2F2Fwww.mysite.be
So this means he doesn't interprete \x$2 as being one (HEX) character
definition.
Any one of you PERL experts have an idea how to solve this?
Thanks,
Pieter
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pieter Liefooghe
Research Assistant
Vrije Universiteit Brussel (INFO/TW)
Digital Telecom Dept.
Pleinlaan 2
1050 Brussel
BELGIUM
Tel: +32-2-629.29.77
Fax: +32-2-629.28.70
pieter@info.vub.ac.be
http://infoweb.vub.ac.be/~pliefoog
Quote of the day:
Any program that runs right is obsolete.
------------------------------
Date: Thu, 26 Nov 1998 13:14:37 +0000
From: Julian Gilbey <J.D.Gilbey@qmw.ac.uk>
Subject: Re: Substitution: \x & backreference
Message-Id: <365D543D.15539409@qmw.ac.uk>
Pieter Liefooghe wrote:
>
> Hello,
>
> What I want to do is the following:
>
> given $FName = "http%3A%%2F%%2F%www.mysite.be"; I want to get
> "http://www.mysite.be"
>
> So I defined the following substitution:
>
> $FName =~ s/(%([0-9a-f_A-F]{2})%)/\x$2/ig;
>
> But I get the following:
>
> http3A2F2Fwww.mysite.be
Evaluation is your friend:
$FName =~ s/(%([0-9a-f_A-F]{2})%)/chr hex $2/eig;
HTH,
Julian
--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Julian Gilbey Email: J.D.Gilbey@qmw.ac.uk
Dept of Mathematical Sciences, Queen Mary & Westfield College,
Mile End Road, London E1 4NS, ENGLAND
-*- Finger jdg@goedel.maths.qmw.ac.uk for my PGP public key. -*-
------------------------------
Date: Thu, 26 Nov 1998 13:33:01 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Substitution: \x & backreference
Message-Id: <365e57ce.476749@news.skynet.be>
Julian Gilbey wrote:
>Evaluation is your friend:
>
>$FName =~ s/(%([0-9a-f_A-F]{2})%)/chr hex $2/eig;
I'm not sure what the underscore is doing there.
And you don't need both the ranges a-f/A-F plus the "i" modifier. One is
enough.
And third: why the parentheses around the whole thing?
s/%([0-9a-fA-F]{2})%/chr hex $1/ge;
BTW I don't think the terminating percent sign is common practise.
Bart.
------------------------------
Date: 26 Nov 1998 12:51:56 GMT
From: "Allan M. Due" <due@murray.fordham.edu>
Subject: Thanksgiving
Message-Id: <73jitc$gt6$0@206.165.167.210>
Hi Folks,
Sometimes I think that thank-you is not said enough in this group so I
just wanted to take a moment and say that I, for one, am very thankful for
all the great assistance that I have received from this group. When I stop
to think about it, I am amazed that so many bright people take time out of
their busy lives to educate and assist others for free. I have learned so
much (even though there is so much more to learn) that it seems quite
incredible that most of my instruction has come from posts in this
newsgroup.
The sharing of knowledge is one of the truly great gifts. So, thanks to
everyone for all their great answers and great questions. Thanks also for
the not so great answers that were quickly corrected, thereby teaching me
common traps and how to avoid them. Thanks for all the inappropriate
questions that somehow, in the end, revealed something interesting and
enlightening anyway. Thanks to those who corrected my mistakes when I have
posted incorrect answers. Performance based feedback is the fastest way to
learn and oh boy, one can count on correction here <g>. Thanks to those who
are tolerant of the over enthusiasm of the neophyte. Lastly, a very
special thanks to those folks take the extra time to explain and teach in
their posts. It is very much appreciated.
Well, I have rambled on more than I intended. Have a great holiday.
AmD
--
Allan M. Due
Due@discovernet.net
The sig is a bit lame but it was map week.
perl -e '$_="48 61 70 70 79 20 54 68 61 6E 6B 73 67 69 76 69 6E 67 21";print
join q{},map{chr}map hex,split;print"\n";'
------------------------------
Date: 26 Nov 1998 14:19:00 +0100
From: Jorn Topnes <jornt@md1.merkantildata.net>
Subject: Timeout on CGI-scripts that may block
Message-Id: <xcp7lwisibf.fsf@md1.merkantildata.net>
Hi folks,
I wonder how I can set up a timeout-system just to be sure that my CGI-scripts
wont block other scripts they share resources with. Can I give my scripts a
timeout of say 5 minutes?
Jxrn Topnes
------------------------------
Date: Thu, 26 Nov 1998 07:32:04 +0000
From: Marquis de Carvdawg <carvdawg@patriot.net>
Subject: Re: Using Win32::Process to get running processes???
Message-Id: <365D03F4.DE28B257@patriot.net>
Thanks, but I figured this one out...had to go grab Win32::IProc...but
it's a great solution...
keydet89@yahoo.com wrote:
> On NT, using ActiveState's build 507, how can I get a list of
> running processes? I don't want to use the NT Resource Kit
> utilities...just Perl. I know that Win32::Process lets me
> _create_ processes, but what about listing currently running
> processes?
>
> Thanks
>
> Carv
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 4302
**************************************
