Help for this page

Select Code to Download

Select or download this

while (my $row = $sth->fetchrow_hashref()) {
    for my $imgfile (map $row->{"image_$_"}, 1..4) {
        unlink "../../pics/$imgfile";
    }
}

Select or download this

    unlink map "../../pics/".$row->{"image_$_"}, 1..4;