Advertisement
chotoipho

Perl: colored with print and printf

Dec 14th, 2012
241
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.06 KB | None | 0 0
  1. #!/usr/bin/perl -w
  2. use strict;
  3. use Term::ANSIColor;
  4.  
  5. print colored( sprintf("%s", '0123456789 - magenta'), 'magenta' ), "\n";
  6. print colored( sprintf("%s", '0123456789 - green'), 'green' ), "\n";
  7. print colored( sprintf("%s", '0123456789 - red'), 'red' ), "\n";
  8. print colored( sprintf("%s", '0123456789 - blue'), 'blue' ), "\n";
  9.  
  10. print "done.\n";
  11.  
  12. ----------------------------------
  13.  
  14. #!/usr/bin/perl -w
  15. use strict;
  16. use Term::ANSIColor;
  17.  
  18. printf colored( sprintf("%s\n", '0123456789 - magenta'), 'magenta' );
  19. printf colored( sprintf("%s\n", '0123456789 - green'), 'green' );
  20. printf colored( sprintf("%s\n", '0123456789 - red'), 'red' );
  21. printf colored( sprintf("%s\n", '0123456789 - blue'), 'blue' );
  22.  
  23. print "done.\n";
  24.  
  25.  
  26. OR...
  27.  
  28. #!/usr/bin/perl -w
  29. use strict;
  30. use Term::ANSIColor;
  31.  
  32. print colored( sprintf("%s\n", '0123456789 - magenta'), 'magenta' );
  33. print colored( sprintf("%s\n", '0123456789 - green'), 'green' );
  34. print colored( sprintf("%s\n", '0123456789 - red'), 'red' );
  35. print colored( sprintf("%s\n", '0123456789 - blue'), 'blue' );
  36.  
  37. print "done.\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement