4 |
my $dbh = DBI->connect("DBI:Pg:dbname=corp","","") || die $DBI::errstr; |
my $dbh = DBI->connect("DBI:Pg:dbname=corp","","") || die $DBI::errstr; |
5 |
my $sth; |
my $sth; |
6 |
|
|
7 |
my $dir="/home/dpavlin/private/corp/public_html/vet"; |
#my $dir="/home/dpavlin/private/corp/public_html/vet"; |
8 |
|
my $dir="/data/corp_html/vet"; |
9 |
opendir(DIR, $dir) || die "can't opendir $dir: $!"; |
opendir(DIR, $dir) || die "can't opendir $dir: $!"; |
10 |
#grep { /^\./ && -f "$dir/$_" && /^\d\d\d\d.htm/ } |
#grep { /^\./ && -f "$dir/$_" && /^\d\d\d\d.htm/ } |
11 |
while($file=readdir(DIR)) { |
while($file=readdir(DIR)) { |