纯perl的mldonkey的下载信息

[eexpress]

代码： 全选

● 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。

[wean]

神的沙发

[JiangHui]

来看EE下些什么东西

[kakashiljf]

这个有意思！

[c\nc]

我在用的：

代码： 全选

#!/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]

dog 相比cat 有啥特色？

[leeaman]

ls对ee家的dog和cat千万别有兴趣
ps:ee也喜欢地球上最性感的pp啊

[eexpress]

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

用perl的话。干净的数据。

[c\nc]

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

用perl的话。干净的数据。

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

[eexpress]

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

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

[c\nc]

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

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

[tusooa]

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 [email protected]
tlcr: 0  20:52:37 ~/应用/源码/tusooa/Gentoo/Overlay/app-i18n/fcitx
● 

[eexpress]

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

你们居然yy。

[tusooa]

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

[tusooa]

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