diff options
| author | fukachan <fukachan> | 2003-07-28 14:10:19 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-07-28 14:10:19 +0000 |
| commit | f8d6554e1a106438bb983c62b1458ad45870a5f0 (patch) | |
| tree | 20ff5254181a179e9fd1b73f7538c0326f6f0de7 /fml/utils | |
| parent | 8768dbb6785b070e61a076c75fd45c03299352ad (diff) | |
| download | fml8-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-x | fml/utils/bin/del_jaline.pl | 17 |
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; |
