wer hat lust auf ein Spiel? - #134936 (Projekte)

topeg

2010-03-16 13:29

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Schau mal im post von renee:

Code (perl): (dl )

while( my $line = <__FILE__> )
{
  if $line =~ /^\Q-Marker1-\E/ .. $line =~ /^\Q-Marker2-\E/
  {
    # mach was mit $line
  }
}

Ich mache es etwas anders, da ich nur ersetzen möchte und nicht irgendwie verarbeiten:

Code (perl): (dl )

local $/=undef;
my $alles=<__FILE__>;

my $ersetzung="....";

$alles=~s/\Q-Marker1-\E.+\Q-Marker2-\E/$ersetzung/;

# ....