https://blog.youkuaiyun.com/USTBHackerzh-cnhttps://blog.youkuaiyun.com/https://blog.youkuaiyun.com/USTBHacker/article/details/9819801https://blog.youkuaiyun.com/USTBHacker/article/details/9819801USTBHackerWed, 07 Aug 2013 17:04:39 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8994421https://blog.youkuaiyun.com/USTBHacker/article/details/8994421USTBHackerThu, 30 May 2013 14:15:19 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8683220https://blog.youkuaiyun.com/USTBHacker/article/details/8683220USTBHackerSun, 17 Mar 2013 12:12:32 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8480037https://blog.youkuaiyun.com/USTBHacker/article/details/8480037USTBHackerTue, 08 Jan 2013 11:13:13 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8464194https://blog.youkuaiyun.com/USTBHacker/article/details/8464194USTBHackerFri, 04 Jan 2013 13:33:00 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8457341https://blog.youkuaiyun.com/USTBHacker/article/details/8457341USTBHackerTue, 01 Jan 2013 15:40:03 +0800 'threads_only',); use threads::shared; use constant UR]]>https://blog.youkuaiyun.com/USTBHacker/article/details/8443963https://blog.youkuaiyun.com/USTBHacker/article/details/8443963USTBHackerThu, 27 Dec 2012 16:37:18 +0800create 创建线程，用async  创建一个调用匿名过程的线程，具体参考perldoc threads。线程共享变量需要使用 threads::shared，共享变量只能存储scalar，共享变量的引用，如果存储List Hash的引用需使用shared_clo]]>https://blog.youkuaiyun.com/USTBHacker/article/details/8365756https://blog.youkuaiyun.com/USTBHacker/article/details/8365756USTBHackerFri, 21 Dec 2012 23:48:51 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8365609https://blog.youkuaiyun.com/USTBHacker/article/details/8365609USTBHackerFri, 21 Dec 2012 22:22:46 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8331361https://blog.youkuaiyun.com/USTBHacker/article/details/8331361USTBHackerWed, 19 Dec 2012 14:56:21 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8286348https://blog.youkuaiyun.com/USTBHacker/article/details/8286348USTBHackerWed, 12 Dec 2012 14:25:55 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8269137https://blog.youkuaiyun.com/USTBHacker/article/details/8269137USTBHackerFri, 07 Dec 2012 13:55:09 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8263799https://blog.youkuaiyun.com/USTBHacker/article/details/8263799USTBHackerThu, 06 Dec 2012 11:01:43 +0800perl -h Usage: D:\Perl\bin\perl.exe [switches] [--] [programfile] [arguments] -0[octal] specify record separator (\0, if no argument)]]>https://blog.youkuaiyun.com/USTBHacker/article/details/8259489https://blog.youkuaiyun.com/USTBHacker/article/details/8259489USTBHackerWed, 05 Dec 2012 13:39:49 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/8204523https://blog.youkuaiyun.com/USTBHacker/article/details/8204523USTBHackerWed, 21 Nov 2012 10:17:01 +0800perl -MDevel::Peek -e "sub a{my ($a,$b,$t); } Dump \&a" SV = RV(0x3a90f0) at 0x3a90e4 REFCNT = 1 FLAG]]>https://blog.youkuaiyun.com/USTBHacker/article/details/7823367https://blog.youkuaiyun.com/USTBHacker/article/details/7823367USTBHackerThu, 02 Aug 2012 17:19:39 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/7818987https://blog.youkuaiyun.com/USTBHacker/article/details/7818987USTBHackerWed, 01 Aug 2012 16:47:13 +0800perl -MDevel::Pe]]>https://blog.youkuaiyun.com/USTBHacker/article/details/7818614https://blog.youkuaiyun.com/USTBHacker/article/details/7818614USTBHackerWed, 01 Aug 2012 15:24:38 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/7814175https://blog.youkuaiyun.com/USTBHacker/article/details/7814175USTBHackerTue, 31 Jul 2012 14:57:52 +0800https://blog.youkuaiyun.com/USTBHacker/article/details/7813817https://blog.youkuaiyun.com/USTBHacker/article/details/7813817USTBHackerTue, 31 Jul 2012 13:59:41 +0800