使用Perl在Windows命令行界面处理UTF8的方法
如何在Windows控制台上利用Perl处理UTF8制定控制台使用UTF8，显示出来的字体也很难看，当Perl程序和Perl要读取的文件都使用UTF8编码时，怎么办呢？先看如下程序：#!/usr/bin/perluseencoding'utf8',STDIN=>'gb2312',STDOUT=>'gb2312';open(FILE,＂c:\\test1.txt＂);binmode(FILE,＂:encoding(utf8)＂);@lines=;close(FILE);for($i=0;$i'gb2312'
如何在Windows控制台上利用Perl处理UTF8
制定控制台使用UTF8，显示出来的字体也很难看，当Perl程序和Perl要读取的文件都使用UTF8编码时，怎么办呢？先看如下程序：
#!/usr/bin/perl
use encoding 'utf8', STDIN=>'gb2312', STDOUT=>'gb2312';
open(FILE,＂c:\\test1.txt＂);
binmode(FILE,＂:encoding(utf8)＂);
@lines=
close(FILE);
for($i=0; $i<@lines; $i++){
print $lines[$i];
print ＂\n＂;
}
$str=＂你好＂；
print $str;
该程序用Perl去读取一个文本文件test1.txt，然后显示到控制台上。关键在于：
1. use encoding 'utf8', STDIN=>'gb2312', STDOUT=>'gb2312';
use encoding 'utf8' ： 指定该脚本文件的编码格式为utf8;
STDIN=>'gb2312', STDOUT=>'gb2312'： 输入和输出采用GB2312字符集。
这样，Perl脚本中的的汉字即可被输出。
2:binmode(FILE,＂:encoding(utf8)＂);
指定打开的文件FILE的编码格式为utf8，这样就能正确的读入数据到@lines中了。
这样就实现了Perl在Windows控制台上处理UTF8字符了。
Perl如何读取文本的最后一行非空字符串
三个方法如下：
#!/bin/perl -w
use strict;
my $str = ＂abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopa hkl;fjh#dsjfklpafj＂;
########### 方法一
my $pos = -1;
my $num = 0;
while (($pos = index($str, ＂#＂, $pos)) >-1) {
print ＂found at $pos\n＂;
$pos++;
$num ++;
}
print ＂找到$num个！\n＂;
###############################################################
# 方法二
my $count = 0;
while( $str =~ /#/g )
{
$count ++;
}
print $count,＂\n＂;
##########################################
# 方法3
my $cc = 0;
my $tmp = 0;
if( $tmp = () = ($str =~ /#/g ) )
{
$cc += $tmp;
}
print ＂$cc\n＂;
用Perl语言：写一个程序读入一串单词一个单词一行输出每一
#/usr/bin/perl
open (IN, 'D:\\words.txt ') || die $!;
@words=();
close IN;
open (OUT,'>','D:\\wordlist.txt')or die $!;
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＂;
}
}
close OUT;
你试一下这个程序，文件可以不用每行一个单词，直接读取原文本就好！有问题再交流！
教一个perl程序题：从文件中读取内容内容就一排是一些文字
#!/usr/bin/perl -w
use strict;
die ＂perl $0 ＂ unless(@ARGV==1);
open (IN,$ARGV[0]) or die ＂Can't open file $ARGV[0]!\n＂;
open (OUT,＂>data2＂) or die ＂Can't create file data2\n＂;
while(){
chomp;
my @tmp=split /\t/,$_;
for(my $tmpc=1;$tmpcif($tmp[$tmpc-1] eq $tmp[$tmpc]){
print OUT ＂$tmp[$tmpc-1]\@2\t\@\@\@＂;
$tmpc++;
next;
}
print OUT ＂\t$tmp[$tmpc-1]＂;
}
print OUT ＂\n＂;
}
赤友清理大师是一款为 Mac 设计的智能清理优化工具，可精准扫描垃圾、大文件、重复文件等，释放磁盘空间。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
极度公式是一款跨平台专业LaTeX公式识别编辑软件，支持OCR公式识别和多平台编辑。和使用说明，避免使用，享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时，它能把识别后的处理步骤接得更顺，资料录入这类场景会省下不少时间。
一款文字处理软件，一种订阅式的跨平台办公软件，基于云平台提供多种服务，通过将 Excel 和 Outlook 等应用与 OneDrive 和 Microsoft Teams 等强大的云服务相结合，Office 365 可让任何人使用任何设备随时随地创建和共享内容。
Wise Folder Hider Pro 是一款专业级文件和文件夹隐藏加密软件，为私密数据添加多重保护。高频操作更强调就近处理，浏览、整理和跨目录移动文件时，来回切换和重复点击都会少很多。
CodeExpander 是一款快捷短语输入增强工具，通过键入缩写自动展开为自定义文段，提升工作效率。任务管理和过程控制会更完整，持续下载、批量同步或需要稳定传输流程的场景会更适合它。
Mountain Duck 是一款能将多个网盘挂载到本地的工具，像本地磁盘一样使用网盘。清理链路的完整性会更好一些，做应用卸载、残留处理和空间整理时，通常能少走很多手动排查步骤。
