坑爹的是不知道怎么报错。。头疼。。 #!/usr/bin/perl use strict; use DBI; use Net::Ping; my @oder=(); my $in=DBI->connect("DBI:mysql:database=port_scan;ho...
坑爹的是不知道怎么报错。。头疼。。 #!/usr/bin/perl use strict; use DBI; use Net::Ping; my @oder=(); my $in=DBI->connect("DBI:mysql:database=port_scan;ho...
package trenator.basic2; import java.util.ArrayList; import java.util.Collections; import java.util.List; import java.util.Comparator; public class CompareDemo { /* ...
package basic.day12; class Car{ private String name;//私有成员,名称 private String color;//私有成员,颜色 private String size;//私有成员,大小 public String getNa...
#!/usr/bin/python #coding=gb2312 items=['aaa',111, (3.4) ,2.03]; tests=[(3.4),112]; for key in tests: if key in items: print "yes"; else: print...
这几天有点精神萎靡的症状,突然想起了Socket,想用Perl实现下,但是发现有很多问题。没有解决好。 所以用Java实现一下,看看有什么共同点。 不过没有来得及写注释,现学现卖把。回头改下就能...
在公司研究了一个上午,由于flot图表要绘图的话需要指定的数据类型。 对此,JSON的数据类型有点问题,所以需要进行处理。在Q上和同事讨论了下。 给的建议是需要写个函数进行处理,我想了想,...
具体的请根据个人需要修改代码。 #!/usr/local/bin/perl5 use warnings; use strict; use Fcntl; use Term::Cap; use Parallel::ForkManager; #=========...
这个自定义异常的案例里面,有个关键字没有做解释。 果断GOOGLE一下,raise的意思是抛出指定的异常。 其他的倒没什么,不过这种指定异常应该挺特殊的,但是没有想到该在什么场景使用。。 #!...
昨天发现一个很蛋疼的问题,如果使用iframe会有自动适应的问题,对此无比的纠结。 在网上搜索了下,结果没找到好的解决方法。最后被迫一个个参数去尝试,结果试出来了。。。 iframe代码: <i...
根据简明教程所解释:.pyc是在运行了一边程序的情况下才编译出来的。 当你第二次使用该程序的时候,即可提高效率,因为所需要的函数已经编译完成。 这个就是简明教程上说的,根据以上理解了下...
#!/usr/bin/perl use strict; $|=1; # $Id: traceiface.pl,v 1.1 2007/02/04 22:58:04 jtk Exp $ # traceiface - traceroute with extension to discover router egress hop address...
下面的代码目前只实现了抓取首页,后面会改下,要求抓2级到3级页面。 #!/usr/bin/perl use HTML::LinkExtor; use LWP::Simple; sub sparit{ local($base_url)= shift; # 抓取...
一开始都无法理解SELF是啥意思,昨晚睡觉的时候不停在幻想,到底这是啥东西呢。 翻了下大脑JAVA中的构造器的代码,突然之间领悟了。SELF就好比是JAVA中的THIS。 一瞬间就理解了。 #coding=ut...
没有更多内容
加载失败,请刷新页面