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;
anSTDIN=>'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 werdenopen (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!

Heiße KI -Werkzeuge

Undresser.AI Undress
KI-gestützte App zum Erstellen realistischer Aktfotos

AI Clothes Remover
Online-KI-Tool zum Entfernen von Kleidung aus Fotos.

Undress AI Tool
Ausziehbilder kostenlos

Clothoff.io
KI-Kleiderentferner

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

Heißer Artikel

Heiße Werkzeuge

Notepad++7.3.1
Einfach zu bedienender und kostenloser Code-Editor

SublimeText3 chinesische Version
Chinesische Version, sehr einfach zu bedienen

Senden Sie Studio 13.0.1
Leistungsstarke integrierte PHP-Entwicklungsumgebung

Dreamweaver CS6
Visuelle Webentwicklungstools

SublimeText3 Mac-Version
Codebearbeitungssoftware auf Gottesniveau (SublimeText3)

Heiße Themen

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

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

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.

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

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

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

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

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
