[perl] DBI vraagje (beginner)

[HenkS]

hallo,

ik heb altijd met php en mysql zitten kloten, en nu ben ik toch ook eens gaan perlen

ik heb wat manuals op internet opgezocht en wat voor mijn site gemaakt, maar nu had ik gewoon paar vraagjes en tips nodig, ik heb de volgende code gemaakt:

PHP:

$sthremove = $dbhnew->prepare( "SELECT a.a_id, a.k_id FROM auto AS a WHERE a.p_d='P' AND a.verleng<$vijf_weken_terug;" );
$sthremove->execute();
$sthremove->bind_columns(\$a_id,\$k_id);


#verwijderen van elke auto ouder dan 5 weken
$aantal_verwijderd = 0;
while($sthremove->fetch) {
  
    $rows = $dbhnew->do( "DELETE FROM auto_opties_koppel WHERE a_id=$a_id" );
    $rows = $dbhnew->do( "DELETE FROM auto WHERE a_id=$a_id" );
    $rows = $dbhnew->do( "DELETE FROM particulier WHERE p_id=$k_id" );
    $rows = $dbhnew->do( "DELETE FROM autohits WHERE auto_id=$a_id" );
  
  $url = '../particulier_images/auto/';
  if ($dir = @opendir($url)) {
    while($file = readdir($dir)) {
      $images = split("_", $file);
      if ($images[0] == $a_id){
        unlink($url."thumbnails/".$file);
        unlink($url.$file);
      }  
    }
  }
    $aantal_verwijderd++;
}
$sthremove->finish();
#einde verwijder

het maken van de database connectie en declareren van wat vars enzo zit hier niet bij.

maar nu eerst ff vraag over het verwijderen van die files, dit stukje komt zo letterlijk uit mijn php code, maar nu werkt dit volgens mij wel in perl zo, maar kan het nergens vinden, kan iemand bevestigen of dit in perl ook zo moet?

en dan een vraag over de 4 delete querys, kan dit zo? of moet ik $rows ook nog eerst op de 1 of andere manier definieren? want dit doe ik nergens.

en moet je na dit alles de database connectie sluiten, of gaat dit wel vanzelf, of boeit het niet als die open blijft???

ps: ik weet dat ik ook wel wat kan testen, maar zit nu op werk, en kan dit hier niet testen

en als jullie tips hebben voor verbeteren van deze code, altijd welkom, maar als dit beetje klopt, kom ik er verder wel uit

[PTBoy]

ten 1e: die <? en ?> zullen errors geven

als je "use strict" in je script hebt staan, moet je alle variabelen eerst declareren, zo niet, dan werkt het zo

database connectie wordt automagisch gesloten na/bij verlaten script

[HenkS]

PietM schreef op 06 augustus 2002 @ 11:14:
ten 1e: die <? en ?> zullen errors geven

als je "use strict" in je script hebt staan, moet je alle variabelen eerst declareren, zo niet, dan werkt het zo

database connectie wordt automagisch gesloten na/bij verlaten script

ja die <? heb ik niet in mijn code, komen volgens mij door [php ] gebruik hier op GOT, weet niet of er ook [perl ] bestaat????

en "use strict" heb ik niet nee, dus moet werken

ehmmm weet je ook zo, of dat 'file verwijder stuk'zo werkt?

[Grum]

Install op je werk dan gewoon active-perl en laat ons niet testen.

[whoami]

Wacht dan tot je thuis bent om het daar zelf te testen, of installeer het op uw werk.
GoT is geen helpdesk waar je anderen je code laat testen.