Remove carriage return characters when using Perl module: Spreadsheet::WriteExcel

I'm using the following Perl script to create a spreadsheet from a text file. Basically the script works, but it's inserting a little square(carriage return character) as part of the $ACTIVITY field.


#!/opt/perl/bin/perl

use strict;
use Spreadsheet::WriteExcel;

my $InputFile = "/nmltest/dailyops/data/Log.txt";
my $OutputFile = "//ho/dfs01/work/IS/Operations/GROUP0K/Automation/DailyActivities/Activities/Daily Activities test.xls";

open (INPUT, "$InputFile") or die "$InputFile $!";

my $workbook = Spreadsheet::WriteExcel->new($OutputFile);
my $worksheet = $workbook->add_worksheet();
$worksheet->write('A1', "LAN ID");
$worksheet->write('B1', "Activity");

my $row = 1;

while (<INPUT>)
      {
chomp($_);
my ($LANID, $ACTIVITY) = split(/\|/, $_);
$worksheet->write($row, 0, $LANID);
$worksheet->write($row, 1, $ACTIVITY);
$row++;
    }
close INPUT;

thanks
Start Free Trial