cat 2.txt | perl -lne 'print($3,"-",$2,"-",$1,"T",$4,":",$5,":",$6,";",$8,";",$9,";",$10),if /^([0-9]{2})\/([0-9]{2})\/([0-9]{4})\ ([0-9]{2}):([0-9]{2}):([0-9]{2}).*Колонки=(\-*\d+\.\d+)\/(\-*\d+\.\d+).*Хладагент=([\-\ ]\d+\.\d+)\ Uнасоса=([\-\ ]\d+\.\d+)/'| sed 's/\./,/g' > 5.csv | cat 2.txt | perl -lne 'print($3,"-",$2,"-",$1,"T",$4,":",$5,":",$6,";",$7,";",$8,";",$9,";",$10),if /^([0-9]{2})\/([0-9]{2})\/([0-9]{4})\ ([0-9]{2}):([0-9]{2}):([0-9]{2}).*Колонки=(\-*\d+\.\d+)\/(\-*\d+\.\d+).*Хладагент=([\-\ ]\d+\.\d+)\ Uнасоса=([\-\ ]\d+\.\d+)/'| sed 's/\./,/g' > 6.csv |
feser@atwork:~/Desktop/1/2633$ cat 2.txt | perl -lne 'print($3,"-",$2,"-",$1,"T",$4,":",$5,":",$6,";",$7,";",$8,";",$9,";",$10),if /^([0-9]{2})\/([0-9]{2})\/([0-9]{4})\ ([0-9]{2}):([0-9]{2}):([0-9]{2}).*Колонки=(\-*\d+\.\d+)\/(\-*\d+\.\d+).*Хладагент=([\-\ ]\d+\.\d+)\ Uнасоса=([\-\ ]\d+\.\d+)/'| sed 's/\./,/g' > 6.csv | |