n-tes Vorkommen einer Zeichenkette in einem String ersetzen - #186687 (Allgemeines zu Perl)

hago

2017-06-14 01:58

User since
2016-05-29
31 Artikel
BenutzerIn
[default_avatar]

Vielen Dank,
das war genau der richtige Anstoß! Es klappt. So sieht es jetzt aus:

Code: (dl )

opendir(DIR, 'originale');
my @files = grep{ /jpg|JPG/ }readdir(DIR);
my $im = 0;
foreach (@files) {$im++;}
close (DIR);

my @list = split(/\n/, $teile[1]);
$list[($im+1)*3+$im] =~ s/<\/td>/<!--\/td>/;
my $mitte = join ("\n",@list);

Ich habe genau, was ich möchte.