Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Run a shell command in a new terminal from a perl script?

by ironside (Acolyte)
on Jan 31, 2012 at 22:01 UTC ( #951081=perlquestion: print w/ replies, xml ) Need Help??
ironside has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I am trying to write a perl script that will run a command in a new terminal.

I found code to open a new terminal from my script but it will not run the command when it opens. Does anyone know how I can achieve this?

Thanks in advance.

Update

I would like this script to open a new Gnome window.

When I run the following command from the command line, it does what I am trying to achieve: gnome-terminal -x sh -c "ls|less"

Is there any way of getting this command to run from with in a perl script?

Comment on Run a shell command in a new terminal from a perl script?
Re: Run a shell command in a new terminal from a perl script?
by Eliya (Vicar) on Jan 31, 2012 at 23:34 UTC

    Which platform?  On Unix you can (for example) do something like this

    system q/xterm -e perl -le 'print "line $_" for 1..20; <>'/;

    which would print 20 ines in a new xterm, and wait for you to press enter to close the terminal again.  The -e option specifies the command to run in the xterm (some perl, here).  Virtually any other terminal has similar facilities.

    Is that what you are trying to do?

      I am running this script on Ubuntu

      The script I am writing pulls a few command line programs together. I want to be able to have one of the programs run in a new terminal while my main program continues to run in the first terminal.

        It can be done, but it's tricky. Here's a script that I wrote to test Module::Install and ExtUtils::MakeMaker.
        #!/usr/bin/perl -l use strict; use warnings; $|=1; open STDOUT, '>-'; system("xterm -e cpan -ft Module::Install &"); close STDOUT; use CPAN; CPAN::Shell->test("ExtUtils::MakeMaker");

        Update: The script requires a lot of RAM, so it may or may not work for you. Try some other commands until it works.

        Update: This will probably work better for you.
        #!/usr/bin/perl -l use strict; use warnings; $| =1; open STDOUT, '>-'; system("du /usr/lib/perl5 &"); close STDOUT; open STDOUT, '>-'; system("xterm -e du /usr/lib/perl5 &"); close STDOUT;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://951081]
Approved by planetscape
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2014-12-21 22:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (108 votes), past polls