Automatische Erkennung der Codierung des Terminal Perl-Script.

Müde von der Hand Codierung, um die normale Ausgabe des russischen Text in Ihrem Perl-Skript ändern, abhängig von der Codierung des Terminal (Skripts ausführen unter Linux (utf8), Windows (ActivePerl, cp866) und Windows ( Cygwin , CP1251)). Ein bisschen gegoogelt, aber es gibt keine fertigen Rezepte nicht erfüllt sind, hat eine gute Abfrage, um etwas in meinem Kopf finden nicht kommen.

Ich entschied mich, dies zu tun -, um das Betriebssystem, die ein Skript läuft zu bestimmen, und abhängig von der Codierung der Display-Ausgabe (stdout):

 ! # / Usr / bin / perl; verwenden utf8; erfordern Kodierung; Import-Codierung ('utf8', 'stdout' => & setEncoding); sub SetEncoding {if ($ ^ O = ~ / ^ mswin \ d {2} $ / i) {return 'cp866';} elsif ($ ^ O = ~ / ^ cygwin $ / i) {return 'cp1251';} elsif (Voraussetzung für die folgenden Betriebssysteme (zum Beispiel - linux)) {return 'utf8';}. ..  und so weiter, auf Ihre persönlichen Bedürfnisse ....  } 

Kommentare, Korrekturen, Ergänzungen und / oder andere Wege zur Lösung des Problems durch die Installation einer automatischen Kodierung für Perl-Script sind immer willkommen!

Und für den Fall ich plötzlich nicht finden können, der Zeit, etwas anderes zu, bis das neue Jahr Blog zu schreiben - herzlichen Glückwunsch an alle unsere Leser ein frohes neues Jahr, viel Glück und ein wenig angenehmer Entdeckungen!

PS: Und für die interessiert an freiberuflich - ein neues, aber durchaus ein interessantes Leben FrilansFM - Portal für freiberufliche

Mehr zu ähnlichen Themen:

• Automatische Überprüfung von Pass-Bereitschaft
• Vergleich der Leistungsfähigkeit von Netzwerk-Bibliotheken in Perl
• Weich

Abgelegt unter: Coding , Aktuelles | Tags: Linux , Perl , Windows- , Kodierung , Programmierung , Tricks | Keine Kommentare