Perl Spreadsheet::ParseExcel モジュールと Perl Spreadsheet::WriteExcel モジュールを使用して、セルが空白でない場合、リスト値を持つセルにスカラー値を割り当てようとしています。これの目的は、リスト値が存在するセルに値 1 を割り当てることです。これにより、多数の列を追加して、その行の合計を持つ新しい列を作成できます。
例えば：
A B C D E(Sum Column)
Row2 科学 算数 歴史 ドラマ 4
行 3 数学の空白 理科の空白 2
Row4 歴史 科学 英語 空白 3
したがって、セルが空白でも "" でもない場合は値 1 が割り当てられ、空白の場合は値 0 が割り当てられます。
このようなことについてどうすればいいですか？