这有点简单，不过却够你想半天。

2002-10-11 07:02:02 94 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

silicon_crystal 墨衍会员 · AI 创作全网分发关注 + 加入社区

用Django半天时间开发一个员工管理系统实例教程分享还好django的作者在设计的时候就考虑到了这个问题，我们可以用第三方的主题来美化django。请求、模板、ORM、admin 都自带，程序员可以很轻松的开发出一个网站或者管理系统。我们推荐一个最近在github和gitee上最热门的django admin 主题“django-simpleui是vue+element-ui编写的一个主题。打开后台以后，你会发现这后台完全不符合咱们国人的操作习惯，有点反人类。然后重新启动刷新界面，登录页和主页都发生非常大的变化。简直是web开发领域的一个大杀器。阅读详情

以下是我的命令行拷贝，请各位帮我看看为什么不对。

G:\work\perl>type tt.pl
use Net::Ping;
$host="61.128.128.68";
$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();

G:\work\perl>ping 61.128.128.68

Pinging 61.128.128.68 with 32 bytes of data:

Reply from 61.128.128.68: bytes=32 time<10ms TTL=252
Reply from 61.128.128.68: bytes=32 time<10ms TTL=252
Reply from 61.128.128.68: bytes=32 time=10ms TTL=252
Reply from 61.128.128.68: bytes=32 time=11ms TTL=252

Ping statistics for 61.128.128.68:
Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 0ms, Maximum = 11ms, Average = 5ms

G:\work\perl>perl tt.pl

G:\work\perl>

为什么我使用tt.pl这个程序后没有报告我说这个站点活着。

...全文

JS VUE 中请假排除周末，包含半天可以设置 // 两个时间相差天数 const datedifference = (sDate1, sDate2) =&gt; { // sDate1和sDate2是2006-12-18格式 let dateSpan, days, sDate = Date.parse(sDate1), eDate = Date.parse(sDate2); dateSpan = eDate ... 阅读详情

silicon_crystal

CGI 2,203 成员 4,518 内容

+ 关注 + 加入社区

切换为时间正序

52cgi 2002-10-12

打赏
举报

学习...

52cgi 2002-10-12

打赏
举报

D_Q(A.Dai)(阿呆)兄真强啊...

silicon_crystal 2002-10-11

打赏
举报

The Unsupported function alarm function is unimplemented at d:/perl/lib/Net/Ping.pm line 308.

我使用你上面程序出现的问题.
我更新过我的net::ping模块了.

D_Q 2002-10-11

打赏
举报

你 $p = Net::Ping->new(); 默认发送的是UDP包
$p=Net::Ping->new(); #UDP
$p=Net::Ping->new('TCP'); #TCP
$p=Net::Ping->new('icmp'); #ICMP
而 Dos下的Ping 是ICMP 呀不一样
#---------------------------------------------------------------
my $p = Net::Ping->new('tcp');
unless (defined $p) { die "can't create Net::Ping object $!";}
if ($p->ping($host))
{
print "$host TCP有响应\n" ;
}
else
{
print "$host TCP包无响应\n";
}
$p->close;
sleep(1);
#---------------------------------------------------------------
$p = Net::Ping->new();
unless (defined $p) { die "can't create Net::Ping object $!";}
eval {
if ($p->ping($host)) {
print "$host UDP有响应\n" ;
}
else
{
print "$host UDP包无响应\n";
}
}; ## eval
if ($@) {
print "$@\n";
print "udp failed\n";
}
undef $p;
sleep(1);
#---------------------------------------------------------------
if ($> == 0) {
$p = Net::Ping->new('icmp');
unless (defined $p) { die "can't create Net::Ping object $!";}
if ($p->ping($host)) {
print "$host ICMP有响应\n" ;
}
else
{
print "$host ICMP包无响应\n";
}
undef $p;
}
#---------------------------------------------------------------

D_Q 2002-10-11

打赏
举报

据说Net::Ping老版本不提供TCP 的 Ping 可能Win32的都是老版本的吧所以才提示错误(我的个人猜测) 在win32下我也没有测试成功. UDP ICMP都没问题

D_Q 2002-10-11

打赏
举报

这么改:
use Net::Ping;
$host="61.128.128.68";
$p = Net::Ping->new('icmp');
print "$host is alive.\n" if $p->ping($host);
$p->close();

yakai 2002-10-11

打赏
举报

The same to silicon_crystal

这有点简单，不过却够你想半天。

相关推荐