I was having a really bad day and needed a quick solution to create some csv files. And this I needed to do for multiple data kinds and patterns, so I created this small script to do the job for me…
#Number of rows required in the output.
$rows = 100;
#The config and the output file
open (CF_FILE, \”<Config.test\”);
open (OUT_FILE, \”>test.csv\”);
# No need to change anything below this.
$count = 0 ;
#read a line from config file of the type
#also any line starting with # is treated as comment.
# startingvalue incrementvalue
# so you can have any number of fields here and all of them you would be joined with , to write to the output file.
/^#/ && next;
@vars = split(/ /);
$arr[$count] = $vars;
$arr_inc[$count] = $vars;
for ($i=0; $i < $rows; $i++)
$line = join (\”,\”,@arr);
print OUT_FILE \”$line\\n\”;
for ($j=0; $j < $count; $j++)
$arr[$j] += $arr_inc[$j];