./c0de/perl/dbextract.txt

0.
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.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
#!/usr/bin/perl
use strict;
my($db_database,$db_prefix,$db_rowumbers,$db_splitter,$db_resultfile,$line,$realnum,$list,$dumplist,$x,@db_rowumbers,@fulldb,@rowdata);
sub usage{
	print "USAGE: <database>\tdb dump
	<prefix>\tPrefix of the table you're dumping
	<rows>\tNumbers pointing to the data you want, seperate by commas
	<delimiter>\tWhat to split the resulting data by. 
	\t\tIf you want spaces then enclose with quotes
	<resultfile>\tFile to dump the data to\n";
	print "EX: dump_gamers.sql e107_users 2,5 : gamerdump.txt\n";
	exit;
}
 
 
&usage unless @ARGV==5;
$db_database=$ARGV[0];
$db_prefix=$ARGV[1];
$db_rowumbers=$ARGV[2];
$db_splitter=$ARGV[3];
$db_resultfile =$ARGV[4];
@db_rowumbers = split(/,/,$db_rowumbers);
open(xfile, "<$db_database") || die "Couldn't open $list\n";
@fulldb = <xfile>;
close(xfile);
chomp(@fulldb);
 
foreach $line(@fulldb){
	if(($line =~ m/INSERT INTO \'$db_prefix\'\((.*?)\)/i) || ($line =~ m/INSERT INTO \`$db_prefix\`\((.*?)\)/i)  || ($line =~ m/^INSERT INTO $db_prefix(.*?)\((.*?)\)/i)){
			$line =~ s/INSERT INTO \'$db_prefix\'/INSERT INTO \`$db_prefix\`/;
		@rowdata = split(/\'/,$line);
		open(DBLOG,">>$db_resultfile") || die "Couldn't open uname-$dumplist\n";
		print "[+] ";
		for($x=0;$x<=$#db_rowumbers;$x++){
			$realnum = $db_rowumbers[$x]*2-1;
			if($x==$#db_rowumbers){
				print "$rowdata[$realnum]\n";
				print DBLOG "$rowdata[$realnum]\n";
			}
			else{
				print "$rowdata[$realnum]$db_splitter";
				print DBLOG "$rowdata[$realnum]$db_splitter";
			}
		}
	}
}
		close(DBLOG);
		print "[+] Parsing & dumping completed\n";

Back