RE: split and ^ character

2004-11-02 Thread Ganesh Babu Nallamothu, Integra-India
Hi Try this one

Make use of \Q\E format.

$subrecdelim = '^';

$mystr = 'cat^dog^pony^rat';

@array = split(/\Q$subrecdelim\E/, $mystr);

foreach (@array) {
  print  - $_\n;
}

Cheers.

Regards,
Prasad

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
vega, james
Sent: Monday, November 01, 2004 10:33 PM
To: Perl-Win32-Users
Subject: RE: split and ^ character


 I'm trying to figure how to get the following code to work.  
 I've tried a 
 few combos, but nothing seems to get it right.  I'm guessing 
 it's something 
 simple, but I couldn't nail down what it was.  I realize that 
 ^ is a special 
 operator but I don't see a way to escape it, given that it's 
 input from a 
 scalar variable.
 
 
 $subrecdelim = '^';
 
 $mystr = 'cat^dog^pony^rat';
 
 @array = split(/$subrecdelim/, $mystr);

@array = split(/\Q$subrecdelim\E/, $mystr);

\Q - Quotes nonword characters until \E

 foreach (@array) {
   print  - $_\n;
 }
 
 
 
 Any hints would be appreciated.
 
 Thanks!
 Paul ---
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Perl clustering

2004-11-02 Thread Chris
Does anyone know if active state or any other distributions support windows
clustering?

- Chris

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: fork didn't work

2004-11-02 Thread Roger Keane
Jutu Subramanian, Srinivasan (Cognizant) wrote:

 Hi,
 I need to execute a perl application from one perl application.
 I should do with fork and exec. The execution of another one perl application is the 
independent
 to the parent process.So, I don't want to use wind32::CreateProcess.
Using fork() in Perl on Windows means using threads.
If you are creating another process anyway, use system() or Proc::Background.
You should create new background processes with fork() on Unix platforms.
You should create new background processes with Win32::CreateProcess() on Windows 
platforms.
Proc::Background does that for you.
 If I use the fork and exec, Need to do the process of Reaping dead children.
Proc::Background is able to reap finished child process.
Proc::Background is able to return the status of the finished child process.
Proc::Background is able to wait for child process to finish.
Proc::Background is able to kill the child process.
Proc::Background is able to check that the child process is still alive.

This method is also wait for the forked process to complete its work. So, 
the next parent
 process continues only after the child process exits.
 It overcomes the fork limitation of compiled  in limit of 64  active threads.

 The output for the sample code is given below.
 PARENT PROCESS=1
 filter.pl called with parameter 1
 PARENT PROCESS=2
 filter.pl called with parameter 2
 PARENT PROCESS=3
 filter.pl called with parameter 3

 Actually, Firt perl program(parent)  is not to wait for the another perl 
program(child) completes.
 Parent process keeps on running 24 hours. So, Child process getting accumulated in 
the process table.
 If we harvesting the dead children by the method of Reaping dead children, We would 
be getting the
 result as mentioned above. It is similar to the usage of wait at the parent process. 
Is it comfortable
 to use the reaping dead children. Kindly advice me on this and revert back for any 
clarifications.
Proc::Background allows you to create and manage multiple background processes 
concurrently.
If you do not need to manage multiple background processes concurrently, use system().
If you only need to manage multiple background processes concurrently on Windows and 
want
to learn more about the Win32 API use Win32::CreateProcess.  If you need your code to 
run
on both Unix and Win32 systems, use Proc::Background.  If you do not want to learn 
about
the Win32 API, or want a simpler API than Win32::CreateProcess, use Proc::Background.
 regards
 Srinivas

hope that helps,
rgr
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Perl based Faxing

2004-11-02 Thread Adam R. Frielink
Anyone know of a faxing product built on Perl?

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Formatting seconds help

2004-11-02 Thread barons
Does anyone have a simple routine or a way that I can
format my seconds. Say I have:

$seconds = '3600';
I want the output to say 1 hour

$seconds = '5567';
I want the output to say 1 hour 54 minutes and 64 seconds

Something like that that will break down the amount of
days, hours, minutes, and seconds.

Thank you
Allan
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: foreach ( hash element that maybe scalar, maybe array)

2004-11-02 Thread Ed Chester

Thanks for that Charles - 

 foreach my $bit ( values %bits ) {
if ( ref $bit eq 'ARRAY' ) {

yep, that helps a lot. I didn't know ref existed, very useful. I am still a bit
surprised there
isn't a way that perl can just infer what to do from context like it usually
does. Still, this
opens up ways to fix a couple of other outstanding issues I have as well. 

Thanks loads! 

ed c
 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


AW: Formatting seconds help

2004-11-02 Thread joachim . goerner
for $seconds(3598 .. 3661) {
  $_=gmtime $seconds;/(\d\d):(\d\d):(\d\d)/;
  0+$1  printf %d hour ,$1;
  0+$2  printf %d minutes,$2;
  0+$3  (($1 || $2)  print ( and ),printf %d seconds,$3);print \n
}
give me:
-- Perl --
59 minutes and 58 seconds
59 minutes and 59 seconds
1 hour 
1 hour  and 1 seconds
1 hour  and 2 seconds
1 hour  and 3 seconds
1 hour  and 4 seconds
1 hour  and 5 seconds
1 hour  and 6 seconds
1 hour  and 7 seconds
1 hour  and 8 seconds
1 hour  and 9 seconds
1 hour  and 10 seconds
1 hour  and 11 seconds
1 hour  and 12 seconds
1 hour  and 13 seconds
1 hour  and 14 seconds
1 hour  and 15 seconds
1 hour  and 16 seconds
1 hour  and 17 seconds
1 hour  and 18 seconds
1 hour  and 19 seconds
1 hour  and 20 seconds
1 hour  and 21 seconds
1 hour  and 22 seconds
1 hour  and 23 seconds
1 hour  and 24 seconds
1 hour  and 25 seconds
1 hour  and 26 seconds
1 hour  and 27 seconds
1 hour  and 28 seconds
1 hour  and 29 seconds
1 hour  and 30 seconds
1 hour  and 31 seconds
1 hour  and 32 seconds
1 hour  and 33 seconds
1 hour  and 34 seconds
1 hour  and 35 seconds
1 hour  and 36 seconds
1 hour  and 37 seconds
1 hour  and 38 seconds
1 hour  and 39 seconds
1 hour  and 40 seconds
1 hour  and 41 seconds
1 hour  and 42 seconds
1 hour  and 43 seconds
1 hour  and 44 seconds
1 hour  and 45 seconds
1 hour  and 46 seconds
1 hour  and 47 seconds
1 hour  and 48 seconds
1 hour  and 49 seconds
1 hour  and 50 seconds
1 hour  and 51 seconds
1 hour  and 52 seconds
1 hour  and 53 seconds
1 hour  and 54 seconds
1 hour  and 55 seconds
1 hour  and 56 seconds
1 hour  and 57 seconds
1 hour  and 58 seconds
1 hour  and 59 seconds
1 hour 1 minutes
1 hour 1 minutes and 1 seconds

Mit freundlichen Grüssen 
Joachim Görner 

Informationsverarbeitung Systemtechnik Basisdienste (ISB) 
ADAC e.V., Am Westpark 8, 81373 München 
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
mailto:[EMAIL PROTECTED] 
www.adac.de 



 -Ursprüngliche Nachricht-
 Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
 Gesendet: Dienstag, 2. November 2004 19:02
 An: [EMAIL PROTECTED]
 Betreff: Formatting seconds help
 
 
 Does anyone have a simple routine or a way that I can
 format my seconds. Say I have:
 
 $seconds = '3600';
 I want the output to say 1 hour
 
 $seconds = '5567';
 I want the output to say 1 hour 54 minutes and 64 seconds
 
 Something like that that will break down the amount of
 days, hours, minutes, and seconds.
 
 Thank you
 Allan
 ___
 Perl-Win32-Users mailing list
 [EMAIL PROTECTED]
 To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Perl based Faxing

2004-11-02 Thread Thomas, Mark - BLS CTR
I've controlled Hylafax (www.hylafax.org) for years via Perl, long before
the CPAN module (http://search.cpan.org/~arak/Fax-Hylafax-Client-1.01/)
became available. It's a great product, but it's not for Windows.

Interfax (www.interfax.net) offers faxing as a Web Service. They have sample
Perl code at
http://www.interfax.net/en/dev/webservice/samples/fax_perl_sendcharfax.html

-- 
Mark Thomas 
Internet Systems Architect
___
BAE SYSTEMS Information Technology 
2 Massachusetts Ave NE, Ste. 5110
Washington, DC 20212 USA 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


regex help

2004-11-02 Thread Malcolm Mill
Newbie here having trouble with regex.
   I'm trying to parse an html file saved as text to find all instances of time.
   The parsed file is called myFindTime2.txt and contains text like
   =
   tr
   td align=right valign=top
   font size=2 color=#00 class=listings
   11:30 ambr /
   /font
   /td
   /tr
   ==
   The script is called myFindTime2.pl and contains the lines
   ==
   foreach () {
   s/([\t][\d2][:][\d2][\s])/\1/;
   print $_;
   }
   ==

- Ignored:
   The command I use is.
   perl myFindTime2.pl myFindTime2.txt

   Any suggestions? Is what I'm trying to do here with
   s/search/replace_backreference/ valid?

- Done.



-- Forwarded message --
From: Malcolm Mill [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Tue, 2 Nov 2004 21:00:27 +
Subject: Regex help
Hi,
Newbie here having trouble with regex.

I'm trying to parse an html file saved as text to find all instances of time.

The parsed file is called myFindTime2.txt and contains text like
=
tr
   td align=right valign=top
   font size=2 color=#00 class=listings
   11:30 ambr /
   /font
   /td
/tr

==

The script is called myFindTime2.pl and contains the lines
==
foreach () {
   s/([\t][\d2][:][\d2][\s])/\1/;
   print $_;
}
==

The command I use is.
perl myFindTime2.pl myFindTime2.txt

Any suggestions? Is what I'm trying to do here with
s/search/replace_backreference/ valid?
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: Formatting seconds help

2004-11-02 Thread michael higgins
[EMAIL PROTECTED] wrote:
Does anyone have a simple routine or a way that I can
format my seconds. Say I have:
$seconds = '3600';
I want the output to say 1 hour
$seconds = '5567';
I want the output to say 1 hour 54 minutes and 64 seconds
Something like that that will break down the amount of
days, hours, minutes, and seconds.
Thank you
Allan
I don't know if this is simple, clean or even correct, but, help 
yourself. I've been using it for something... maybe this will prompt 
someone to post a better solution I can use as well. '-)

-mike higgins
sub time_to_seconds{
my ($fraction, $seconds, $minutes, $hours) = reverse (split /[:.]/, 
$_[0]);
$seconds += $minutes * 60;
$seconds += $hours * 3600;
$seconds += $fraction / 10;
$seconds;
}

sub seconds_to_time{
my $hours =  int $_[0]/ 3600;
my $minutes = int (( $_[0] - $hours * 3600) / 60);
my $seconds = int $_[0] - ($hours * 3600 + $minutes * 60);
my $fraction = '';
$fraction  = substr $_[0], rindex $_[0], '.'
if ((index $_[0], '.') != -1);
my $t = sprintf %02d:%02d:%02d%s,
$hours,$minutes,$seconds,$fraction;
$t;
}
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: regex help

2004-11-02 Thread Peter Eisengrein
Title: RE: regex help





Assuming your dates are always in the same format, this would work:


print $1\n while ($_ =~ /(\d{1,2}\:\d{2} [ap]m)/gi);


-Pete




 -Original Message-
 From: Malcolm Mill [mailto:[EMAIL PROTECTED]]
 Sent: Tuesday, November 02, 2004 4:11 PM
 To: [EMAIL PROTECTED]
 Subject: regex help
 
 
 Newbie here having trouble with regex.
 I'm trying to parse an html file saved as text to find all 
 instances of time.
 The parsed file is called myFindTime2.txt and contains 
 text like
 =
 tr
 td align=right valign=top
 font size=2 color=#00 class=listings
 11:30 ambr /
 /font
 /td
 /tr
 ==
 The script is called myFindTime2.pl and contains the lines
 ==
 foreach () {
 s/([\t][\d2][:][\d2][\s])/\1/;
 print $_;
 }
 ==
 
 - Ignored:
 The command I use is.
 perl myFindTime2.pl myFindTime2.txt
 
 Any suggestions? Is what I'm trying to do here with
 s/search/replace_backreference/ valid?
 
 - Done.
 
 
 
 -- Forwarded message --
 From: Malcolm Mill [EMAIL PROTECTED]
 To: [EMAIL PROTECTED]
 Date: Tue, 2 Nov 2004 21:00:27 +
 Subject: Regex help
 Hi,
 Newbie here having trouble with regex.
 
 I'm trying to parse an html file saved as text to find all 
 instances of time.
 
 The parsed file is called myFindTime2.txt and contains text like
 =
 tr
 td align=right valign=top
 font size=2 color=#00 class=listings
 11:30 ambr /
 /font
 /td
 /tr
 
 ==
 
 The script is called myFindTime2.pl and contains the lines
 ==
 foreach () {
 s/([\t][\d2][:][\d2][\s])/\1/;
 print $_;
 }
 ==
 
 The command I use is.
 perl myFindTime2.pl myFindTime2.txt
 
 Any suggestions? Is what I'm trying to do here with
 s/search/replace_backreference/ valid?
 ___
 Perl-Win32-Users mailing list
 [EMAIL PROTECTED]
 To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
 
 
 
 __
 Message transport security by GatewayDefender
 4:13:49 PM ET - 11/2/2004
 



___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: Formatting seconds help

2004-11-02 Thread John Serink

if($seconds/60 =1){
$mintes=int($seconds/60);
$seconds=$seconds-$minutes*60;
} else {
$minutes = 0;
}


Do the same thing for 3600 seconds and you'll have the same for hours.
Do the same for 86400 and you'll have the same for days...
Etc.



 -Original Message-
 From: [EMAIL PROTECTED] 
 [mailto:[EMAIL PROTECTED] On 
 Behalf Of [EMAIL PROTECTED]
 Sent: Wednesday, November 03, 2004 2:02 AM
 To: [EMAIL PROTECTED]
 Subject: Formatting seconds help
 
 
 Does anyone have a simple routine or a way that I can
 format my seconds. Say I have:
 
 $seconds = '3600';
 I want the output to say 1 hour
 
 $seconds = '5567';
 I want the output to say 1 hour 54 minutes and 64 seconds
 
 Something like that that will break down the amount of
 days, hours, minutes, and seconds.
 
 Thank you
 Allan
 ___
 Perl-Win32-Users mailing list
 [EMAIL PROTECTED]
 To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: regex help

2004-11-02 Thread Ganesh Babu Nallamothu, Integra-India
Hi,

Your Find patter is wrong.
Use the following Pattern:

s/([\t]\d{2}[:]\d{2}[\s])/\1/;

Regards,
Gopal.R

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Malcolm Mill
Sent: Wednesday, November 03, 2004 2:41 AM
To: [EMAIL PROTECTED]
Subject: regex help


Newbie here having trouble with regex.
   I'm trying to parse an html file saved as text to find all instances of
time.
   The parsed file is called myFindTime2.txt and contains text like
   =
   tr
   td align=right valign=top
   font size=2 color=#00 class=listings
   11:30 ambr /
   /font
   /td
   /tr
   ==
   The script is called myFindTime2.pl and contains the lines
   ==
   foreach () {
   s/([\t][\d2][:][\d2][\s])/\1/;
   print $_;
   }
   ==

- Ignored:
   The command I use is.
   perl myFindTime2.pl myFindTime2.txt

   Any suggestions? Is what I'm trying to do here with
   s/search/replace_backreference/ valid?

- Done.



-- Forwarded message --
From: Malcolm Mill [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Tue, 2 Nov 2004 21:00:27 +
Subject: Regex help
Hi,
Newbie here having trouble with regex.

I'm trying to parse an html file saved as text to find all instances of
time.

The parsed file is called myFindTime2.txt and contains text like
=
tr
   td align=right valign=top
   font size=2 color=#00 class=listings
   11:30 ambr /
   /font
   /td
/tr

==

The script is called myFindTime2.pl and contains the lines
==
foreach () {
   s/([\t][\d2][:][\d2][\s])/\1/;
   print $_;
}
==

The command I use is.
perl myFindTime2.pl myFindTime2.txt

Any suggestions? Is what I'm trying to do here with
s/search/replace_backreference/ valid?
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Re: regex help

2004-11-02 Thread $Bill Luebkert
Ganesh Babu Nallamothu, Integra-India wrote:

 Hi,
 
 Your Find patter is wrong.
 Use the following Pattern:
 
 s/([\t]\d{2}[:]\d{2}[\s])/\1/;

\t, \s and : do not need to be in a character class and \1 is deprecated for $1.

This should be equivalent:

s/(\t\d{2}:\d{2}\s)/$1/;

You should also be careful about the leading and trailing WS - this
would require leading and trailing WS of any kind and remove it.

s/(\s+\d{2}:\d{2}\s+)/$1/;

You could also replace it with a single leading and trailing space:

s/(\s+\d{2}:\d{2}\s+)/ $1 /;

 From: Malcolm Mill [EMAIL PROTECTED]
 To: [EMAIL PROTECTED]
 Date: Tue, 2 Nov 2004 21:00:27 +
 Subject: Regex help
 Hi,
 Newbie here having trouble with regex.
 
 I'm trying to parse an html file saved as text to find all instances of
 time.
 
 The parsed file is called myFindTime2.txt and contains text like
 =
 tr
td align=right valign=top
font size=2 color=#00 class=listings
11:30 ambr /
/font
/td
 /tr
 
 ==
 
 The script is called myFindTime2.pl and contains the lines
 ==
 foreach () {
s/([\t][\d2][:][\d2][\s])/\1/;
print $_;
 }
 ==
 
 The command I use is.
 perl myFindTime2.pl myFindTime2.txt
 
 Any suggestions? Is what I'm trying to do here with
 s/search/replace_backreference/ valid?


-- 
  ,-/-  __  _  _ $Bill LuebkertMailto:[EMAIL PROTECTED]
 (_/   /  )// //   DBE CollectiblesMailto:[EMAIL PROTECTED]
  / ) /--  o // //  Castle of Medieval Myth  Magic http://www.todbe.com/
-/-' /___/__/_/_http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


How to obtain filesize?

2004-11-02 Thread Tony Cheung
I have a perl program about update file from pc to mysql,but I want to limit filesize,how to obtain filesize and file type?Do You Yahoo!?
150MP3
1G1000___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: fork didn't work

2004-11-02 Thread Jutu Subramanian, Srinivasan (Cognizant)

Hi,
Thanks for your information.
Can I have sample code and where to get the ppd to install the Proc::background perl 
modules
If you know, Kindly tell me.

regards
Srinivas

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Roger Keane
Sent: Tuesday, November 02, 2004 9:08 PM
To: [EMAIL PROTECTED]
Subject: Re: fork didn't work


Jutu Subramanian, Srinivasan (Cognizant) wrote:

 
  Hi,
  I need to execute a perl application from one perl application.
  I should do with fork and exec. The execution of another one perl application is 
  the independent
  to the parent process.So, I don't want to use wind32::CreateProcess.

Using fork() in Perl on Windows means using threads.
If you are creating another process anyway, use system() or Proc::Background.
You should create new background processes with fork() on Unix platforms.
You should create new background processes with Win32::CreateProcess() on Windows 
platforms.
Proc::Background does that for you.

  If I use the fork and exec, Need to do the process of Reaping dead children.

Proc::Background is able to reap finished child process.
Proc::Background is able to return the status of the finished child process.
Proc::Background is able to wait for child process to finish.
Proc::Background is able to kill the child process.
Proc::Background is able to check that the child process is still alive.

 
 This method is also wait for the forked process to complete its work. 
  So, the next parent
  process continues only after the child process exits.
  It overcomes the fork limitation of compiled  in limit of 64  active threads.
 
  The output for the sample code is given below.
  PARENT PROCESS=1
  filter.pl called with parameter 1
  PARENT PROCESS=2
  filter.pl called with parameter 2
  PARENT PROCESS=3
  filter.pl called with parameter 3
 
  Actually, Firt perl program(parent)  is not to wait for the another perl 
  program(child) completes.
  Parent process keeps on running 24 hours. So, Child process getting accumulated in 
  the process table.
  If we harvesting the dead children by the method of Reaping dead children, We would 
  be getting the
  result as mentioned above. It is similar to the usage of wait at the parent 
  process. Is it comfortable
  to use the reaping dead children. Kindly advice me on this and revert back for any 
  clarifications.


Proc::Background allows you to create and manage multiple background processes 
concurrently.
If you do not need to manage multiple background processes concurrently, use system().
If you only need to manage multiple background processes concurrently on Windows and 
want
to learn more about the Win32 API use Win32::CreateProcess.  If you need your code to 
run
on both Unix and Win32 systems, use Proc::Background.  If you do not want to learn 
about
the Win32 API, or want a simpler API than Win32::CreateProcess, use Proc::Background.

  regards
  Srinivas
 

hope that helps,
rgr


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

This e-mail and any files transmitted with it are for the sole use of the intended 
recipient(s) and may contain confidential and privileged information.
If you are not the intended recipient, please contact the sender by reply e-mail and 
destroy all copies of the original message.
Any unauthorized review, use, disclosure, dissemination, forwarding, printing or 
copying of this email or any action taken in reliance on this e-mail is strictly
prohibited and may be unlawful.

  Visit us at http://www.cognizant.com

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


Antwort: RE: fork didn't work

2004-11-02 Thread Manfred . Beilfuss
Hi,

just a little search at search.cpan.org helps

http://cpan.uwinnipeg.ca/module/Proc::Background::Win32

 Best regards

Manfred Beilfuss



   
 
Jutu Subramanian, Srinivasan  
 
(Cognizant)   An: Roger 
Keane [EMAIL PROTECTED], 
[EMAIL PROTECTED]   [EMAIL PROTECTED]  

Gesendet von:  Kopie:  
 
[EMAIL PROTECTED]Thema:  RE: fork didn't work  
   
eState.com 
 
   
 
   
 
03.11.2004 08:24   
 
   
 
   
 





Hi,
Thanks for your information.
Can I have sample code and where to get the ppd to install the
Proc::background perl modules
If you know, Kindly tell me.

regards
Srinivas

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
Roger Keane
Sent: Tuesday, November 02, 2004 9:08 PM
To: [EMAIL PROTECTED]
Subject: Re: fork didn't work


Jutu Subramanian, Srinivasan (Cognizant) wrote:

 
  Hi,
  I need to execute a perl application from one perl application.
  I should do with fork and exec. The execution of another one perl
application is the independent
  to the parent process.So, I don't want to use wind32::CreateProcess.

Using fork() in Perl on Windows means using threads.
If you are creating another process anyway, use system() or
Proc::Background.
You should create new background processes with fork() on Unix platforms.
You should create new background processes with Win32::CreateProcess() on
Windows platforms.
Proc::Background does that for you.

  If I use the fork and exec, Need to do the process of Reaping dead
children.

Proc::Background is able to reap finished child process.
Proc::Background is able to return the status of the finished child
process.
Proc::Background is able to wait for child process to finish.
Proc::Background is able to kill the child process.
Proc::Background is able to check that the child process is still alive.

 
 This method is also wait for the forked process to complete
its work. So, the next parent
  process continues only after the child process exits.
  It overcomes the fork limitation of compiled  in limit of 64  active
threads.
 
  The output for the sample code is given below.
  PARENT PROCESS=1
  filter.pl called with parameter 1
  PARENT PROCESS=2
  filter.pl called with parameter 2
  PARENT PROCESS=3
  filter.pl called with parameter 3
 
  Actually, Firt perl program(parent)  is not to wait for the another perl
program(child) completes.
  Parent process keeps on running 24 hours. So, Child process getting
accumulated in the process table.
  If we harvesting the dead children by the method of Reaping dead
children, We would be getting the
  result as mentioned above. It is similar to the usage of wait at the
parent process. Is it comfortable
  to use the reaping dead children. Kindly advice me on this and revert
back for any clarifications.


Proc::Background allows you to create and manage multiple background
processes concurrently.
If you do not need to manage multiple background processes concurrently,
use system().
If you only need to manage multiple background processes concurrently on
Windows and want
to learn more about the Win32 API use Win32::CreateProcess.  If you need
your code to run
on both Unix and Win32 systems, use Proc::Background.  If you do not want
to learn about
the Win32 API, or want a simpler API than Win32::CreateProcess, use
Proc::Background.

  regards
  Srinivas
 

hope that helps,
rgr


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

This e-mail and any files transmitted with it are for the sole use of the
intended