Thread Zahlenvergleich in Tabellenzellen mit Perl (3 answers)
Opened by soilant at 2005-08-24 18:38

soilant
 2005-08-24 18:38
#5485 #5485
User since
2004-08-07
13 Artikel
BenutzerIn
[Homepage] [default_avatar]
Ich habe eine Tabelle (als HTML-Datei), in der ein paar der Zellen gefüllt sind mit einer Mailadresse gefolgt von einer Zahl, also:
Code: (dl )
...<td>jemand@irgend.wo.example,932456</td>...

In dem Fall wo meine Vergleichszahl (z.B. $zahl= "932459") grösser ist als jene in der Zelle, möchte ich den Eintrag in der Zelle löschen, ansonsten nicht.
So läuft es eben leider nicht:
Code: (dl )
1
2
3
4
5
6
7
8
...
@datei = (split /<\/td>/, <DATEI>);
foreach $datei(@datei) {
$datei =~ /.*?(.*?\@.*?,)(\d{6,}).*?/;
my ($a, $b, $c) = ($1, $2, $3);
if ($b <= $zahl) { $datei =~ s/.*?(.*?\@.*?,)(\d{6,}).*?//; }
@dateineu = (join /<\/td>/, @datei); }
...


edit pq: RFC 2606\n\n

<!--EDIT|pq|1124896287-->

View full thread Zahlenvergleich in Tabellenzellen mit Perl