perlの基本操作：split関数

Question

###前提・実現したいこと
大変恐縮ではございますがお答えいただけると幸いです。
perlの基本操作を練習中です。
split関数がうまく使えないので質問しました。
具体的には２種類の種名をファイルから読み込んで分類するプログラムを実行しようとした際うまく行かず、どうやら二つの配列に要素が分割され、入力されていないのが原因のようです。
###発生している問題・エラーメッセージ

perl practice_ref_common.pl siritori_words.txt
リンゴ ゴリラ
ラッパ パンツ
ツミキ キツネ
ネズミ ミミズ
キツネ ラッパ
ゴリラ ランプ
ズンダ ダンゴ
ゴング グンテ
common species

only in the first group
リンゴ ゴリラ
ラッパ パンツ
ツミキ キツネ
ネズミ ミミズ
キツネ ラッパ
ゴリラ ランプ
ズンダ ダンゴ
ゴング グンテ
only in the second group

###該当のソースコード

ファイル名:practice_ref_common.pl
@species1 = ();
@species2 = ();

#ファイルから読み込み
while ($line = <>) {

   chomp $line;
   ($sp1, $sp2) = split (/\s+/, $line);
   print $sp1, "\n"; #ここで問題発覚
   push @species1, $sp1;
   push @species2, $sp2;
}


($ref_common, $ref_only_in1, $ref_only_in2) = &find_common(\@species1, \@species2);

print "common species\n";
foreach $sp (@$ref_common) {
    print $sp, "\n";
}
print "\n";

print "only in the first group\n";
foreach $sp (@$ref_only_in1) {
    print $sp, "\n"
}

print "\n";

print "only in the second group\n";
foreach $sp (@$ref_only_in2) {
    print $sp, "\n";
}

sub find_common
{
    my ($ref1, $ref2) = @_;    

    my @common = ();
    my @only_in1 = ();
    my @only_in2 = ();

    my $found;

    foreach my $sp1 (@$ref1) {
         foreach my $sp2 (@$ref2) {
             $found = 0;
             if ($sp1 eq $sp2) {
                 $found = 1;
                 last;
            }
        }

        if ($found == 1) {
            push @common, $sp1;
        }
        else {
             push @only_in1, $sp1;
        }
    }

    foreach my $sp2 (@$ref2) {
        foreach my $sp_common (@common) {
            $found = 0;
            if ($sp2 eq $sp_common) {
                $found = 1;
                last;
            }
        }
        if ($found == 0) {
            push @only_in2, $sp2;
        }
    }

    return (\@common, \@only_in1, \@only_in2);
}

読み込みファイル：siritori_words.txt
リンゴ ゴリラ
ラッパ パンツ
ツミキ キツネ
ネズミ ミミズ
キツネ ラッパ
ゴリラ ランプ
ズンダ ダンゴ
ゴング グンテ

###試したこと
上記の通りです。

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報

Comments

[A.Ichi]

ファイルの読み方を見るとファイルは2個のワードで１ライン構成ですよね。

[SoYamamoto]

修正ありがとうございます。その通りでした！　テキストファイルが適切ではなかったようです。

[SoYamamoto]

しかしながら、依然splitで分割がうまく行いえない問題が発生していますので、質問内容を訂正します。再度見ていた開けるとありがたいです。

[A.Ichi]

文字コードの問題かもしれませんので一度ファイルをasciiコード　aaa bbb内容でテストしてみてください。

[SoYamamoto]

テキストの文字を全角から半角へ変えてテストしたところうまく行きました！！

[SoYamamoto]

回答ありがとうございます。

[A.Ichi]

できるならperlスクリプトもファイルもUTF8に揃えられたら良いのでは。

Answer 1

こんな感じで表示されましたが

perl practice_ref_common.pl siritori_words.txt
リンゴ
ラッパ
ツミキ
ネズミ
キツネ
ゴリラ
ズンダ
ゴング
common species
ラッパ
キツネ
ゴリラ

only in the first group
リンゴ
ツミキ
ネズミ
ズンダ
ゴング

only in the second group
パンツ
ミミズ
ランプ
ダンゴ
グンテ

perlには内部コードなるものが有りますので全角の文字列の場合変換されると良いです
「UTF-8バイト文字列」を「内部文字列」に変換する

use Encode 'decode';
# バイト文字列(外部からの入力)を内部文字列に変換($strがUTF-8の場合)
$str = decode('UTF-8', $str);

面倒ですが出力する場合は逆にします。

use Encode 'encode';
# 内部文字列をUTF-8バイト文字列に変換する場合
$str = encode('UTF-8', $str);

サンプルを添付しました。UTF8の場合

use Encode 'decode';
use Encode 'encode';
@species1 = ();
@species2 = ();

#ファイルから読み込み
while ($line = <>) {

   chomp $line;
   $line = decode('UTF-8', $line);
   ($sp1, $sp2) = split (/\s+/, $line);

   print encode('UTF-8',$sp1), "\n"; #ここで問題発覚
   push @species1, $sp1;
   push @species2, $sp2;
}


($ref_common, $ref_only_in1, $ref_only_in2) = &find_common(\@species1, \@species2);

print "common species\n";
foreach $sp (@$ref_common) {
    $sp = encode('UTF-8', $sp);
    print $sp, "\n";
}
print "\n";

print "only in the first group\n";
foreach $sp (@$ref_only_in1) {
    $sp = encode('UTF-8', $sp);
    print $sp, "\n"
}

print "\n";

print "only in the second group\n";
foreach $sp (@$ref_only_in2) {
    $sp = encode('UTF-8', $sp);
    print $sp, "\n";
}

sub find_common
{
    my ($ref1, $ref2) = @_;

    my @common = ();
    my @only_in1 = ();
    my @only_in2 = ();

    my $found;

    foreach my $sp1 (@$ref1) {
         foreach my $sp2 (@$ref2) {
             $found = 0;
             if ($sp1 eq $sp2) {
                 $found = 1;
                 last;
            }
        }

        if ($found == 1) {
            push @common, $sp1;
        }
        else {
             push @only_in1, $sp1;
        }
    }

    foreach my $sp2 (@$ref2) {
        foreach my $sp_common (@common) {
            $found = 0;
            if ($sp2 eq $sp_common) {
                $found = 1;
                last;
            }
        }
        if ($found == 0) {
            push @only_in2, $sp2;
        }
    }

    return (\@common, \@only_in1, \@only_in2);
}

Comments

[SoYamamoto]

詳しい回答ありがとうございます。
どうやらスペースに全角を用いてしまったことが今回の原因でした。

[A.Ichi]

良かったです。全角スペースも頭に有りましたが、ご提示のデータに無かったので文字コードの関係と勘違いしてしまいました。出力が文字化けしてないので変だなとは思っていましたが・・・