如何用perl判断网络连接是否正常?(另关于gtk2-perl的问题:)

jojogohome

UID: 17911
帖子: 99
积分: 227
在线时间: 13 小时

1^# jojogohome 发表于 2006-11-19 20:05

如何用perl判断网络连接是否正常?(另关于gtk2-perl的问题:)

如何用perl判断网络连接是否正常?(另关于gtk2-perl的问题:)
我的网卡接口不大好
网线经常掉
我现在想写个perl脚本
自动检测网络连接是否正常

perl下哪个函数或者模块能实现这个功能？
谁能帮一下忙
感激不尽[CCB]1[/CCB]

jojogohome

UID: 17911
帖子: 99
积分: 227
在线时间: 13 小时

2^# jojogohome 发表于 2006-11-20 12:54

谢谢回复啊
汗
我是学生
还没这么多钱
学了perl之后
总想试一下
找找成就感

我的是debian/linux

cnhacktnt

UID: 40772
帖子: 111
积分: 255
在线时间: 17 小时

3^# cnhacktnt 发表于 2006-11-20 16:19

perl 中定时 ping 一下?.

jojogohome

UID: 17911
帖子: 99
积分: 227
在线时间: 13 小时

4^# jojogohome 发表于 2006-11-20 17:35

是调用外部程序ping再检查.
是调用外部程序ping再检查返回值?

难道perl没有类似功能的函数或模块？

rjhome

UID: 9001
帖子: 176
积分: 404
在线时间: 1 天 18 小时

5^# rjhome 发表于 2006-11-20 19:38

你可以用一下Net::Ping模块.
不过你既然linux系统何不直接调用系统ping呢?

jojogohome

UID: 17911
帖子: 99
积分: 227
在线时间: 13 小时

6^# jojogohome 发表于 2006-11-20 20:47

[quote]回复给 rjhome : 不过你既然linux系统何不直接调用系统ping呢? [/quote]
perl不是有一句格言：There's More Than One Way to Do It :)

hoho
搞定了[CCB]1[/CCB]
太感谢你们了

rjhome

UID: 9001
帖子: 176
积分: 404
在线时间: 1 天 18 小时

7^# rjhome 发表于 2006-11-23 10:22

[quote]perl不是有一句格言：There's More Than One Way to Do It :)[/quote]
:)
I just want a way which is easiest & laziest!!hoho.

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

8^# flw 发表于 2006-11-23 13:23

说起来这个 Debian 啊，我.
说起来这个 Debian 啊，我也发现我的 VMWare 里面的 Debian 启动时经常网卡起不来，
需要我登录进去手工 ifup 一下。不过并不是每次都会这样。奇怪。
莫非是我的无线网卡有问题？那也不见得啊，上网都好好的。

jojogohome

UID: 17911
帖子: 99
积分: 227
在线时间: 13 小时

9^# jojogohome 发表于 2006-11-24 17:27

没用过vmware--[CCB]10[.
没用过vmware
[CCB]10[/CCB]

不过我的问题就是网卡这里接触不良

jojogohome

UID: 17911
帖子: 99
积分: 227
在线时间: 13 小时

10^# jojogohome 发表于 2006-11-26 17:37

help!gtk2-perl的问题
我写了一个简单的脚本自动测试网络连接
脚本每隔3秒钟ping一下192.168.1.1
根据ping的结果在tray(系统托盘?)显示不同的图标
但是图标的显示不符合我所预想的

[quote]
#!/usr/bin/perl -w

use strict;
use warnings;

use Net::Ping;
use Gtk2::TrayIcon;
Gtk2->init;

my $host = "192.168.1.1";
my $p = Net::Ping->new("icmp");
my $disconn = Gtk2::Gdk::Pixbuf->new_from_file ("/home/jojo/.icons/disconnect.ico");
my $conn = Gtk2::Gdk::Pixbuf->new_from_file ("/home/jojo/.icons/connect.ico");
my $image = Gtk2::Image->new_from_pixbuf ($conn);
my $icon = Gtk2::TrayIcon->new("");
$icon->add ($image);
my $id = Glib::Timeout->add (3000, \&ping, $image);
$icon->show_all;
Gtk2->main;

$p->close();

sub ping
{
my $return = $p->ping($host, 3);
if ($return == 1) {
$image->set_from_pixbuf ($conn);
print "network is up\n";
} else {
$image->set_from_pixbuf ($disconn);
print "network is down\n";
}
}
[/quote]

我花了好几天了
还没有搞定
所以发上来了
谁能帮我看一下
先谢了[CCB]1[/CCB]