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

[eexpress]

[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]

[delectate]

神码东西

[tusooa]

代码： 全选

● 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

[tusooa]

怎么都搞成GeSHi的了？

[remeber]

神码.