Opened by bloonix at 2005-12-19 02:24
User since
2005-12-17
1615 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
2005-12-17
1615 Artikel
HausmeisterIn
[quote=esskar,24.12.2005, 00:56]aber von langsam an der stelle würde ich nicht sprechen ... wie kommen wir eigentlich darauf (bin jetzt zu faul zurück zu blättern)[/quote]
Es ging hierum ...
@steffenw, "Codeästhetik und Perl Fun" habe ich mir durchgelesen... nicht schlecht :)
statt
würde ich allerdings
schreiben, denn warum die Zeile erst durch $1 ersetzen, wenn man doch
eh nur $1 ausgeben möchte. Und am Ende einer Zeile befindet sich immer
ein Newline. Oder liege ich da falsch?
Es ging hierum ...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
my %file = (
'passwd' => '/etc/passwd',
'procdir' => '/proc',
'stats' => '/proc/stat',
'meminfo' => '/proc/meminfo',
'sysinfo' => '/proc/sysinfo',
'cpuinfo' => '/proc/cpuinfo',
'vmstat' => '/proc/vmstat',
'loadavg' => '/proc/loadavg',
'sockstats' => '/proc/net/sockstat',
'netstats' => '/proc/net/dev',
'diskstats' => '/proc/diskstats',
'partitions' => '/proc/partitions',
'uptime' => '/proc/uptime',
'hostname' => '/proc/sys/kernel/hostname',
'domain' => '/proc/sys/kernel/domainname',
'kernel' => '/proc/sys/kernel/ostype',
'release' => '/proc/sys/kernel/osrelease',
'version' => '/proc/sys/kernel/version',
);
@steffenw, "Codeästhetik und Perl Fun" habe ich mir durchgelesen... nicht schlecht :)
statt
Code: (dl
)
print if s/^(\w*):.*/$1/;
würde ich allerdings
Code: (dl
)
print "$1\n" if /^(\w*):.*/;
schreiben, denn warum die Zeile erst durch $1 ersetzen, wenn man doch
eh nur $1 ausgeben möchte. Und am Ende einer Zeile befindet sich immer
ein Newline. Oder liege ich da falsch?
What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.