Ansonsten halt schnell mit Perl:
Code:
#GREP-Ersatz 1.0
use strict;
use warnings;
my ($file,$out) = (shift,shift);
open(FL,$file);
open(OUT,">>$out");
my @arr = <FL>;
foreach my $l (@arr) {
$l =~/.+:(.+):([0-9a-z]{32})</;
print "$1:$2\n";
print OUT "$1:$2\n";
}
close(FL);
close(OUT);
Code:
C:\Dokumente und Einstellungen\Fred\Desktop> perl test.pl test.txt out.txt
toB:2b388bfad4dcd74b090973c9a699b383
toB:2b388bfad4dcd74b090973c9a699b383
toB:2b388bfad4dcd74b090973c9a699b383
toB:2b388bfad4dcd74b090973c9a699b383