纯perl的mldonkey的下载信息

sh/bash/dash/ksh/zsh等Shell脚本
头像
eexpress
帖子: 58428
注册时间: 2005-08-14 21:55
来自: 长沙
送出感谢: 4 次
接收感谢: 256 次

纯perl的mldonkey的下载信息

#1

帖子 eexpress » 2010-08-21 0:11

代码: 全选

● 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) 查看 2618 次
58.png
● 鸣学
头像
wean
帖子: 686
注册时间: 2007-04-23 14:47
系统: Gentoo
来自: 常熟
送出感谢: 1 次
接收感谢: 1 次
联系:

Re: 纯perl的mldonkey的下载信息

#2

帖子 wean » 2010-08-21 0:17

神的沙发 :em06
JiangHui
论坛版主
帖子: 21303
注册时间: 2007-08-02 20:29
系统: 窓辺とうこ
送出感谢: 0
接收感谢: 13 次

Re: 纯perl的mldonkey的下载信息

#3

帖子 JiangHui » 2010-08-21 0:38

来看EE下些什么东西
头像
kakashiljf
帖子: 314
注册时间: 2008-10-14 16:36
送出感谢: 0
接收感谢: 1 次

Re: 纯perl的mldonkey的下载信息

#4

帖子 kakashiljf » 2010-08-21 0:51

这个有意思! :em05
学习知识本身其实是个痛苦的过程,但运用知识的过程,一般都很有趣,往往值得忍受当初那些“痛苦的学习过程”。
头像
c\nc
帖子: 231
注册时间: 2007-12-25 12:51
送出感谢: 0
接收感谢: 0

Re: 纯perl的mldonkey的下载信息

#5

帖子 c\nc » 2010-08-21 3:31

我在用的:

代码: 全选

#!/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
gzbao9999
帖子: 627
注册时间: 2008-11-08 18:34
送出感谢: 0
接收感谢: 1 次

Re: 纯perl的mldonkey的下载信息

#6

帖子 gzbao9999 » 2010-08-21 8:30

dog 相比cat 有啥特色?
气血鼓荡,身体发胀,偶飘上头,三时舒畅
头像
leeaman
帖子: 30702
注册时间: 2007-02-02 18:14
系统: debian sid
送出感谢: 1 次
接收感谢: 23 次

Re: 纯perl的mldonkey的下载信息

#7

帖子 leeaman » 2010-08-21 8:56

ls对ee家的dog和cat千万别有兴趣 :em04
ps:ee也喜欢地球上最性感的pp啊 :em04
醉了星星,醉月亮●●●●●The Long Way To Go(*^_^*)
头像
eexpress
帖子: 58428
注册时间: 2005-08-14 21:55
来自: 长沙
送出感谢: 4 次
接收感谢: 256 次

Re: 纯perl的mldonkey的下载信息

#8

帖子 eexpress » 2010-08-21 20:28

我对nc+awk的结果,很不满意。才写的这个。awk在多种情况,会错误的取数据的。

用perl的话。干净的数据。
● 鸣学
头像
c\nc
帖子: 231
注册时间: 2007-12-25 12:51
送出感谢: 0
接收感谢: 0

Re: 纯perl的mldonkey的下载信息

#9

帖子 c\nc » 2010-08-21 23:16

eexpress 写了:我对nc+awk的结果,很不满意。才写的这个。awk在多种情况,会错误的取数据的。

用perl的话。干净的数据。
咱没功夫学perl,并且我这个awk是酒精考验过的 :em04
头像
eexpress
帖子: 58428
注册时间: 2005-08-14 21:55
来自: 长沙
送出感谢: 4 次
接收感谢: 256 次

Re: 纯perl的mldonkey的下载信息

#10

帖子 eexpress » 2010-08-22 13:33

考验的,还不是以前抄我的。 lol

你遇到的情况,估计少很多。
● 鸣学
头像
c\nc
帖子: 231
注册时间: 2007-12-25 12:51
送出感谢: 0
接收感谢: 0

Re: 纯perl的mldonkey的下载信息

#11

帖子 c\nc » 2010-08-22 14:42

eexpress 写了:考验的,还不是以前抄我的。 lol

你遇到的情况,估计少很多。
:em20 :em20 :em20 :em20 :em20
tusooa
帖子: 6546
注册时间: 2008-10-31 22:12
系统: 践兔
送出感谢: 6 次
接收感谢: 10 次
联系:

Re: 纯perl的mldonkey的下载信息

#12

帖子 tusooa » 2010-08-22 20:56

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 //
头像
eexpress
帖子: 58428
注册时间: 2005-08-14 21:55
来自: 长沙
送出感谢: 4 次
接收感谢: 256 次

Re: 纯perl的mldonkey的下载信息

#13

帖子 eexpress » 2010-08-23 10:53

● type dog
dog 已被别名为“grep -v -E "(^$|^#|^!)"”

你们居然yy。
:em04
● 鸣学
tusooa
帖子: 6546
注册时间: 2008-10-31 22:12
系统: 践兔
送出感谢: 6 次
接收感谢: 10 次
联系:

Re: 纯perl的mldonkey的下载信息

#14

帖子 tusooa » 2010-08-23 21:29

原来exp.express的狗不是一般人用的狗,用来删除空行和注释的...

代码: 全选

] ls -ld //
tusooa
帖子: 6546
注册时间: 2008-10-31 22:12
系统: 践兔
送出感谢: 6 次
接收感谢: 10 次
联系:

Re: 纯perl的mldonkey的下载信息

#15

帖子 tusooa » 2010-08-24 13:56

额,--mono没必要阿,命令后面加B

代码: 全选

] ls -ld //
回复

回到 “Shell脚本”