怎样查找中文文件方法

如题,想了很久毫无头绪,用正则不行

作者: pk984813 发布时间: 10-19

日文系统中检索路径分割符"\"时,日文汉字被匹配,如何解决?

$_='D:\txt\XYZ.txt';  #其中XYZ为日文汉字@parts=split/\\/;$fn=$parts[$#parts];print$fn;希望得到不含路径的文件名XYZ.txt。但是,某些日文汉字会匹配路径分割符"\"。可能会得到Z.txt。应该是双字节汉字的编码中含有了"\"的ASCII码吧。如何才能解决?

作者: shenyue_sam 发布时间: 10-18

PERL 的正则如何引用变量

有一个脚本a.pl内容#!/usr/bin/perl-wmy@value_line=(1,2);my@file=("1.txt","2.txt")my$y_avg=50;`perl-pi-le's/$_/$_"$y_avg"/if$.=="$value_line[0]"'$file[0]`请问执行的时候为何报Useofuninitializedv

作者: ztj2247 发布时间: 10-18

如何在PERL文件中执行PERL命令

如要执行以下这条命令perl-ne'print"test\n"if$.==3;print;'200800117_haha_abc_flow

作者: ztj2247 发布时间: 10-18

正则表达式怎样替换成tab键?

正则表达式,其他类型的格式,替换成tab键。      eg:      my$test="aaaaaaaa|ab";          $tes

作者: qingduo04 发布时间: 10-18

TIPS:IP(v4) Address convert to big integer

1.usingregexpmethod:QUOTE:my$ipaddr='117.136.5.88';my$cnt=3;my$intip  =0;for($ipaddr=~/(\d+)/g){  $intip+=$_<<8

作者: ulmer 发布时间: 10-18

为什么用这条指令并没有实际的修改文件?

perl-ne'print"test\n"if$.==3;print;'200800117_haha_abc_flow请问如何实际的修改文件200800117_haha_abc_flow

作者: ztj2247 发布时间: 10-18

hash 两个关键字问题

请大家帮帮忙  我想用hash统计数据,但关键字有两个,我想这样$hash->{$key1}->{$key2}=**;但是好像不行,请指教。

作者: OnlyForStudy 发布时间: 10-18

如何在脚本启动的时候检测脚本是否已经在运行?

网上找了很多都不太好。c/c++可以调用kill来判断,Perl不知道有没有什么惯用的办法?

作者: py 发布时间: 10-18

求助,perl怎样读取一个文件的记录条数啊?

求助,perl怎样读取一个文件的记录条数啊?环境:window下没有wc-l的命令烦请高手指点,谢谢

作者: qingduo04 发布时间: 10-17