[apple/icu.git] / icuSources / tools / genprops / misc / ucdstrip.pl

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