Regulärer Ausdruck: um Links automatisch zu verlinken (Allgemeines zu Perl)

Tom

2004-01-26 19:12

User since
2003-09-20
470 Artikel
BenutzerIn

Hallo,

Ich bin gerade dabei einen regulären Ausdruck zu erstellen der mir alle Webadressen automatisch verlinkt.

Im moment sieht der Ausdruck so aus

Code: (dl )

$sonstiges =~ s%([a-zA-Z]*?)\.([a-zA-Z0-9\-]*?)\.([a-zA-Z]{2,4}|[0-9]{1,4})%\<a href=http:\/\/$1.$2.$3\>$1.$2.$3\<\/a\>%ig;

Funktioniert auch schon ganz gut, wollte aber noch mal nachfragen ob ich nicht was wichtiges vergessen habe oder ob ich das so lassen kann.

Danke

Tom

P.S. Das "<a href="http:///" target="_blank">http:///"</a> entferne ich schon vorher aus der Variable!

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

Crian

2004-01-26 19:57

User since
2003-08-04
5871 Artikel
ModeratorIn

Hmmm... dafür gibt es ein schönes Modul, dessen Name mir gerade entfallen ist, aber das Strat bestimmt noch nennen wird :)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Gast Gast

2004-01-26 20:03

wieso nicht ganz einfach so:

Code (perl): (dl )

$_ = "<a href=http://" . $_ . ">" . $_ . "</a>";

ich finde es um Längen lesbarer.

Steve

Crian

2004-01-26 20:31

User since
2003-08-04
5871 Artikel
ModeratorIn

Wenn das eine passende Antwort ist, habe ich die Frage falsch verstanden, aber beim nochmaligen Lesen könnte es gut sein, dass sie passt. In dem Fall geb ich Dir dann auch noch Recht ;) :D

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Tom

2004-01-26 21:04

User since
2003-09-20
470 Artikel
BenutzerIn

[quote=Guest,26.01.2004, 19:03]wieso nicht ganz einfach so:

Code (perl): (dl )

$_ = "<a href=http://" . $_ . ">" . $_ . "</a>";

ich finde es um Längen lesbarer.

Steve[/quote]
Die Variable sonstiges enhält aber nicht nur Webadressen sondern auch normalen Text.

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

[E|B]

2004-01-26 22:03

User since
2003-08-08
2561 Artikel
HausmeisterIn

[quote=Crian,26.01.2004, 18:57]Hmmm... dafür gibt es ein schönes Modul, dessen Name mir gerade entfallen ist, aber das Strat bestimmt noch nennen wird :)[/quote]
Oder Erik... :D
URL::Find könnte da das richtige sein.
Wenn ich strat's Antwort vorweg nehmen darf:
=> Zu strat's Homepage
;)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

pq

2004-01-27 01:55

User since
2003-08-04
12208 Artikel
Admin1

[E|B
,26.01.2004, 21:03]URL::Find könnte da das richtige sein.

könnte. ist es aber nicht. ich würde da URI::Find vorziehen, das existiert
nämlich.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Tom

2004-01-27 22:56

User since
2003-09-20
470 Artikel
BenutzerIn

Das ist schön und gut aber wie Strat schon auf seiner Seite schreibt gehört das Modul nicht zu den Standardmodulen und da ich es den Usern die mein Script nutzen nicht so schwer machen wollte würde ich gerne auf meine oder auf eine andere Lösung setzen.

Was meint Ihr zu meinem Regulären Ausdruck kann man den so verwenden???

Danke

Tom

Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen

Crian

2004-01-28 00:38

User since
2003-08-04
5871 Artikel
ModeratorIn

Das sind dann aber nur reine Doimains, ohne Unterseiten oder gar Parameter?!

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

esskar

2004-01-28 06:57

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ich benutze meistens diesen:

Code: (dl )

s#(http|https|ftp)(://)([\w\Q.?/&-=\E~:\\]+)#<a href="$1$2$3" target=blank>$1$2$3</a>#isg;

\n\n