icuSources/tools/genprops/misc/ucdstrip.pl

   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/;