本帖最后由 r_zack 于 2010-12-15 16:18 编辑 大家好,打听一下,用Perl做的udp Server,在收到客户端A发来的消息和客户端B发来的消息后,如果想主动给客户端A发消息,要怎么做? 我是用如下代码生成socket:[code]#!/usr/bin/perl use IO::Socket::INET; my $socket = IO::SOCKET::INET->new( LocalPort => 90, Proto => 'udp'); [/code]并用如下代码读取内容:[code]while(1) { if ($socket->recv($buff, 1024, ...
by r_zack - Perl - 2010-12-16 21:29:14 阅读(3576) 回复(6)
set filter alive 6 deny udp src eq 139 #NetBIOS session service 是什么意思? eq是什么意思? alive那里有其他的选择吗 ? 象dial in out 还有吗?要是不活跃用什么? 最好有完整的答案。 thanks in advance.
[code] #!/usr/bin/perl use IO::Socket::INET; sub gotint{ print "\n\n$countz packetz sent\n"; exit 1; } $SIG{INT} = \& gotint; print "...
Sep 11 09:34:26 UTC: %IP_SNMP-3-SOCKET: can't open udp socket Sep 11 09:34:26 UTC: Unable to open socket on port 161 Sep 11 09:35:26 UTC: %IP_SNMP-3-SOCKET: can't open udp socket SNMP已经打开,但2960上总报上面的错误,实在搞不懂,请高手指点。
Sep 11 09:34:26 UTC: %IP_SNMP-3-SOCKET: can\'t open udp socket\r\nSep 11 09:34:26 UTC: Unable to open socket on port 161\r\nSep 11 09:35:26 UTC: %IP_SNMP-3-SOCKET: can\'t open udp socket\r\n\r\nSNMP已经打开,但2960上总报上面的错误,实在搞不懂,请高手指点。
我在WINDOWS下运行这个PERL 脚本时候时候遇到了问题,我估计问题出在open(),作者测试的环境是ActivePerl 5.6,而我的环境是ActivePerl 5.14,请问从5.6到5.14,open()用法有变化吗?[code]sub filter { $input = shift; $cmd = shift; ($tmpfh, $tmpfilename) = tempfile(UNLINK = > 1); $input =~ s/\\\$/\$/g; $input =~ s/\r//g; $input =~ s/\n/\r\n/g; print $tmpfh "$input\n"; open(FHSUB, "$cmd < ...
用户空间的int open(const char *pathname,int flags)和内核空间的int (*open)(struct inode*,struct file *)怎么关联起来的呀? 中间我们没有写其他程序阿,怎么就从pathname变成inode了? 初学linux,很迷惑...
本章介绍了表的过滤操作: 1. 从挂载点函数如何找到表包含的规则; 2. 如何遍历规则; 3. 如何对规则的基本match和扩展match进行匹配与否的判定,涉及到.match函数指针; 4. 以及匹配后,如何调用target进行包的处理,涉及到.target函数指针; /* Returns one of the generic firewall policies, like NF_ACCEPT. */ unsigned int ipt_do_table(struct sk_buff **pskb, uns...
小弟现在有linux redhat4,sendmail, procmail,popper. 想自己试着写些邮件过滤的程序,应该用那种语言会比较好,c++,perl,sh 还是java,或者别的? 比如过滤掉一些关键字阿,或者附件,扫描附件之类的. 也希望各位高手给个网页参考参考. 先谢谢了