hegge · February 19, 2010 10:13
diff --git a/file_filter b/file_filter
 #!/usr/bin/perl
 use strict;
 use warnings;

 # Use: cat file | ./filter.pl > new_file

 while(<>) {
        if (/^(\w+(\\\w+)*)\\(\w+)\t(\w+)$/) {
                print "$1;$3;$4\n";
        }   
 }
	#!/usr/bin/perl
	use strict;
	use warnings;

	# Use: cat file \| ./filter.pl > new_file

	while(<>) {
	if (/^(\w+(\\\w+)*)\\(\w+)\t(\w+)$/) {
	print "$1;$3;$4\n";
	}
	}