Opened by Froschpopo at 2006-10-04 05:24
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
[quote=topeg,04.10.2006, 05:00]es gilt:
damit kannst du sowas machen:
Mit den Filehandle in einer Variablen kann man einfach mehr anstellen.[/quote]
was soll denn der prototyp bei my_read?
prototypen werden IMHO zu oft benutzt, und in diesem fall auch noch
falsch.
in meinen skripten ist immer warnings angeschaltet. hättest du das auch
gemacht, hätte perl dich auch gewarnt.
wenn du eine subroutine aufrufst, bevor sie deklariert wurde, kann
der prototyp nicht gecheckt werden.
hättest du den aufruf erst danach gemacht, hätte dich perl wiederum
darauf aufmerksam gemacht, dass du die subroutine per prototyp
mit 2 skalaren aufrufen willst, aber du rufst sie nur mit einem argument auf.
also gleich 2 fehler.\n\n
<!--EDIT|pq|1159970269-->
Code: (dl
)
$fh=*HANDLE
damit kannst du sowas machen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
my @dada=my_read($fh,",");
# oder
my @dada=my_read(*HANDLE);
sub my_read($$)
{
my $fh=shift(@_);
local $/=shift(@_);
my @ret=();
push(@ret,$line) while(my $line=<$fh>);
return(@ret);
}
Mit den Filehandle in einer Variablen kann man einfach mehr anstellen.[/quote]
was soll denn der prototyp bei my_read?
prototypen werden IMHO zu oft benutzt, und in diesem fall auch noch
falsch.
in meinen skripten ist immer warnings angeschaltet. hättest du das auch
gemacht, hätte perl dich auch gewarnt.
wenn du eine subroutine aufrufst, bevor sie deklariert wurde, kann
der prototyp nicht gecheckt werden.
hättest du den aufruf erst danach gemacht, hätte dich perl wiederum
darauf aufmerksam gemacht, dass du die subroutine per prototyp
mit 2 skalaren aufrufen willst, aber du rufst sie nur mit einem argument auf.
also gleich 2 fehler.\n\n
<!--EDIT|pq|1159970269-->
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