Perl, läsa in text!

1 svar · 392 visningar · startad av Sebek 26 juli 2000

SebekMedlem sedan juni 20008 inlägg

Frågan26 juli 2000 01:16#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;

Denna text ska in i en variabel som kan heta $text

;

hur gör man???

------------------
/Sebek

RobbanMedlem sedan dec. 19992 555 inlägg

28 juli 2000 11:13#2

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;

------------------
Robban < robban@lipogram.com >

[Redigerat av Robban den 28 jul 2000]