pd.if.org Git - isea/blob - t/mkc

   1 #!/usr/bin/perl
   2
   3 my $fields = shift;
   4 $fields = 3 unless $fields;
   5 $" = ', ';
   6 my @data = ();
   7
   8 print "struct data {\n\tdouble a, b;\n\tchar *data;\n} dgg[] = {\n";
   9 while (<>) {
  10         chomp;
  11         my @f = split(/\s+/, $_, $fields);
  12         #my $s = pop @f;
  13         push @f, '';
  14         push @data, qq|{@f[0,1], "$f[2]"}|;
  15 }
  16 print join(",\n", @data);
  17 print "\n};\n";