Shell Programming and Scripting

Start,End,Req,Resp
12:39,12:40,4,5

parsefile("Req,Resp");

sub parsefile ($)
{
$header=shift;
open(FH,"file.txt");
@lines=<FH>;
#stuck up here.....
}

I am not able to parse the file badly stuck up.

How to get it values?

The output should be:


Code:

Req: 4
Resp: 5



How can i get the above output in perl?

Regards
vanitha

#!/usr/bin/perl
use strict;

my $hdr1=shift;
my $hdr2=shift;

my $hdr_pos1;
my $hdr_pos2;

chomp($hdr1,$hdr2);

open(FH,"<","inputfile") || die " cannot open file \n";
while (<FH>) {
        chomp;
        if ($. == 1 ) {
                if (/(\w+),(\w+),(\w+),(\w+)/) {
                        if ( $1 eq $hdr1 ) { $hdr_pos1 ='$1';}
                        if ( $2 eq $hdr1 ) { $hdr_pos1 = '$2'; }
                        if ( $3 eq $hdr1 ) { $hdr_pos1 ='$3'; }
                        if ( $4 eq $hdr1 ) { $hdr_pos1 ='$4'; }

                        if ( $1 eq $hdr2 ) { $hdr_pos2 ='$1';}
                        if ( $2 eq $hdr2 ) { $hdr_pos2 = '$2'; }
                        if ( $3 eq $hdr2 ) { $hdr_pos2 ='$3'; }
                        if ( $4 eq $hdr2 ) { $hdr_pos2 ='$4'; }
                }
        }
        if (/(\d+\:\d+),(\d+\:\d+),(\d+),(\d+)/) {
                print $hdr1,":",eval($hdr_pos1),"\n",$hdr2,":",eval($hdr_pos2),"\n";
        }
}

perl hdr_fld.pl field1 field2
e.g 
perl hdr_fld.pl Req Resp

#!/usr/bin/perl -w

parsefile("Req","Resp");

sub parsefile
{
my $header1 = shift;
my $header2 = shift;


open(FH,"file.txt");
@lines=<FH>;
close(FH);
my %head = ();

foreach $line (@lines) {
   chomp $line;
   if($line =~ m/$header1/) {
     @break = split(",", $line);
   }
   else {
     @val = split(",", $line);
     foreach(@break) {
       $head{"$_"} = shift @val;
     }
    print "$header1 = $head{$header1}\n";
    print "$header2 = $head{$header2}\n";
   }
}
}