Shell Programming and Scripting

22/02 23/02 24/02 25/02 26/02
Bike speed (kmph) 004 004 004 004 004

22/02 23/02 24/02 25/02 26/02
Bike speed (kmph) 004 007 007 007 011

cat nic.txt > nic.csv

Date        22/02 23/02 24/02 25/02 26/02
Wind speed (kmph) 004 007 007 007 011

sed "s/^\([0-9]\)/Date \1/; s/Bike speed (kmph)/Bike_speed_(kmph)/; s/ /,/g; s/Bike_speed_(kmph)/Bike speed (kmph)/" input

$ perl -ne 's/^([0-9])/Date $1/; s/Bike speed \(kmph\)/Bike_speed_kmph/; @x = split /\s+/;
for ($i=0; $i<=$#x; $i++) {printf "%15s", $x[$i]}; print "\n";' inputfile
           Date          22/02          23/02          24/02          25/02          26/02
Bike_speed_kmph            004            004            004            004            004

           Date          22/02          23/02          24/02          25/02          26/02
Bike_speed_kmph            004            007            007            007            011

#!/usr/bin/perl -w

use strict;
use Spreadsheet::WriteExcel;

# Create a new Excel workbook
my $workbook = Spreadsheet::WriteExcel->new("districts.xls");

# Add some worksheets
my $zu = $workbook->addworksheet("zunheboto");
my $ba = $workbook->addworksheet("bangalore");
my $hy  = $workbook->addworksheet("hyderabad");
my $er  = $workbook->addworksheet("kurnool");

# Add a caption to each worksheet
#foreach my $worksheet (@{$workbook->{worksheets}}) {
#   $worksheet->write(0, 0, "Milege");
#}

# zunheboto.txt, bangalore.txt hyderabad.txt kurnool.txt are in this folder, wanted extract info from *.txt and based on filename it ahs to create the workbook and append the data based on the date. getting confused here

my $virudhungr = open ("|sed "s/^\([0-9]\)/Date              \1/; s/Bike speed (kmph)/Bike_speed_(kmph)/; s/Bike_speed_(kmph)/Bike speed (kmph)/" hyderabad.txt");

# Write some data
#echo $virudhungr;
$zu->write($virudhungr);
#$ba->write($hy);
#$hy->write ($ba);
#$er->write ($er);

# Set the active worksheet
#$er->activate();