为撒子$mutex资源就是不释放呢，$mutex->up不起作用，奇怪啊，理解的问题？解惑者有大奖：）

use Thread ;
use Thread::Semaphore;

my $oldfh = select STDOUT; $| = 1; select $oldfh;

$mutex = Thread::Semaphore->new(5);

while(1)
{
my $w =$mutex->down();
print "$w\n";
Thread->new(\&xx);
sleep(1);
}
sub xx
{
print "begin:";
my $s = int(rand 3);
print "$s";
m

$aa='aaaaaaaaaaaa';
$aa =~ s/a/$i==5?($i=1):++$i/eg;
print $aa;

#123451234512

转自 aka.org.cn 红字有用

Perl 用（?..）语法给正则表达式提供扩展名。
在Perl 历史上的某一天（大约Perl 4 向Perl5 转变时），为了使正则表达式集合增长，人们
决定Perl必须“达到元字符标准”。一些人争论道有太多的元字符存在，而另一些人不同意，
直到键盘上没有太多的元字符为止。
到那是人们在认为形成一种独特的可用于多次扩展的构造是一个好主意。查看键盘后，发现
一个相当普通的字符（？）在任何地方都不用。因此，它被定了下来。语法看起来像这样：
(? <special charac

转自 aka.org.cn, 红字有用

嵌套反向引用对于复杂的难以用单一顺序(一个字符串跟在另一个字符串后面)进行匹配
的字符串作用明显。例如下面的表达式：
m" ((aaa)*)" ;
使用 * 来匹配多次出现的aaa：即匹配",aaa,aaaaaa,aaaaaaaaa。换句话说，Perl 匹配一
行中有多个3a 的模式。但是这个模式不会匹配aa。假定想匹配如下的字符串：
$string = ' softly slowly surely subtly';
那么使用嵌套园括号后下面的正则表达式会匹配：
$string = m" ((s...ly\s*)*)" ; # n

网上找的，很简单的一句话，就不用CPAN的模块了。简单好啊

url-encode:
$str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
url-decode:
$str =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;

偶然看到ubuntu论坛上有人发百度新歌100的下载程序，但只看到python的，看来还是python比perl要阳春白雪啊。索性写个perl的吧。

tips：改成多线程的了，默认为5，只下载mp3（可改），只下载文件大于3M的（可改），wget太慢换成mytget，以后再想到什么再改吧：）

原始地址：http://hi.baidu.com/ximix/blog/item/7dd00c24d4513e37c995593a.html

—————以下代码————

/([\x80-\xFF][\x80-\xFF])/ 同 /([\x80-\xFF]{2}/

一个汉字两个字节：）

另外：以下网上找的，没测试过

BIG5
/([\xa4-\xfe][\x40-\x7e\xa1-\xfe])/

GB
/[\xa1-\xfe]{2,2}/

Can't "last" outside a loop block ，原来一个循环快是不能用last跳出的（while，until），土了

解决方法，加入label直接跳转。label这东西真的很像goto啊，不过要给label是个块，要加上{}

如：

LABEL:{
do{
   if(我要跳了)
   {
    last LABEL;
   }
}until(不继续);
}

这里用last next的结果是一样的，不就是跳么，以上

my $oldfh = select STDER; $| = 1; select $oldfh;
或者 select((select(STDERR), $| = 1)[0])

后面的比较强大 list

http://www.ultraedit.com/support/tutorials_power_tips/ultraedit/perl_compatible_expressions.html

还是很强大的，相比较用着很不习惯的UE的正则。

不经意间又看到hl的宝物了 ：http://www.idmcomp.com/forums/viewtopic.php?f=8