Heim System-Tutorial Windows-Serie Umgang mit UTF8 mit Perl auf der Windows-Konsole

Umgang mit UTF8 mit Perl auf der Windows-Konsole

Jan 12, 2024 am 09:42 AM

Umgang mit UTF8 mit Perl auf der Windows-Konsole

Wie man mit UTF8 mit Perl auf der Windows-Konsole umgeht

Die Konsole ist für die Verwendung von UTF8 ausgelegt und die angezeigten Schriftarten sind ebenfalls hässlich. Was sollen wir tun, wenn das Perl-Programm und die von Perl zu lesenden Dateien UTF8-Codierung verwenden? Schauen wir uns zunächst den folgenden Ablauf an:

#!/usr/bin/perl

Verwenden Sie die Kodierung 'utf8', STDIN=>'gb2312', STDOUT=>'gb2312';

open(FILE,"c:\test1.txt");

binmode(DATEI,":encoding(utf8)");

@lines=;

close(DATEI);

for($i=0; $i

$lines[$i] drucken;

Drucken "n";

}

$str="Hallo";

print $str;

Dieses Programm verwendet Perl, um eine Textdatei test1.txt zu lesen und sie dann auf der Konsole anzuzeigen. Der Schlüssel ist:

1. Verwenden Sie die Kodierung 'utf8', STDIN=>'gb2312', STDOUT=>'gb2312';

Kodierung „utf8“ verwenden: Geben Sie das Kodierungsformat der Skriptdatei als utf8;

an

STDIN=>'gb2312', STDOUT=>'gb2312': Eingabe und Ausgabe verwenden den Zeichensatz GB2312.

Auf diese Weise können die chinesischen Zeichen im Perl-Skript ausgegeben werden.

2:binmode(FILE,":encoding(utf8)");

Geben Sie das Kodierungsformat der geöffneten Datei FILE als utf8 an, damit die Daten korrekt in @lines eingelesen werden können.

Dadurch kann Perl UTF8-Zeichen auf der Windows-Konsole verarbeiten.

So liest man die letzte Textzeile mit einer nicht leeren Zeichenfolge in Perl

Die drei Methoden sind wie folgt:

#!/bin/perl -w

streng verwenden;

my $str = "abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopa hkl;fjh#dsjfklpafj";

########### Methode 1

mein $pos = -1;

meine $num = 0;

while (($pos = index($str, "#", $pos)) >-1) {

print "gefunden bei $posn";

$pos++;

$num++;

}

print "Gefunden $num!n";

############################################ ###########

#Methode 2

my $count = 0;

while( $str =~ /#/g )

{

$count++;

}

print $count,"n";

#######################################

# Methode 3

mein $cc = 0;

mein $tmp = 0;

if( $tmp = () = ($str =~ /#/g ) )

{

$cc += $tmp;

}

drucken "$ccn";

Verwenden Sie die Perl-Sprache: Schreiben Sie ein Programm, um eine Wortfolge einzulesen und jedes Wort in einer Zeile auszugeben

#/usr/bin/perl

open (IN, 'D:\words.txt ') ||. die $!;

@words=();

in der Nähe;

open (OUT,'>','D:\wordlist.txt')oder sterben $!;

foreach $line(@words){

$line=~s/n//g;

@words=split /s+/,$line;

foreach $word(@words){

$word=~s/W+//;

$freq {$word}++;

print OUT $word ."=>" $freq{$word}."n";

}

}

schließen AUS;

Sie können dieses Programm ausprobieren. Die Datei kann den Originaltext direkt lesen, ohne ein Wort pro Zeile schreiben zu müssen! Bei Fragen kontaktieren Sie uns bitte!

Lernen Sie eine Perl-Programmfrage: Lesen Sie den Inhalt aus der Datei und der Inhalt ist ein Text in einer Zeile

#!/usr/bin/perl -w

streng verwenden;

die "perl $0 " es sei denn(@ARGV==1);

öffnen (IN,$ARGV[0]) oder sterben "Datei $ARGV[0]!n";

kann nicht geöffnet werden

open (OUT,">data2") or die "Datei data2n kann nicht erstellt werden;

while(){

chomp;

mein @tmp=split /t/,$_;

for(my $tmpc=1;$tmpcif($tmp[$tmpc-1] eq $tmp[$tmpc]){

ausdrucken "$tmp[$tmpc-1]@2t@@@";

$tmpc++;

nächster;

}

print OUT „t$tmp[$tmpc-1]“;

}

ausdrucken"n";

}

Das obige ist der detaillierte Inhalt vonUmgang mit UTF8 mit Perl auf der Windows-Konsole. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!

Erklärung dieser Website
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn

Heiße KI -Werkzeuge

Undresser.AI Undress

Undresser.AI Undress

KI-gestützte App zum Erstellen realistischer Aktfotos

AI Clothes Remover

AI Clothes Remover

Online-KI-Tool zum Entfernen von Kleidung aus Fotos.

Undress AI Tool

Undress AI Tool

Ausziehbilder kostenlos

Clothoff.io

Clothoff.io

KI-Kleiderentferner

Video Face Swap

Video Face Swap

Tauschen Sie Gesichter in jedem Video mühelos mit unserem völlig kostenlosen KI-Gesichtstausch-Tool aus!

Heiße Werkzeuge

Notepad++7.3.1

Notepad++7.3.1

Einfach zu bedienender und kostenloser Code-Editor

SublimeText3 chinesische Version

SublimeText3 chinesische Version

Chinesische Version, sehr einfach zu bedienen

Senden Sie Studio 13.0.1

Senden Sie Studio 13.0.1

Leistungsstarke integrierte PHP-Entwicklungsumgebung

Dreamweaver CS6

Dreamweaver CS6

Visuelle Webentwicklungstools

SublimeText3 Mac-Version

SublimeText3 Mac-Version

Codebearbeitungssoftware auf Gottesniveau (SublimeText3)

Reactos, die Open-Source-Fenster, haben gerade ein Update erhalten Reactos, die Open-Source-Fenster, haben gerade ein Update erhalten Mar 25, 2025 am 03:02 AM

ReactOS 0.4.15 umfasst neue Speichertreiber, die bei der Gesamtstabilität und der UDB -Antriebskompatibilität sowie bei neuen Treibern für die Vernetzung helfen sollten. Es gibt auch viele Updates für Schriftarten, die Desktop -Shell, Windows -APIs, Themen und Datei

Die neue PowerToys -Suche von Microsoft ist die fehlende Funktion, die Windows 11 benötigt Die neue PowerToys -Suche von Microsoft ist die fehlende Funktion, die Windows 11 benötigt Apr 03, 2025 am 03:53 AM

Das neueste PowerToys-Update von Microsoft führt eine bahnbrechende Suchfunktion vor, die an das Spotlight von MacOS erinnert. Diese verbesserte "Befehlspalette" (ehemals Powertoys -Lauf) übertrifft die Funktionalität des Windows R -Befehls und der Aufgabe

Neu zu Multimonitoren? Machen Sie diese Fehler nicht Neu zu Multimonitoren? Machen Sie diese Fehler nicht Mar 25, 2025 am 03:12 AM

Multi-Monitor-Setups steigern Ihre Produktivität und bieten ein eindringlicheres Erlebnis. Für einen Anfänger kann es jedoch leicht sind, beim Zusammenstellen des Setups zu stolpern und Fehler zu machen. Hier sind einige der häufigsten und wie man sie vermeidet.

So deaktivieren Sie Windows 11 Round Ecken: 4 Easy Methoden! So deaktivieren Sie Windows 11 Round Ecken: 4 Easy Methoden! Mar 27, 2025 pm 03:27 PM

Diese Anleitung enthält vier Methoden, um die abgerundeten Ecken in Windows 11 zu entfernen und den klassischen, quadratischen Look wiederherzustellen. Während die abgerundeten Ecken eine moderne Ästhetik bieten, bevorzugen einige Benutzer den schärferen Look aus Gründen, einschließlich verbesserter Screenshot a

Windows KB5054979 Aktualisieren Sie Informationen Aktualisieren Sie die Inhaltsliste für Aktualisierung Windows KB5054979 Aktualisieren Sie Informationen Aktualisieren Sie die Inhaltsliste für Aktualisierung Apr 15, 2025 pm 05:36 PM

KB5054979 ist ein kumulatives Sicherheitsupdate, das am 27. März 2025 für Windows 11 Version 24H2 veröffentlicht wurde. Es zielt auf .NET Framework -Versionen 3.5 und 4.8.1 ab, was die Sicherheit und die Gesamtstabilität verbessert. Insbesondere befasst sich das Update auf ein Problem mit Datei und direkt

Dies sind meine kostenlosen Alternativen für bezahlte Windows-Apps Dies sind meine kostenlosen Alternativen für bezahlte Windows-Apps Apr 04, 2025 am 03:42 AM

Viele kostenlose Apps mit ihren kostenpflichtigen Kollegen in der Funktionalität mithalten. Diese Liste zeigt hervorragende kostenlose Windows -Alternativen zu beliebter bezahlter Software. Ich glaube fest daran, kostenlose Software zu verwenden, es sei denn, eine bezahlte Option bietet eine entscheidende, fehlende Funktion. Diese

Warum haben einige Tastaturen gewickelte Kabel? Warum haben einige Tastaturen gewickelte Kabel? Mar 27, 2025 pm 09:01 PM

Für mechanische Keyboard -Enthusiasten sind diese faszinierenden gewickelten Kabel ein häufiger Anblick. Aber warum die Spule? Lassen Sie uns mit den Gründen befassen. Gewickte Kabel: in erster Linie Ästhetik Das Hauptbild von gewickelten Kabeln ist ihre visuelle Anziehungskraft. Sie verbessern den Look

Das Pixel 9A und Ihr nicht privates Smart Home: Weekly Roundup Das Pixel 9A und Ihr nicht privates Smart Home: Weekly Roundup Mar 25, 2025 am 03:09 AM

Smart Home Privacy hat einen Schlag, als Amazon Alexa Local Processing Alexa -Geräte nach dem 28. März keine "Senden Sie keine Sprachaufnahmen ab" an. Zukünftige Alexa -Aufnahmen müssen in die Amazon -Cloud gesendet werden, obwohl Sie können

See all articles