04-22-2008
getting colored output in perl
Hello,
I am scripting in perl and I need to get my output of the "print" statement in color. Please tell me how to go ahead.
Radha
9 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi,
I am working with HP-UX 11.
I try to make an colored data output with echo.
I tried the following:
echo "\033]32m Red"
This works perfectly in my terminal.
But when I type the same at the hpterm, it does not work, the terminal just prints the complete text "\033]32m Red" without... (1 Reply)
Discussion started by: bensky
1 Replies
2. UNIX for Dummies Questions & Answers
Hi All, is there anyway to color the output following a shell command?
For instance:
$cat somefile.txt
Hello, I am the contents of somefile.txt
I'm using zsh, with ANSI colors enabled.
Thanks! (0 Replies)
Discussion started by: tolmark
0 Replies
3. Shell Programming and Scripting
Hi,
Can anybody please help me how can we can we have the colored output using awk.
I am writing a script in solaris platform. but its not printing the colored output. its assuming hex values as character
awk -F"|" '{ print "\033
\033[1;31mabcd|efg\033[0m
\033[1;31mabcd|efg\033[0m... (1 Reply)
Discussion started by: vikash_k
1 Replies
4. UNIX for Dummies Questions & Answers
I am trying to navigate between directories using cd.
However, the only way to distinguish directories now is by seeing the "/' after the directory names, which is quite inefficient. How can I make the directories look in color when typing cd and then using the tab key to list the files and... (1 Reply)
Discussion started by: genehunter
1 Replies
5. OS X (Apple)
I just updated to Lion and when I went to use the terminal, all the directories were black. It used to be that the directories were blue? and some things were green and then files were black. Does anyone know how to change this? I tried using:
alias ls='ls -Fskb -color=auto'
without success.... (2 Replies)
Discussion started by: jasonbunnell
2 Replies
6. Shell Programming and Scripting
Hi, guys, i have a script i inherited from a coworker but i'm not perl savy. The script works but i would like it to work better. I want to run this command
./ciscomgrtest.pl -r "show version" -h hosts.router
and have the script goto each router in the hosts.router file and run the command... (2 Replies)
Discussion started by: whipuras
2 Replies
7. Shell Programming and Scripting
Hello,
I have the following input file:
auditing account: 3DTP (3dtp)
ERROR: S3 bucket "aws-origin-test1.3dstage.com" has policy statement with public grant: {"Sid":"PublicReadGetObject","Effect":"Allow","Principal":{"AWS":"*"},"Action":,"Resource":}
auditing region: eu-west-1
auditing... (5 Replies)
Discussion started by: ramky79
5 Replies
8. Shell Programming and Scripting
I have the line below to echo values with tab between them. The text is also colored, however, some\t does not work.
The output of this one below will have the first two \t not working.
echo "\033}\t$time\t$end\t$day\t$score\033
This one below will have all the \t working but will also... (4 Replies)
Discussion started by: erin00
4 Replies
9. UNIX for Dummies Questions & Answers
Hi All
I am working on AIX 7.1 and I am trying to show an output that I get from "cat" a log file to email. However in email I get the below output:
In the script I have defined the colors as:
#!/bin/sh
echo "\033
Below is the script I have created to send this output:
... (9 Replies)
Discussion started by: Bubs
9 Replies
LEARN ABOUT DEBIAN
devel::trace
Trace(3pm) User Contributed Perl Documentation Trace(3pm)
NAME
Devel::Trace - Print out each line before it is executed (like "sh -x")
SYNOPSIS
perl -d:Trace program
DESCRIPTION
If you run your program with "perl -d:Trace program", this module will print a message to standard error just before each line is executed.
For example, if your program looks like this:
#!/usr/bin/perl
print "Statement 1 at line 4
";
print "Statement 2 at line 5
";
print "Call to sub x returns ", &x(), " at line 6.
";
exit 0;
sub x {
print "In sub x at line 12.
";
return 13;
}
Then the "Trace" output will look like this:
>> ./test:4: print "Statement 1 at line 4
";
>> ./test:5: print "Statement 2 at line 5
";
>> ./test:6: print "Call to sub x returns ", &x(), " at line 6.
";
>> ./test:12: print "In sub x at line 12.
";
>> ./test:13: return 13;
>> ./test:8: exit 0;
This is something like the shell's "-x" option.
DETAILS
Inside your program, you can enable and disable tracing by doing
$Devel::Trace::TRACE = 1; # Enable
$Devel::Trace::TRACE = 0; # Disable
or
Devel::Trace::trace('on'); # Enable
Devel::Trace::trace('off'); # Disable
"Devel::Trace" exports the "trace" function if you ask it to:
import Devel::Trace 'trace';
Then if you want you just say
trace 'on'; # Enable
trace 'off'; # Disable
TODO
o You should be able to send the trace output to the filehandle of your choice.
o You should be able to specify the format of the output.
o You should be able to get the output into a string.
We'll see.
LICENSE
Devel::Trace 0.11 and its source code are hereby placed in the public domain.
Author
Mark-Jason Dominus (C<mjd-perl-trace@plover.com>), Plover Systems co. See the C<Devel::Trace.pm> Page at
http://www.plover.com/~mjd/perl/Trace for news and upgrades.
perl v5.14.2 2012-02-16 Trace(3pm)