* suche regulären ausdruck *: ...schwierig... (Allgemeines zu Perl)

steinwolf

2005-09-22 18:43

User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]

Moinmoin,

Habn Problem:
in einem HTML-Quelltext sind mehrere Bilder per <img src="bild123.jpb"> definiert. Weitere Tags wie alt oder border könnten theoretisch auch drin sein. Nun will ich jedes zweite Bild im Code so aussehen lassen: <img src="{&bild123.jpg&}">

ist halt für die spätere Verarbeitung notwendig.

Habt ihr irgendwelche ideen? Kann man das in einem einzelnen Regex machen?

mfg
stein

"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum

nepos

2005-09-22 18:52

User since
2005-08-17
1420 Artikel
BenutzerIn

Hm, ich wuerde das nicht selber machen sondern ein Modul nutzen, z.B. kann HTML::TreeBuilder HTML-Dateien parsen und du kannst die dann recht gut verarbeiten.

Strat

2005-09-22 18:58

User since
2003-08-04
5246 Artikel
ModeratorIn

haengt davon ab, wie viel kontrolle ueber den html-code hast; wenn er korrekt ist, koenntest du schon mit REs arbeiten, sonst ist vermutlich HTML::Parser oder aehnliches dein freund.

Code: (dl )

s/(
  <img\b       # <img
  [^<>]*?      # ev. alt, ...
  \s+src=\"    # whitespace src="
  )            # das alles kommt nach $1
  ([^"<>]+)    # der name des images => $2
  (\"[^<>]*?>) # ", der rest nach $3, dabei optional alt, ... >
  /$1\{\&$2\&\}$3/gx;

nicht getestet; vermutlich kann man ein paar \ weglassen. aber besser eins der HTML-Module verwenden, das ist sicherer\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

steinwolf

2005-09-22 19:11

User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]

danke, die regex funzt. aber wie krieg ich es nun hin, dass nur jedes zweite bild bearbeitet wird????\n\n

"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum

Strat

2005-09-22 19:18

User since
2003-08-04
5246 Artikel
ModeratorIn

nicht so einfach.... z.B.

Code: (dl )

1
2

my $counter = 0;
s/ Ausdruck von oben / (++$counter % 2 == 0) ? "$1\{&$2&\}$3" : "$1$2$3" /gex;

aber schoen langsam wird's wirklich haesslich\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

steinwolf

2005-09-22 19:22

User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]

uff, strat du brain! :D

Ich liebe dich!

"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum

J-jayz-Z

2005-09-22 19:27

User since
2005-04-13
625 Artikel
BenutzerIn

Kann das mal wer verschieben? :p

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Relais

2005-09-22 19:44

User since
2003-08-06
2246 Artikel
ModeratorIn

[quote=J-jayz-Z,22.09.2005, 17:27]Kann das mal wer verschieben? :p[/quote]
wohin denn?

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

J-jayz-Z

2005-09-22 19:47

User since
2005-04-13
625 Artikel
BenutzerIn

am besten in den Posteingang von Strat ^^

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Strat

2005-09-22 19:49

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=steinwolf,22.09.2005, 17:22]Ich liebe dich![/quote]
lass das mal besser nicht meine freundin hoeren ;-)

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/