File: combine_db.pl

package info (click to toggle)
phpwiki 1.3.12p3-5etch1
  • links: PTS
  • area: main
  • in suites: etch
  • size: 16,956 kB
  • ctags: 21,608
  • sloc: php: 82,335; xml: 3,840; sh: 1,522; sql: 1,198; perl: 625; makefile: 562; awk: 28
file content (28 lines) | stat: -rwxr-xr-x 580 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
#!/usr/bin/perl
# combine the ploticus data files for all database backends
# // test	nr	file	dba	SQL	ADODB

@DB = qw/file dba SQL ADODB/;
for $db (@DB) {
  open F, "< all_$db.data" or die;
  $i=0;
  while (<F>) {
    chomp;
    if (/^(\d+)\t(.+)/) {
      $t{$i} = "\"$2\"" unless $t{$i};
      $m{$db}{$i++} = $1;
    }
  }
  close F;
  $max = $max < $i ? $i : $max;
}
open F, "> combine_db.data";
print F "// test\tinc\t",join("\t",@DB),"\n";
$i=0;
do {
  print F $t{$i};
  print F "\t",$i;
  for $db (@DB) { print F "\t",$m{$db}{$i}; }
  print F "\n";
} while ($i++ < $max);