[22400] in Perl-Users-Digest
Perl-Users Digest, Issue: 4621 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Feb 25 11:05:38 2003
Date: Tue, 25 Feb 2003 08:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 25 Feb 2003 Volume: 10 Number: 4621
Today's topics:
"Schweineseiten" <wichmann@uni-wuppertal.de>
Re: "Schweineseiten" <wichmann@uni-wuppertal.de>
Re: DBD and DBI on Solaris 64 bit <rereidy@indra.com>
Re: extract string from another string (Tad McClellan)
Re: Guestbook Pro 1.0 (Tad McClellan)
Re: locate 1, 1 wont work properly, perhaps it's only m (Anno Siegel)
Re: locate 1, 1 wont work properly, perhaps it's only m <tyrannous@o-space.com>
Re: locate 1, 1 wont work properly, perhaps it's only m (Anno Siegel)
Re: Long strings're causing problems (Helgi Briem)
Re: Long strings're causing problems <tassilo.parseval@post.rwth-aachen.de>
Re: Long strings're causing problems <noreply@gunnar.cc>
Re: Long strings're causing problems <tassilo.parseval@post.rwth-aachen.de>
Re: Long strings're causing problems <bkennedy@hmsonline.com>
MIME::Parser and Mail::Folder (Craig Harding)
newbie - w2k server variables <comp-lang-perl-misc@-spambreak-southcot.com>
Re: Non-blocking file I/O, <billy@arnis-bsl.com>
Re: Not a Perl guy but need help <tassilo.parseval@post.rwth-aachen.de>
Re: Perl -- CGI and background process <mlm@nospam.com>
Re: Tk::TableMatrix for ActivePerl 8xx Build? (Helgi Briem)
Re: try my program out... <jurgenex@hotmail.com>
Re: variable assignment question. help (Tad McClellan)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 25 Feb 2003 16:56:02 +0100
From: Ingo Wichmann <wichmann@uni-wuppertal.de>
Subject: "Schweineseiten"
Message-Id: <b3g3vm$jid$01$1@news.t-online.com>
Hallo Herr Litim!
In der aktuellen Ausgabe der Zeitschrift c't sind zwei Artikel, die
vielleicht interessant für Sie sind:
1. "Schweineseiten"
Ihr Bruder hatte nach Filtermöglichkeiten für Webseiten zu hause
gefragt. Dazu gibt es einen interessanten Artikel auf Seite 152. Das
Ergebnis: es gibt Programme die jugendgefährdende Webseiten ganz gut
blockieren. Unter Windows 98 lassen sie sich aber von cleveren Kindern
abschalten, unter Windows 2000 ist das schon schwieriger.
2. serielle Schnittstellen im Intranet
Schauen Sie sich mal
http://www.eipm.ch/eipmD/Main1.htm
an. Vielleicht können Sie das gebrauchen.
Viele Grüße,
Ingo Wichmann
------------------------------
Date: Tue, 25 Feb 2003 16:58:53 +0100
From: Ingo Wichmann <wichmann@uni-wuppertal.de>
Subject: Re: "Schweineseiten"
Message-Id: <b3g450$jid$01$2@news.t-online.com>
Oh, sorry!
I sent this posting by mistake, its not related to perl at all.
Ingo
------------------------------
Date: Tue, 25 Feb 2003 07:01:49 -0700
From: Ron Reidy <rereidy@indra.com>
Subject: Re: DBD and DBI on Solaris 64 bit
Message-Id: <3E5B774D.5020905@indra.com>
Since you don't have a 64bit C compiler, dowload the 64bit gcc C
compiler from http://www.sunfreeware.com/, and rebuild Perl and all the
other modules you have installed.
--
Ron Reidy
Oracle DBA
Rich wrote:
> I am running Solaris 9 64 bit which comes with Perl v5.6.1 built for
> sun4-solaris-64int. I want to build in the DBD and DBI modules for
> Oracle, but the only compiler I have is running on a 32bit Solaris
> system. I can configure the 64 bit system to use the 32 bit system's
> compiler using NFS mounts. The question is, is will this work ? i.e will
> the DBD and DBI modules compiled on the 64 bit system using the 32 bit
> system's compiler achieve what I am after ?
>
> Thanks for any help
>
> Richard
>
------------------------------
Date: Tue, 25 Feb 2003 07:41:42 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: extract string from another string
Message-Id: <slrnb5mskm.40h.tadmc@magna.augustmail.com>
piet <pdhze@yahoo.co> wrote:
> John W. Krahn wrote:
>> my @extract = $teststring =~ /\b(\d{2,3} *[a-zA-Z])\b/g;
> Where coudl I find all these switches (\b /g *) explained on internet?
They are not switches.
You don't need the internet, the documentation for Perl comes
with perl, so it is already on your hard disk somewhere.
You need to read up on two different things, regular expressions
(eg. \b and *) and operators that use regular expressions (eg. m//g).
perldoc perlrequick
perldoc perlretut
perldoc perlre
perldoc perlop
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 25 Feb 2003 07:50:05 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Guestbook Pro 1.0
Message-Id: <slrnb5mt4d.40h.tadmc@magna.augustmail.com>
PCMedics <sales@pcmedix.org> wrote:
> Guestbook pro is a unique guestbook,
And it was written by a spammer.
Commercial posts are not welcome in discussion newsgroups.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 25 Feb 2003 14:22:09 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: locate 1, 1 wont work properly, perhaps it's only meant for linux
Message-Id: <b3fu6h$p84$1@mamenchi.zrz.TU-Berlin.DE>
<tyrannous@o-space.com> wrote in comp.lang.perl.misc:
Please don't top-post. I moved your reply to where its context is.
> "Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
> news:b3fiss$bc6$3@mamenchi.zrz.TU-Berlin.DE...
> > <tyrannous@o-space.com> wrote in comp.lang.perl.misc:
> > > locate 1, 1 wont work properly, perhaps it's only meant for linux
> > >
> > >
> > > use Term::ASCIIScreen;
> >
> > What is Term::ASCIIScreen? It isn't on CPAN.
>
> i'm sorry, i meant ANSIScreen
>
> > > system 'cls'; locate 1,1;
> > >
> > > print chr(65);
> > >
> > > could someone please tell me how to get this to work on a Windows ME
> system?
So what do you expect it to do, and what does it do instead? All you
say is that "it doesn't work right".
You need a terminal(-emulation) that understands ANSI controls for the
module to work. I have no idea if you get that under Windows ME by
default.
Anno
------------------------------
Date: Tue, 25 Feb 2003 14:36:41 -0000
From: <tyrannous@o-space.com>
Subject: Re: locate 1, 1 wont work properly, perhaps it's only meant for linux
Message-Id: <b3fv1p$m5g$1@news8.svr.pol.co.uk>
is there any need to be cryptic?
i just want to locate the cursor to 1, 1 or something similar
could you tell me how to do this?
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:b3fu6h$p84$1@mamenchi.zrz.TU-Berlin.DE...
> <tyrannous@o-space.com> wrote in comp.lang.perl.misc:
>
> Please don't top-post. I moved your reply to where its context is.
>
> > "Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
> > news:b3fiss$bc6$3@mamenchi.zrz.TU-Berlin.DE...
> > > <tyrannous@o-space.com> wrote in comp.lang.perl.misc:
> > > > locate 1, 1 wont work properly, perhaps it's only meant for linux
> > > >
> > > >
> > > > use Term::ASCIIScreen;
> > >
> > > What is Term::ASCIIScreen? It isn't on CPAN.
> >
> > i'm sorry, i meant ANSIScreen
> >
> > > > system 'cls'; locate 1,1;
> > > >
> > > > print chr(65);
> > > >
> > > > could someone please tell me how to get this to work on a Windows ME
> > system?
>
> So what do you expect it to do, and what does it do instead? All you
> say is that "it doesn't work right".
>
> You need a terminal(-emulation) that understands ANSI controls for the
> module to work. I have no idea if you get that under Windows ME by
> default.
>
> Anno
------------------------------
Date: 25 Feb 2003 15:00:34 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: locate 1, 1 wont work properly, perhaps it's only meant for linux
Message-Id: <b3g0ei$qu0$1@mamenchi.zrz.TU-Berlin.DE>
Please don't top-post. I'm asking you the second time. If you don't
know what it is, google for it.
<tyrannous@o-space.com> wrote in comp.lang.perl.misc:
> "Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
> news:b3fu6h$p84$1@mamenchi.zrz.TU-Berlin.DE...
> > <tyrannous@o-space.com> wrote in comp.lang.perl.misc:
> >
> > Please don't top-post. I moved your reply to where its context is.
> >
> > > "Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
> > > news:b3fiss$bc6$3@mamenchi.zrz.TU-Berlin.DE...
> > > > <tyrannous@o-space.com> wrote in comp.lang.perl.misc:
> > > > > locate 1, 1 wont work properly, perhaps it's only meant for linux
> > > > >
> > > > >
> > > > > use Term::ASCIIScreen;
> > > >
> > > > What is Term::ASCIIScreen? It isn't on CPAN.
> > >
> > > i'm sorry, i meant ANSIScreen
> > >
> > > > > system 'cls'; locate 1,1;
> > > > >
> > > > > print chr(65);
> > > > >
> > > > > could someone please tell me how to get this to work on a Windows ME
> > > system?
> >
> > So what do you expect it to do, and what does it do instead? All you
> > say is that "it doesn't work right".
> >
> > You need a terminal(-emulation) that understands ANSI controls for the
> > module to work. I have no idea if you get that under Windows ME by
> > default.
> is there any need to be cryptic?
Cryptic how? I'm trying to find out what your problem is, which still
isn't clear.
> i just want to locate the cursor to 1, 1 or something similar
So what happens when you run "locate( 1, 1)"?
> could you tell me how to do this?
locate( 1, 1);
works for me. If it doesn't for you, something in your system is
different. I'm trying to find out what, but so far you haven't
been very forthcoming.
Anno
------------------------------
Date: Tue, 25 Feb 2003 14:21:42 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: Long strings're causing problems
Message-Id: <3e5b7bc3.1564331489@news.cis.dfn.de>
On Tue, 25 Feb 2003 10:39:11 +0100, Gunnar Hjalmarsson
<noreply@gunnar.cc> wrote:
>Benjamin Goldberg wrote:
>> aybikem wrote:
>>>Would it be a problem while transfering big chunks of data (long
>>>strings) the system can not handle the job? and than give cgi-bin
>>>database errors?
>>
>> The CGI protocol can handle data of any size.
>
>But not necessarily HTTP. Unlike the POST method for transferring data,
>the GET method has typically a built-in limit of about 1,000 bites. Is
>the form possibly calling the GET method?
If that *really* is an issue, the OP should be using
the CGI.pm module, which handles this correctly
without the programmer worrying his pretty little
head about the difference.
--
Regards, Helgi Briem
helgi AT decode DOT is
------------------------------
Date: 25 Feb 2003 15:10:56 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: Long strings're causing problems
Message-Id: <b3g120$h55$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Helgi Briem:
> On Tue, 25 Feb 2003 10:39:11 +0100, Gunnar Hjalmarsson
><noreply@gunnar.cc> wrote:
>>But not necessarily HTTP. Unlike the POST method for transferring data,
>>the GET method has typically a built-in limit of about 1,000 bites. Is
>>the form possibly calling the GET method?
>
> If that *really* is an issue, the OP should be using
> the CGI.pm module, which handles this correctly
> without the programmer worrying his pretty little
> head about the difference.
Not quite. Not even CGI.pm can change the post-method. If an HTML
document sets the mode to GET, data will dripple in that way and are
thus subject to the limitations of GET. To circumvent any possible
limitations, POST would indeed be an option and is in fact - when CGI.pm
is used - handled transparently without the need for re-coding.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Tue, 25 Feb 2003 16:06:34 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Long strings're causing problems
Message-Id: <b3g1q8$1k0ch8$1@ID-184292.news.dfncis.de>
Tassilo v. Parseval wrote:
> Also sprach Helgi Briem:
>
>>On Tue, 25 Feb 2003 10:39:11 +0100, Gunnar Hjalmarsson
>><noreply@gunnar.cc> wrote:
>
>>>Unlike the POST method for transferring data,
>>>the GET method has typically a built-in limit of about 1,000 bites. Is
>>>the form possibly calling the GET method?
>>
>>If that *really* is an issue, the OP should be using
>>the CGI.pm module, which handles this correctly
>>without the programmer worrying his pretty little
>>head about the difference.
>
> Not quite. Not even CGI.pm can change the post-method. If an HTML
> document sets the mode to GET, data will dripple in that way and are
> thus subject to the limitations of GET. To circumvent any possible
> limitations, POST would indeed be an option and is in fact - when CGI.pm
> is used - handled transparently without the need for re-coding.
Do you mean that when using CGI.pm, the POST method is automatically
choosen if no method is stated in the form?
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 25 Feb 2003 15:54:41 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: Long strings're causing problems
Message-Id: <b3g3k1$juo$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Gunnar Hjalmarsson:
> Tassilo v. Parseval wrote:
>> Not quite. Not even CGI.pm can change the post-method. If an HTML
>> document sets the mode to GET, data will dripple in that way and are
>> thus subject to the limitations of GET. To circumvent any possible
>> limitations, POST would indeed be an option and is in fact - when CGI.pm
>> is used - handled transparently without the need for re-coding.
>
> Do you mean that when using CGI.pm, the POST method is automatically
> choosen if no method is stated in the form?
No, I meant that POST should be specified as post-method in the form.
Actually I doubt that there is a default for that, so the form wont
probably do what it is supposed to do when no post-method is given.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Tue, 25 Feb 2003 10:57:56 -0500
From: "Ben Kennedy" <bkennedy@hmsonline.com>
Subject: Re: Long strings're causing problems
Message-Id: <NZidnYMUlIo5D8ajXTWc3w@giganews.com>
"Gunnar Hjalmarsson" <noreply@gunnar.cc> wrote in message
news:b3g1q8$1k0ch8$1@ID-184292.news.dfncis.de...
>
> Do you mean that when using CGI.pm, the POST method is automatically
> choosen if no method is stated in the form?
>
If a HTML form does not explicitly contain a directive to use GET or POST,
then the web browser should default to using GET. This really has nothing
to do with CGI.pm, but is just standard (as for as I know) web browser
behavior. Tassilo's point is that since CGI.pm encapsulates reading
parameters from both methods in a single interface, it is trivial to switch
between GET and POST - it just requires editing your HTML.
--Ben Kennedy
------------------------------
Date: 25 Feb 2003 07:39:46 -0800
From: craigwharding@hotmail.com (Craig Harding)
Subject: MIME::Parser and Mail::Folder
Message-Id: <d2683d07.0302250739.1e244908@posting.google.com>
I'm just learning perl as I go, so sorry if this is a little
newbie-ish.
Hi I was wondering if someone has done this before and could
help me try and plan this out a bit better than I have
been..
What I want to do is parse a full email (mbox) spool file,
parse any text, MIME emails in it and grabbing any
attachments along with it. Then after the parsing is done,
I want to send all those emails to a specified email
address. The problem I'm having is passing a message to MIME::Parser.
If I pass MIME::Parser the whole spool file, it just does the
first msg in the file. If I try to loop through all the msgs in the
spool file and pass each individual msg to the $parser object,
I get errors....
So what I have done so far is this...
I've used Mail::Folder to get handles on all messages in the
mail file:
$folder = new Mail::Folder('mbox', $mailbox);
$nummsgs = $folder->last_message; # Number of msgs in file.
$msg = $folder->get_message; # $msg is a Mail::Internet object
etc....
At this point, I don't know if a msg is a text message or a
MIME message, so should I just do a for loop and loop
through each message that I have using the $folder object
and then check to see if a message is a text msg or a MIME
message?
If it's a text message, then I won't have to use
MIME::Parser and I can just email it right away, but if
it's a MIME msg, how can I pass the message to the $parser
object? I've tried numerous ways using the parse,
parse_data, and read methods with only errors.. When I
would pass the scalar $msg to the $parser object...
$parser = new MIME::Parser;
$entity = $parser->parse($msg);
The error that always came up was 'can't locate
auto/Mail/Internet/getline.al'
I looked in the perl modules directories and couldn't find
even a reference to getline.al !!! I have Mail::Tools,
MIME::Tools, Mail::Folder, IO::stringy installed.
any help, flames, etc are welcome...
craig.
------------------------------
Date: Tue, 25 Feb 2003 15:02:48 +0000
From: Charlie Markwick <comp-lang-perl-misc@-spambreak-southcot.com>
Subject: newbie - w2k server variables
Message-Id: <2c1n5v4dnj3c6bsso02dlpj4nldh2ignpa@4ax.com>
How do I call and write to the server variable in a perl script
running on a window machine?
I am running a script and want to increase the sever time out as i
would in an ASP script:-
Server.ScriptTimeout = 20
Is this possible?
Charlie Markwick
------------------------------
Date: Tue, 25 Feb 2003 16:38:57 +0200
From: Ilja Tabachnik <billy@arnis-bsl.com>
Subject: Re: Non-blocking file I/O,
Message-Id: <b3fv61$1l9eab$1@ID-33095.news.dfncis.de>
Benjamin Goldberg wrote:
>
>
> jtd wrote:
>>
>> What is the best way to do non-blocking file I/O? Select?
>
> Unfortunatly, select() will *always* indicate that a a disk file is
> readable, regardless of whether or not the OS has prefetched data from
> that file.
>
> You have essentially two choices:
> 1/ Use IO::File objects as your handles, and use the ->blocking()
> method to deactivate the normal blocking behavior of reading. You'll
> probably want to use sysread(), instead of read()/readline()/<>, in
> order to differentiate between an error due to EWOULDBLOCK from other
> types of errors. The major disadvantage of this technique is that
> you'll have to poll your handles continuously, busy-looping until data
> is ready -- blech.
>
Setting non-blocking mode for regular files will, IMHO, not help.
AFAIK, read(2) on regular files is never considered blocking anyway,
regardless of O_NONBLOCK flag (the only exception, IMHO, is
when you try to read(2) from a locked file with mandatory locking
enabled).
BTW, that's why regular files are always read-ready from select()
point of view, as you pointed earlier.
I'd recommend to use AIO (aio_read() and friends) to accomplish
this task, however there is no AIO Perl module... but I'm currently
trying to build one ;-)
--
Ilja.
------------------------------
Date: 25 Feb 2003 15:02:32 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: Not a Perl guy but need help
Message-Id: <b3g0i8$gnt$1@nets3.rz.RWTH-Aachen.DE>
[ Please do not top-post and put your reply beneath those parts
that you are quoting ]
Also sprach Michael Bushong:
> I am assigning ID's to XML elements. The ID's have to all be unique, so
> I am using a logfile to track the latest ID's and incrementing as I
> assign them. Multiple users must access multiple files simultaneously,
> but there must be a single logfile to ensure that the ID's are unique.
>
> I started with:
>
> open (LOGFILE, "+<logfile") or die "Cannot find logfile.";
> flock (LOGFILE, LOCK_SH) or die 'Cannot lock logfile.";
>
> I am not sure if this is sufficient. The O'Reilly books suggest an
> exclusive lock in some instances (presumably this one). If I do that, I
> am not entirely sure what to use to open and lock the file.
You are opening the logfile for read/write access in which case an
exlusive lock should be preferred. It doesn't change the sequence of
statements in any way:
open LOGFILE, "+<logfile" or die $!;
flock LOGFILE, LOCK_EX or die "Could not acquire lock: $!";
Note that your exception handling is misleading. The real reason when
a system-call fails can be found by inspecting $!, so always include
that instead of making up your own failure-explanations.
> useFcntl qw(:DEFAULT :flock);
> sysopen (LOGFILE, "logfile", RDWR) or die "Cannot open logfile.";
> flock(LOGFILE, LOCK_EX) or die "Cannot lock logfile.";
You don't need sysopen() here. sysopen() is sometimes needed when you
need finer control (such as given special flags).
> I honestly haven't a clue if this is necessary. Moreover, in my XML
> files, I have to do my ID assignment through temp files. Do I need to
> lock my temp files, truncate, and then write to them? Or is that
> overkill?
Depends. Temporary files is an issue for itself and very easily it is
done wrong. You need locks if more than one process is writing to it
and another one reading or writing it as well. This is then done the
usual way: LOCK_SH for reading and LOCK_EX for writing. Pay some
attention to properly creating them. Best is to use File::Temp to do
this unpleasant work for you. File::Temp::tempfile() gives you an
already open filehandle and the filename and thus reduces the risk of
race-conditions.
> Finally, Programming Perl suggests writing a separate file to create a
> semaphore. This seems like overkill in my simple situation, but being
> unfamiliar with Perl, I have no idea.
Semaphores, locks etc. are all techniques needed when working with
multiple processes. Do you actually have more than one process doing the
work for you at all? If not, you neither need semaphores nor locks (if
you can make sure that no other unrelated process needs to access the
files you are manipulating).
A final remark: If you provide code, please copy and paste it. You
seemed to have re-typed it with quite some mistakes. That way the group
can't know whether these typos were just, well, typos or in fact the
source of the problems.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Tue, 25 Feb 2003 09:24:43 -0600
From: mlm <mlm@nospam.com>
Subject: Re: Perl -- CGI and background process
Message-Id: <vo-cndGK3ccmF8ajXTWc3Q@giganews.com>
Thanks to you both. Forks and daemons are new to me as a Perl programmer
but I've read quite a bit about them. Is it worth going to the trouble
to save the overhead of connecting to the news server repeatedly? It
does seem to happen fairly swiftly through my existing CGI interface to
Net::NNTP so maybe it is not a problem.
Mark
Benjamin Goldberg <goldbb2@earthlink.net> wrote in news:3E5AE4F8.A0EC88E5
@earthlink.net:
> mlm wrote:
>>
>> I would like to have two perl programs, one to manage a connection to
>
> In the daemon, you would reopen stdin from /dev/null, reopen stdout to
> /dev/null, and reopen stderr to a log file somewhere. Then, you would
> connect to the NNTP server (using Net::NNTP). Then, use the created
> HTTP::Daemon object to accept HTTP connections, make requests to the
> NNTP server, and print responses.
>
------------------------------
Date: Tue, 25 Feb 2003 14:17:23 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: Tk::TableMatrix for ActivePerl 8xx Build?
Message-Id: <3e5b7ac4.1564075912@news.cis.dfn.de>
On Mon, 24 Feb 2003 23:19:51 -0000, gort@LinxNet.com (Jim
Seymour) wrote:
>ActiveState apparently hasn't done the Tk::TableMatrix module for
>their 8xx build yet. Anybody know where else I might find it?
Have you tried CPAN?
--
Regards, Helgi Briem
helgi AT decode DOT is
------------------------------
Date: Tue, 25 Feb 2003 15:35:55 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: try my program out...
Message-Id: <v3M6a.22349$ep5.10570@nwrddc02.gnilink.net>
PCMedics wrote:
> This is the auther, sorry about the previous messages, where i looked
> very anonymouse.. :) anyway I took your advice and put it to CGI, but
> its still encoded so as to not allow the source code out. :)
Then how can this group possible evaluate the code? That's what you
pretented to be asking for, weren't you?
As it stands now you are trying to advertise a commercial product in a
technical NG.
Sorry, but that's a no go.
jue
------------------------------
Date: Tue, 25 Feb 2003 08:04:39 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: variable assignment question. help
Message-Id: <slrnb5mtvn.40h.tadmc@magna.augustmail.com>
Louis <louiskkchan@hotmail.com> wrote:
> can i have one 'awk' command to
> get all counters?
This is not the awk newsgroup, questions about awk are off-topic.
perl comes with an awk-to-perl translator though, so you might
try that once you have the correct awk code:
man a2p
> or any script help?
I'll assume you mean a Perl script since you posted here.
> my ($user, $nice, $system) = `awk '/$cpu / {print \$2, \$3, \$4}' <
> /proc/stat `;
You shouldn't shell-out for things that are easily done in native Perl.
----------------------
#!/usr/bin/perl
use strict;
use warnings;
@ARGV = '/proc/stat';
my $cpu = qr/cpu\d*/;
while ( <> ) {
next unless /($cpu)/;
my($user, $nice, $system) = (split)[1,2,3];
print "$1: $user, $nice, $system\n";
}
----------------------
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
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 4621
***************************************
