Opened by pearl-man at 2005-12-21 09:45
User since
2004-07-19
1776 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
2004-07-19
1776 Artikel
HausmeisterIn
Der erste Teil des Codes lässt sich vereinfachen. Statt
könntest du etwas einfacher und effizienter
schreiben. Oder noch etwas genereller anwendbar, was die Eingabedaten angeht:
Siehe zur Erklärung perldoc perlvar, Abschnitt über $/.\n\n
<!--EDIT|murphy|1135176707-->
Code: (dl
)
1
2
3
4
5
6
7
open(VHOSTS, "<$vhosts_file") || &error("Kann die Datei $vhosts_file nicht lesen!", 1);
my $content = "";
while (<VHOSTS>){
$content.=$_;
}
close(VHOSTS);
my @vhosts = split(/\n\n/, $content);könntest du etwas einfacher und effizienter
Code: (dl
)
1
2
3
4
open(VHOSTS, '<', $vhosts_file) || &error("Kann die Datei $vhosts_file nicht lesen!", 1);
my @vhosts;
{ local $/ = "\n\n"; @vhosts = <VHOSTS>; }
close(VHOSTS);schreiben. Oder noch etwas genereller anwendbar, was die Eingabedaten angeht:
Code: (dl
)
1
2
3
4
open(VHOSTS, '<', $vhosts_file) || &error("Kann die Datei $vhosts_file nicht lesen!", 1);
my @vhosts;
{ local $/ = ''; @vhosts = <VHOSTS>; }
close(VHOSTS);Siehe zur Erklärung perldoc perlvar, Abschnitt über $/.\n\n
<!--EDIT|murphy|1135176707-->
When C++ is your hammer, every problem looks like your thumb.