Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    
    # revert to original color
    system("echo -e "\e[0m");
    
  2. or download this
    #!/usr/bin/perl
    
    ...
            printf("%25s => %s\n", fg($color_str, $color_str), $_);
        }
    }