Thread perl: leerzeilen entfernen (113 answers)
Opened by sabrina at 2006-08-07 10:33

renee
 2006-08-09 15:52
#68618 #68618
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=sabrina,09.08.2006, 13:04]@havi
das ist mein script:
Code: (dl )
1
2
3
4
5
6
7
[...]
print left($matrix[0],90).left($matrix[1],90).left($matrix[2],90), "\n";
# und zum Beweis das die Leerstellen weg sind
#print "BEWEIS\n";
print "$matrix[0];$matrix[1];$matrix[2]\n";

[...]

hab es auf 90 geaendert

und das kommt dabei raus,(nur mal die ersten vier):
Code: (dl )
1
2
3
4
mustermann Bernd        blaDomain        32 016        85        5.7.2006  16:36        5.7.2006  16:36
mustermann Bernd blaDomain 32 016 85 5.7.2006 16:36 5.7.2006 16:36;;
maier Gerhard blubbDomain 66 715 457 6.7.2006 6:31
maier Gerhard blubbDomain 66 715 457 6.7.2006 6:31;;

jeder Name wird zweimal geschrieben, mit einem unterschied hinter der letzten zahl steht in der zweiten version immer zwei ;;
komisch!

[/quote]
Du hast ja auch zwei print-Statements
Quote
und miten in der datei kommt dann mal sowas:

Use of uninitialized value in length at C:\DOCUME~1\benutzername
\LOCALS~1\Temp\dzprltmp.pl line 34, <DATEN> line 33.
Use of uninitialized value in numeric lt (<) at C:\DOCUME~1\benutzername\LOCALS~1\Temp\dzprltmp.pl line 34, <DATEN> line 33.

Das kommt daher, dass Du versuchst an % zu splitten und nicht am Leerzeichen. Du musst auch schauen, dass Du das was hier geschrieben wird, richtig abtippst. Wenn Du an % splittest, gibt es keinen Wert in $data[1] und $data[2]. Daher kommt der nicht-initialisierte Wert.
Quote
numeric heist doch er will das ich zahlen schreibe oder?

Nee, Du schreibst die Zahl nicht, sondern versuchst in der Subroutine left einen Längenvergleich zu machen. Und da in $_[0] kein initialisierter Wert steht (aus gleichem Grund wie oben, kommt diese Warnung.\n\n

<!--EDIT|renee|1155124394-->
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/

View full thread perl: leerzeilen entfernen