Shell Programming and Scripting

<?php

$file = "file";
$data = split("\n",file_get_contents($file));
$data = array_filter($data);
$data = array_chunk($data,7);
foreach ( $data as $k=>$v){
  echo implode(",",$v)."\n";  
}
?>

awk -F'\n'  '$1=$1' OFS=',' RS=  file

#!/usr/bin/perl
# You may need to change this path to /usr/local/bin/perl

open (datafile,"file.txt");
@lines = <datafile>;
close (datafile);

open (datafile,">newfile.txt");
foreach $l (@lines) {
  if ($l eq "\n") {
      print datafile $l;
    }
    else {
      chomp($l);
      print datafile "$l,";
  }
}
close (datafile);

exit;