{"id":91,"date":"2009-09-02T06:31:05","date_gmt":"2009-09-02T06:31:05","guid":{"rendered":"http:\/\/www.adriangrigoras.com\/blog\/?p=91"},"modified":"2009-09-02T06:31:05","modified_gmt":"2009-09-02T06:31:05","slug":"change-a-csv-file","status":"publish","type":"post","link":"https:\/\/adriangrigoras.com\/blog\/change-a-csv-file\/","title":{"rendered":"Change a csv file"},"content":{"rendered":"

If you want to use a huge csv file, an easy way to do this is to parse it and write another file. Bellow is an example, which takes the values from old_file.csv, do some changes and write another file new_file.csv<\/p>\n

\n
\n
#! \/usr\/bin\/perl<\/div>\n
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();<\/div>\n
$year=1900+$yearOffset;<\/div>\n
$time=”$year-$month-$dayOfMonth-$hour$minute$second”;<\/div>\n
print “Started at $timenn”;<\/div>\n
open (MYFILE, “>>”, ‘parse_logs.txt’);<\/div>\n
print MYFILE “Started at $timen”;<\/div>\n
close (MYFILE);<\/div>\n
$i=0;<\/div>\n
open (FINAL, “>”, ‘new_file.csv’);<\/div>\n
open (FILE, “<“, ‘old_file.csv’);<\/div>\n
@lines=<FILE>;<\/div>\n
foreach $l(@lines){<\/div>\n
$i++;<\/div>\n
print “$i n”;<\/div>\n
@values=split(‘,’,$l);<\/div>\n
$values[1]=$i; #asign a new ID<\/div>\n
$values[2]=~s\/s*\/\/g; # remove all the whitespace<\/div>\n
#other changes<\/div>\n
$l=join(‘,’,@values);<\/div>\n
print FINAL “$l”;<\/div>\n
}<\/div>\n
close (FILE);<\/div>\n
close (FINAL);<\/div>\n
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();<\/div>\n
$year=1900+$yearOffset;<\/div>\n
$time=”$year-$month-$dayOfMonth-$hour$minute$second”;<\/div>\n
print “Finished at $timenn”;<\/div>\n
open (MYFILE, “>>”, ‘parse_logs.txt’);<\/div>\n
print MYFILE “Started at $timen”;<\/div>\n
close (MYFILE);<\/div>\n
#! \/usr\/bin\/perl<\/address>\n
<\/address>\n
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();<\/address>\n
$year=1900+$yearOffset;<\/address>\n
$time=”$year-$month-$dayOfMonth-$hour$minute$second”;<\/address>\n
<\/address>\n
print “Started at $timenn”;<\/address>\n
<\/address>\n
open (MYFILE, “>>”, ‘parse_logs.txt’);<\/address>\n
print MYFILE “Started at $timen”;<\/address>\n
close (MYFILE);<\/address>\n
$i=0;<\/address>\n
<\/address>\n
open (FINAL, “>”, ‘new_file.csv’);<\/address>\n
<\/address>\n
open (FILE, “<“, ‘old_file.csv’);<\/address>\n
@lines=<FILE>;<\/address>\n
foreach $l(@lines){<\/address>\n
$i++;<\/address>\n
print “$i n”;<\/address>\n
@values=split(‘,’,$l);<\/address>\n
$values[1]=$i; #asign a new ID<\/address>\n
$values[2]=~s\/s*\/\/g; # remove all the whitespace<\/address>\n
#other changes<\/address>\n
$l=join(‘,’,@values);<\/address>\n
print FINAL “$l”;<\/address>\n
}<\/address>\n
<\/address>\n
close (FILE);<\/address>\n
close (FINAL);<\/address>\n
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();<\/address>\n
$year=1900+$yearOffset;<\/address>\n
$time=”$year-$month-$dayOfMonth-$hour$minute$second”;<\/address>\n
print “Finished at $timenn”;<\/address>\n
<\/address>\n
open (MYFILE, “>>”, ‘parse_logs.txt’);<\/address>\n
print MYFILE “Started at $timen”;<\/address>\n
close (MYFILE);<\/address>\n
<\/div>\n<\/address>\n<\/blockquote>\n","protected":false},"excerpt":{"rendered":"

If you want to use a huge csv file, an easy way to do this is to parse it and write another file. Bellow is an example, which takes the values from old_file.csv, do some changes and write another file new_file.csv #! \/usr\/bin\/perl ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime(); $year=1900+$yearOffset;\u2026 Read More »<\/a><\/span><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[14],"tags":[],"class_list":["post-91","post","type-post","status-publish","format-standard","hentry","category-perl"],"_links":{"self":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts\/91","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/comments?post=91"}],"version-history":[{"count":0,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/posts\/91\/revisions"}],"wp:attachment":[{"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/media?parent=91"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/categories?post=91"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/adriangrigoras.com\/blog\/wp-json\/wp\/v2\/tags?post=91"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}