Split HTML: Split HTML - #84995 (Allgemeines zu Perl)

Relais

2004-07-27 16:52

User since
2003-08-06
2257 Artikel
ModeratorIn

Hallo Carlo,

willkommen bei der Perl-Community!

Großes Lob für den Code und dazu auch gleich ein paar Tips vorneweg:

Setze den Code in [code]-Tags. So lesen wir ihn gern.

use strict; # sollte drinnen bleiben, denn es schützt Dich vor allerlei Fehlern.

open(FILE, "<$file") or die $!; # schützt vor unerwarteten Überraschungen.

foreach $line (@lines) # probier es vielleicht lieber mit einer while-Schleife?

Code: (dl )

while my $line ( <FILE> ) { ...

(@a, @b, @c, @d, @rest) = split(/stelle wo geschnitten werden soll/, $line, 4)

Code: (dl )

my ($a, $b, $c, $d, @rest) = split(/stelle wo geschnitten werden soll/, $line, 4)

Da Arrays mit dem "@" keine feste Länge haben, kann split nicht wissen, wie Du das gemeint hast. Es schreibt einfach alles ins erste Array. Das ist aber auch nicht dumm, so geht alternativ:

Code: (dl )

1
2

my @teil = split(/stelle wo geschnitten werden soll/, $line, 4);
print $teil[0], "\n", $teil[1], "\n", $teil[2], "\n", $teil[3], "\n", @teil[ 4 .. $#teil ], "\n";

Ähnlich:

Code: (dl )

print( join ( "\n", @teil[ 0 .. 3 ], join( " ", @teil[ 4 .. $#teil ] ) ), "\n");

Edit: my vor die Variablen gepinselt.
Edit2: @ptks "stilistischem" Hinweis gefolgt, $i umbenannt 8)\n\n

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming