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

Re^2: Send Bash Command

by bichonfrise74 (Vicar)
on Mar 03, 2010 at 19:03 UTC ( #826496=note: print w/ replies, xml ) Need Help??


in reply to Re: Send Bash Command
in thread Send Bash Command

Out of curiosity, I tried your script in Linux OS and it seems to work. But if you do a 'ls', the red prompt turns back to black. Anyway, I think it is a good attempt.


Comment on Re^2: Send Bash Command
Re^3: Send Bash Command
by Khen1950fx (Canon) on Mar 03, 2010 at 21:48 UTC
    That's interesting. If you do a 'man ls', the man page turns to black. But when you 'q', it goes back to red:). I think that "prompt" is basically good for the first command. Then you need to switch to something like 'system' as in this work-around:
    #!/usr/bin/perl use strict; use warnings; use ExtUtils::MakeMaker qw(prompt); prompt("export PS1=\e[0;31m\][\\u@\\H\\W\]\$\\e]m"); system("ls");
    However, I like the idea of using 'ls' to return to the former color. It's quicker than restarting the terminal:).

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (8)
As of 2014-08-22 11:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (156 votes), past polls