Leser: 21
<textarea readonly="readonly" value="[b]möglicherweise hier?[/b]"></textarea>
2012-08-14T14:26:06 bendennAlso den Perl Code für ein sql select direkt in den HTML TAG der Textarea z.B. ...value="DB select" oder so ähnlich.
1 2 3 4 5 6 7
my $perlcode = <<'EOM'; my $sth = $dbh->prepare("SELECT * FROM foo where bar = ?"); $sth->execute(23); ... EOM use HTML::Entities qw/ encode_entities /; my $html = "<textarea ...>" . encode_entities($perlcode) . "</textarea>";
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
<html>
<head>
<script>
function showSOP(str)
{
if (str=="")
{
document.getElementById("txtHint").innerHTML="";
return;
}
if (window.XMLHttpRequest)
{// code for IE7+, Firefox, Chrome, Opera, Safari
xmlhttp=new XMLHttpRequest();
}
else
{// code for IE6, IE5
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
xmlhttp.onreadystatechange=function()
{
if (xmlhttp.readyState==4 && xmlhttp.status==200)
{
document.getElementById("txtHint").innerHTML=xmlhttp.responseText;
}
}
xmlhttp.open("GET","getSOP.pm?q="+str,true);
xmlhttp.send();
}
</script>
</head>
<body>
<textarea readonly="readonly" id="txtHint" onchange="showSOP(this.value)" name="SOP" >
</body>
</html>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
use strict; use warnings; use DBI; my $DBH = dbh() or die $@; my $story = qq(Otto und Franz gehen mit dem Hund Foo spazieren und treffen Boo); #<--- Brauch ich das? # Ohne Fehlerbehandlung $DBH->do("SELECT * FROM table_SOP...", {}, $story); # Mit Fehlerbehandlung eval{ $DBH->do("SELECT * FROM table_SOP...", {}, $story); }; # Frage $@ ab ob es einen Fehler gab. # --->Ist Fehlerbehandlung bei select statement möglich/nötig??? sub dbh{ my %cfg = ( base => 'myweb', host => 'localhost', port => 3306, user => 'name...', pass => 'pw...', @_); return eval{ DBI->connect("DBI:mysql:$cfg{base}:$cfg{host}:$cfg{port}", $cfg{user}, $cfg{pass}, {RaiseError => 1, PrintError => 0} ); }; } #Hier sollen die Daten an die Textarea übergeben werden?! #Habe nur leider keine Ahnung wie genau ich das bewerkstelligen soll. echo "<textarea>"; while($row = mysql_fetch_array($result)) { echo "<textarea>" . $row['SOP'] . "</textarea>"; }