当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 5 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : perl正则表达式匹配问题
帖子发表于 : 2007-08-30 19:40 

注册: 2007-05-06 10:56
帖子: 28
送出感谢: 1
接收感谢: 0 次
写了下面的脚本
#!/usr/bin/perl
#
# Program to do the obvious
#
local $/ = undef;
$lines = <FILE>;
$file = "mylog";
open(INFO,$file);# Open the file
$lines = <INFO>;# Read it into an array
close(INFO);# Close the file
print $lines;# Print the array

print "It matches 2\n" if $lines=~ m/\x{e5b7b2}/s;

创建了文件mylog,内容如下:
------------------分割线,非内容
记录文件已经开始工作
weiyuan carried them out at 2007年 08月 23日 星期四 21:53:31 CST
这一行是用cat命令添加的
------------------分割线,非内容
文件采用utf8编码。

查到“已”字的utf8编码是0xe5b7b2,想要用上面的脚本测试一下perl匹配正则表达式,但是输出是不匹配,请问为什么呢?


页首
 用户资料  
 
2 楼 
 文章标题 :
帖子发表于 : 2007-08-30 20:21 
头像

注册: 2006-07-02 11:16
帖子: 12522
地址: 廣州
送出感谢: 0 次
接收感谢: 8
代码:
#!/usr/bin/perl
#
# Program to do the obvious
#
local $/ = undef;
$lines = <FILE>;
$file = "mylog";
open(INFO,$file);# Open the file
$lines = <INFO>;# Read it into an array
close(INFO);# Close the file
print $lines;# Print the array

print "It matches 2\n" if $lines=~ m/已/s;


_________________
^_^ ~~~
要理解递归,首先要理解递归。

地球人都知道,理论上,理论跟实际是没有差别的,但实际上,理论跟实际的差别是相当大滴。


页首
 用户资料  
 
3 楼 
 文章标题 :
帖子发表于 : 2007-08-30 20:33 

注册: 2007-05-06 10:56
帖子: 28
送出感谢: 1
接收感谢: 0 次
直接就行?亏我还看了一下午的perl文档,那为什么/\x{...}/的形式不行呢?


页首
 用户资料  
 
4 楼 
 文章标题 :
帖子发表于 : 2007-08-30 21:29 
头像

注册: 2006-10-21 12:03
帖子: 1746
地址: Shanghai
送出感谢: 0 次
接收感谢: 0 次
[UTF8 "\x{.....}"]

貌似我还没看过文档....... :shock: :shock:

代码:
#!/usr/bin/perl
#
# Program to do the obvious
#
local $/ = undef;
$lines = <FILE>;
$file = "mylog";
open(INFO,$file);# Open the file
$lines = <INFO>;# Read it into an array
close(INFO);# Close the file
print $lines;# Print the array

print "It matches 2\n" if $lines=~ m/[UTF8 "\x{e5b7b2}"]/s;


_________________
.

私人空间
附有 Magic Linux 2.1 最新开发日志~
引用:


미안하다, 사랑한다




欢迎来 #xfce-cn 中文频道~~


页首
 用户资料  
 
5 楼 
 文章标题 :
帖子发表于 : 2007-08-31 11:47 

注册: 2007-05-06 10:56
帖子: 28
送出感谢: 1
接收感谢: 0 次
嘎嘎,果然有效,谢谢,不过老外的文档每次涉及到处理非ascii字符的时候总有点不清不楚,不看也罢,浪费时间,原来的文档里面没说要加utf8前缀的。


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 5 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 3 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译