Need help on filtering

Hi experts,

I have a file image.csv as below:

COMPUTERNAME,23/07/2013,22/07/2013,21/07/2013,20/07/2013,19/07/2013,18/07/2013,17/07/2013 
AED03852180,3,3,3,3,3,3,3 
AED03852181,3,3,3,3,3,3,1 
AED09020382,3,0,3,0,3,3,3 
AED09020383,1,3,3,3,2,1,3 
AED09020386,3,3,0,3,3,0,3 
AED09020979,3,3,3,3,3,3,3 
AED09020981,3,3,0,0,3,3,3 
AED09202354,3,2,3,0,3,3,3 
AED09504679,3,3,3,3,0,0,0 

We are getting 0 values for different dates. i need to get the report of the 0 values as below:
output.csv

COMPUTERNAME,DATE
AED09020382,22/07/2013
AED09020382,20/07/2013
AED09020386,21/07/2013
AED09020386,18/07/2013
AED09020981,21/07/2013
AED09020981,20/07/2013
AED09202354,20/07/2013
AED09504679,19/07/2013
AED09504679,18/07/2013
AED09504679,17/07/2013

Please help !!!

Thanks

Try:

awk -F, 'NR==1{for(i=2;i<=NF;i++) d=$i;print "COMPUTERNAME,DATE"}NR>1{for (i=2;i<=NF;i++) if ($i==0) print $1","d}' image.csv > output.csv

Not Working... :frowning:

$> awk -F, 'NR==1{for(i=2;i<=NF;i++) d=$i;print "COMPUTERNAME,DATE"}NR>1{for (i=2;i<=NF;i++) if ($i==0) print $1","d}' /tmp/image.csv 
COMPUTERNAME,DATE
$>
perl -F',' -lane 'BEGIN {print "COMPUTERNAME,DATE"};if($. eq 1){@hdr=@F;next}; for($i=0;$i<@F;$i++){ ($F[$i] eq 0) &&  print "$F[0],$hdr[$i]"}' file

What operating system are you using? Also post output of:

cat -ev /tmp/image.csv | head