Comment puis-je sortie de la couleur du texte à partir d'un script Perl sur Windows?

Je voudrais le format de la couleur du texte imprimé à la console en utilisant le Perl de la commande d'impression.

Dans mon cas, le script ne fonctionnera que sous WinXP-DOS en Ligne de Commande, mais ce serait génial si c'était indépendant du système d'exploitation bien que je préfère l'attacher à WinXP que d'avoir à télécharger un autre package.

OriginalL'auteur Jesse Vogt | 2009-07-06

  1. 13

    Pour tout terminal qui prend en charge ANSI codes d'échappement vous pouvez utiliser le Durée::ANSIColor paquet disponible sur le CPAN.

    À partir de la page Wikipédia:

    De la Console de windows dans les versions de Windows
    basé sur NT (Windows NT 4.0, Windows
    2000, Windows XP, Windows Server 2003,
    Windows Vista et Windows Server 2008)
    ne supporte pas l'Échappement ANSI
    les séquences, même si certains d'appui est
    possible.

    Ne sais plus spécifiques à Windows d'informations que ça, je suis une POSIX gars. 🙂

    Voir aussi search.cpan.org/~jlmorel/Win32-Console-ANSI-1.04/lib/Win32/...
    J'ai foiré autour avec seulement l'aide du Terme::ANSIColor mais c'était l'impression que les séquences d'échappement...pas d'afficher les couleurs. J'ai téléchargé et construit le package proposé par Hasturkun (search.cpan.org/~jlmorel/Win32-Console-ANSI-1.04) et tout a commencé à travailler. Merci!

    OriginalL'auteur cdleary

  2. 15

    Win32::Console - voici un exemple

    use Win32::Console;
my $CONSOLE = Win32::Console->new(STD_OUTPUT_HANDLE);
my $attr = $CONSOLE->Attr(); # Get current console colors
$CONSOLE->Attr($FG_YELLOW | $BG_GREEN); # Yellow text on green

print "This is a test\n";

$CONSOLE->Attr($attr); # Set console colors back to original

    OriginalL'auteur mphuie

  3. 7

    Ici est ce qui fonctionne le mieux pour moi, après tout:

    1) Installé Win32::Console::ANSI (notez que ce n'est pas le même que Win32::Console)

    perl -MCPAN -e shell
cpan> install Win32::Console::ANSI

    2) Si ce module est chargé avant le Terme::ANSIColor, vous pouvez utiliser la norme Terme::ANSIColor API et cela fonctionne (je l'ai essayé avec Windows 7).

    use Win32::Console::ANSI;
use Term::ANSIColor;

print color("blue"), "blue\n", color("reset");
print "normal\n";

    OriginalL'auteur lbalazscs

  4. 1
    system("color A"); #DOS command, change text color to lime

system("color 7"); #DOS command, change text color to white

    Toutefois, ces commandes de changer la couleur du texte sur la totalité de l'écran. Type de couleur"? " dans la fenêtre DOS, pour voir les options de couleur

    Je suis en utilisant strawberry perl sur Windows et je n'ai pas eu Win32::package Console. Pour installer ce paquet, tapez dans la console:

    perl -MCPAN -e shell

    installer Win32::Console

    sortie

    OriginalL'auteur user383078