in reply to Re: one liner in script
in thread one liner in script

Actually I have a much larger perl script where I run a bunch of commands from the command line in between back tacs like 
$line=`cmd 1; cmd 2 ; cmd 3 .... cmd n `;

[download]
Now for one of the commands I have to run it for only 4 secs. Now the only way I could come up with is like this : alarm() { /bin/perl -e 'alarm shift; exec @ARGV' "$@"; } ;alarm 4 'cmd 4 ' Now when I try to put that in a perl script between back tacs it doesnt work. This code doesnt work. 
$line=`cmd 1; cmd 2 ; cmd 3 ;alarm() { /bin/perl -e 'alarm shift; exec
+ @ARGV' "$@"; } ;alarm 4 'cmd 4 '.... cmd n `;

[download]
Is there anyway I can make the cmd 4 run for 4 secs only.

Replies are listed 'Best First'.
Re^3: one liner in script
by choroba (Cardinal) on Apr 12, 2010 at 15:41 UTC
    This code works for me: 
    $line=`
  cmd 1
  cmd 2
  cmd 3
  alarm () {
    /usr/bin/perl -e '
      alarm shift;
      exec \@ARGV;' -- "\$@"
  }
  alarm 4 cmd 4
  cmd n `;

print "$line";

    [download]
    The differences are:
    1. path to perl (might be different on your system)
    2. escaping the @ sign
    3. escaping the $ sign
    4. Update: the -- separator
[reply]
[d/l]
      Ahh xlente... Thank you for helping me . I will put this in the script and check . It should work now.
[reply]

In Section Seekers of Perl Wisdom