Skeeve
•---->
Anmeldedatum: 20.04.2006
Beiträge: 1067
|
 Verfasst am: 22.02.2008 - 21:33 Titel: MySQL & AppleScript mit Hilfe von Perl |
 |
|
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 |
|
bernardprejean
•->
Anmeldedatum: 25.01.2021
Beiträge: 2
Wohnort: Tours,France
|
| Verfasst am: 25.01.2021 - 20:33 Titel: |
|
|
Gute Idee und ein Diskussionsthema, insgesamt interessant!
_________________
Bei der Auswahl eines Brokers müssen Sie sich zumindest grob vorstellen, wie oft und in welchem Umfang Sie in den Markt eintreten möchten. |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
