BBCode URL Teile filtern (gelöst) (Perl/CGI)

[thread]16254[/thread]

BBCode URL Teile filtern [gelöst]

Tags: perl5 CGI bbcode Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+9 replies
Gast John

2011-05-05 20:09
Hallo Leute,

ich bin mit meinem Latein am Ende. Jetzt wollte ich mal die Profis um Rat bitten. Und zwar geht es bei meinem Problem um Teile bei der YouTube URL.

Beispiel:
Adresse: http://www.youtube.com/watch?v=Hg8Fa_EUQqY
BBCode Eingabe: [youtube] http://www.youtube.com/watch?v=Hg8Fa_EUQqY [/youtube]

Regex
Code (perl): (dl )

$text =~ s/(\[youtube\])(.+?)(\[\/youtube\])/<iframe width=\"400\" height=\"300\" src=\"http:\/\/www.youtube.com\/embed\/$2\" frameborder=\"0\" allowfullscreen><\/iframe>/isg;
So wie ich das jetzt habe dürfte der User nur den URL Teil: "Hg8Fa_EUQqY",
eingeben damit das Video angezeigt wird. Jetzt ist meine Frage an Euch, wie könnte ich das machen das der URL Teil auch bei Eingabe der ganzen URL raus gefiltert wird?

Wenn jemand eine Idee hat - immer her damit.

LG, John
Last edited: 2011-05-08 12:24:09 +0200 (CEST)
- +4 replies
- topeg
  
  2011-05-06 08:00
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  #!/usr/bin/perl use strict; use warnings; my $text=<<EOT; [youtube][/youtube] [youtube]1234_Abc[/youtube] [youtube]http://www.youtube.de/?v=1234_Abc[/youtube] [youtube]http://www.youtube.de/embed/1234_Abc[/youtube] [youtube]foo bar bam 123[/youtube] EOT $text =~ s#\Q[youtube]\E\s*(?:\Qhttp://www.youtube.\E.+?(?:v=(\w+)|embed/(\w+))|(\w+)|.*?)\s*\Q[/youtube]\E# my $val=$1 || $2 || $3; $_=$val?qq(<iframe width="400" height="300" src="http://www.youtube.com/embed/$val" frameborder="0" allowfullscreen></iframe>):''; #isge; print $text;
  
  Aber ich würde dir Vorschlagen zum Parsen von BBC-Tags ein Modul zu nutzen (siehe cpan). Das macht es nicht nur einfacher wartbar und erweiterbar, sondern kann auch Verschachtelungen Handhaben und Fehler erkennen.
  - +3 replies
  - John_W
    
    2011-05-06 20:54
    
    User since
    2011-05-06
    3 Artikel
    BenutzerIn
    
    Hallo topeg,
    
    oh Gott oh Gott, ich hoffe das hat nicht zulange gedauert?
    Bin Dir für Deine Hilfe wirklich dankbar, auch wenn ich erst mal Dein Programm Teil analysieren muss um damit zuarbeiten.
    
    Zum Tipp mit dem BBC-Tags Parsen per Modul. Hatte mir die Module auf Cpan schon angesehen sind für mich aber nicht so leicht verständlich.
    
    Eine frage habe ich noch und zwar sind viele User nicht in der Lage eine Adresse, in Beispiel: [*URL*]Test[*/URL*], einzugeben. Können die besagten Module die URL erkennen und die Automatisch Parsen?
    
    Danke nochmal für Deine Hilfe.
    
    Gruß, John
    Last edited: 2011-05-06 21:44:43 +0200 (CEST)
    Hindernisse und Schwierigkeiten sind Stufen, auf denen wir in die Höhe steigen.
    - pq
      
      2011-05-06 22:05
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
      
      use Parse::BBCode; use URI::Find; my $finder = URI::Find->new(sub { my ($url) = @_; my $title = $url; if (length($title) > $max_url) { $title = substr($title, 0, $max_url) . "..."; } my $escaped = Parse::BBCode::escape_html($url); my $escaped_title = Parse::BBCode::escape_html($title); my $href = qq{<a href="$escaped">$escaped_title</a>}; return $href; }); my $p = Parse::BBCode->new({ tags => { # parsen von text ausserhalb/innerhalb von tags '' => sub { my $e = $_[2]; my $count = $finder->find(\$e, $escape); $e =~ s/\r?\n|\r/<br>\n/g; $e }, # parsen von [youtube] tags youtube => # code aus meinem anderen posting }, });
      
      ungetestet
      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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - topeg
      
      2011-05-06 22:06
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      2011-05-06T18:54:48 John_W
      Bin Dir für Deine Hilfe wirklich dankbar, auch wenn ich erst mal Dein Programm Teil analysieren muss um damit zuarbeiten.
      
      Ohne Arbeit geht es selten.
      
      2011-05-06T18:54:48 John_W
      Eine frage habe ich noch und zwar sind viele User nicht in der Lage eine Adresse, in Beispiel: [*URL*]Test[*/URL*], einzugeben. Können die besagten Module die URL erkennen und die Automatisch Parsen?
      
      URI::Find wurde dafür geschrieben. Beispiel:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
      
      #!/usr/bin/perl use strict; use warnings; use URI::Find; use CGI; my $text=<<'EOT'; Etwas Text mit einer der URL http://www.example.org drin. das hier geht auch: ftp://ftp.example.org/pub/index.txt ! EOT my $cgi=CGI->new(); my $finder = URI::Find->new(sub{ return $cgi->a({-href=>$_[0]},$_[1]); } ); $finder->find(\$text); print $text;
- +4 replies
- pq
  
  2011-05-06 22:00
  User since
  2003-08-04
  12208 Artikel
  Admin1
  hier das ganze mit Parse::BBCode:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
  
  use strict; use warnings; use Parse::BBCode; my $p = Parse::BBCode->new({ tags => { youtube => { code => sub { my ($parser, $attr, $content) = @_; my $id = $$content; if ($id =~ m{^http://www\.youtube\.(?:de|com)/(?:(?:watch)?\?v=|embed/)(\S*)$}) { $id = $1; } my $escaped = Parse::BBCode::escape_html($id); return qq{<iframe width="400" height="300" } . qq{src="http://www.youtube.com/embed/$escaped" } . qq{frameborder="0" allowfullscreen></iframe>}; }, parse => 0, }, }, }); my $bbcode = do { local $/; <DATA> }; my $html = $p->render($bbcode); print $html; __DATA__ [youtube][/youtube] [youtube]1234_Abc[/youtube] [youtube]http://www.youtube.de/?v=1234_Abc[/youtube] [youtube]http://www.youtube.de/embed/1234_Abc[/youtube] [youtube]foo bar bam 123[/youtube] [youtube]http://www.youtube.com/watch?v=Hg8Fa_EUQqY[/youtube]
  
  Editiert von pq: escape_html($id) hinzugefügt
  Last edited: 2011-05-06 22:10:26 +0200 (CEST)
  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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - John_W
    
    2011-05-07 19:27
    
    User since
    2011-05-06
    3 Artikel
    BenutzerIn
    
    So Leute, habe alles mal getestet.
    Werde den Programm Teil erst mal von topeg benutzen.
    Aber in Zukunft werde ich meine mühselig erstellen Regex Parser durch Module ersetzen.
    
    Nochmal 1000 Dank an alle. :)
    
    Gruß, John
    Hindernisse und Schwierigkeiten sind Stufen, auf denen wir in die Höhe steigen.
    - +2 replies
    - pq
      
      2011-05-07 20:13
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      beachte aber, dass topeg zwei einzelne code-teile gepostet hat. mit dem einen ersetzt du youtube-tags, mit dem anderen findest du urls und ersetzt sie durch HTML-a-tags. du musst beide kombinieren, sonst ersetzt du eventuell etwas doppelt. muss der rest des textes auch noch von HTML befreit werden bzw. html-escaped werden, musst du das auch noch mit kombinieren.
      mein parser tut genau das.
      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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - John_W
        
        2011-05-10 03:14
        
        User since
        2011-05-06
        3 Artikel
        BenutzerIn
        
        Hatte ich bedacht.
        
        Habe Eure Beispiele mal getestet.
        
        Parse::BBCode ist sehr gut erklärt.
        Werde mich da jetzt mal weiter einarbeiten und das Modul für meinen BBCode verwenden. Ich hoffe das es weiterhin so gut klappt. :)
        
        Danke nochmal an alle. :)
        
        Gruß John
        
        Editiert von John_W: Könnte jemand den Beitrag als gelöst markieren?
        Last edited: 2011-05-10 03:17:20 +0200 (CEST)
        Hindernisse und Schwierigkeiten sind Stufen, auf denen wir in die Höhe steigen.

View all threads created 2011-05-05 20:09.