in reply to Re: Optimizing perl code performance
in thread Optimizing perl code performance

Thanks Ed,Data is given below, We need to append the date related information extracted from the 9th field (whose first 10 digits signifies the time since epoch in seconds) and place this additional data at the end of each line in the output file 

1,XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX,1,0,1,XXXXXXXXXX,XXXXXXXXXX,XXXXXXX
+XXXXXXXXXXXXXXXXX,1234567892209911001,XXXXXXXXXX,XXXXXXXXXX,XXXX,0,X,
+X,XXXXXXXXXXXX,XXXXX,XXXX,XXXX,XXXXXXXX,XXXXXXXX,XXXXXXXX,0,0,0,0,0,0
+,0,0,0,0,0,XXXXXXXX,,XXXXXXXX,XXXXXXXX,,,0,0,XXXXXXXX,0,XXXXXXXX; XXX
+XXXXX,,,,,,,,,,,,,,,,,,,,,,,,,,,0,XXXXXXXX,0,XXXXXXXX,XXXXXXXX,,,XXXX
+XXXX,0,,,,,,0,0,0,XXXXXXXX,XXXXXXXX
1,XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX,1,0,1,XXXXXXXXXX,XXXXXXXXXX,XXXXXXX
+XXXXXXXXXXXXXXXXX,11245677209911001,XXXXXXXXXX,XXXXXXXXXX,XXXX,0,X,X,
+XXXXXXXXXXXX,XXXXX,XXXX,XXXX,XXXXXXXX,XXXXXXXX,XXXXXXXX,0,0,0,0,0,0,0
+,0,0,0,0,XXXXXXXX,,XXXXXXXX,XXXXXXXX,,,0,0,XXXXXXXX,0,XXXXXXXX; XXXXX
+XXX,,,,,,,,,,,,,,,,,,,,,,,,,,,0,XXXXXXXX,0,XXXXXXXX,XXXXXXXX,,,XXXXXX
+XX,0,,,,,,0,0,0,XXXXXXXX,XXXXXXXX
1,XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX,1,0,1,XXXXXXXXXX,XXXXXXXXXX,XXXXXXX
+XXXXXXXXXXXXXXXXX,145678902209911001,XXXXXXXXXX,XXXXXXXXXX,XXXX,0,X,X
+,XXXXXXXXXXXX,XXXXX,XXXX,XXXX,XXXXXXXX,XXXXXXXX,XXXXXXXX,0,0,0,0,0,0,
+0,0,0,0,0,XXXXXXXX,,XXXXXXXX,XXXXXXXX,,,0,0,XXXXXXXX,0,XXXXXXXX; XXXX
+XXXX,,,,,,,,,,,,,,,,,,,,,,,,,,,0,XXXXXXXX,0,XXXXXXXX,XXXXXXXX,,,XXXXX
+XXX,0,,,,,,0,0,0,XXXXXXXX,XXXXXXXX

[download]

In Section Seekers of Perl Wisdom