Problem beim taggen einer Datei via zweiter Datei. - #110650 (Allgemeines zu Perl)

2008-06-02 23:04

User since
2003-08-04
12209 Artikel
Admin1

vorbildliche problembeschreibung =)
aber ich hab da ein paar anmerkungen. ein paar sachen kannst du schöner schreiben,
und fehler.

efbe+2008-06-02 20:19:06--
Code (perl): (dl )
use strict 'vars';

hier am besten:

Code (perl): (dl )

1
2

use strict;
use warnings;

Quote

Code (perl): (dl )

{
my @words;
my $file_in;
...

am besten deklariert man die variablen erst da, wo sie gebraucht werden, nicht alle
am anfang. das ist sauberer.

Quote

Code (perl): (dl )

1
2

open (INPUT, "$file_in") or die %!;
open (TESTFILE, "$file_test") or die %!;

Code (perl): (dl )

1
2

open INPUT, '<', $file_in or die $!;
open TESTFILE, '<', $file_test or die $!;

Quote
Code (perl): (dl )
%koroesi = @koroesi;

hier der fehler. der hash wird gefüllt mit jedem zweiten wort als schlüssel und den
anderen als wert. ausserdem musst du erst noch die zeilenenden entfernen.

Code (perl): (dl )

1
2

chomp @koroesi;
my %koroesi = map { ( $_ => 1) } @koroesi;

Quote

Code (perl): (dl )

        (@columns) = split (/ /,$line);

meinem geschmack nach zu viele klammern.

Code (perl): (dl )

my @columns = split / /, $line;

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem