Como poupar um dia de trabalho.
#!/usr/bin/perl -w
sub leitura() {
my @files = glob("c:\\pics\\*");
foreach my $file (@files){
# Gets Id
my $ID = substr($file, 8, 3);
if ( index($ID, "_", 0) == 1 ) {
$ID = substr($ID,0,1);
}
else {
$ID = substr($ID,0,2);
}
# End Get Id
$file = substr($file, 8);
print "($ID, 0, '$file', 0, 0.00, 0, '$file') \n";
}
}
leitura();
O resultado,147 linhas de Sql em menos de 2segundos