1 #!/usr/lib/perl -p 2 # Copyright (c) 2001-2003 International Business Machines 3 # Corporation and others. All Rights Reserved. 4 # Simple tool for Unicode Character Database files with semicolon-delimited fields. 5 # Removes comments behind data lines but not in others. 6 # The Perl option -p above runs a while(<>) loop and prints the expression output. 7 s/^([0-9a-fA-F]+.+?) *#.*/\1/; 8
