Opened by pearl-man at 2005-12-21 09:45
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
[quote=Strat,22.12.2005, 16:12]wie gefaellt euch eigentlich folgendes?
[/quote]
naja... =)
spart das close, und setzt $/ noch etwas sinnvoller.
Code: (dl
)
1
2
3
4
5
6
7
open (VHOSTS, "<", $vhosts_file)
or &error("Kann die Datei '$vhosts_file' nicht lesen: $!", 1);
my @vhosts = do {
local $/ = "\n\n";
<VHOSTS>;
};
close(VHOSTS);
naja... =)
Code: (dl
)
1
2
3
4
5
6
my @vhosts = do {
open my $vhosts, '<', $vhosts_file
or error("Kann die Datei '$vhosts_file' nicht lesen: $!", 1);
local $/ = '';
<$vhosts>;
};spart das close, und setzt $/ noch etwas sinnvoller.
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