Dear, I ran a test with this command line and it did not work.
See below:
cat teste.txt
21997|||70049,,20170428154818,20170527235959|||
21997|||70070,,20170428154739,20170527235959|||
21998|||70049,,20170428154818,20170527235959|||
21998|||70070,,20170428154739,20170527235959|||
21998|||70071,,20170428154739,20170527235959|||
perl -an '-F/\|\|\|/' -e 'm/\d/ or do{print qq<$k|||$v|||\n> ;$k=$v=""
+;next};$k=$F[0];$v.=$F[1].qq|;|' teste.txt </p>
Not Result for this command. My perl version is:
perl -v
This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi