fml/utils/bin/del_jaline.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;