Re: Need your help to achieve this?

[Rob Dixon]

Goke Aruna wrote:
>

i want to process the attached file and i want to replace the $data[1] with
equivalent month is strings.

i have this code but it giving me errors... i only try the january case at
least.

#!c:/perl/bin/perl
use warnings ;
use strict ;
use POSIX 'strftime';

my $file = "c:/Perl/test.csv" ;

{ local ($\, $,) = ("\n", ', ') ;
  my $sum ;
  open my $fh, '<', $file or die "open '$file': $!" ;

  while (<$fh>)
  {
    s/\s+$// ;  # chomps-and-more
    /^$/ and die "$file, line $. is empty\n" ;
    my @data = (split /,/)[0, 1, 2, 3, 4, 5, 6] ;
    # $data[0] or next ;  # skips
  #  my $cnt_ans = 0;
    if($data[1] == 1)
         {
           while($data[1] == 1)
           {$data[1]=~ tr/1/January/;}
     } elsif ($data[1] == 2){
        replace all occurence of 2 with February
      } elsif ($data[1] == 3){
        replace all occurence of 3 with March
      } elsif ($data[1] == 5){
       replace all occurence of 5 with May
     } elsif ($data[1] == 6){
     replace all occurence of 6 with June
     } elsif ($data[1] == 7){
     replace all occurence of 7 with July
     } elsif ($data[1] == 8){
      replace all occurence of 8 with August
     }  elsif ($data[1] == 9){
        replace all occurence of 9 with September
      } elsif ($data[1] == 10){
        replace all occurence of 10 with Octomber
      } elsif ($data[1] == 11){
        replace all occurence of 11 with November in the column
      } elsif ($data[1] == 12){
        replace all occurence of 12 with December
      }
}

This should help. I hope so.

Rob



use strict;
use warnings;

use constant MONTHS => qw/
  January   February  March
  April     May       June
  July      August    September
  October   November  December
/;

my $file = 'c:/Perl/test.csv';
open my $fh, $file or die "open '$file': $!";

while (<$fh>) {

  s/\s+$//;

  die "$file, line $. is empty\n" unless length;

  my @data;
  @data[0..6] = split /,/;

  $data[1] = (MONTHS)[$data[1]-1];

  print $data[1], "\n";
}

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>