trunk/my2pg/insert-no_next_id.pl

#!/usr/bin/perl -w


my $php;

while(<STDIN>) {
        next if (/textInmySQL/);
        $php .= $_;
}

sub fix_php {
        my ($sql,$filler,$query) = @_;

        my @vars;
        while ($sql =~ s/'*"\s*\.\s*(\$\w+)\s*\.\s*"'*/ ? /s) {
                push @vars, $1;
        }

        return $sql . $filler . 'xx_prepare_execute($sql, '.join(", ",@vars).')';
}

my $fixed = 0;

$php =~ s/(\$sql\s*=\s*"[^;]+?;)(.+?)(xx_query\s*\(\$sql[^\)]+\))/fix_php($1,$2,$3)/seg;

print $php;
1	#!/usr/bin/perl -w
2
3
4	my $php;
5
6	while(<STDIN>) {
7	next if (/textInmySQL/);
8	$php .= $_;
9	}
10
11	sub fix_php {
12	my ($sql,$filler,$query) = @_;
13
14	my @vars;
15	while ($sql =~ s/'"\s\.\s(\$\w+)\s\.\s"'/ ? /s) {
16	push @vars, $1;
17	}
18
19	return $sql . $filler . 'xx_prepare_execute($sql, '.join(", ",@vars).')';
20	}
21
22	my $fixed = 0;
23
24	$php =~ s/(\$sql\s=\s"[^;]+?;)(.+?)(xx_query\s*\(\$sql[^\)]+\))/fix_php($1,$2,$3)/seg;
25
26	print $php;