Perl script to create csv files with a pattern – Generic script.No Gravatar
Hot:sun Perl script to create csv files with a pattern Generic script.sun Perl script to create csv files with a pattern Generic script.sun Perl script to create csv files with a pattern Generic script.sun dark Perl script to create csv files with a pattern Generic script.sun dark Perl script to create csv files with a pattern Generic script.

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.
while (<CF_FILE>)
{
/^#/ && next;
chomp();
@vars = split(/ /);
$arr[$count] = $vars[0];
$arr_inc[$count] = $vars[1];
$count++;
}
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];
}
}

Reblog this post [with Zemanta]

related post

Share This Post

Technorati Tags: Configuration file, Data Formats, File Management, File Managers, Languages, perl, programming, Windows

Blog Traffic Exchange Related Posts Blog Traffic Exchange Related Websites