Maik: Split it !

Hi Leute,

i have little Problem.
Also ich hab ein Array in dem sowas steht wie
<html>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
...

Nun will ich, dieses Array so splitten, dass ich in jedem Feld von einem neuen
Array das so drinstehen habe:
$neuarr [0]=<html>
$neuarr [1]=<Head>
$neuarr [2]=<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
$neuarr [.]=<...>

Ich hoffe Ihr versteht wie ich es meine.

Also bis jetzt bin ich soweit:

@neuarr = split (/XXXXX/,$Antwort);

Kann mir jemand witerhelfen ?

cu
Maik

  1. Hi Leute,

    i have little Problem.
    Also ich hab ein Array in dem sowas steht wie

    nicht Array sondern Skalar

    <html>
    <HEAD>
    <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
    ...

    Nun will ich, dieses Skalar so splitten, dass ich in jedem Feld von einem neuen

    Array das so drinstehen habe:
    $neuarr [0]=<html>
    $neuarr [1]=<Head>
    $neuarr [2]=<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
    $neuarr [.]=<...>

    Ich hoffe Ihr versteht wie ich es meine.

    Also bis jetzt bin ich soweit:

    @neuarr = split (/XXXXX/,$Antwort);

    Kann mir jemand witerhelfen ?

    cu
    Maik

    1. Ich kann dir leider nur in der Theorie helfen, da ich die Perl-Sprache nicht kann:

      1. linke Seite bis Character 13 & Character 10 in Array speichern
      2. Rechte Seite wieder dem Skalar zuweisen
      3. zurück zu 1.

      mfg watchout

      P.S.: BASICS!!!

    2. Hi, Maik.

      Also ich hab ein Array in dem sowas steht wie
      nicht Array sondern Skalar
      <html>
      <HEAD>
      <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
      ...

      Nun will ich, dieses Skalar so splitten, dass ich in jedem Feld von einem neuen

      Sofern du also am Zeilenumbruch trennen willst, dann so
      $skalar =~ s/\015\012|\015|\012/\n/g;
      das erklärt den M$-newlines den Krieg und gewinnt :)
      dann
      @array = split /\n/, $skalar;

      Bye Ed X

  2. @neuarr = split (/XXXXX/,$Antwort);

    einfach:

    @neuarr = split (/\n/,$Antwort);

    Müßte gehen.