-
Notifications
You must be signed in to change notification settings - Fork 0
/
untitled.pl
96 lines (68 loc) · 1.92 KB
/
untitled.pl
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
#!/usr/bin/perl
# Sample perl cgi script. This script prints a list of the
# products in the opatija proj4.products table.
# For use with AJAX
# Code by Alan Riggins, Fall 2017
#
# For use with ajax only
#
use DBI;
my $host = "opatija.sdsu.edu";
my $port = "3306";
my $database = "jadrn028";
my $username = "jadrn028";
my $password = "storm";
my $database_source = "dbi:mysql:$database:$host:$port";
my $dbh = DBI->connect($database_source, $username, $password)
or die 'Cannot connect to db';
#my @temp = ('8I96H86E4','8Y39K86V4','9U39J36R3');
my $sth = $dbh->prepare("SELECT sku, SUM(quantity) as quantity FROM sales group by sku order by sku");
$sth->execute();
my @rows;
$str1 = "";
while(my @row=$sth->fetchrow_array()) {
foreach $item (@row) {
$str1 .= $item."|";
push @rows, $item;
}
$str1 .= ";";
}
print "Content-type: text/html\n\n";
$sth->finish();
$dbh->disconnect();
my @skuArray;
my @quantityArray;
for($i=0;$i<@rows;++$i) {
if (my $result1 = $i % 2 eq '0') {
# print "Element at index $i is ",$rows[$i],"\n";
push @skuArray, $rows[$i];
}
else {
push @quantityArray, $rows[$i];
}
}
my $host = "opatija.sdsu.edu";
my $port = "3306";
my $database = "proj4";
my $username = "jadrn000";
my $password = "apple";
my $database_source = "dbi:mysql:$database:$host:$port";
my $dbh = DBI->connect($database_source, $username, $password)
or die 'Cannot connect to db';
@finalskuArray = join(' , ', @skuArray);
print @finalskuArray;
#$_dblist = "testdb1 testdb2 testdb3";
@selected = split(' ', @skuArray);
my $sth = $dbh->prepare("SELECT sku, cost, retail FROM products where sku IN (".@selected.")");
$sth->execute();
$str = "";
while(my @row=$sth->fetchrow_array()) {
foreach $item (@row) {
$str .= $item."|";
}
$str .= ";";
}
print "Content-type: text/html\n\n";
$sth->finish();
$dbh->disconnect();
print $str;