Hilfe für Regex - #151280 (Allgemeines zu Perl)

topeg

2011-08-06 22:23

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Dein Problem ist, das in $item nicht eine Zeile steht sondern mehrere Zeilen.
Macht mal das:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Text::Diff;
use Data::Dumper;

my @output;

my $diff = diff ("test.txt","test2.txt", { OUTPUT => sub {
    my $item = shift;
    for(split(/\n/,$item))
    {
      push(@output, $_) if(m!^[+-]/!);
    }
  }});

print Dumper($diff,\@output);