summaryrefslogtreecommitdiff
path: root/Build/source/libs/icu/icu-4.4/tools/genprops/misc/ucdstrip.pl
blob: 6109770b69dcb636b1f904322cb2129a458108cb (plain)
1
2
3
4
5
6
7
#!/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/;