summaryrefslogtreecommitdiff
path: root/fml/utils
diff options
context:
space:
mode:
authorfukachan <fukachan>2003-07-28 14:10:19 +0000
committerfukachan <fukachan>2003-07-28 14:10:19 +0000
commitf8d6554e1a106438bb983c62b1458ad45870a5f0 (patch)
tree20ff5254181a179e9fd1b73f7538c0326f6f0de7 /fml/utils
parent8768dbb6785b070e61a076c75fd45c03299352ad (diff)
downloadfml8-f8d6554e1a106438bb983c62b1458ad45870a5f0.tar.gz
fml8-f8d6554e1a106438bb983c62b1458ad45870a5f0.tar.bz2
fml8-f8d6554e1a106438bb983c62b1458ad45870a5f0.zip
create Documentation/??/text/CHANGES.txt.
modified links in the menu bar.
Diffstat (limited to 'fml/utils')
-rwxr-xr-xfml/utils/bin/del_jaline.pl17
1 files changed, 17 insertions, 0 deletions
diff --git a/fml/utils/bin/del_jaline.pl b/fml/utils/bin/del_jaline.pl
new file mode 100755
index 00000000..7ce4fcdb
--- /dev/null
+++ b/fml/utils/bin/del_jaline.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+#-*- perl -*-
+#
+# Copyright (C) 2000,2003 Ken'ichi Fukamachi
+# All rights reserved.
+#
+# $FML$
+#
+
+my $re_euc_c = '[\241-\376][\241-\376]';
+
+while (<>) {
+ next if /$re_euc_c/;
+ print;
+}
+
+exit 0;