当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 24 篇帖子 ]  前往页数 1, 2  下一页
作者 内容
1 楼 
 文章标题 : 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-21 0:11 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
代码:
● dog bin/mlinfo.pl
use Getopt::Long;
GetOptions('mono' => \$monocolor, 's'=>\$short);
$shortlen=10;
open (STDERR, ">/dev/null");
use LWP::Simple;
$_ = get("http://localhost:4080/submit?q=vd");
die "Couldn't get it!" unless defined $_;
/<table.*\/table>/s;
use HTML::TableExtract;
$te = HTML::TableExtract->new(depth => 1, count => 1);
$te->parse($&);
foreach $ts ($te->tables) {
  foreach $row ($ts->rows) {
        next if ! @$row[5];
        if($short){@$row[5]=substr(@$row[5],0,$shortlen);}
        if(! $monocolor){
        $_="\e[4;32;40m@$row[5]\t\e[4;31m@$row[8]%\t@$row[15]KB/s\e[0m\n";
        } else {
        $_="@$row[5] \t@$row[8]%\t@$row[15]KB/s\n";
        }
        s/\s*\t/\t/gs;
        print;
  }
}
close(STDERR);

适合 conky 和 term。


附件:
42.png
42.png [ 66.54 KiB | 被浏览 2603 次 ]
58.png
58.png [ 14.08 KiB | 被浏览 2603 次 ]



_________________
● 鸣学
页首
 用户资料  
 
2 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-21 0:17 
头像

注册: 2007-04-23 14:47
帖子: 686
地址: 常熟
系统: Gentoo
送出感谢: 1
接收感谢: 1
神的沙发 :em06


_________________
http://blog.weans.info


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-21 0:38 

注册: 2007-08-02 20:29
帖子: 21303
系统: 窓辺とうこ
送出感谢: 0 次
接收感谢: 22
来看EE下些什么东西


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-21 0:51 
头像

注册: 2008-10-14 16:36
帖子: 314
送出感谢: 0 次
接收感谢: 1
这个有意思! :em05


_________________
学习知识本身其实是个痛苦的过程,但运用知识的过程,一般都很有趣,往往值得忍受当初那些“痛苦的学习过程”。


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-21 3:31 
头像

注册: 2007-12-25 12:51
帖子: 231
送出感谢: 0 次
接收感谢: 0 次
我在用的:
代码:
#!/bin/bash
echo -e "[KB/S]\t [%]\t[FILENAME]"
echo -e "vd\nquit" | nc localhost 4000 | awk '$1 ~ /\[(D|B)/{printf("%-5.1f\t%5.1f\t",$(NF-1),$(NF-7));for(i=7;i<NF-7;i++){printf("%s ",$i)};print ""}' | sort -k 2 -nr


页首
 用户资料  
 
6 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-21 8:30 

注册: 2008-11-08 18:34
帖子: 627
送出感谢: 0 次
接收感谢: 1
dog 相比cat 有啥特色?


_________________
气血鼓荡,身体发胀,偶飘上头,三时舒畅


页首
 用户资料  
 
7 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-21 8:56 
头像

注册: 2007-02-02 18:14
帖子: 30702
系统: debian sid
送出感谢: 1
接收感谢: 34
ls对ee家的dog和cat千万别有兴趣 :em04
ps:ee也喜欢地球上最性感的pp啊 :em04


_________________
醉了星星,醉月亮●●●●●The Long Way To Go(*^_^*)


页首
 用户资料  
 
8 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-21 20:28 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
我对nc+awk的结果,很不满意。才写的这个。awk在多种情况,会错误的取数据的。

用perl的话。干净的数据。


_________________
● 鸣学


页首
 用户资料  
 
9 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-21 23:16 
头像

注册: 2007-12-25 12:51
帖子: 231
送出感谢: 0 次
接收感谢: 0 次
eexpress 写道:
我对nc+awk的结果,很不满意。才写的这个。awk在多种情况,会错误的取数据的。

用perl的话。干净的数据。

咱没功夫学perl,并且我这个awk是酒精考验过的 :em04


页首
 用户资料  
 
10 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-22 13:33 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
考验的,还不是以前抄我的。 lol

你遇到的情况,估计少很多。


_________________
● 鸣学


页首
 用户资料  
 
11 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-22 14:42 
头像

注册: 2007-12-25 12:51
帖子: 231
送出感谢: 0 次
接收感谢: 0 次
eexpress 写道:
考验的,还不是以前抄我的。 lol

你遇到的情况,估计少很多。

:em20 :em20 :em20 :em20 :em20


页首
 用户资料  
 
12 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-22 20:56 

注册: 2008-10-31 22:12
帖子: 6546
系统: 践兔
送出感谢: 18
接收感谢: 25
gzbao9999 写道:
dog 相比cat 有啥特色?

代码:
*  sys-apps/dog
      Latest version available: 1.7-r3
      Latest version installed: 1.7-r3
      Size of files: 29 kB
      Homepage:      http://packages.gentoo.org/package/sys-apps/dog
      Description:   Dog is better than cat
      License:       GPL-2


代码:
tlcr: 0  20:52:20 ~/应用/源码/tusooa/Gentoo/Overlay/app-i18n/fcitx
● dog --help
Usage: dog [OPTION | FILE | URL]...
Concatenates files, URL's, or standard input, and sends the result to stdout.
Like 'cat', but with more options.  All of the 'cat' switches are preserved for
compatibility.  Supported URL types: file, http, raw.

 -A, --show-all         equivalent to -vET
 -b, --number-nonblank  precede each non-blank line with its line number
 -B, --no-blanks        only print lines with non-whitespace characters
     --bind=port        dump each connection to port, print connection output
     --dos              convert line endings to DOS-style
 -e                     equivalent to -vE
 -E, --show-ends        display $ at the end of each line
     --hang-up          do not wait for socket input during --bind
     --hide-nonprinting hide non-printing characters
     --help             display this help message and exit
     --hex              display the data as a hex dump
     --images           list unique, absolute image links from input data
     --krad             convert lines to k-rad
 -l lines               list of lines to print, comma delimited, ranges allowed
     --links            list unique, absolute URL links from input data
     --lower            convert all upper-case characters to lower
     --mac              convert line endings to Macintosh-style
 -n, --number           precede each line with its line number
     --no-header        do not dump out the header on each connection in --bind,
                        and don't dump header in URL data
     --oog              OOG A STRING!!!
     --rot=num          rotate character values (can be negative)
 -s, --squeeze-blank    never more than one single blank link
     --strfry           stir-fry each line (Linux only)
     --sock=domain:port connect, dump input to socket, print socket output
     --sock-test        with --sock, print if connection can be made
 -t                     equivalent to -vT
 -T, --show-tabs        display TAB characters as ^I
     --skip-tags        do not process HTML tags from input, and simply output them as-is
     --translate        translate end-of-line characters
 -u                     ignored
     --udp              use UDP rather than TCP on socket activity
     --unix             convert line endings to UNIX-style
     --upper            convert all lower-case characters to upper
 -v, --show-nonprinting use ^ and M- notation, except for TAB
 -w[cols]               print first 'cols' characters of each line (default=80)
     --version          output version information and exit

With no FILE, or with - in the file list, read standard input.

Report bugs to dog-bugs@fastscheduler.com
tlcr: 0  20:52:37 ~/应用/源码/tusooa/Gentoo/Overlay/app-i18n/fcitx


_________________
代码:
] ls -ld //


页首
 用户资料  
 
13 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-23 10:53 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
● type dog
dog 已被别名为“grep -v -E "(^$|^#|^!)"”

你们居然yy。
:em04


_________________
● 鸣学


页首
 用户资料  
 
14 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-23 21:29 

注册: 2008-10-31 22:12
帖子: 6546
系统: 践兔
送出感谢: 18
接收感谢: 25
原来exp.express的狗不是一般人用的狗,用来删除空行和注释的...


_________________
代码:
] ls -ld //


页首
 用户资料  
 
15 楼 
 文章标题 : Re: 纯perl的mldonkey的下载信息
帖子发表于 : 2010-08-24 13:56 

注册: 2008-10-31 22:12
帖子: 6546
系统: 践兔
送出感谢: 18
接收感谢: 25
额,--mono没必要阿,命令后面加B


_________________
代码:
] ls -ld //


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 24 篇帖子 ]  前往页数 1, 2  下一页

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译