Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]8624[/thread]

farblich dargestellte Ausgabe

Leser: 2


<< |< 1 2 >| >> 16 Einträge, 2 Seiten
kruemmel
 2007-01-07 21:21
#72915 #72915
User since
2006-02-12
33 Artikel
BenutzerIn
[default_avatar]
Hallo,

leider nichts in diesem Forum zu meiner kommenden Frage gefunden.

Ist es möglich Perl Ausgaben in Farbe darzustellen? Natürlich ist es möglich aber wo finde ich einen Ansatz zu diesem Thema?

kurzes Beispiel:

Ich möchte Daten aus einer mysql DB auslesen und einige Werter die z.B. größer als 1000 sind farblich ausgeben oder vor dem Datensatz der größer 1000 ist in der ersten Spalte ein Warndreieck als Bild plazieren lassen. Eine weiterer Weg wäre da es sich ja um eine Tabelle handelt den Hintergrund des Feldes in dem sich der Datensatz befindet farblich zu makieren. Also ich denke mal ihr versteht was ich meine. Gibt es vielleicht irgendwo Infos oder Ansätze für die Umsetzung meiner Vorstellungen? Danke euch schon mal im vorraus.
ptk
 2007-01-07 21:27
#72916 #72916
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Siehe Term::ANSIColor
kruemmel
 2007-01-07 23:21
#72917 #72917
User since
2006-02-12
33 Artikel
BenutzerIn
[default_avatar]
meinst du Term::ANSIColor ist das richtige Modul für die farbliche Darstellung der Ausgsbe im Web-Browser?
PerlProfi
 2007-01-07 23:31
#72918 #72918
User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]
Term::ANSIColor nimmst du um eine farbliche Ausgabe in der shell zu erzeugen.
Im Webbrowser kannst du doch HTML verwenden.

MfG PerlProfi
sesth
 2007-01-08 00:07
#72919 #72919
User since
2005-02-01
181 Artikel
BenutzerIn
[default_avatar]
[quote=kruemmel,07.01.2007, 22:21]meinst du Term::ANSIColor ist das richtige Modul für die farbliche Darstellung der Ausgsbe im Web-Browser?[/quote]
In Deiner Frage stand nichts von Web-Browser. Farbliche Darstellungen im Browser würde ich mittels CSS vornehmen. Der generierte HTML-Code sollte dann entsprechende Class-Attributte setzen.
Gruß
Thomas
kruemmel
 2007-01-08 01:01
#72920 #72920
User since
2006-02-12
33 Artikel
BenutzerIn
[default_avatar]
ok, dann werde ich noch etwas googeln. Falls ihr zufällig ein Beispiel für die Darstellung im Browser habt wäre ich euch sehr dankbar. Wie man Perl in HTML einfügt und HTML Ausgaben mit Perl erzeugt habe ich auch schon gefunden. Ich hätte bloß gerne mal ein Beispiel indem z.B. ein Script eine HTML Seite ausgibt die Daten aus einer mysql DB nimmt und die Werte nach bestimmten Bedingungen unterschiedlich farbig anzeigt. Aber danke erstmal für eure Antworten. Sie helfen mir auch weiter.
renee
 2007-01-08 08:49
#72921 #72921
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Dafür wäre CPAN:HTML::Template::Compiled ganz nützlich...

Code: (dl )
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
#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use HTML::Template::Compiled;

my $tmpl = 'Database.tmpl';
my $template = HTML::Template::Compiled(filename => $tmpl);

my ($user,$pass,$db,$host) = ("user","passwort","datenbank","host");
my $dbh = DBI->connect("DBI:mysql:$db:$host",$user,$pass) or die $DBI::errstr;
my $stmt = q~SELECT * FROM tabelle~;
my $sth = $dbh->prepare($stmt) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

my @values;
while(my ($col1,$col2) = $sth->fetchrow_array()){
    my $class = 0;
    $class = 1 if $col2 eq 'hallo';
    push @values, {VALUE => $col1, CLASS => $class};
}
$sth->finish();
$dbh->disconnect();

$template->param(SCHLEIFE => \@values);
print $template->output();



Database.tmpl:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<html>
<head>
  <title>Test</title>
  <style type="text/css">
    .red{ color: red; }
    .green{ color: green; }
  </style>
</head>
<body>
<table>
  <!-- TMPL_LOOP NAME=SCHLEIFE -->
  <tr>
    <td><img src="/pfad/zu/warndreieck.jpg"></td>
    <td><span 
              class="<!-- TMPL_IF NAME=CLASS -->red<!-- TMPL_ELSE -->green<!-- /TMPL_IF -->">
             <!-- TMPL_VAR NAME=VALUE --></span>
    </td>
  </tr>
  <!-- /TMPL_LOOP -->
</table>
</body>
</html>
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
kruemmel
 2007-01-08 22:31
#72922 #72922
User since
2006-02-12
33 Artikel
BenutzerIn
[default_avatar]
Hallo,

habe eine gute Erklärung für meine Bedürfnisse gefunden.

http://www.inspire-world.de/perlcgi/workshops/tabfarben.html


Hätte ich gewußt das es so einfach ist. Manchmal denkt man einfach zu kompliziert.
sesth
 2007-01-08 23:00
#72923 #72923
User since
2005-02-01
181 Artikel
BenutzerIn
[default_avatar]
Das Beispiel löst zwar Dein Problem - es arbeitet aber mit veralteter Technologie. Halte Dich besser an renees Beispiel, dann ist das Wissen besser angelegt ;) .
Gruß
Thomas
kruemmel
 2007-01-08 23:10
#72924 #72924
User since
2006-02-12
33 Artikel
BenutzerIn
[default_avatar]
ok, ich habe das Beispiel von Renee zwar noch nicht ausprobiert um es zu verstehen wäre aber schön wenn man als Neuling dokumentierten Code bekommen könnte. Aber egal ich werde das Beispiel von Renee mal umsetzen. Warum ist das Beispiel im Link veraltet? Es funktioniert doch noch super. Was ist vorteihafter an der herangehensweise von Renee und seinem Beispiel?
<< |< 1 2 >| >> 16 Einträge, 2 Seiten



View all threads created 2007-01-07 21:21.