perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 36
 Click for quality!



11.02.2012 / 13:18
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragSpalten verstecken in CSV-Datenbank unter cgi
 Seitenanfang
Hätte folgendes Problem:
Meine csv-Datenbank wird unter cgi ausgelesen.
Derzeit werden aber alle Columns (Spaltennamen) in der Ausgabe angezeigt. Ist es denn möglich mit einer Markierung der entsprechenden Spalte und einem entsprechendem Script, diese nicht mehr anzuzeigen?
Dankeschön

Datum: 25.05.2007-13:15
Beitragre: Spalten verstecken in CSV-Datenbank unter cgi
 Seitenanfang
Du schreibst nicht in welcher Form die Daten nach dem Auslesen vorliegen, ich gehe mal davon aus das jede Zeile durch ein Liste repraesentiert wird, wie es zum Beispiel beim Verarbeitung durch Text::CSV der Fall sein kann.

Code folgt im naechsten Posting.

Datum: 25.05.2007-15:38
Beitragre: Spalten verstecken in CSV-Datenbank unter cgi
 Seitenanfang 

#!/usr/bin/perl
  use strict;
  use warnings;
 
  use Text::CSV;
 
  # columns to show, offset starts at 0
  # Example (shows 2nd and 4th column):
  #   my @columns_to_show = ( 1, 3 );
  #
  my @columns_to_show = ( 1, 3 );
 
 
  my $csv = Text::CSV->new();
 
  while(my $line = <DATA>) {
 
      # if parsing failed print error and die
      unless($csv->parse($line)) {
          die sprintf "Error: %s\n",
                      $csv->error_input();
      }
 
      # extract fields and filter out unwanted
      my @columns = ($csv->fields)[ @columns_to_show ];
 
      print join(' | ', @columns), "\n";
  }
 
__DATA__
Row1Col1,Row1Col2,Row1Col3,Row1Col4
Row2Col1,Row2Col2,Row2Col3,Row2Col4
Row3Col1,Row3Col2,Row3Col3,Row3Col4

Datum: 25.05.2007-15:39
Beitragre: Spalten verstecken in CSV-Datenbank unter cgi
 Seitenanfang
Entschuldige kenne mich nicht da nicht besonders gut aus, bei mir steht das ganz oben im Script:

use strict;
use CGI::Carp qw(fatalsToBrowser);
my (%FORM, $COMPCGIURL, $i, $j, $color, @buf, @buf1, $numbFields, @printField, @mailField, $more, $pages, $pageStart, $pageEnd);
my ($key, $key1, $mailDate, $mailDate2, $tmp, @tmpA, $srchField, $srchResults, %srchRules);
my ($orderNr, %orderKeys);
use strict;
use warnings;

Hilft das? Ansonsten vielen Dank für Deine Hilfe!

Datum: 25.05.2007-18:14
Beitragre: Spalten verstecken in CSV-Datenbank unter cgi
 Seitenanfang
Nicht wirklich, bis auf die Array-Variable mit dem Namen 'printField', koennte sein dass darueber die Ausgabe der Spalte bestimmt wird. Fuer weitere Hinweise fehlt leider etwas Code.

Datum: 26.05.2007-02:09
Beitragre: Spalten verstecken in CSV-Datenbank unter cgi
 Seitenanfang
Danke, kann ich dir den Code mal per Mail schicken?

Datum: 26.05.2007-14:44
Beitragre: Spalten verstecken in CSV-Datenbank unter cgi
 Seitenanfang
Waere kein Problem, einfach an:

perlunity_de_8_19970_40613.misk@9ox.net

Datum: 26.05.2007-17:56
-






-
 -