#!/usr/bin/perl

use strict;
use Jcode;

die "Ugage: perl logfilter.pl filename\n" if( $#ARGV!=0 );
my $filename = $ARGV[0];
binmode STDOUT;

open my $fh, '<', $filename or die "file[$filename] open error\n";
my $src = do{ local $/; <$fh> };
close($fh);

$src =~ s/\x20*\x0A/\n/gsm;
$src =~ s/\x20*-/-/gsm;
$src =~ s/\x0C//gsm;
$src =~ s/\r\n/\n/gsm;
$src =~ s/\r//gsm;
print Jcode->new($src)->jis;