[PERL] Links aus String löschen

  • Hallo,

    kurz mein Problem:

    Ich habe einen String der mehrere Linktags enthält, diese möchte ich gerne komplett entfernen, beginnend ab:

    Code
    <a>

    und endend ab

    Code
    </a>

    Ich habe es schon einmal so probiert:

    Code
    $tato =~ s/<a .*>(.*?)<\/a>///g;


    funktioniert leider nicht, ich habe dazu schon verschiedenste Sachen probiert, einige möglichkeiten durchprobiert jedoch hat es nie funktioniert.

    Mein Ziel ist es aus so einem Code:

    HTML
    Text1 <a href="titel.html" target="_blank">Breakdown</a> Text2


    folgendes zu machen:

    HTML
    Text1 Text2

    , der rest soll gelöscht werden.

    Und weil ja die <a-Tags variabel sein können auch aus sowas:

    HTML
    Text12 <a href="titels.html">Breakdown2</a> Text22


    so etwas machen:

    HTML
    Text12 Text22

    Ich hoffe mir kann jemand helfen, vielen dank!

  • Bin jetzt so weit:

    Code
    $tato =~ /<a(.*?)\/a>/aaa/gim;

    Problem: Er gibt jetzt aus:

    syntax error at test.pl line 108, near "/<a(.*?)\/a>/aaa"
    Execution of test.pl aborted due to compilation errors.

    Problem: Ich weis das ich das so machen müsste:

    Code
    $tato =~ [B]s[/B]/<a(.*?)\/a>/aaa/gim;

    Jedoch werden dann nur die Links gelöscht, die auch einzeilig sind, die die über zwei Zeilen gehen sollten auch gelöscht werden, kann mir jemand helfen wie ich das nun mache?