[10925] in Perl-Users-Digest
Perl-Users Digest, Issue: 4526 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 31 23:07:13 1998
Date: Thu, 31 Dec 98 20: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, 31 Dec 1998 Volume: 8 Number: 4526
Today's topics:
Re: **Need Help**: Newbie To PERL (Abigail)
Re: [Q] How use Cookie? (Abigail)
Re: Absolute Yuck (Andre L.)
Re: Changing Environment Variables in a shell (Abigail)
Difference between Perl version 5.003 and 5.00402??? <julius@clara.net>
Have any suggestion? <csusfo@usa.net>
Re: help (Rich)
Re: how to debug perl programs? (Tommy1452)
Make Gif/jpeg file <debot@xs4all.nl>
Need help on Perl script <csusfo@usa.net>
News scripts (Spawn)
Re: Optimizing if...elsif...else when there are tons of <ebohlman@netcom.com>
Perl Commands at regular intervals? <arvindk@pa.dec.com>
Re: Perl Commands at regular intervals? (Groovy94)
Re: Perl Commands at regular intervals? <nospam_gwynne@utkux.utk.edu>
Re: Perl Commands at regular intervals? <gmj@netaxis.com>
Re: Perl Cookbook <carlj@peak.org>
Re: Perl equivalent of 'C' #include <tchrist@mox.perl.com>
Problem Retreiving Web documents using User Agent Modul (Tommy1452)
Re: reading a single char <nospam_gwynne@utkux.utk.edu>
Redirecting Output... <pmarkham@access.k12.wv.us>
Re: Redirecting Output... <uri@ibnets.com>
Re: Redirecting Output... <flavell@mail.cern.ch>
Regex with Perl Win32 and ODBC? <jwarner@tivoli.com>
STUPID PERL QUESTION... maybe (Jeff)
Timer <mox@videotron.ca>
Re: Timer <tchrist@mox.perl.com>
Re: tutorial websites <nospam_gwynne@utkux.utk.edu>
using Perl as a telnet "shell" (Big Jim)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 Jan 1999 01:01:57 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: **Need Help**: Newbie To PERL
Message-Id: <76h6q5$j8$1@client3.news.psi.net>
Iskandar D (thekrow@iname.com) wrote on MCMXLVIII September MCMXCIII in
<URL:news:368b8c6f.17227202@news.singnet.com.sg>:
++ hi there,
++ i'm very keen to learn abt PERL. where do i start? any
++ good sites for beginners?
man perl
Abigail
------------------------------
Date: 1 Jan 1999 01:07:09 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: [Q] How use Cookie?
Message-Id: <76h73t$j8$3@client3.news.psi.net>
HongMo (HongMo@netsgo.com) wrote on MCMXLVIII September MCMXCIII in
<URL:news:B3hcInMN#GA.215@news4.netsgo.com>:
++ Example please.........
REPEAT
- Take cookie in left hand.
- Move left hand towards mouth.
- Open mouth.
- Stuff cookie in mouth.
- Close mouth.
- Chew.
- Swallow.
UNTIL satisfied OR is_empty (cookie_tray)
Abigail
------------------------------
Date: Thu, 31 Dec 1998 16:24:54 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: Absolute Yuck
Message-Id: <alecler-3112981624540001@dialup-555.hip.cam.org>
In article <368AE152.5F89@erase.callisto.si.usherb.ca>,
elssa09@erase.callisto.si.usherb.ca wrote:
> This is silly ... I can do this, can't I?
>
> --------------------------------------------------------------------
> &ReadParse;
> open(HTMLFILE,"<$datafile");
> @inputData=<HTMLFILE>;
> close(HTMLFILE);
> $1 = @inputData;
> $1 =~ s/[TypeOfCard]/$in{'TypeOfCard'}/go;
> --------------------------------------------------------------------
>
> I get this error message:
> Modification of a read-only value attempted at postcard.pl line 23.
>
> 23: $1 = @inputData;
>
> I want to substitute the text "[TypeOfCard]" for what I input from html
The main problem here is assigning a whole file to a scalar. Here's a
sample snippet that shows how to do that.
open (F, $myfile) # always, always, always
|| die "Error opening $myfile: $!"; # check the result of open()
{ local $/; # undef the input record separator in this block
$string = <F>; # there you go
}
close F;
When doing the substitution, remember to escape the special regexp
metacharacters in the search pattern. Here, we want to replace "[this]"
with "that", and [ ] are regexp metachars, so:
$string =~ s/\[this\]/that/g;
Or let the quotemeta operator worry about the escaping:
$string =~ s/\Q[this]/that/g;
HTH,
Andre
------------------------------
Date: 1 Jan 1999 01:03:04 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Changing Environment Variables in a shell
Message-Id: <76h6s8$j8$2@client3.news.psi.net>
Ramanujam Parthasarathi (partha@mihy.mot.com) wrote on MCMXLIX September
MCMXCIII in <URL:news:368C9587.DDFE742C@mihy.mot.com>:
++ Hi,
++
++ I'm trying to change the environment variables of the shell using PERL.
++ Its a fact that the modifications are 'local' (PERLish) to the script
++ (and any child processes). Is there any way I can modify the Environment
++ variables (%ENV) of the current shell?
Yes, but you would have to run VMS.
See the FAQ.
Abigail
------------------------------
Date: Thu, 31 Dec 1998 22:48:03 GMT
From: "Jules" <julius@clara.net>
Subject: Difference between Perl version 5.003 and 5.00402???
Message-Id: <DaTi2.3139$OU.3462@nnrp2.clara.net>
Dear all, I wrote a perl program that works on my PC running the CPAN perl
compiler 5.00402 and then tried running the same code on UNIX using
perl5.003 but it doesn't work as expected. Is there anything major between
the 2 version such as handling of OOP stuff?
Thanx,
Jules
*You cannot strengthen the weak by weakening the strong *
------------------------------
Date: Thu, 31 Dec 1998 18:12:03 -0800
From: "Greatly Distributed" <csusfo@usa.net>
Subject: Have any suggestion?
Message-Id: <368c2ec1$0$9733@nntp1.ba.best.com>
Can anyone recommand me a good index search engine, or MySQL database for an
Unix server? However, I am still a Perl beginner and I don' think I could
afford thousand of dollars on scripts. If anyone has any suggestion, please
respond this message. =)
------------------------------
Date: Thu, 31 Dec 1998 22:50:55 GMT
From: richm@ucesucks.rochester.rr.com (Rich)
Subject: Re: help
Message-Id: <slrn78o04p.l1t.richm@ll.aa2ys.ampr.org>
On Fri, 1 Jan 1999 01:31:48 +0800, help <wclui@virtue.csis.hku.hk> wrote:
>Suppose I am connected to the Internet through PPP and I want to write a
>perl script and run in my local machine.
>
First of all, you might want to use meaningful subject lines.
You have no doubt caused a substantial number of people who could
have helped you to skip right over your posting.
Secondly - don't post multiple times. It is wasteful and
annoying.
>Suppose I have a URL, say
> http://xxx.com/xxx.jpg
>How can I open a connection to the site and fetch the image?
>
LWP::Simple is a useful package for that sort of thing.
- Rich
--
Rich Mulvey
http://mulvey.dyndns.com
Amateur Radio: aa2ys@wb2wxq.#wny.ny.usa
------------------------------
Date: 31 Dec 1998 22:45:48 GMT
From: tommy1452@aol.com (Tommy1452)
Subject: Re: how to debug perl programs?
Message-Id: <19981231174548.08434.00004239@ng-fu1.aol.com>
If you get help on your question can you forward it? I have the same question
-Tom
------------------------------
Date: Fri, 01 Jan 1999 01:49:17 +0100
From: Frank de Bot <debot@xs4all.nl>
Subject: Make Gif/jpeg file
Message-Id: <368C1B8C.B76DE340@xs4all.nl>
How can I make with a perlscript from 2 files (1.gif and 2.gif) one
image with Perl? I've downloaded some counters that do that, but I still
don't know how it works. Please give a simple example
------------------------------
Date: Thu, 31 Dec 1998 18:07:29 -0800
From: "Greatly Distributed" <csusfo@usa.net>
Subject: Need help on Perl script
Message-Id: <368c2daf$0$19543@nntp1.ba.best.com>
I am currently working on an index search engine. I inputed all the source
code in Notepad and saved the script in *.pl format. After I uploaded the
script to my ISP server by using WS_FTP in ASCII mode, I logged on to the
shell account through Telnet. I went to the cgi-bin folder that contained
the Perl script. I used "perl -c indexsite.pl" to check the script syntax
and the server responded as the following, "Compilation error." Could anyone
clarfiy what is "command line" means? Is it the prompt line that appeared
after I log on the shell account?
If anyone knows the solution to my problem, please respond to this thread.
Thank you!
------------------------------
Date: Thu, 31 Dec 1998 17:56:28 -0800
From: spawn90@my-dejanews.com (Spawn)
Subject: News scripts
Message-Id: <MPG.10f5cb251407b257989682@news.slip.net>
Can anybody tell me a decent CGI news script that is highly customizable
and works really well? I need a script that can post time, date, updater
name, and news of course. I've been using News Update 1.1 but I don't
like it. Thanks in advance!
--
UFO Phenomena Page
http://www.csoft.net/~cage
------------------------------
Date: Thu, 31 Dec 1998 23:37:07 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Optimizing if...elsif...else when there are tons of them
Message-Id: <ebohlmanF4us9w.GEK@netcom.com>
Charles R. Thompson <design@spam_raincloud-studios.com> wrote:
: if ($form_data{'load_main.x'} ne ""){
: &load_main();
: }
: elsif ($form_data{'load_admin_center.x'} ne ""){
: &load_admin_center();
: }
[snip]
: elsif ($form_data{'funct_client_login.x'} ne ""){
: if (&verifyclient() eq
: s'){
: &reset_database_parameters();
: &showprojects();
: }
: else {
: print "invalid passkey";
: }
: }
[snip]
: else{
: print qq~No or undefined method specified for this module. Exiting Script.~;
: &load_footer();
: exit;
: }
: I wonder... and this is a total shot in the dark... Is it possible to name
: my buttons much like an array btn1 btn2 btn3 btn4 then do some type of loop
: .. I dunno.. I'm starting to get confused again. Signing off...
[please try to keep your line lengths under 75 characters]
Yep, the best way to do it is probably to use a hash with your button
names as keys and references to your subroutines as values. Something like:
my %actions=(
'load_main.x' => \&load_main,
'load_admin_center.x' => \&load_admin_center,
# ...
'funct_client_login.x' => sub {
if (&verifyclient() eq
s'){
#above line seems to have gotten mangled in your original code
&reset_database_parameters();
&showprojects();
}
else {
print "invalid passkey";
}
},
#more cases
);
sub do_action {
foreach my $button (keys %form_data) {
if (defined $actions{$button}) {
&{$actions{$button}};
return;
}
print qq~No or undefined method specified for this module. Exiting Script.~;
&load_footer();
exit;
}
See perlref and perldsc for more information.
------------------------------
Date: Thu, 31 Dec 1998 15:03:04 -0800
From: Arvind Krishnaswamy <arvindk@pa.dec.com>
Subject: Perl Commands at regular intervals?
Message-Id: <368C02A8.E80534F@pa.dec.com>
Is there a way of executing a command inside a Perl script , say , every
30 seconds? I am trying to connect to a socket every 30 seconds to check
for some data which is returned -
every-30-seconds <--------------- how do I do this???
{
{
printf MYSOCKET $command;
}
while <MYSOCKET>
{
print $_;
}
}
I cannot use sleep after the printf command as it would put the process
to sleep and I cant read the data coming from the socket. Any ideas?
Thanks
Arvind
------------------------------
Date: 1 Jan 1999 00:35:40 GMT
From: groovy94@aol.com (Groovy94)
Subject: Re: Perl Commands at regular intervals?
Message-Id: <19981231193540.24330.00004745@ng148.aol.com>
You could make a crontab..if your server supports it. Crontabs have nothing to
do with perl, but it is an easy solution. I have no idea where to find an FAQ
on how to make a crontab, but maybe someone else can help you with that.
Regards,
Gil Hildebrand, Jr.
Dynamic Scripts
Email: groovy94@aol.com
ICQ UIN: 16678754
------------------------------
Date: Thu, 31 Dec 1998 21:37:47 -0500
From: "Robert Gwynne" <nospam_gwynne@utkux.utk.edu>
Subject: Re: Perl Commands at regular intervals?
Message-Id: <76hcea$knh$1@gaia.ns.utk.edu>
> I have no idea where to find an FAQ
>on how to make a crontab, but maybe someone else can help you with that.
man crontab
Bob
------------------------------
Date: Fri, 01 Jan 1999 03:03:11 +0000
From: "Geir Magnusson Jr." <gmj@netaxis.com>
Subject: Re: Perl Commands at regular intervals?
Message-Id: <368C3AEF.D388CA25@netaxis.com>
Arvind Krishnaswamy wrote:
>
> Is there a way of executing a command inside a Perl script , say , every
> 30 seconds? I am trying to connect to a socket every 30 seconds to check
> for some data which is returned -
>
> every-30-seconds <--------------- how do I do this???
> {
> {
> printf MYSOCKET $command;
> }
>
> while <MYSOCKET>
> {
> print $_;
> }
> }
> I cannot use sleep after the printf command as it would put the process
> to sleep and I cant read the data coming from the socket. Any ideas?
I may be misinterpreting what you want to do, but I think you want to
use the standard select() call (for waiting on file descriptors, not for
the output filehandle). It will block until data comes in on the
sockets you are waiting on (or data goes out, but you don't care...) or
the timeout expires. If you are familiar with regular network
programming, it's the same thing. The might be some nifty package of
socket stuff out there as well...
[cc to arvindk@pa.dec.com]
geir
--
Geir Magnusson Jr.
gmj@netaxis.com
Perl's garbage collector abhors a naked circularity. -tc
Chase the dream, not the competition.
------------------------------
Date: 31 Dec 1998 10:03:50 -0800
From: Carl Johnson <carlj@peak.org>
Subject: Re: Perl Cookbook
Message-Id: <87btkkrxx5.fsf@cjlinux.localnet>
Tom Christiansen <tchrist@mox.perl.com> writes:
> I happen to have listed *all* the changes I wanted to make for the
> second printing. That includes things like the alignment of equals
> signs in expressions.
I don't know if you (or other readers) are aware, but some of those
bugs from the errata are still in the newer printing. I just checked
some of the "bug" corrections and found 2 or 3 of them still there, as
well as at least one that was improperly corrected (left out a quote).
The book I bought lists a print history with "September 1998: Minor
corrections", and shows a "[10/98]" in the bottom right corner of the
copyright page.
I agree with you that most of them are very minor corrections.
--
Carl Johnson carlj@peak.org
------------------------------
Date: 31 Dec 1998 16:14:36 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Perl equivalent of 'C' #include
Message-Id: <76g7tc$8ue$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
"Richard Gordon" <abc@abc.com> writes:
:I am new to perl and wonder if there an equivalent of 'C' #include in perl.
:I am trying to do something like the following
:
:#prog1.pl
:
:$VAR1 = 1 ;
:$VAR2 = 2 ;
:
:#include "prog2.pl"
Well, you could use #include, if you use perl's -P flag, but
think you want the `do $file' construct:
do "config.pl";
--tom
--
In general, they do what you want, unless you want consistency.
--Larry Wall in the perl man page
------------------------------
Date: 31 Dec 1998 22:49:36 GMT
From: tommy1452@aol.com (Tommy1452)
Subject: Problem Retreiving Web documents using User Agent Module
Message-Id: <19981231174936.08434.00004242@ng-fu1.aol.com>
I am writing a program to retrieve several, actually 100's of web documents
from a server, the problem is the program freezes after the seventh request.
How do I fix this?
------------------------------
Date: Thu, 31 Dec 1998 22:03:58 -0500
From: "Robert Gwynne" <nospam_gwynne@utkux.utk.edu>
Subject: Re: reading a single char
Message-Id: <76hdvd$l76$1@gaia.ns.utk.edu>
Come on! Tom gave a VERY informed, clear, concise answer with various
choices. And, he didn't even tell the poster to buy the Perl Cookbook and
read Chapter 15, i.e., example 15.6. My answer: buy two copies of the the
book, one for the office and one for home, maybe a third for the bathroom.
Bob Gwynne
John Stanley <stanley@skyking.OCE.ORST.EDU> wrote in message
news:76e64n$5ko$1@news.NERO.NET...
>In article <76e4m0$6ms$1@csnews.cs.colorado.edu>,
>Tom Christiansen <tchrist@mox.perl.com> wrote:
>>--tom, the last reader on earth
>
>An insult to the millions of people who read the FAQ and don't post
>their questions here. You are hardly "the last reader on Earth". If you
>are, then I suppose I ought to take back all those books I have that
>list you as an author, since I obviously would never be able to read
>them.
>
>Why do you feel the need to denigrate others who are acting the way you
>allegedly want them to act? If you want people to read the FAQ, don't
>claim to be the only one who can.
>
------------------------------
Date: Thu, 31 Dec 1998 17:15:38 -0500
From: Penn Markham <pmarkham@access.k12.wv.us>
Subject: Redirecting Output...
Message-Id: <368BF78A.7FFCA0BA@access.k12.wv.us>
Hello,
I want to run the 'system' command in a perl script and slide the
result in to a variable. I have tried doing this different ways, but it
seems impossible. I experimented with this:
$line = system "grep \":$username:\" passwords";
Instead of being stored in the $line variable, the result goes straight
to the terminal. I know that there is a grep function in Perl, but it
doesn't appear to do what I want. Does anybody know what I can do to
make this work? Thanks,
PENN
------------------------------
Date: 31 Dec 1998 18:06:38 -0500
From: Uri Guttman <uri@ibnets.com>
To: pmarkham@access.k12.wv.us
Subject: Re: Redirecting Output...
Message-Id: <39yannrjwh.fsf@ibnets.com>
>>>>> "PM" == Penn Markham <pmarkham@access.k12.wv.us> writes:
PM> Hello, I want to run the 'system' command in a perl script and
PM> slide the result in to a variable. I have tried doing this
PM> different ways, but it seems impossible. I experimented with
^^^^^^^^^^
MOTTO: perl makes easy things easy, and hard things possible.
so why do you say it is impossible? do you really think perl would be
that popular and useful without such a useful feature? did you ever
think that system might actually be the wrong function to use? did you
read the docs for system? it tells you that system is NOT used to
capture output from a command. i leave it up the the reader to read the
document quoted below which answers this FAQ.
i know you are in high school in west virginia (judging from your
address) but that does not exempt you from reading the documentation.
nor does it allow you to defame our favorite language without some real
proof something is impossible.
from perldoc -f system:
256. See also L</exec>. This is I<NOT> what you want to use to capture
the output from a command, for that you should use merely backticks or
qx//, as described in L<perlop/"`STRING`">.
hth,
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Thu, 31 Dec 1998 23:44:07 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Redirecting Output...
Message-Id: <Pine.HPP.3.95a.981231233832.12218B-100000@hpplus01.cern.ch>
On Thu, 31 Dec 1998, Penn Markham wrote:
> I want to run the 'system' command in a perl script and slide the
> result in to a variable.
Sounds like a job for backticks... if indeed this is a command that you
_have_ to execute, e.g because the function isn't already available in
perl.
> seems impossible. I experimented with this:
>
> $line = system "grep \":$username:\" passwords";
But you wouldn't seriously do that, right? There's always extra brownie
points to be earned by saying what you really wanted to achieve, rather
than presenting a half-formed (and all too often erroneous) solution to
some unstated problem and leaving the other usenauts to try their powers
of telepathy - or sheer guesswork.
------------------------------
Date: Thu, 31 Dec 1998 13:45:19 -0600
From: John Warner <jwarner@tivoli.com>
Subject: Regex with Perl Win32 and ODBC?
Message-Id: <368BD44F.FB1994C3@tivoli.com>
I've got a question that Stephen (the original poster) is likely to run
into. How do you craft your regexes to work on a specific field? For
example, I'm trying to connect to an Oracle database in order to look at
one particular field for dollar amounts. To make my task easier, I
split the learning DBD::Oracle and the working out the regex as two
smaller scripts. To test my regex, I used the following data:
a;sdkfj a;sdfkja;skfjgatgiavjha $250000
a;sdfkjl;sdf $45,750 aasdfa sdfa;4ua[ ifnbs;dfhjgar
qarefgszbcvbasg asdfasdf 1345 units at $55.00 each
xcvbsrtgsdfv $5,000,000 sale
a;sdfkja;sdfkj aspdfizx;cvasd $67,000.45 a;fkja;sdf gstg
rtiqwafjg;cvbnsert a;sdfkja;efa -$782,607 sfasdfasdf
a;dskfla;jsdfk -$456.09
;asdjfa;sdf $7500. a;sdfasdfasdf
with the script:
#! /usr/bin/perl
open (INFILE, "test.txt");
$linecount = 1;
while (<INFILE>){
chomp;
@temp = split /\s/,$_;
foreach $item (@temp){
$_ = $item;
if(s<\G((?:^\-)?(?:^\$)\d{1,3}(\,?\d{3})*(\.?\d{0,2}?)?)(?!\d)><$1,>gx){
print "$linecount:Matched:$1 \n"; }
$item++;
}
$linecount++;
}
The regex, based on an example from the _Mastering Regular Expressions_
book, succeeds in all cases with this file. (It currently doesn't work
for the negative dollar amounts but that isn't important for right
now.) However, after connecting and retrieving data from the Oracle
database, where the numbers are in the same format, the regex always
fails.
while(@row = $sth->fetchrow()){
my $t;
$pid = $row[0];
$_ = $desc = $row[1];
if(s<\G((?:^\$)\d{1,3}(\,?\d{3})*(\.?\d{0,2}?)?)(?!\d)><$1,>gx){
print "Found dollar amount mentioned! Logging...";
print "$count\t$pid\t$desc\n";
print LOG "$count\t$pid\t$desc\n";
}else{
print LOG "$pid\t$desc\n";
$t = length $desc;
print "$count\t$pid No match for dollar amount(s). Desc length
= $t";
}
$count++;
}
So my question is: why? What is different between hanlding an ordinary
text file and the results of an SQL query? Any ideas would be greatly
appreciated.
John Warner
Clay Ratliff wrote:
> > I am looking to extract ODBC-based data using Perl for Win32.
> > I was wondering if anyone could point me in the right direction,
> > throw me a code sample to mess with, anything. I am an extreme
> > newbie in this situation.
>
> Take a look at this place. Has some nice handy links.
>
> http://www.roth.net/odbc/FAQ/FAQ.HTM
>
> Clay Ratliff
------------------------------
Date: Wed, 30 Dec 1998 01:53:25 GMT
From: dilcher@cueva.dontspam.com (Jeff)
Subject: STUPID PERL QUESTION... maybe
Message-Id: <36898698.97065171@news.supernews.com>
I am not really a programmer, but write silly little perl scripts
to help me do some tasks on my Windows machine.
I am trying to write a program that needs user input, and,
I would like the abiltiy to paste windows clipboard data as
that input. Unfortunately, this is not easy/possible with the
standard "dos window" interface.
Is there something like a tiny windows program that I could
run, via my script, that would present a windows fill out form
box, then would pass the pasted data back to my script?
I am trying to think of the easiest solution, rather than have
to fool with learning about some toolkit, if possible.
Any help appreciated!
Please remove dontspam when replying,
Jeff
------------------------------
Date: Thu, 31 Dec 1998 19:25:31 -0500
From: Benoit Lefebvre <mox@videotron.ca>
Subject: Timer
Message-Id: <368C15FB.6E8D5277@videotron.ca>
It is possible to do a Timer in a perl program that will call a sub at
each 10 seconds ?
------------------------------
Date: 1 Jan 1999 00:43:19 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Timer
Message-Id: <76h5n7$4mi$1@csnews.cs.colorado.edu>
In comp.lang.perl.misc, Benoit Lefebvre <mox@videotron.ca> writes:
:It is possible to do a Timer in a perl program that will call a sub at
:each 10 seconds ?
unless ($pid = fork) {
die "can't fork: $!" unless defined $pid;
while (1) {
some_func();
sleep 10;
}
exit; # XXX: NOT REACHED
}
--tom
--
Unix is like a toll road on which you have to stop every 50 feet to
pay another nickel. But hey! You only feel 5 cents poorer each time.
--Larry Wall in <1992Aug13.192357.15731@netlabs.com>
------------------------------
Date: Thu, 31 Dec 1998 22:27:36 -0500
From: "Robert Gwynne" <nospam_gwynne@utkux.utk.edu>
Subject: Re: tutorial websites
Message-Id: <76hfbp$lpb$1@gaia.ns.utk.edu>
Try http://www.digitaled.com/preview/oreilly/home.html
Bob Gwynne
<uunews@hotmail.com> wrote in message
news:76dint$si9$1@nnrp1.dejanews.com...
>Hi Folks,
> I am looking for useful websites and mail servers on PERL. Any help is
>appreciated.
>
>Sincerely,
>Ali
>
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 1 Jan 1999 03:31:32 +0100
From: big.jim@no.spam.here.thanks.com (Big Jim)
Subject: using Perl as a telnet "shell"
Message-Id: <199901010231.NAA06309@no.spam.here.thanks.com>
After taking out a 6 month subscription with a local iap I then
discovered that they have no newsserver! Their mail server was
initially flakey, failed for weeks, and is plainly unreliable. Then
pdksh broke, so I converted my few scripts to zsh. Now, with still
two months subscription remaining, telnet has been made rwx------
and I can no longer even telnet to port 119 of another newsserver
to read their local newsgroups (albeit slowly and painfully). For
some mysterious reason, ps is also now rwx------. Unsurprisingly,
the admin have stopped responding to my email complaints.
Possibly I could use the telnet facility in Perl to get some use
out of my last two months' sub?
Could someone help with precise Perl script I'd need to telnet to
port 119 of 123.456.123.456 and issue the server with commands
a la print "group comp.unix.shell\n" initially from the script but
then taken from the terminal?
I've not used Perl before, but am willing to give it a go and will
learn from the forced opportunity.
Please respond to newsgroup.
Jim
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4526
**************************************
