![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
sx1989827
这个作者很懒,什么都没留下…
展开
-
perl学习感悟(二)
接着上一话,说到perl的readdir不支持正则表达式问题,今天终于解决了,果然是自己代码问题#/usr/bin/perl#$s=;#chomp($s);opendir(f,"c://");foreach $a (sort(readdir(f))){if($a=~/[/w/W]*(sx)$/){unlink "c://".$a;}#print $a."/n";}closedir(f);注原创 2008-05-29 00:06:00 · 1124 阅读 · 0 评论 -
perl学习感悟(三)
继续上一篇,谈到目录文件的遍历问题一直都是老大难题,用glob方便但有不足,幸好我终于在上一篇把对readdir的误会消除后找到了完美的解决方案.&file("d://my game");sub file(){opendir(DIR, $_[0]);foreach my $a (readdir(DIR)){if (. eq $a || .. eq $a) { next; } #原创 2008-05-29 00:34:00 · 668 阅读 · 0 评论 -
perl学习感悟
学perl有了一段时间了,但一直没怎么用过,今天突然起兴想写一个遍历文件与文件夹的代码,于是挥笔写起#/usr/bin/perl$s=;chomp($s);&file($s."//*");sub file(){foreach $a1 (sort(glob($_[0]))){print $a1."/n";if(-d $a1){&file($a1."//*");}}}以上代码在perl bui原创 2008-05-28 23:52:00 · 736 阅读 · 0 评论 -
正则表达式学习点滴
前几天,我们c语言老师给我们布置一道题目,说是如何将一个字符串中连续重复的字符压缩成一个比如:weeertty 压缩后是werty说实话,,刚写代码时走了不少弯路,后来忽然灵机一动,想到了string类,于是便一气呵成#include#includeusing namespace std;void str(string a){ char b; for(int i=0;i if(b=原创 2008-05-31 11:34:00 · 625 阅读 · 0 评论 -
正则表达式学习点滴(二)
接着上一话,正则表达式是个好东东,在处理字符串方面特别强大,但我在使用过程中也出现了一些疑惑大家都知道(,),[,]这些符号在正则表达式中扮演的很重要的角色,而$1,$2....也匹配着有()返回的 相应的结果,于是便出现了一个疑问,当这些符号出现嵌套时,那$1...$2....返回的该是什么呢,请看一下代码#usr/bin/perl$a="asdd";$a=~/(/w(/w))/;pri原创 2008-06-01 08:06:00 · 649 阅读 · 1 评论 -
perl进行socket编程
好久没更新博客了,也好久没写关于perl的文章了,blog的更新对我来说要看心情的,心血来潮我会 写很多的,呵呵,不说废话了。 socket编程,我想学过网络编程基本上都会,所以,虚的东西我也就不说了,直接看代码: 客户端:#!/usr/bin/perl -wuse Socket;use IO::Handle;socket(SOCK,AF_INET,SOCK原创 2009-10-07 11:40:00 · 2926 阅读 · 0 评论 -
perl写端口多线程扫描器
端口扫描这玩意我记得许多年前可是很火啊,随着防火墙和主动防御之类软件的普及,如今他的魅力已经大不如前了,不过在对于漏洞的利用上,端口扫描还是首当其冲的。以前也写过端口扫描,但是速度太慢,所以就此雪藏了。下面是我写的多线程扫描,有tcp连接和syn两种,看个人喜好吧。#!/usr/bin/perl -wuse IO::Socket;use Net::Ping; use Thread;原创 2009-10-07 21:46:00 · 1522 阅读 · 0 评论 -
再议perl写多线程端口扫描器
前面说了用Thread创建多线程,但是文章最后也说了该方法存在问题,那么,我们想起perl的另外一个好东西,fork,具体意思我就不多说了,就是用fork来模拟多线程,但是我再试验中发现一个问题,windows中规范一个进程可以fork的子进程最多为64个,那么如何突破这个限制呢? 父进程fork出的子进程在运行完后并不是完全销毁了,而是以僵死进程的形式存在,并且等原创 2009-10-08 15:40:00 · 1427 阅读 · 1 评论