Opened by bloonix at 2005-12-19 02:24
User since
2003-08-04
12209 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12209 Artikel
Admin1
[quote=opi,22.12.2005, 02:26]Ich habe mir auf CPAN.org einen Entwickler-Account angelegt und das
Modul hochgeladen.[/quote]
anmerkung zu test.pl:
du solltest eins der test-module benutzen (Test::Simple z.B. ist sehr einfach,
wie der name schon sagt).
der block
ist wirklich unschön.
wie wär's mit
davon hast du noch mehr im modul.
das ist, nebenbei, auch ineffizient.\n\n
<!--EDIT|pq|1135250830-->
Modul hochgeladen.[/quote]
anmerkung zu test.pl:
du solltest eins der test-module benutzen (Test::Simple z.B. ist sehr einfach,
wie der name schon sagt).
der block
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
( $net{$2}{NetRxBytes}
, $net{$2}{NetRxPackets}
, $net{$2}{NetRxErrs}
, $net{$2}{NetRxDrop}
, $net{$2}{NetRxFifo}
, $net{$2}{NetRxFrame}
, $net{$2}{NetRxCompr}
, $net{$2}{NetRxMulti}
, $net{$2}{NetTxBytes}
, $net{$2}{NetTxPacktes}
, $net{$2}{NetTxErrs}
, $net{$2}{NetTxDrop}
, $net{$2}{NetTxFifo}
, $net{$2}{NetTxColls}
, $net{$2}{NetTxCarr}
, $net{$2}{NetTxCompr}
) = split /\s+/, $4;ist wirklich unschön.
wie wär's mit
Code: (dl
)
1
2
3
4
5
@{$net{$2}}{qw(
NetRxBytes NetRxPackets NetRxErrs NetRxDrop NetRxFifo NetRxFrame
NetRxCompr NetRxMulti NetTxBytes NetTxPacktes NetTxErrs NetTxDrop
NetTxFifo NetTxColls NetTxCarr NetTxCompr
)} = split /\s+/, $4;davon hast du noch mehr im modul.
das ist, nebenbei, auch ineffizient.\n\n
<!--EDIT|pq|1135250830-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem