怎么非ASCII字符就过滤不了呢？[Perl] - Programming版 - 未名存档

本页内容为未名空间相应帖子的节选和存档，一周内的贴子最多显示50字，超过一周显示500字访问原贴

Programming版 - 怎么非ASCII字符就过滤不了呢？[Perl]

相关主题
● 问个Perl的简单问题	● 请教一个有向图的算法
● PERL问题	● what's wrong with this scripts?variable passing?
● perl problem	● C# HtmlElement.InvokeMember at Amazon.com
● 问个perl的程序	● how to sed from grep output in c shell? (转载)
● Perl: How to return 2 dimention array pls ?	● a linux disk IO question (转载)
● How to write "ip address => integer" in perl, python, Javascript etc. ?	● 这里的人用BOOST都是用来做什么？
● perl monk (ascii art)	● 请问如何在球体表面均匀分布N个点(赠送包子) (转载)
● 请问如何将c/c++ 中的ascii 文件存为binary 文件,	● [合集] 问个土问题 printf, 别Peng

相关话题的讨论汇总
话题: ascii话题: pops话题: 字符

进入Programming版参与讨论

1

(共1页)

L******r 发帖数: 199	1 过滤掉非ASCII字符，但是根本不管用，文件里有áã之类的，根本没过滤掉 foreach $pops(@pop) { chomp($pops); if($pops =~ s/(^\x20-\x7E)//g) { print "$pops\n"} }
t*****g 发帖数: 1275	2 try s/[^[:ascii:]]//g 【在 L******r 的大作中提到】 : 过滤掉非ASCII字符，但是根本不管用，文件里有áã之类的，根本没过滤掉 : foreach $pops(@pop) : { : chomp($pops); : if($pops =~ s/(^\x20-\x7E)//g) : { print "$pops\n"} : }

1

(共1页)

进入Programming版参与讨论

相关主题
● [合集] 问个土问题 printf, 别Peng	● Perl: How to return 2 dimention array pls ?
● [合集] perl symbol tables 一问	● How to write "ip address => integer" in perl, python, Javascript etc. ?
● 容器里边放指针怎么办？	● perl monk (ascii art)
● foreach statement 使用	● 请问如何将c/c++ 中的ascii 文件存为binary 文件,
● 问个Perl的简单问题	● 请教一个有向图的算法
● PERL问题	● what's wrong with this scripts?variable passing?
● perl problem	● C# HtmlElement.InvokeMember at Amazon.com
● 问个perl的程序	● how to sed from grep output in c shell? (转载)

相关话题的讨论汇总
话题: ascii话题: pops话题: 字符

未名新帖统计// 7月16日

#	版面	帖数(主题数)
-	全站	4871 (796)
1	Military	3777 (569)
2	Stock	341 (51)
3	Joke	117 (17)
4	History	116 (3)
5	Automobile	100 (9)
6	USANews	55 (9)
7	Midlife	45 (1)
8	Headline	41 (41)
9	Dreamer	33 (13)
10	FleaMarket	32 (20)
11	Living	30 (7)

* 这里只显示发帖超过25的版面，努力灌水吧:-)