Exécuter le fichier SQL, Perl

Nous avons un script Perl qui exécute SQL et met les données dans la table.
Maintenant, au lieu de fournir une instruction SQL unique, nous voulons passer des tas d'entre eux de les mettre ensemble dans une .fichier sql. Nous savons que notre programme va échouer, car il s'attend à une seule instruction SQL, pas s tas d'entre eux (que trop de un .fichier sql). Comment pouvons-nous le faire fonctionner avec un .fichier sql (le fait d'avoir plusieurs instructions INSERT?). Nous sommes à l'aide de l'DBI paquet.

Un petit extrait de code:

$sth = $dbh->prepare("/home/user1/tools/mytest.sql");
$sth->execute || warn "Couldn't execute statement";
$sth->finish();
InformationsquelleAutor t0mcat | 2010-11-18
  1. 4

    Pas exactement ce que vous voulez...

    Une fois que vous créez un DBI objet, vous pouvez l'utiliser encore et encore. Ici, je suis en train de lire SQL instruction après instruction SQL à partir d'un fichier et le traitement de chacun et de tous dans l'ordre:

    use DBI;

my $sqlFile = "/home/user1/tools/mytest.sql"

my $dbh = DBI::Connect->new($connect, $user, $password)
    or die("Can't access db");

# Open the file that contains the various SQL statements
# Assuming one SQL statement per line

open (SQL, "$sqlFile")
    or die("Can't open file $sqlFile for reading");

# Loop though the SQL file and execute each and every one.
while (my $sqlStatement = <SQL>) {
   $sth = dbi->prepare($sqlStatement)
      or die("Can't prepare $sqlStatement");

   $sth->execute()
      or die("Can't execute $sqlStatement");
}

    Avis que je suis en train de mettre l'instruction SQL dans la prepare et non le nom de fichier qui contient l'instruction SQL. Peut-être que votre problème?

    • ici, je m appel dq.fichier sql dans un script perl dans lequel je m en passant variable comme $patch_name ,$svn_url, $ftp_path qui est défini dans le dossier de perl mais db.fichier sql n'est pas l'accès à ces variables? svp aider moi le plus vite possible.$sqlfile = "C:/BuildScript/YellowBox_Script/YellowBox_Core_Script/db.sql";open(SQL, "$sqlfile") or die("Can't open file $sqlFile for reading"); while ($sqlStatement = <SQL>) { $sth = $dbh->prepare($sqlStatement) or die ("Can't prepare $sqlStatement"); $sth->execute() or die ("Can't execute $sqlStatement"); }
    • Pouvez-vous créer une question au lieu d'un commentaire? Les autres le verront, et peut vous aider.
    • Sauf que je suis absent quelque chose cela suppose une instruction par ligne, ce qui n'est guère assurée.
    • Vous avez raison, et je l'ai dit dans mes commentaires. Ils ne m'ont pas donné le format du fichier, donc j'ai pris le plus simple arrangement. Le point de ma réponse est qu'ils avaient besoin d'une boucle sur le fichier, et faire une préparation et d'exécution de chaque instruction.
    • Salut David W j'en ai un similaire doute pouvez-vous pls répondre à ma question dans le lien ci-dessous ..
    • stackoverflow.com/questions/25645801/...

    InformationsquelleAutor David W.
  2. 4

    Vous n'avez pas besoin de perl pour ce tout. Suffit d'utiliser la ligne de commande de mysql client:

    mysql -h [hostname] -u[username] -p[password] [database name] < /home/user1/tools/mytest.sql

    remplacer le [variables] avec votre information.

    Note pas d'espace après -u ou -p. Si votre serveur mysql est en cours d'exécution sur la même machine, vous pouvez omettre-h[nom d'hôte] (la valeur par défaut est localhost)

    • Salut Cfreak est en fait un script qui ne marche pas tas d'autres trucs aussi, donc nous avons besoin de la modification est de ce script. Merci pour la solution mais.
    InformationsquelleAutor Cfreak
  3. 4

    Il y a une sorte de solution de contournement pour DDL. Vous devez slurp fichier SQL d'abord et puis placez-le contenu en BEGIN ... END; mots-clés. Comme:

    sub exec_sql_file {
    my ($dbh, $file) = @_;

    my $sql = do {
        open my $fh, '<', $file or die "Can't open $file: $!";
        local $/;
        <$fh>
    };

    $dbh->do("BEGIN $sql END;");
}

    Ce sous-programme permet d'exécuter DDL (SQL) les scripts avec plusieurs instructions à l'intérieur (p. ex. base de données vide).

    InformationsquelleAutor Elvenfighter
  4. 1

    Voici comment je l'ai fait. Dans mon cas, je n'ai pas supposer un SQL à la ligne, je suppose, mon exemple est un peu mieux 🙂

    sub get_sql_from_file {
    open my $fh, '<', shift or die "Can't open SQL File for reading: $!";
    local $/;
    return <$fh>;
};

my $SQL = get_sql_from_file("SQL/file_which_holds_sql_statements.sql");
my $sth1 = $dbh1->prepare($SQL);
$sth1->execute();
    • Pourquoi ne pas get_sql_from_file retour le SQL, plutôt que de définir une variable globale? Les variables globales sont mauvais.
    • Il pourrait retourner le SQL, mais pourquoi pensez-vous que l'utilisation de $variable SQL est mauvais dans cet exemple? Pouvez-vous l'expliquer? vouliez-vous dire que l'utilisation de variables globales est une mauvaise idée en général?
    • Les variables globales sont, en général, une mauvaise idée. Vos fonctions seront plus faciles à réutiliser si ils sont autonomes et ne pas supposer l'existence de variables externes.
    • ok, merci. Je n'ai pas été écrit en perl au moins pour les 3 dernières années et je suis en train d'essayer de se souvenir de ses concepts. Merci pour vos commentaires
    • Ce n'est pas un Perl concept. C'est juste de la programmation de la pratique - peu importe la langue que vous utilisez.
    InformationsquelleAutor Nickolay Komar