Opened by lousek at 2011-08-06 17:24
User since
2011-01-19
28 Artikel
BenutzerIn
2011-01-19
28 Artikel
BenutzerIn
Ich danke euch beiden!
Irgendwie steh ich immernoch auf dem Schlauch, oder aber etwas anderes ist falsch:
Leider klappt beides nicht :(
Wenn ich es aber mit m/^.\// versuche, so werden schön alle strings mit " /", +/ und -/ ins Array geschrieben (plus die leeren Strings???)
Ist das diff kaputt? :P
LG
lousek
Irgendwie steh ich immernoch auf dem Schlauch, oder aber etwas anderes ist falsch:
Code: (dl
)
1
2
use Text::Diff;
my $diff = diff ("test.txt", "test2.txt", { OUTPUT => sub { my $item = shift; if ($item =~ m{^(\+|-)/}) { push @output, $item } } } );
Code: (dl
)
1
2
use Text::Diff;
my $diff = diff ("test.txt", "test2.txt", { OUTPUT => sub { my $item = shift; if ($item =~ m/^(?:\+|\-)\//) { push @output, $item } } } );
Leider klappt beides nicht :(
Wenn ich es aber mit m/^.\// versuche, so werden schön alle strings mit " /", +/ und -/ ins Array geschrieben (plus die leeren Strings???)
Ist das diff kaputt? :P
LG
lousek