Detected 1 occurrence(s) of ‘\s*pass[word]+\s*[:=]\s*[“‘][a-z0-9\-_\!\$]+[“‘]': use strict; use DBI; my $dbHost = 'localhost'; my $db = 'am'; my $dbUser = 'username'; my $dbPassword = 'password'; our $dbh = dbConnect(); print "Starting this shit..."; my @files = <*.csv>; my $f; my $t; foreach my $file (@files) { $f++; open CSV, $file; my @CSV = <CSV>; close(CSV); […]
↧