perl - understand process status and continue the code execution Post: 302155246

Sponsored Content

Top Forums Shell Programming and Scripting perl - understand process status and continue the code execution Post 302155246 by sysgate on Thursday 3rd of January 2008 09:11:36 AM

01-03-2008

Registered User

perl - understand process status and continue the code execution

Hello, I need advice on how to check if started processes are finished in perl, here's explanation :
OS is RHEL 4, perl -v = "This is perl, v5.8.0 built for i386-linux-thread-multi"

The logic of the script :

Code:

#!/usr/bin/perl

use warnings;
$param1 = $ARGV[0];
$param2 = $ARGV[1];
$param3 = $ARGV[2];

sub Help
{ help message goes here }
# some other subroutines follow

# main 
if (@ARGV < 3) {
        &Help; exit 1;
}
&cleanUp(); # pre-defined sub is being invoked here, stuff like $| = 1;
if ( $vars eq 'something' ) {
        &call_some_sub;
        } else {
        &call_another_sub;
}

Pretty simple, given that I'm not so good at perl, I wrote that for test.
So, what I'm basically doing is starting file transfers via ssh or other protocol with custom binary, and I need to check somehow that the transfers are done and then continue with other code executiom, in my case that will be another subroutine call, doing some static stuff. Quering the OS with "system ("pgrep pattern") every 1 second doesn't seem good, so I'm thinking of using fork() in order to trap the transfers' end. If that's the right way, I guess it should look like :

Code:

&start_transfers;
# somehow understand that they are done
&static_stuff_sub;

I've read the documentation for fork(); but I'm not sure if that's the right way. I guess my issue is that the file size vary from 10kb to 10Gb sometimes and I can't predict time to wait (using sleep for example). I'll appreciate any pointers.

sysgate

View Public Profile for sysgate

Find all posts by sysgate

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Status code of last command execution

Hello people, I am using KSH and inside my script I do a cksum and check the status code to see whether the command sucessfully. Here even though the cksum fails due to file not existing the status returned is still 0 because the awk command worked fine. How do I capture just the status of the...

2. UNIX for Dummies Questions & Answers

Process launched by user who logs out, continue running ?

Lets say a user starts a process (either a shell script or a Perl script) and before that process finishes, he logs out (either intentionaly or network problems or ...), does the process continu running ? Default shell is Korn. This is because at my job (being trained), there are tasks to run...

3. Shell Programming and Scripting

continue line in perl script

HI , I am new to the perl , I am using a if condition and in that if condition i am checking 7 variables value. so it continue to second line .And if i user "\" for the continue line it showing error. Example : if(a >9 || b>8 || c> 10 \ d > 11) { print(); } The above statement is...

4. UNIX for Dummies Questions & Answers

UNIX command to skip any warning messages and continue job execution

Hello All, Good day! This is my first UNIX post. :D Anyways, I would like to seek help from you guys if you know of any UNIX command that will skip a warning message once it is encountered but continue to run the execution. Ok here's the situation in general: An encypted file is sent to...

5. Programming

perl: code execution via specially crafted regular expression. It it possible ?

Hello, I'm writing script to parse configuration files in perl. I would like to enable regular expressions as part of configuration file. I.e I would like to enable the users to select files that will be proceeded by the script using regex. I was wondering, is it possible for the user to execute...

6. Shell Programming and Scripting

how to continue shell script execution process without control going to pompt?

Hi Friends, Iam invoking another shell script to create B2k_session_id from my shell script.It is properly creating B2k_session_id and after creation control is coming out from the script and going to command prompt.The lines which are after the exectrusteduser.com sh.com are not executing..may...

7. Shell Programming and Scripting

Continue Execution Based On List

Hi all. I have a script like this function check_filesize { filesize_1="$(ls -la "$1"|awk '{ print $5 }')" sleep 123 filesize_2="$(ls -la "$1"|awk '{ print $5 }')" if then echo "OK" else echo "NOT OK" sleep 1234 check_filesize $1 fi } function check_TR { chk="$(tail -1 $1|grep...

8. Programming

Help needed to Spawn Shell on Python and Continue Execution

def gob(url): print "\n\t Running gobuster on target." params = " -e -s '307,200,204,301,302' -t 20 -u " + url + " >> /tmp/%s/gobuster.txt" % (ip) os.system("xterm -e bash -c "tail -f /tmp/%/gobuster.txt"") for i in bflist: dirbf = "gobuster -w " + i...

9. UNIX for Beginners Questions & Answers

Xargs -P command execution status

Hi, I am working on a file copier utility where I have written the copy commands to a batch file e.g. file_copier.bat which i pass to xargs command as follows. cat file_copier.bat | xargs -n 1 -P 40 I also want to record the copy command status of each file/command in the form "command...

10. Solaris

EFI disk labeling / understand the parition table / sectors not continue

Hi all, I have a EFI disk and it is use in zfs pool. partition> p Volume: rpool Current partition table (original): Total disk sectors available: 1172107117 + 16384 (reserved sectors) Part Tag Flag First Sector Size Last Sector 0 usr wm ...

LEARN ABOUT OSX

extutils::command::mm

ExtUtils::Command::MM(3pm)				 Perl Programmers Reference Guide				ExtUtils::Command::MM(3pm)

NAME

       ExtUtils::Command::MM - Commands for the MM's to use in Makefiles

SYNOPSIS

	 perl "-MExtUtils::Command::MM" -e "function" "--" arguments...

DESCRIPTION

       FOR INTERNAL USE ONLY!  The interface is not stable.

       ExtUtils::Command::MM encapsulates code which would otherwise have to be done with large "one" liners.

       Any $(FOO) used in the examples are make variables, not Perl.

       test_harness
	     test_harness($verbose, @test_libs);

	   Runs the tests on @ARGV via Test::Harness passing through the $verbose flag.  Any @test_libs will be unshifted onto the test's @INC.

	   @test_libs are run in alphabetical order.

       pod2man
	     pod2man( '--option=value',
		      $podfile1 => $manpage1,
		      $podfile2 => $manpage2,
		      ...
		    );

	     # or args on @ARGV

	   pod2man() is a function performing most of the duties of the pod2man program.  Its arguments are exactly the same as pod2man as of
	   5.8.0 with the addition of:

	       --perm_rw   octal permission to set the resulting manpage to

	   And the removal of:

	       --verbose/-v
	       --help/-h

	   If no arguments are given to pod2man it will read from @ARGV.

	   If Pod::Man is unavailable, this function will warn and return undef.

       warn_if_old_packlist
	     perl "-MExtUtils::Command::MM" -e warn_if_old_packlist <somefile>

	   Displays a warning that an old packlist file was found.  Reads the filename from @ARGV.

       perllocal_install
	       perl "-MExtUtils::Command::MM" -e perllocal_install
		   <type> <module name> <key> <value> ...

	       # VMS only, key|value pairs come on STDIN
	       perl "-MExtUtils::Command::MM" -e perllocal_install
		   <type> <module name> < <key>|<value> ...

	   Prints a fragment of POD suitable for appending to perllocal.pod.  Arguments are read from @ARGV.

	   'type' is the type of what you're installing.  Usually 'Module'.

	   'module name' is simply the name of your module.  (Foo::Bar)

	   Key/value pairs are extra information about the module.  Fields include:

	       installed into	   which directory your module was out into
	       LINKTYPE 	   dynamic or static linking
	       VERSION		   module version number
	       EXE_FILES	   any executables installed in a space seperated
				   list

       uninstall
	       perl "-MExtUtils::Command::MM" -e uninstall <packlist>

	   A wrapper around ExtUtils::Install::uninstall().  Warns that uninstallation is deprecated and doesn't actually perform the
	   uninstallation.

perl v5.16.2							    2012-10-11						ExtUtils::Command::MM(3pm)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Status code of last command execution

Discussion started by: tipsy

2. UNIX for Dummies Questions & Answers

Process launched by user who logs out, continue running ?

Discussion started by: Browser_ice

3. Shell Programming and Scripting

continue line in perl script

Discussion started by: julirani

4. UNIX for Dummies Questions & Answers

UNIX command to skip any warning messages and continue job execution

Discussion started by: jennah_rekka