Fischer-Bayern.de
 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

MySQL & AppleScript mit Hilfe von Perl

 
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Pool
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Skeeve
•---->
•---->


Anmeldedatum: 20.04.2006
Beiträge: 1068

BeitragVerfasst am: 22.02.2008 - 21:33    Titel: MySQL & AppleScript mit Hilfe von Perl Antworten mit Zitat

in diesem Thread sieht man ein kommentiertes Beispiel für die Anwendung dieses Handlers:

Zitat:
property user : "scott"
property pass : "tiger"
property dbhost : "localhost:3306"
property dbname : "petshop"

on run
   set minimalpreis to 100
   set minimalmenge to 20
   set ergebnis to sql_select("
      select
         productid,
         listprice
      from
         item
      where
         listprice > ?
      and
         qty > ?
      ", {minimalpreis, minimalmenge})
end run

to sql_select(select_statement, parameters)
   set plist to ""
   repeat with p in parameters
      set plist to plist & " " & quoted form of (p as string)
   end repeat
   return do shell script "perl -e " & (quoted form of "
      use strict;
      use warnings;
      use Getopt::Long;
   use DBI();

      my(
         $user,
         $pass,
         $host,
         $db,
         $select,
      );
      
      GetOptions (
         'user=s' => \\$user,
         'pass=s' => \\$pass,
         'host=s' => \\$host,
         'db=s' => \\$db,
         'select=s' => \\$select,
      );
         
    my $dbh = DBI->connect(
         qq'DBI:mysql:database=$db;host=$host',
         $user, $pass, {'RaiseError' => 1}
      );

      my $sth = $dbh->prepare($select);
      $sth->execute( @ARGV );
      while ( my @row = $sth->fetchrow_array ) {
         print join(qq'\\t', @row),qq'\\n';
      }
      $dbh->disconnect;
   ") & " -- " & ¬
      " -user " & (quoted form of user) & ¬
      " -pass " & (quoted form of pass) & ¬
      " -host " & (quoted form of dbhost) & ¬
      " -db " & (quoted form of dbname) & ¬
      " -select " & (quoted form of select_statement) & ¬
      plist
end sql_select

_________________
"All problems are solved in slightly less than half an hour" (Chumbawamba, "Hey Hey We're The Junkies")


Zuletzt bearbeitet von Skeeve am 23.02.2008 - 00:16, insgesamt einmal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Skeeve
•---->
•---->


Anmeldedatum: 20.04.2006
Beiträge: 1068

BeitragVerfasst am: 22.02.2008 - 21:35    Titel: Antworten mit Zitat

P.S. Natürlich müssen die entsprechenden Bibliotheken (DBI und DBD::MySQL) installiert sein!
_________________
"All problems are solved in slightly less than half an hour" (Chumbawamba, "Hey Hey We're The Junkies")
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Fischer-Bayern.de Foren-Übersicht -> Pool Alle Zeiten sind GMT + 2 Stunden
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.


Powered by phpBB © 2001, 2002 phpBB Group
Deutsche Übersetzung von phpBB.de


AppleScript für absolute Starter