Om textfilen heter text.txt bör följande fungera:
#!/usr/bin/perl -w
open (READ, "<text.txt") or die;
while (<READ> ) {
if (/<!--1-->/) {
while (<READ> ) {
last if /<!--2-->/;
$text .= $_;
}
}
}
close READ;
print $text;
Trådstart#1
Jag fick hjälp tidigare med att radera text mellan två avgränsare, men hur gör man för att läsa in texten mellan två angränsare till en variabel.
Exempel;
<!--1-->
Denna text ska in i en variabel som kan heta $text
<!--2-->
;
hur gör man???