2003-02-21 17:59:23 +00:00
|
|
|
#!/usr/lib/perl -p
|
2003-06-04 01:06:48 +00:00
|
|
|
# Copyright (c) 2001-2003 International Business Machines
|
|
|
|
|
# Corporation and others. All Rights Reserved.
|
2003-02-21 17:59:23 +00:00
|
|
|
# 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/;
|
