本帖最后由zhongkeli于2011-03-1116:39编辑while(@result=$_=~/(?:\s*\b(\W+|\w+)\b\s*)(?:\s*\b(\W+|\w+)\b\s*)?(?:\s*\b(\W+|\w+)\b\s*)?logh(?:\s*\b(\W+|\w+)\b\s*)(?:\s*\b(\W+|\w+)\b\s*)?(?:\s*\b(\W+|\w+)\

@result=$subject=~    m/(?:^(?:\W*\b(\w+)\b\W*)(?:\W*\b(\w+)\b\W*)?(?:\W*\b(\w+)\b\W*)?|    (?:\W*\b(\w+)\b\W*)(?:\W*\b(\w+)\b\W*)(?:\W*\b(\w+)\b\W

有个文件格式（内容不便显示，我都换成了**，大家见谅哈）如下：ID    info1    info2    info3    info4**&nb

如题，谢谢！

本帖最后由FightForWin于2011-03-1114:13编辑大家好：我要在字符串中匹配/abc?eev=这两个串。源串可能的形式为GET  /abc?eev=http://txt?或GET  /abc?xx=yy&eev=htp://txt?其实就是除了要匹配/abc?外还要匹配eev=其中eev前面要

各位好，利用Perl如何实现在Windows中自动发送邮件？请各位帮忙解决一下，谢谢！！！我在网上搜了一下，要用到Net::STMP模块，但是找不到这个模块，在所谓的CPAN中也没找到，应该是我不会在这里找吧。我在实际的应用中要用到自动发送邮件这个功能，知道Perl可以实现，但是我不知怎么弄啊，所以请大家帮忙，谢谢了。。。

我想获取系统中的TCP连接，然后断开指定的连接。比如迅雷在下载时会有很多的TCP连接，如何实现断开指定的一个连接？请问如何实现？什么模块可以做到这个功能？

本帖最后由zhongkeli于2011-03-1019:52编辑#!/usr/bin/perl-wusewarnings;usestrict;while(<DATA>){  chomp;print"$1\t$3\n"  while($_=~/\s(.*?)\s(flag)\s(.*?)\s/ig);

大家如果有兴趣的,请站内短信我,谢谢!

在看到given那章节，碰到一个问题：#!/usr/bin/perlusestrict;use5.010;given($ARGV[0]){when(/fred/i){say'namehasfredinit';continue}when(/^Fred/){say'namestartswithFred';continue}when('Fred') &