if you have root access you could run it in inittab
On Sun, Nov 17, 2002 at 06:05:43 +0200, Octavian Rasnita wrote:
Hi all,
I want to make a Perl program that runs permanently without stopping.
How can I do this?
I could run the program from shell using:
nohup perl script.pl
.
Octavian Rasnita wrote:
Hi all,
I want to make a Perl program that runs permanently without stopping.
How can I do this?
I could run the program from shell using:
nohup perl script.pl
. but if for some unknown reasons the process will be stopped, it won't
restart automaticly.
Octavian Rasnita wrote:
Hi all,
I want to make a Perl program that runs permanently without stopping.
How can I do this?
via shell loop
while true
do
the program
done
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
J. Alejandro Ceballos Z. wrote:
Octavian Rasnita wrote:
Hi all,
I want to make a Perl program that runs permanently without stopping.
How can I do this?
via shell loop
while true
do
the program
done
that will spawn a new process off every iteration, which would be
Yes I know this but if the root will restart the server, the program won't
restart.
Or, ... other problems might kill my program.
Teddy,
Teddy's Center: http://teddy.fcc.ro/
Email: [EMAIL PROTECTED]
- Original Message -
From: J. Alejandro Ceballos Z. [EMAIL PROTECTED]
To: beginners-cgi
No, unfortunately I don't have root access.
Thank you for telling me about this option.
Teddy,
Teddy's Center: http://teddy.fcc.ro/
Email: [EMAIL PROTECTED]
- Original Message -
From: Mat Harris [EMAIL PROTECTED]
To: Octavian Rasnita [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: Monday,
Thank you.
Please tell me how can I verify if the process is running.
Teddy,
Teddy's Center: http://teddy.fcc.ro/
Email: [EMAIL PROTECTED]
- Original Message -
From: Christopher G Tantalo [EMAIL PROTECTED]
To: Octavian Rasnita [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Sent: Monday,
I was trying to use the Term::ReadKey module as follows:
use Term::ReadKey;
ReadMode ('noecho');
$password = ReadLine(0);
but got the following:
Can't locate Configure.pm in @INC (@INC contains: n:\util\perl C:/perl/lib C:/pe
rl/site/lib .) at C:/perl/lib/Term/ReadKey.pm line 12.
BEGIN
Hi -
I downloaded and compiled Term::ReadKey (perl makefile.pl,
nmake, nmake test, nmake install) on my win32
machine using ActivePerl 5.6.1 (633). No problems.
Configure.pm in INCLUDED with Term::ReadKey. Maybe the
PMD file (PPM) is incomplete. Do you have a compiler?
If so, try building it
Hi All,
i get mails to a particular id in outlook.
In perl i want to know how to move this attachments to do a particular
activity is it possible.
Regards
j
Paul wrote:
--- Tom Allison [EMAIL PROTECTED] wrote:
My first guess is to use tie to access a file of type DB_File.
The number of records is small 1000 but the record structure is
going to be either a hash of hashes, hash of arrays, or similar.
One possible solution depends on your data
Hallo All,
I am new in perl and will be grarefull for any help.
my perl script is as follows:
#!/usr/bin/perl -w
use lib /home/shenvi/share/man/man3;
use IO;
use Mail::Internet;
use MIME::Tool;
use Mail::MboxParser::Mail;
use Mail::MboxParser;
#USE OF Mail::MboxParser
my $mb =
Hi All,
Thankx for reading this.
I have a very newbie question...
i'm working on a CGI and i want only to permit some
caracters by the user...
imagine
my $STRING = kjsh234Sd\nki;
# now i want to check if there is any invalid caracter
# in this case a-z ; A-Z and 0-9
there for /[a-zA-Z0-9]/
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative, the s makes
the regex examine new lines, and g means global.
On Mon, 18 Nov 2002, Beau E. Cox wrote:
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative,
I guess you
Hi all
I downloaded the XML Parser 2.31 from CPAN and installed it.
Now I want to install XML-DOM-1.41 but I get following error
Warning: prerequisite XML::Parser::PerlSAX failed to load: Can't locate
XML/Parser/PerlSAX.pm
Do I have to install something else before XML-DOM? Is PerlSAX not in
Hi -
If you go to Randy Kobes search site on cpan.org, you will
see the following in XLM::DOM-1.14:
Download / quickinstall XML-DOM-1.41.tar.gz : A perl module for building DOM
Level 1 compliant document structures
Size: 116.288 kB Last modified: Oct 19, 2002
README CPAN-testers results for
Hello all. I have a small subfunction with a for sort keys %hash construct
in it. In my sort, I want to have { $a = $b } (numberic) sorting, but I
get errors when character data is entered. Is there anyway to tell numberic
vs character without looping through keys looking for m/\D/? Thanks.
jess
Hi !
in the above case line 31 is
my $mb = Mail::MboxParser-new((\*STDIN), decode = 'HEADER');
my $mb = Mail::MboxParser-new(\*STDIN, decode = 'HEADER');
should work fine (untested).
HTH,
Jan
--
cat /dev/world | perl -e while () {(/(^.*? \?) 42 \!/) (print $1)}
errors-(c)
-
--
To
On Nov 10, SATAR VAFAPOOR said:
When I run the following code(with any hash), I get a contiuous stream of
output. The presence of the array in the loop causes the contiuous stream
of output. When the array is commented out an output is generated. Why
does the presence of the array cause a
I'm writing a monitoring system (Yes, still... Finally got the go-ahead
to do this) and my design calls for a central Smart Daemon that spawns
and monitors the lesser Daemons that do the actual monitoring. My
problem is that I'm not sure how to go about this.
From what I understand, fork
Maybe one of the higher gurus might know of something, but if the
data can be interweaved(ie, the key can be 1, 2, 3 and ab, dc, ed), then
without looking at the data first or keeping some kind of counter, it would
be from my perspective rough to do.
Wags ;)
-Original Message-
In article 000f01c28d8e$ed4e4f80$[EMAIL PROTECTED],
[EMAIL PROTECTED] (Tin-Shan Chau) writes:
--Boundary_(ID_G2riuUEo9lO985lfAtLnbg)
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: 7BIT
Can anyone point me to an example of how to use the above module?
use
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Hi folks,
One of my scripts uses a home-brewed flatfile database to store
information, and I've run up against a problem when I wish to sort
columns of data.
An example of the database file:
(items,fruit,date)
16,apples,20021118-1725
22,bananas
Gavin Laking wrote:
One of my scripts uses a home-brewed flatfile database to store
information, and I've run up against a problem when I wish to sort
columns of data.
An example of the database file:
(items,fruit,date)
16,apples,20021118-1725
22,bananas,20021118-1648
4,grapes
On 18 Nov 2002 15:21:26 -0500, Jason Frisvold [EMAIL PROTECTED] wrote:
[snip]
I can't see to figure out how to spawn a new process, return the pid,
and be able to monitor this new process on my own ...
The general form would be something like:
my $pid = fork();
if ($pid) {
# I am in
I have this code running under Windows 98 using ActiveState:
The file copy is working okay. What isn't working is the eval system
call. Eudora is never executed and run, BUT the copy always happens. How
can I get Eudora to be called? Is it possible at all?
use File::Copy;
use File::DosGlob
John W. Krahn wrote:
Paul wrote:
--- Julien Motch [EMAIL PROTECTED] wrote:
#The next line printsd the reference why ?
print(the host which you are connecteed to is $pop-Host()\n); #
Mail::POP3Client=HASH(0x8153a8c)-Host()
Inside the quotes, the - operator is taken as printable characters.
Todd W wrote:
John W. Krahn wrote:
Paul wrote:
--- Julien Motch [EMAIL PROTECTED] wrote:
#The next line printsd the reference why ?
print(the host which you are connecteed to is $pop-Host()\n); #
Mail::POP3Client=HASH(0x8153a8c)-Host()
Inside the quotes, the - operator is taken as
Hi all
Has anybody used unlink in ActiveState Perl 5.6.0 (on Windows)? It does
not seem to be working for me.
thanks in advance
Anshul
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
What build are you using? You should probably be using ActivePerl 5.6.1
build 633. I've used unlink on Win32 with no problems. Perhaps you can
post your code?
-Original Message-
From: Anshul Chhabra [mailto:[EMAIL PROTECTED]]
Sent: Monday, November 18, 2002 5:18 PM
To: beginner perl
Well what I want to do is backup my Eudora mailboxes, and I have that part
working, but I wanna automate it so that every time I close Eudora the
files get copied. A suggestion was that I could wrap the call to Eudora in
an eval and just call Eudora from the Perl Script.
At 07:23 PM 11/18/02
I am using Build 623. My code is given below. Basically, for processing I
need to create some temp files. After I use them, I want to delete the file.
But the unlink does not work.
require 'AddHeaderToBody.pl';
require 'AddFooterToBody.pl';
$argvLen = @ARGV ;
$inputDir = $ARGV[0] ;
Hi -
This is avoiding your question about unlink (sorry),
but you may want to use a CPAN module to get temp files.
I have used (and am very happy with) File::Temp. This
module does the tedious work of getting a temp file
name and cleans up after itself.
Aloha = Beau.
PS: Unlink has worked fine
Hi,
I am trying to make hash of delivery zones that allows me to maintain a
record of a zone for every postal code based on the first three digits of
each zip. Being new to perl I have a few questions about the logical
approach.
Should I list zones as the name component with zips as a list of
Hi,
Can i filter incoming e-mails.
I am using exchange server (outlook) on win2k.
For example if i have send a mail with an attachement to a particular id
say [EMAIL PROTECTED] , i want the perl scipt to see that it move the attachement
to local drive of my system.
Is it possible.??
Regards
system (('tunctl',-u,$buf) | ('awk',print,$2) );
you can also try this
system (tunctl,-u,$buf | awk,print,$2 );
- Original Message -
From: Timothy Johnson [EMAIL PROTECTED]
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Monday, November 18, 2002 2:40 AM
Subject: RE: system function
37 matches
Mail list logo