nl2br() equivalent in perl?

[markus]

Hallo,

kann mir jemand sagen, ob es für perl eine funktion gint, die dasselbe macht wie nl2br() in php? konnte im netz nichts finden!
kann dan ein regulärer ausdruck helfen? ein beispiel wäre super!

danke :-)
marckus

[Struppi]

kann mir jemand sagen, ob es für perl eine funktion gint, die dasselbe macht wie nl2br() in php? konnte im netz nichts finden!
kann dan ein regulärer ausdruck helfen? ein beispiel wäre super!

sub nl2br
{
    my $text = shift || return;
    # Sonderzeichen
    $text=~ s/\015\012|\015|\012/<BR>/g;
    return $text;
}

[markus]

Danke :-)

kann mir jemand sagen, ob es für perl eine funktion gint, die dasselbe macht wie nl2br() in php? konnte im netz nichts finden!
kann dan ein regulärer ausdruck helfen? ein beispiel wäre super!

sub nl2br
{
    my $text = shift || return;
    # Sonderzeichen
    $text=~ s/\015\012|\015|\012/<BR>/g;
    return $text;
}