Skip to content

Instantly share code, notes, and snippets.

@hegge hegge/file_filter
Created Feb 19, 2010

Embed
What would you like to do?
#!/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";
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.