perl: leerzeilen entfernen - #68659 (Allgemeines zu Perl)

sabrina

2006-08-11 13:14

User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]

@renee
mein code sieht jetzt so aus :

Code: (dl )

 my $zeile;
  my @matrix = ();
  my @matrix = split(/[\t\s\\]/,$zeile);
  my $string = "@matrix";

 foreach (@matrix) {
    $string = ~ s/^\s+\t\\/;/g; # fuehrende und
    s/\s+$\t\\/;/g; # abschliessende Blanks entfernen
 } # foreach

und ich bekomme immernoch nur

Code: (dl )

  <<
  <<
  <<
  <<

und er meckert nur in zeile 19 und die heisst

Code: (dl )

 my @matrix = split(/[\t\s\\]/,$zeile);

sein kommentar

Code: (dl )

"my" variable @matrix masks earlier declaration in same scope at wichtig_blubb.pl line 19.

aber matrix ist doch declariert genau darueber

Code: (dl )

1
2

  my $zeile;
  my @matrix = ();

lg sabrina