Thread (Message) | Date | Author |
Score |
Board |
RegEx: optionale Matches an Subroutine weitergeben
(#100043) |
2007-09-26 23:24 |
Froschpopo
|
 |
Allgemeines zu Perl |
[code]
#!/usr/bin/perl
use strict;
my $string = 'Das ist Martin: [BILD=martin.gif NAME="asd ass as" NAME2=hallo]';
$string =… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100044) |
2007-09-26 23:42 |
topeg
|
 |
Allgemeines zu Perl |
Ein Leerzeichen zu viel. So:
[code]$string =~s![/code]
nicht so;
[code]$string = ~s![/code] |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100045) |
2007-09-27 00:19 |
Froschpopo
|
 |
Allgemeines zu Perl |
Super!
Weiter gehts:
[code]
my $string = 'Das ist Martin: [LINK="http://www.test.de" TARGET=_blank]klick hier[/LINK]';
[/code]
Nun haben wir einmal wie gehabt die Parameter im öffnenden Tag… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100046) |
2007-09-27 00:48 |
topeg
|
 |
Allgemeines zu Perl |
… du sowas?
[code]#!/usr/bin/perl
use strict;
use warnings;
sub parse_link {
# $_=~s/^['"]|["']$//gs for(@_);
my %params = @_;
print "$_ = ".$params{$_}."\n" for keys %params… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100047) |
2007-09-27 01:03 |
Froschpopo
|
 |
Allgemeines zu Perl |
Aber der Code parst ja jetzt wieder NUR den Link.
Ich habe nach wie vor auch noch StandAlone-Tags, wie z.b. <img>. |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100049) |
2007-09-27 07:49 |
topeg
|
 |
Allgemeines zu Perl |
achso.
Du willst sowas:
[code]#!/usr/bin/perl
use strict;
use warnings;
sub parse {
my %params = @_;
print "$_ = ".$params{$_}."\n" for keys %params; print "#####\n"… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100095) |
2007-09-28 06:19 |
Froschpopo
|
 |
Allgemeines zu Perl |
Das ist sehr sehr gut und funktioniert sogar!
Aber jetzt habe ich noch letztes Problem mit folgenden Alleinstehenden-Tags:
[code]
[ZITAT]Dies ist ein Zitat[/ZITAT]
oder:
[HEADLINE]Dies ist… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100152) |
2007-09-28 23:56 |
topeg
|
 |
Allgemeines zu Perl |
… sollte Funktionieren:
[code]#!/usr/bin/perl
use strict;
use warnings;
sub parse
{
my %params = @_;
# my @l=@_; print join('|',@l)."\n----\n";
print "$_ = ".$params{$_}."\n" for keys… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100154) |
2007-09-29 01:39 |
Froschpopo
|
 |
Allgemeines zu Perl |
Aber wir sollten vorher checken, warum das nicht zuverlässig funktioniert.
hast du herausgefunden WANN dieser Zufall eintritt?
Es verwirrt mich wenn wir eine neue Funktion einfügen und die alte… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100155) |
2007-09-29 01:54 |
topeg
|
 |
Allgemeines zu Perl |
Die Regexp ist schlecht gebaut. Ich werde mich am Wochenende nochmal damit beschäftigen. Ich vermute Meine Konstruktion ist so ungewöhnlich, dass der RegexpParser durch einander kommt. |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100156) |
2007-09-29 02:01 |
topeg
|
 |
Allgemeines zu Perl |
Habe schon eine Idee woran es liegen könnte. Aber Morgen mehr. |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100157) |
2007-09-29 02:13 |
topeg
|
 |
Allgemeines zu Perl |
Fehler gefunden. War doch einfacher als gedacht.
[code]#!/usr/bin/perl
use strict;
use warnings;
sub parse
{
my %params = @_;
# my @l=@_; print join('|',@l)."\n----\n";
print "$_ =… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100358) |
2007-10-05 16:10 |
Froschpopo
|
 |
Allgemeines zu Perl |
Wunderbar, klappt prima! Danke!
leider leider habe ich wieder ein Problem:
Man kann leider keine Tags ineinander verschachteln:
[code]
[LINK=http://...]dieser Link ist… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100361) |
2007-10-05 16:15 |
renee
|
 |
Allgemeines zu Perl |
*hust* BBCode *hust* |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100363) |
2007-10-05 16:26 |
Froschpopo
|
 |
Allgemeines zu Perl |
nein, etwas mehr als das, weil bbcode fast nie z.b. title-tags unerstützt.
Ich möchte u.a. auch sowas hier machen:
[code]
[ZITAT]Also sprach zaratustra[/ZITAT]
<div class="zitat">...</div>… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100396) |
2007-10-06 16:07 |
Froschpopo
|
 |
Allgemeines zu Perl |
mal ne ganz doofe Frage: könnte man hierfür nicht irgendeinen Trick mit HTML::Parser versuchen?
Also quasi, dass HTML::Parser alle [] Tags parst, dann wären doch theoretisch sämtliche Probleme… |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100398) |
2007-10-06 16:28 |
ptk
|
 |
Allgemeines zu Perl |
Klar kann man, aber dazu musst du HTML::Parser patchen. Genau genommen müsstest du alle Vorkommen von '<' und '>' in hparser.c ersetzen. |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100402) |
2007-10-06 17:03 |
Froschpopo
|
 |
Allgemeines zu Perl |
und wenn ich die < und > einfach beibehalte, aber die Tags ändere:
<BILD=img.gif>
<LINK=http://...>linktext</LINK>
usw.
wäre das sehr schwierig durch Code zu ersetzen? |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100407) |
2007-10-06 18:25 |
ptk
|
 |
Allgemeines zu Perl |
Dann nimm doch gleich HTML. |
|
RegEx: optionale Matches an Subroutine weitergeben
(#100414) |
2007-10-06 19:14 |
Froschpopo
|
 |
Allgemeines zu Perl |
… Vater besteht auf deutsche Tags a la <BILD=img.gif>
Ich habe auch mittlerweile selbst mal versucht ein bisschen zu experimentieren:
[code]
#!/usr/bin/perl
use strict;
my $str = "wir… |