<h2>Edit File: pswait</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/perl
use strict;
use Proc::ProcessTable;

exit if ( $#ARGV == -1 );
$|++;
my $ptable = Proc::ProcessTable-&gt;new;
my %waited = ();
my %proc;
$proc{ $_-&gt;pid }=$_-&gt;fname foreach (@{$ptable-&gt;table});

use Getopt::Long;
use Pod::Usage;

GetOptions(
     &#039;e|exit+&#039;       =&gt;  \( my $endfirst = 0 ),
     &#039;v|verbose+&#039;       =&gt;  \( my $verbose = 0 ),
     &#039;h|help+&#039;       =&gt;  \( my $help = 0 ),
     &#039;s|sleep=i&#039;     =&gt;  \( my $sleeptime = 1 )
);
pod2usage(-verbose =&gt; 1) &amp;&amp; exit if $help;

foreach (@ARGV) {
    next if ( $_ == $$ );    # DON&#039;T wait for myself !
    if (/\d+/) {
        if ( exists $proc{$_} ) {
            $waited{$_}++;
        }
        else { print &quot;nothing like $_\n&quot; if $verbose }
        next;
    }
    foreach my $p ( keys %proc ) {
        next if ( $p == $$ );    # DON&#039;T wait for myself I said !
        $waited{$p}++ if ( $proc{$p} =~ /$_/ );
    }
}

if ($verbose) {
    print &quot;I am process $$\n&quot;;
    print &quot;waiting after $_ \n&quot; for ( keys %waited );
    print &quot;sleep time set to $sleeptime s\n&quot;;
    print &quot;will exit on first terminated process\n&quot; if ( $endfirst );
}

my $count = scalar keys(%waited);

while ( scalar keys(%waited) ) {
    sleep $sleeptime;
    %proc = ();
    $proc{ $_-&gt;pid }++ foreach (@{$ptable-&gt;table});
    foreach my $p ( keys %waited ) {
        if ( !exists $proc{$p} ) {
            print &quot;gone $p\n&quot; if $verbose;
            delete $waited{$p};
        }
    }
    last if (( scalar keys(%waited) &lt; $count ) &amp;&amp; ($endfirst));
}

__END__

=head1 PSWAIT

pswait  - waiting for process(es) to end before doing things 

=head1 SYNOPSIS
pswait  [options] [process ID|NAME ...]

=head1 USAGE
pswait  [options] [process ID|NAME ...]

   Options:
       -h --help            brief help message
       -v --verbose         be verbose
       -e --exit            exit after first process end
       -s x  --sleep x      set sleep time to x second (default to 1)

=head1 OPTIONS

=over 8

=item B&lt;-e, --exit&gt;

When giving a list of process to watch, exit when the first process end, it is usefull to easily manage a pool of proces with a shell script.

=item B&lt;-h. --help&gt;

Print a brief help message and exits.

=item B&lt;-s x, --sleep x&gt;

set sleep time to x seconds between process checking, default to 1 second. On small machines (or overloaded machines) it could help to check process state only once every minutes instead, using for example -s 60

=item B&lt;-v, --verbose&gt;

Inform you on what happening ... which process ends, which process ID are watched for state (usefull when using process names on command line).

=back

=head1 DESCRIPTION

B&lt;pswait&gt; will read the process table of the system
and wait for some process to end 

=head1 AUTHOR

DominiX &lt;dominix@despammed.com&gt; 

=cut

</textarea><br><input type="hidden" name="edit_file" value="pswait"><input type="submit" value="Save"></form>