Ubuntu中文论坛

发表于： **2010-09-15 0:31**

[perl]2010-09-15 00:28:53 三 ~/bin/conky
☛ cat net.pl
☛ cat conky/net.pl
#!/usr/bin/perl

$f="/proc/net/route";
open ROUTE,$f; @_=<ROUTE>;close ROUTE;
@_=grep /0001/, @_;
$_=$_[0];
s/\s.*$//g;
chomp;
$s=/eth/?"▄$_":"◢\${wireless_link_qual_perc $_}%";
print "\${tab 80}\${downspeedgraph $_ 20,80 000000 00ff00}\${upspeedgraph $_ 20,80 000000 ff0000}
\${voffset -30}\${color3}网络\${color} ▼\${downspeedf $_}K\${tab 80}▲\${upspeedf $_}K
\${tab 30}●\${addr $_}\${tab 80}$s";

[/perl]

发表于： **2010-09-15 0:36**

神码东西

发表于： **2010-09-16 16:49**

代码：全选

● perl /tmp/net.perl
${tab 80}${downspeedgraph eth0 20,80 000000 00ff00}${upspeedgraph eth0 20,80 000000 ff0000}
${voffset -30}${color3}网络${color} ▼${downspeedf eth0}K${tab 80}▲${upspeedf eth0}K
${tab 30}●${addr eth0}${tab 80}▄eth0

发表于： **2010-09-21 20:15**

怎么都搞成GeSHi的了？

发表于： **2010-09-21 21:00**

神码.

Ubuntu中文论坛

保存：判断网络设备的脚本

保存：判断网络设备的脚本

Re: 保存：判断网络设备的脚本

Re: 保存：判断网络设备的脚本

Re: eexp，怎么把标题改掉了？还把楼下的标题，都改了。

Re: 保存：判断网络设备的脚本