Zeichen in RegEx darf nicht zwischen <> stehen (Allgemeines zu Perl)

[thread]7900[/thread]

Zeichen in RegEx darf nicht zwischen <> stehen

Leser: 2

Matze

2006-04-18 11:40

User since
2005-08-29
222 Artikel
BenutzerIn

Ist es möglich in einer Regular Expression zu definieren, dass z.B. eine Zahl nicht zwischen spitzen Klammern(<>) stehen darf ?
Denn nur, wenn sie nicht zwischen den Klammern steht, soll sie ersetzt werden mit einem HTML-Tag(<font color="#ff0000"></font>)

Ich wollte jede Zahl in einer Textdatei rot färben, aber wenn es jetzt eine Datei ist die schon HTML-Tags enthält, habe ich ein problem.
Dann werden auch Zahlen wie sie z.B. im color="" Attribut oft verwendet werden rot gefärbt.

Zum Verständnis, mein Versuch:

Code (perl): (dl )

$data =~ s/(\d+)/<font color=\"#ff0000\">$1<\/font>/gi

MfG. Matze

Mit freundlichen Grüßen: Matze

Crian

2006-04-18 12:22

User since
2003-08-04
5873 Artikel
ModeratorIn

Probier mal, ob (\d+)[^>]*(?:<|$) als Suchstring deinen Wunsch erfüllt.\n\n

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

Matze

2006-04-18 13:43

User since
2005-08-29
222 Artikel
BenutzerIn

Es ist schon sehr nah dran, allerdings verstehe ih nicht genau was dies: [^>]*(?:<|$) bewirkt.
Und bei folgender RegEx:

Code: (dl )

$data =~ s/(\d+)([^>]*(?:<|$))/<font color=\"#ff0000\">$1<\/font>$2/

Und folgender Testdatei:

Code: (dl )

<font color="#000000"><pre>
<br>"Hallo"
<br>1234<br>214214<br>346<br>
<br>
<br>();
<br>("Test! 2134",12421<br>
);</pre></font>

Dann wird bei mir leider die letzte Zahl(12421) nicht rot gefärbt.

MfG. Matze

//modedit GwenDragon Similes abgeschaltet wegen Interferenz mit ) in Code\n\n

Mit freundlichen Grüßen: Matze

nepos

2006-04-18 14:20

User since
2005-08-17
1420 Artikel
BenutzerIn

Nur mal am Rande, die Font-Tags sollte man eigentlich nicht mehr nutzen. Besser waeren Spans mit CSS.

Matze

2006-04-18 14:35

User since
2005-08-29
222 Artikel
BenutzerIn

[quote=nepos,18.04.2006, 12:20]Nur mal am Rande, die Font-Tags sollte man eigentlich nicht mehr nutzen. Besser waeren Spans mit CSS.[/quote]Ich möchte ja nur mal probieren wie so was funktioniert.

Komme allerdings dabei im Moment auch nicht weiter...
Ich verstehe einfach nicht warum die letzten Zahlen nicht gefärbt werden.

MfG. Matze

Mit freundlichen Grüßen: Matze

renee

2006-04-18 15:14

User since
2003-08-04
14371 Artikel
ModeratorIn

Mach's mit CPAN:

HTML::Parser:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use HTML::Parser;

# specify events here rather than in a subclass
my $p = HTML::Parser->new( api_version => 3,
         text_h => [\&text,"text"],
     default_h   => [sub { print shift }, "text"],
               
            );
sub text{
  my ($text) = @_;
  $text =~ s~(\d+)~<test>$1</test>~g;
  print $text;
}

while (<>) {
    $p->parse($_);
}
$p->eof;

\n\n

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/

Crian

2006-04-18 15:22

User since
2003-08-04
5873 Artikel
ModeratorIn

Erklärung:

(\d+) - 1-beliebig viele Ziffern, gefangen in $1
[^>]* - 0-beliebig viele Zeichen, die keine schließende spitze Klammer sind
(?:<|$) - entweder das Zeichen '<' oder das Ende des Strings in einer nicht fangenden Klammer\n\n

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

sid burn

2006-04-18 17:45

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Ich hab dafür ein etwas längeres Skript geschrieben. Vielleicht geht das auch mit einem Regulären Ausdruck, aber diese Lösung ist mir eigentlich sofort eingefallen, deswegen habe ich diese eben geschrieben.

zahlrot.txt

Code: (dl )

<font color="#000000"><pre>
<br>"Hallo"
<br>1234<br>214214<br>346<br>
<br>
<br>();
<br>("Test! 2134",12421<br>
);</pre></font>

zahlrot.pl

Code: (dl )

#!/usr/bin/perl -w

$file = shift;

$/ = undef;
open  FILE, "<", $file;
$_ = <FILE>;
close FILE;

while ( not m/\G\z/gc )
{
    if    ( m/\G(<(?>[^>"]|"[^"]*")*>)/gc ) { print "$1";   }
    elsif ( m/\G(\d+)/gc                  ) { print "<font color=red>$1</font>"; }
    elsif ( m/\G([^<\d]*)/gc              ) { print "$1";   }
    else
    {
        $loc = pos($file);
        die "Fehler an Position $loc in Datei $file\n";
    }
}

Aufruf mittels:

Code: (dl )

./zahlrot.pl zahlrot.txt

Ausgabe:

Code: (dl )

<font color="#000000"><pre>
<br>"Hallo"
<br><font color=red>1234</font><br><font color=red>214214</font><br><font color=red>346</font><br>
<br>
<br>();
<br>("Test! <font color=red>2134</font>",<font color=red>12421</font><br>
);</pre></font>

Ich hoffe das entspricht deinen Erwartungen?

EDIT:
Größer Gleich Zeichen innerhalb von Anführungszeichen werden nun ignoriert.\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

Matze

2006-04-18 18:20

User since
2005-08-29
222 Artikel
BenutzerIn

Génauso hatte ich mir das vorgestellt, danke!
HTML::Parser werde ich mir allerdings auch noch mal ansehen, ist sicher interessant.

@Crian: Danke für die Erklärung.
Ich muss mir Regular Expressions wohl nochmal eindringlich ansehen.

MfG. Matze

Mit freundlichen Grüßen: Matze

Dubu

2006-04-18 18:25

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Es klingt zwar erstmal bestechend, alle paarweise stehenden spitzen Klammern zu suchen. Das geht aber schief, wenn du spitze Klammern dazwischen hast, die nicht zur HTML-Syntax gehören, z.B. in JavaScript (if (x > y) {...) oder alt-Attributen (<img src="/img/next.gif" alt=">>">).
HTML::Parser macht's besser.

View all threads created 2006-04-18 11:40.