Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Inifinite Loop on fork

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Inifinite Loop on fork
# 1  
Old 08-24-2010
Inifinite Loop on fork
I am trying to ping through a list of devices in parallel.
When the code below is executed, I enter a infinite loop.
I want to used the number of lines in the file as my boundry.

I am a perl rookie and just cant see whats wrong.
would appreciate help ...

Code:
use Net::Ping;
#
$filename = <@ARGV>;
open(CONT, $filename) or die "can't open $file: $!";
$bndry++ while <CONT>;
print $bndry;
close(CONT);
#
open(FILE, $filename) or die "can't open $file: $!";
while(<FILE>) {
 $ip = $_;
  chomp $ip;
  if (fork() == 0) {
$pingo = Net::Ping->new();
 if ($pingo->ping("$ip")) {print "Pinging $ip:\t Status:\tOk\n";}
 else {
     print ("Pinging $ip:\t Status:\tNot Ok\n");
 }
 $pingo->close();
    exit;
  }
  $children++;
 # if ($children >= $bndry) {
  if ($children >= 51) {
    wait();
    $children--;
  }
}
while ($children > 0) {
  wait();
  $children--;
}
exit 0;

Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Programming

Fork!

I understand that fork create a child but I need very simple example that make child useful.... I mean how will make the program faster anyone explain with code plz using C plz (2 Replies)
Discussion started by: fwrlfo
2 Replies

2. UNIX for Dummies Questions & Answers

fork()

I'm trying to run a simple test on how to use fork(), i'm able to execute the child process first then the parent, but how can I execute parent then child..? Thanks! (1 Reply)
Discussion started by: l flipboi l
1 Replies

3. Programming

C Socket Client/Server Fork Loop

Hello people. I'm trying to do something like a search engine. Server runs in the background by using ./server & which has data from a textfile stored in an array. Client then runs by using ./client It will then prompt "Search for:" For example, if I searched for Products called Instant... (0 Replies)
Discussion started by: andylbh
0 Replies

4. Programming

IPC-using fork() in a loop

I need to write a program which creates some n number of processes first and also creates a fifo for each of them, then it connects to the server and.. I tried creating these processes with fork() in a for loop but it doesn't print out what i write inside the child.. for(int count = 0; count... (7 Replies)
Discussion started by: saman_glorious
7 Replies

5. Programming

fork() help

Hi everybody, I wanna write a code to understand how fork works. my target -------------- -Parent creates a file(called temp) and writes into this file "1".Then it closes the file. -Then parent creates a child and wait until execution of this child ends. -Then child opens the same... (3 Replies)
Discussion started by: alexicopax
3 Replies

6. Programming

Fork ()

hi all About this code for (i = 1; i < n; i++) if ((childpid = fork()) <= 0) break; I really can't understand the output . and the way fork () return the value . how about the process Id ,the child process Id and the parent ID in this case so please answer me soon (5 Replies)
Discussion started by: iwbasts
5 Replies

7. Programming

fork() in for loop

hello, Every time i use fork() in the for loop, my college network(which i work in) either gets slow or hangs up.Can any 1 explain why it is so? Of course there is no use of doing it though. But still i want to clear my doubt. Thanks (2 Replies)
Discussion started by: cyno
2 Replies

8. Programming

fork() fd

I run this code, actually I want to both processes print the message from "data". But only one does. What happens? Anyone can help? #include <stdio.h> main(){ int fd, pid; char x; fd = open("data",0); /* open file "data" */ pid = fork(); if(pid != 0){ wait(0); ... (2 Replies)
Discussion started by: Herman
2 Replies

9. Shell Programming and Scripting

Endless loop - Fork function failed?

I need a quick script that will serve as a sort of "real time monitor" for watching some log files. I am using Bourne shell in HP-UX 10.20. I have basically created a script that never ends, unless of course I manually terminate it. Here's the script (it's called qhistory): clear echo "REAL... (3 Replies)
Discussion started by: cdunavent
3 Replies

10. UNIX for Dummies Questions & Answers

Fork

What is a fork? Why would one create a fork? What are the advantages and disadvantages of using a fork? Please advise. Thank You. Deepali (5 Replies)
Discussion started by: Deepali
5 Replies
Login or Register to Ask a Question

LEARN ABOUT DEBIAN

io::async::test

IO::Async::Test(3pm)					User Contributed Perl Documentation				      IO::Async::Test(3pm)

NAME

       "IO::Async::Test" - utility functions for use in test scripts

SYNOPSIS

	use Test::More tests => 1;
	use IO::Async::Test;

	use IO::Async::Loop;
	my $loop = IO::Async::Loop->new;
	testing_loop( $loop );

	my $result;

	$loop->do_something(
	   some => args,

	   on_done => sub {
	      $result = the_outcome;
	   }
	);

	wait_for { defined $result };

	is( $result, what_we_expected, 'The event happened' );

	...

	my $buffer = "";
	my $handle = IO::Handle-> ...

	wait_for_stream { length $buffer >= 10 } $handle => $buffer;

	is( substr( $buffer, 0, 10, "" ), "0123456789", 'Buffer was correct' );

DESCRIPTION

       This module provides utility functions that may be useful when writing test scripts for code which uses "IO::Async" (as well as being used
       in the "IO::Async" test scripts themselves).

       Test scripts are often synchronous by nature; they are a linear sequence of actions to perform, interspersed with assertions which check
       for given conditions. This goes against the very nature of "IO::Async" which, being an asynchronisation framework, does not provide a
       linear stepped way of working.

       In order to write a test, the "wait_for" function provides a way of synchronising the code, so that a given condition is known to hold,
       which would typically signify that some event has occured, the outcome of which can now be tested using the usual testing primitives.

       Because the primary purpose of "IO::Async" is to provide IO operations on filehandles, a great many tests will likely be based around
       connected pipes or socket handles. The "wait_for_stream" function provides a convenient way to wait for some content to be written through
       such a connected stream.

FUNCTIONS

   testing_loop( $loop )
       Set the "IO::Async::Loop" object which the "wait_for" function will loop on.

   wait_for( $condfunc )
       Repeatedly call the "loop_once" method on the underlying loop (given to the "testing_loop" function), until the given condition function
       callback returns true.

       To guard against stalled scripts, if the loop indicates a timeout for 10 consequentive seconds, then an error is thrown.

   wait_for_stream( $condfunc, $handle, $buffer )
       As "wait_for", but will also watch the given IO handle for readability, and whenever it is readable will read bytes in from it into the
       given buffer. The buffer is NOT initialised when the function is entered, in case data remains from a previous call.

       $buffer can also be a CODE reference, in which case it will be invoked being passed data read from the handle, whenever it is readable.

AUTHOR

       Paul Evans <leonerd@leonerd.org.uk>

perl v5.14.2							    2012-10-24						      IO::Async::Test(3pm)