Hi all perl gurus,

I need your help to get the desired output in perl.
I have a file which has text in it in the format

Connection request start timestamp = 12/08/2008 00:58:36.956700
Connect request completion timestamp = 12/08/2008 00:58:36.959729
Application idle time = 1 minute 8 seconds
CONNECT Authorization ID = PDPD240
Client login ID = pdpd240
Configuration NNAME of client = sppwd518

but i want it to be displayed in the format.
12/08/2008 00:58:36.956700,12/08/2008 00:58:36.959729,1 minute 8 seconds

i.e. the left most things to be in a comma seperated value.

The script should take the file name as argument.for eg

perl scriptname <filename>

even a snippett of the code would be fine for me to atleast have an idea how to go ahead
Thanks

Im not a perl programmer and i've not tested this. but basicly it should work

my @start;
my @complete;
my @time;
my $filename=@ARGV[0];
open( FILE, "< $filename" ) or die "Can't open $filename : $!";
while( <FILE> ) {
chomp;
@start = split(/=/) if /start/ ;
@complete = split(/=/) if /completion/;
@time = split(/=/) if /idle time/;
print "@start[1] @complete[1] @time[1] \n" if /NNAME/;
}

hi Demwz,

Its not that i want three line...the input file would be very big but with the format

heading1 = data1
..
..
..

and i want a csv file

data1,data2,....

Hi summer_cherry

Thanks for the help but the script is not giving me any output.

Could you post a bigger sample (more than one logical record) of your data?

Hi radoulov,

The whole file is in the format

head1 = data1
head2 = data2
..
..
..
and so on

and I want the format(all the things after the equal sign)

data1,data2,data3,.... so on