Opened by sKy at 2007-04-04 17:25
User since
2003-08-04
14371 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
14371 Artikel
ModeratorIn
Ein paar allgemeine Anmerkungen:
*) Du solltest
[tt]use strict[/tt] verwenden.
*) Statt der der while-Scheife (while( $textkorp <= $anzahl )) wäre eine for-Schleife eleganter (und übersichtlicher).
*) Du kannst die Dateien in die Du schreibst auch vor der Schleife öffnen
*) Du solltest Fehler abfangen, vor allem beim Schreiben der Dateien.
*) ein einzelnes Element eines Arrays spricht man so an: $array[$index], also ein $ statt dem @
*) Aus
machst Du besser:
*) Du solltest
[tt]use strict[/tt] verwenden.*) Statt der der while-Scheife (while( $textkorp <= $anzahl )) wäre eine for-Schleife eleganter (und übersichtlicher).
*) Du kannst die Dateien in die Du schreibst auch vor der Schleife öffnen
*) Du solltest Fehler abfangen, vor allem beim Schreiben der Dateien.
*) ein einzelnes Element eines Arrays spricht man so an: $array[$index], also ein $ statt dem @
*) Aus
Code: (dl
)
1
2
3
4
5
6
7
8
9
open(TEXTDAT,'<',@textkorpora[$textpos]);
while(<TEXTDAT>)
{
chomp($_);
$korpustext=$korpustext.$_;
}
close(TEXTDAT);
Code: (dl
)
1
2
3
4
5
6
{
local $/;
open(TEXTDAT,'<',$textkorpora[$textpos]);
my $korpustext = <TEXTDAT>;
close(TEXTDAT);
}OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Frankfurt Perlmongers (http://frankfurt.pm/)
--
Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/