Data munging

#!/usr/bin/perl

use Jcode;

$out = 0; #回答箇所(「Ａ：」から「Ｑ：」の間に複数段落あっても対応)

while(<>)
{
chop;
$in = $_;
# $in = jcode($_)->
tr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890¥
.,…-=~%&#!¥¥¥^¥.¥$¥@¥;:¥'¥"¥*¥?¥|¥(¥)¥[¥]¥{¥}+/<>","ＡＢＣＤＥＦＧＨＩＪＫＬ
ＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ
１２３４５６７８９０．・・・ー＝～％＆＃！＼＾．＄＠；：’
， ”＊？｜（）｛｝＋／＜
［］
＞") -> utf8;

$in =
jcode($_)->tr("A:BCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz12
34567890¥.,¥…-=~%&#!¥¥¥^¥.¥$¥@¥;:¥'¥"¥*¥?¥|¥(¥)¥[¥]¥{¥}+/<>",jcode("Ａ：ＢＣ
ＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑ
ｒｓｔｕｖｗｘｙｚ１２３４５６７８９０．・ー＝～％＆＃！＼＾．＄＠；：’
， ”＊？｜（）
［］｛｝＋／＜＞")->euc)->utf8;
next if($in =~ /^（/); #（）の行を削除
next if($in =~ /^《/); #《》の行を削除
next if($in =~ /^〈/); #〈〉の行を削除
if($in =~ s/^Ａ：//g or $in =~ s/^Ａ１：//g or $in =~ s/^Ａ２：//g or $in =~ s/^Ａ
３：//g or $in =~ s/^Ａ４：//g or $in =~ s/^Ａ５：//g or $in =~ s/^Ａ６：//g or $in =~ s/^Ａ
７：//g or $in =~ s/^Ａ８：//g or $in =~ s/^Ａ９：//g or $in =~ s/^Ｂ（奥さま）
：//g or $in =~
s/^Ｂ：//g or $in =~ s/^Ｂ（奥様）：//g)
{
# $in =~ s/^ //g;#行頭の全角スペース削除
$out = 1;
}
if($in =~ /^Ｑ：/ or
$in =~ /^Ｑ１：/ or $in =~ /^Ｑ２：/ or $in =~ /^Ｑ３：/ or

$in =~ /^Ｑ４：/ or $in =~ /^Ｑ５：/ or $in =~ /^Ｑ６：/ or
$in =~ /^Ｑ７：/ or $in =~ /^Ｑ８：/ or $in =~ /^Ｑ９：/)
{
$out = 0;
}
if($out)
{
print $in."¥n";
}
}

Data munging

More Related Content

Viewers also liked (7)

Similar to Data munging (20)

Data munging