Community  »  Perl: Allgemeines Forum

split	Seitenanfang
Krieg nicht wirklich die Übungsaufgabe aus dem Perl Tutorial hin link steht ja oben drinne. hier nochmal: http://www.perlunity.de/perl/tutorial/split.shtml bisher: #!usr/local/bin/perl # use strict; my $z = 1; my $text = '/SAN/content/cgi-bin/text'; open (INFO, $text); my @lines = <INFO>; close (INFO); foreach my $zeile (@lines) { if ($zeile=~/[Dd]u/ ) { my @lines = split (/[Dd]u/, $zeile); foreach my $test_element (@lines){ print "$test_element"; } } } aber das ist ja nix komm nicht weiter pls help :( Datum: 11.04.2006-12:31
re: split	Seitenanfang
Hi, ich bin zwar nicht für's Lösung posten, aber hierin habe ich eine Herausforderung gesehen. Und wenn Du Dir den Lerneffekt kaputt machen lassen willst, dann bitteschön. ;-) Du solltest den Artikel mal *richtig* lesen. Die Lösung wird Dir quasi schon vorgegeben. #!/usr/bin/perl use strict; use warnings; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); print "Content-type: text/plain\n\n"; my $text = "roman5.txt"; my ($out, $tmp); open (F, "<", $text); my @lines = <F>; close (F); chop( @lines ); my $lines = "@lines"; @lines = split ( /[Dd]u/, $lines ); for ( my $i = 0; $i < $#lines; $i++ ) { $out = substr( $lines[$i], length($lines[$i]) - 20, 20 ); $out .= "du"; $out .= substr( $lines[$i + 1], 0, 20 ); print $out."\n"; } exit 0; Allerdings ist noch ein kleiner Fehler drinnen. Und zwar prüft das Skript so nicht ab, ob ein Teilstring, der links neben dem du stehen soll, möglicherweise zu kurz ist. Es müsste dann nämlich mit Leerzeichen auffüllen. -uw Datum: 11.04.2006-15:15
re: split [Ups - wie peinlich :-\ ]	Seitenanfang
Da hab' ich doch noch einen Fehler entdeckt. Hmmm, naja kann passieren, beim Copy/Paste. Der Ausdruck muss /du/ lauten. -uw Datum: 11.04.2006-15:19
re: split [Ups - wie peinlich :-\ ]	Seitenanfang
danke :D ich probiers mal aus Datum: 11.04.2006-15:39