Opened by gast at 2010-05-04 12:59
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
evtl. könnte man die regex zusammenfassen:
könnte mir aber vorstellen, dass das gar nicht soviel bringt an performance. ist aber leserlicher, gerade wenn es noch mehr als 3 ziffern werden.
use warnings solltest du übrigens immer angeschaltet haben. nicht auskommentieren. wenn notwendig an bestimmten stellen mit no warnings '...' deaktivieren.
und ich empfehle:
WasIsteinLexikalischerFileHandle
Code (perl): (dl
)
1 2 3 4 5 6
my @fh = (\*OUT1, \*OUT2, \*OUT3); if (m/^([012])/) { my $index = $1; my $fh = $fh[$index]; print $fh "$_\n"; }
könnte mir aber vorstellen, dass das gar nicht soviel bringt an performance. ist aber leserlicher, gerade wenn es noch mehr als 3 ziffern werden.
use warnings solltest du übrigens immer angeschaltet haben. nicht auskommentieren. wenn notwendig an bestimmten stellen mit no warnings '...' deaktivieren.
und ich empfehle:
WasIsteinLexikalischerFileHandle
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