主要还是看ASCII码的值，
$str =~ m/[^-127]/
$str =~ m/[^x0-x7f]/

要注意反斜线的作用，转义符，一定不要少！

Perl Mysql数据库操作实现代码
一.安装DBI模块步骤1：从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件：ReadmeDBI.ppdDBI.tar.gz步骤2：在DOS窗口下，temp目录中运行

PERL 正则表达式详细说明
PERL里正则表达式的简介一、简介二、匹配操作符三、模式中的特殊字符1、字符+2、字符[]和[^]3、字符*和?4、转义字符5、匹配任意字母或数字6、锚模式7

python 获取命令行参数 函数
importsysprintsys.argvprintlen(sys.argv)#参数个数printsys.argv[1]#第一个参数printsys.argv[2]