#!/usr/bin/perlmy$grid,%count,@locate;for(1..10){      $grid=int(rand100);      $count{$grid}++;     &

while(<DATA>){    if($.==1){        chomp;   &n

pipe(FROM_PARENT,TO_CHILD)  ordie"pipe:$!";pipe(FROM_CHILD,TO_PARENT)  ordie"pipe!";select((select(TO_CHILD),$|=1))[0]);select((select(TO_PARENT),$|=1))[0]);

我的文本内容如下所示：张三李四王玉张三李四我想输出的结果如下：王玉因为张三，李四在文本中都有重复出现，而且不管这种重复是否是连续的行，只要出现了就将该行删除。还有一个要求就是行的顺序最好不要调，像sort打乱行序的不是很好。请问高手，如何实现？万分感谢！

比如我想实现sysopen的时候能够很快返回，read的时候也很快能够返回，如果没有对端的读/写程序就返回错误请高手赐教，多谢

请问一个数组的参数subaa(@$,$);subaa(\@,$);这两个数组的声明有什么区别？

本帖最后由白水于2011-06-1714:00编辑$a="C++";$b="123";if($b=~/$a/){print"ok";}因为$a中有+号，就出错了，怎么办？怎么搜索匹配这个关键词？还有，尽量不要修改关键词本身，因为该变量后面还要使用

Hi,请教大家一下关于map的用法。我有一个数组，里面的每个元素都是这样的格式：country.citya  B.123.234.456  thisistestforcity1acountry.cityb  B.124.345.423  thisistestforcityb

一个FTP地址的形式可能是下面的其中一种（至于是哪一种，不确定）：(1)、ftp://192.168.1.10/path1/path2/path3(2)、ftp://[email protected]/path1/path2/path3(3)、ftp://user:[email protected]/path1/path2/path3该如何用正则表达式呢？需要分解出:用户名，密码

ATT，有的人写的可能和我写的类似，我很想看看人家写的。