Unmatched [ in regex - #99177 (Allgemeines zu Perl)

renee

2007-09-07 10:04

User since
2003-08-04
14371 Artikel
ModeratorIn

Code (perl): (dl )

1
2
3

for($i=0;$i<length($Question);$i+=1) {
      push(@letters,substr($Question,$i,1));
}

Besser:

Code (perl): (dl )

push @letters, split(//, $Question);

...

Code (perl): (dl )

1
2
3

for($i = 0; $i < $QNum; $i += 1) {
      $QuestionLine = <QFILE>;
}

vs.

Code (perl): (dl )

1
2
3

for(0..$QNum-1) {
      $QuestionLine = <QFILE>;
}

BTW: Was soll hier genau gemacht werden? die xte Zeile aus der Datei bekommen?

Dann würde ich eher CPAN:

Tie::File verwenden

...

Code (perl): (dl )

1
2
3

for($i=0;$i<scalar(@letters);$i+=1) {
      $Question = $Question." ".$letters[$i];
}

vs.

Code (perl): (dl )

1
2
3

for my $elem (@letters) {
      $Question .= " ".$elem;
}

oder noch besser:

Code (perl): (dl )

 $Question .= " " . join( " ", @letters);