Regulärer Ausdruck: Problem am Begin (Allgemeines zu Perl)

Optalamia

2003-10-01 18:43

User since
2003-10-01
50 Artikel
BenutzerIn

Hi,

komme mit einem Regex nicht weiter:
Der soll Zeichenketten beginnend mit "www." (URI's) finden und ersetzen.
Klappt auch, allerdings nicht dann, wenn diese Zeichenkette ganz am Anfang steht.
Ich weiß, es liegt am "(\s)", aber das soll vergindern, daß z.B. "xxxwww." ersetzt wird.
Habe es auch mit dem Anker \b versucht, geht aber auch nicht.

Hat jemand Ideen?

Code: (dl )

# alte Variante

$txt =~ s%(\s)(www\.[^\s<]*)%$1<a href="http://$2" target="_blank">$2</a>%sg;

# andere (nicht funktionierende) Variante

  $txt =~ s%\w(www\.[^\s<]*)%<a href="http://$1" target="_blank">$1</a>%sg;

renee

2003-10-01 19:10

User since
2003-08-04
14371 Artikel
ModeratorIn

probier's mal mit

Code: (dl )

$txt =~ s%$(\s)?(www\.[^\s<]*)%$1<a href="http://$2" target="_blank"">$2</a>%sg;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

steffenw

2003-10-01 19:12

User since
2003-08-15
692 Artikel
BenutzerIn

Du mußt einen Anker am Anfang setzen entweder den ^ oder einen für den Wortanfang \b

/^www\./ erkennt www. usw.

/\bwww\,/ erkennt www. irgendwo zwischendrin aber vor www dürfen nur Nichtwortzeichen stehen.

$SIG{USER} = sub {love 'Perl' or die};

steffenw

2003-10-01 19:15

User since
2003-08-15
692 Artikel
BenutzerIn

[quote=renee,01.10.2003, 17:10]probier's mal mit

Code: (dl )

$txt =~ s%$(\s)?(www\.[^\s<]*)%$1<a href="http://$2" target="_blank"">$2</a>%sg;

[/quote]
also $ am Anfang ist irgendwie der falsche Anker und zu einer Variablen paßt es auch nicht

(\s)? ist eigentlich nichts also paßt auch xxxwww.

$SIG{USER} = sub {love 'Perl' or die};

renee

2003-10-01 19:28

User since
2003-08-04
14371 Artikel
ModeratorIn

Sorry, hast recht...
Meinte eigentlich das ^ !

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Optalamia

2003-10-02 05:05

User since
2003-10-01
50 Artikel
BenutzerIn

Ach ja,
statt \s wollte ich ja auch \b benutzen (Wortgrenze). Deshalb ging es nicht.
Aber auch mit \b ist es nicht so wie ich will, da 2 weitere Regex Adressen mit http:/// und Mail-Links ersetzen.
\b greift dann noch mal nach http:/// und macht Müll.
Aber egal, habe eine andere Lösung gefunden:
Zu den bisherigen Regex (die immer, bloß nicht am Text-Anfang ersetzen können) habe ich 2 weitere mit ^ hinzugefügt,
die nur solche am Anfang ersetzen.

Mein alter Professor würde jetzt vielleicht sagen, das sei die Methode, von hinten durch die Brust ins Schienenbein zu stechen (-;

Trotzdem Danke für die Antworten (-:

Gruß Optalamia

steffenw

2003-10-02 11:20

User since
2003-08-15
692 Artikel
BenutzerIn

Also, nimm "oder" und prüfe erst das spezielle, und dann das weniger spezielle.

Code: (dl )

m%
  (   # speichernde Klammer
    (?:   # gruppierende Klammer für "oder"
      \bhttp://   # das spezielle
      |
      \bwww\.   # das weniger spezielle
    )
    [^\s<]*   # was sonst noch gespeichert werden soll
  )
%x

\n\n

$SIG{USER} = sub {love 'Perl' or die};

format_c

2003-10-02 12:17

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ähm perldoc URI ?

Gruß Alex

Effizente Linuxshell