Opened by Jeff at 2010-08-21 17:53
Ich habe nun das Modul ein bisschen ausprobiert und eine Frage:
Warum funktionieren die Funktionen nicht, wenn vor dem zu ignorierendem Teil etwas davor ist?
Hier ist mein bisheriger Code:
http://pastebin.com/iWkTJs5n
Mit Sicherheit lässt sich das mit VIEL weniger Code umsetzen, aber es ist mein erster wirkliches Perl Script und kenne noch nicht alle Module und Funktionen.
Das mit den Kommentaren hatte ich schon vorher implementiert, allerdings hat es einige Tücken. Diese Zeile würde das Script bisher vollständig ignorieren:
somefunction(); // Kommentar
Da ich vorher nicht wusste wie ich den Kommentar raus bekomme.
Und derartige Kommentare bringen das Script ganz durcheinander:
somefuntion(/* Kommentar*/);
Und wenn mehrere Klammern in einer Zeile sind, beachtet er nur die erste.
Last edited: 2010-08-22 17:44:22 +0200 (CEST)
Warum funktionieren die Funktionen nicht, wenn vor dem zu ignorierendem Teil etwas davor ist?
Code: (dl
)
1
2
3
4
5
6
7
8
9
use strict;
use warnings;
use Text::Balanced qw( extract_delimited );
# wenn $text = "'467'123"; funktioniert es
my $text = "567'456'123"; # so nicht
my @extracted = extract_delimited($text, "'", '');
print $extracted[0], "\n", $extracted[1], "\n";
Hier ist mein bisheriger Code:
http://pastebin.com/iWkTJs5n
Mit Sicherheit lässt sich das mit VIEL weniger Code umsetzen, aber es ist mein erster wirkliches Perl Script und kenne noch nicht alle Module und Funktionen.
Das mit den Kommentaren hatte ich schon vorher implementiert, allerdings hat es einige Tücken. Diese Zeile würde das Script bisher vollständig ignorieren:
somefunction(); // Kommentar
Da ich vorher nicht wusste wie ich den Kommentar raus bekomme.
Und derartige Kommentare bringen das Script ganz durcheinander:
somefuntion(/* Kommentar*/);
Und wenn mehrere Klammern in einer Zeile sind, beachtet er nur die erste.
Last edited: 2010-08-22 17:44:22 +0200 (CEST)