How can I run and end the script() linux command from Perl?

Question

#!/usr/bin/perl
$sim = "multiq";
`make SCHED=$sim`;
`script > scripter`;
`echo hi`;
print pack("c", 04);
~

This script hangs when script is called. Not sure how to get the perl script to keep running.

print pack("c",04) ? Is that how you are trying to send ^D to the script? — mob
– mob, Commented Feb 12, 2010 at 19:56

Greg Bacon · Accepted Answer · 2010-02-12 19:45:05Z

5

Note that backticks (‘‘) run a command and return its output. If you're going to ignore the output, use system as in

system("make SCHED=$sim") == 0 or die "$0: make exited " . ($? >> 8)

If you want to fire-and-forget a program (that is, start it in the background without worrying about when it completes), you can use

system("script >scripter &");

edited Feb 12, 2010 at 19:45

answered Feb 12, 2010 at 19:39

Greg Bacon

141k34 gold badges196 silver badges253 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

brian d foy · Accepted Answer · 2010-02-12 21:01:02Z

1

You're have to run that all in one child process if you want it to all interact. See the perlipc for various ways to handle that.

answered Feb 12, 2010 at 21:01

brian d foy

134k31 gold badges214 silver badges613 bronze badges

Comments

MkV · Accepted Answer · 2010-02-13 00:26:02Z

1

you might want to look at Expect to control an interactive session

answered Feb 13, 2010 at 0:26

MkV

3,09623 silver badges17 bronze badges

Comments

Aniket Thakur · Accepted Answer · 2013-05-30 10:29:31Z

0

backticks (‘‘) run a command and return its output.So you can store and manipulate it further. If you want to ignore the output, use system(). Also if you want to run any process in background use & in the prefix of the process. For example you wish to start Gimp using your script simply say

system("gimp &");

answered May 30, 2013 at 10:29

Aniket Thakur

69.4k43 gold badges290 silver badges299 bronze badges

Collectives™ on Stack Overflow

How can I run and end the script() linux command from Perl?

4 Answers 4

Comments

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

Comments

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related