Opened by carlo.eberhardt at 2004-07-27 16:33
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
du hast was wichtiges vergessen. wie sieht denn deine html-datei aus?
sollen wir raten? ok, dann rate ich mal, du willst jede zeile splitten,
aber nur in maximal 5 teile, ja? dann versuch mal den code hier, der läuft wenigstens
mit strict und warnings und bricht auch ab, falls die datei nicht geöffnet
werden kann.
sollen wir raten? ok, dann rate ich mal, du willst jede zeile splitten,
aber nur in maximal 5 teile, ja? dann versuch mal den code hier, der läuft wenigstens
mit strict und warnings und bricht auch ab, falls die datei nicht geöffnet
werden kann.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use warnings;
my $file = "result.html";
open FILE, "<", $file or die $!;
my @lines = <FILE>;
close FILE;
foreach my $line (@lines) {
my ($a, $b, $c, $d, $rest) = split(/stelle wo geschnitten werden soll/, $line, 4);
print "$a\n";
print "$b\n";
print "$c\n";
print "$d\n";
print "$rest\n";
}
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:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem