|
Posted by madaan.hanish on June 17, 2008, 6:56 am
Please log in for more thread options
> This is an excerpt from the latest version perlfaq8.pod, which
> comes with the standard Perl distribution. These postings aim to
> reduce the number of repeated questions as well as allow the community
> to review and update the answers. The latest version of the complete
> perlfaq is athttp://faq.perl.org.
>
> --------------------------------------------------------------------
>
> 8.4: How do I print something out in color?
>
> In general, you don't, because you don't know whether the recipient has
> a color-aware display device. If you know that they have an ANSI
> terminal that understands color, you can use the Term::ANSIColor module
> from CPAN:
>
> use Term::ANSIColor;
> print color("red"), "Stop!\n", color("reset");
> print color("green"), "Go!\n", color("reset");
>
> Or like this:
>
> use Term::ANSIColor qw(:constants);
> print RED, "Stop!\n", RESET;
> print GREEN, "Go!\n", RESET;
>
> --------------------------------------------------------------------
>
> The perlfaq-workers, a group of volunteers, maintain the perlfaq. They
> are not necessarily experts in every domain where Perl might show up,
> so please include as much information as possible and relevant in any
> corrections. The perlfaq-workers also don't have access to every
> operating system or platform, so please include relevant details for
> corrections to examples that do not work on particular platforms.
> Working code is greatly appreciated.
>
> If you'd like to help maintain the perlfaq, see the details in
> perlfaq.pod.
very cool post thanx
| 
XML Sitemap