csv erzeugen (Allgemeines zu Perl)

[thread]17420[/thread]

csv erzeugen

Tags: perl5 Ähnliche Threads

Leser: 35

Articles: hide open all | hide show old branches

Teilbaum:
csv erzeugen (14 Artikel) 2012-05-30 09:22

+15 replies

anton

2012-05-22 09:02

User since
2012-05-15
16 Artikel
BenutzerIn
[default_avatar]

gibt es eine möglichkeit das alles als eine csv Dateie auszugeben?ich probiere seit gestern verschiedenes aber habe es irgendwie nicht hinbekommen :S

modedit Editiert von pq: teilbaum "csv erzeugen" erstellt. bitte nicht alles an einen thread dranhängen.
Last edited: 2012-05-22 12:03:17 +0200 (CEST)

+14 replies

topeg

2012-05-22 11:17

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Welches Problem hast du? Als kurze Übersicht:

Code (perl): (dl )

my $sth = $dbh->prepare( "SELECT name,size,id,pid,mtime FROM $tabelle" );
$sth->execute();
while(my @elm=$sth->fetchrow_array())
{
  my $line=join(',',map{'"'.$_.'"'}@elm);
  print $line."\n";
}

Um richtiges CSV zu erzeugen solltest du besser CPAN:

Text::CSV oder ein ähnliches Modul nutzen

+13 replies

anton

2012-05-22 11:53

User since
2012-05-15
16 Artikel
BenutzerIn
[default_avatar]

genau ich brauch ein richtiges csv habe es schon mit Text::CSV probiert aber irgendwie klappt es nicht so ganz :(

+12 replies

Linuxer

2012-05-22 12:10

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Sollen wir raten, was Du probiert hast?

Zeig doch mal den Code, den Du versucht hast.
"Klappt nicht so ganz" ist auch eine sehr ungeeignete Fehlerbeschreibung.
Was passiert? Was passiert nicht?
Tauchen Warnungen oder Fehlermeldungen auf? Welche?
Wie sieht der Code aus?

Liefere bitte mehr Informationen und man kann Dir potentiell besser helfen und konkretere Tipps geben.

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

+11 replies

anton

2012-05-23 08:22

User since
2012-05-15
16 Artikel
BenutzerIn
[default_avatar]

habe versucht das hier hier rein zu implementieren
http://www.perlmonks.org/?node_id=51001

Mein code sieht folgendermaßen aus:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
$| = 1;

use File::Find;
use File::Spec;
use DBI;
use DBD::CSV;
use Text::CSV;


# Verzeichnis von Kommandozeile holen
my $verzeichnis = shift(@ARGV) || 'C:\Users\Ordner'; 

# Array für die gefundenen Dateien
my @dateien; 

my $id = 0;
my $parent;
my %ids;

sub wanted { 
  if ( $_ ne '..' ) {
        $ids{ $File::Find::name } = $id;
        $parent = $File::Find::dir;
        push @dateien,{ 
                id => $id++, 
                fullname => $File::Find::name, 
                name => $_, 
                size => (stat($File::Find::name))[7], 
                parent => $parent, 
                parentid => $ids{ $parent },
                stat => [ (stat($File::Find::name))[8,9,10] ]
        };
  }
}

Es soll die Variablen id,name,größe, timestamp und pid als csv datei speichern.
Kann jede Datenbank die eine .csv datei erhält, die werte denjenigen variablen zuordnen? oder muss am datenbank auch etwas geändert werden?

+10 replies

topeg

2012-05-23 17:20

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Ohne es getestet zu haben

Variante über DBI:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
$| = 1;

use File::Find;
use DBI;

# Verzeichnis von Kommandozeile holen
my $verzeichnis = shift(@ARGV) || 'C:\Users\Ordner';
my $ausgabe_verzeichnis = shift(@ARGV) || 'C:\CSV_Ordner';
my $cvs_name = "dir.csv"

my $id = 0;
my $parent;
my %ids;

my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
          f_dir => $ausgabe_verzeichnis,
          csv_tables => {
            dir  => { file => $cvs_name }
          },
        });

$dbh->do ("DROP TABLE dir");
$dbh->do ("CREATE TABLE dir (fullname  CHAR (64), name CHAR (64),size INTEGER,id INTEGER,pid INTEGER,mtime INTEGER)");

my $sth=$dbh->prepare('INSERT INTO dir (fullname,name,size,id,pid,mtime) VALUES(?,?,?,?,?,?)');

sub wanted {
  return if ( $_ eq '..' );
  return if ( $_ eq '.' );
  $ids{ $File::Find::name } = $id;
  $parent = $File::Find::dir;
  $sth->execute(
         $File::Find::name,
         $_,
         (stat($File::Find::name))[7],
         $ids{ $parent },
         (stat($File::Find::name))[9],
       );
  }
}

$sth->finish();
$dbh->disconnect();

Variante mit Text::CSV:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
$| = 1;

use File::Find;
use Text::CSV;

# Verzeichnis von Kommandozeile holen
my $verzeichnis = shift(@ARGV) || 'C:\Users\Ordner';
my $csv_name = shift(@ARGV) || 'C:\CSV_Ordner\dir.csv';

my $id = 0;
my $parent;
my %ids;

my $csv=Text::CSV->new();
open(my $cvsfh,'>',$csv_name) or die("ERROR open $csv_name $!\n");
peint $cvsfh "#fullname,name,size,id,pid,mtime\n";

sub wanted {
  return if ( $_ eq '..' );
  return if ( $_ eq '.' );
  $ids{ $File::Find::name } = $id;
  $parent = $File::Find::dir;
  $csv->print ($cvsfh, [
         $File::Find::name,
         $_,
         (stat($File::Find::name))[7],
         $ids{ $parent },
         (stat($File::Find::name))[9],
       ]);
  }
}

+9 replies

anton

2012-05-24 08:12

User since
2012-05-15
16 Artikel
BenutzerIn
[default_avatar]

Ich habe es genauso geschrieben, aber die csv Datei die er erstellt enthält nur dies hier : #fullname,name,size,id,pid,mtime ... mehr nicht. wo ist der fehler?

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
$| = 1;

use File::Find;
use Text::CSV;

# Verzeichnis von Kommandozeile holen
my $verzeichnis = shift(@ARGV) || 'C:\Users\Ordner';
my $csv_name = shift(@ARGV) || 'C:\Users\AAA\Desktop\dir.csv';

my $id = 0;
my $parent;
my %ids;

my $csv=Text::CSV->new();
open(my $cvsfh,'>',$csv_name) or die("ERROR open $csv_name $!\n");
print $cvsfh "#fullname,name,size,id,pid,mtime\n";

sub wanted {
  return if ( $_ eq '..' );
  return if ( $_ eq '.' );
  $ids{ $File::Find::name } = $id;
  $parent = $File::Find::dir;
  $csv->print ($cvsfh, [
         $File::Find::name,
         $_,
         (stat($File::Find::name))[7],
         $ids{ $parent },
         (stat($File::Find::name))[9],
       ]);
  
}

+8 replies

GwenDragon

2012-05-24 09:15

User since
2005-01-17
14850 Artikel
Admin1

1. Es ist kein AUsgabetrenner angegeben worden in Zeile 18.

Code (perl): (dl )

my $csv=Text::CSV->new( { eol => $/ } );

2. Es fehlt

Code (perl): (dl )

find(\&wanted,  $verzeichnis);

in Zeile 21.

//EDIT: Jedenfalls klappt es bei mir dann unter Windows 7.
Last edited: 2012-05-24 09:23:19 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+7 replies

anton

2012-05-24 09:40

User since
2012-05-15
16 Artikel
BenutzerIn
[default_avatar]

ok jetzt funktionierts aber warum kriege ich bei id und pid so komische werte? und kann ich pfadangabe löschen?wenn ja wie? einfach fullname weglassen?

+6 replies

GwenDragon

2012-05-24 09:51

User since
2005-01-17
14850 Artikel
Admin1

Ich dachte, du verwendest ein abgeändertes Programm aus msg #158405?

1. Hier bei dir wird der id nicht hochgezählt und auch nicht aus dem Hash gelesen.

2. Zudem gibt

Code (perl): (dl )

$csv->print ($cvsfh, [
         $File::Find::name,
         $_,
         (stat($File::Find::name))[7],
         $ids{ $parent },
         (stat($File::Find::name))[9],
       ]);

folgendes in Wirklichkeit aus:
#fullname,name,size,pid,mtime
Last edited: 2012-05-24 09:55:21 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+5 replies

anton

2012-05-24 09:59

User since
2012-05-15
16 Artikel
BenutzerIn
[default_avatar]

ich hatte das was topeg gepostet hat verwendet

Edit: Gwen Dragon wie kann ich den sub_wanted dann umändern damit das mit id, pid stimmt und wie kann ich die rheinfolge der variablen ändern?

EDIT:
was ist daran falsch?habe es mit deinem code mal versucht gibt mir aber einen syntax error

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

$| = 1;

use File::Find;
use File::Spec;
use Text::CSV;

my $verzeichnis = shift(@ARGV) || 'C:\Users\Student\Desktop\Dropbox\Dropbox\AZ Darmstadt';
my $csv_name = shift(@ARGV) || 'C:\Users\Student\Desktop\dir.csv'; 

my $id = 0;
my $parent;
my %ids;


my $csv=Text::CSV->new( { eol => $/ } );
open(my $cvsfh,'>',$csv_name) or die("ERROR open $csv_name $!\n");
print $cvsfh "#fullname,name,size,id,pid,mtime\n";

find(\&wanted,  $verzeichnis); 

sub wanted { 
  return if ( $_ eq '..' );
  return if ( $_ eq '.' );
        $ids{ $File::Find::name } = $id;
        $parent = $File::Find::dir;
         $csv->print ($cvsfh, [
                id => $id++, 
                fullname => $File::Find::name, 
                name => $_, 
                parent => $parent, 
                parentid => $ids{ $parent },
                stat => [ (stat($File::Find::name))[8,9,10] ] ;

}

EDIT:
Syntax Error ist weg wird ausgeführt aber kriege komische werte raus
Last edited: 2012-05-24 10:12:25 +0200 (CEST)

+4 replies

GwenDragon

2012-05-24 10:12

User since
2005-01-17
14850 Artikel
Admin1

Geht es immer noch darum, die Werten der Dateien und Verzeichnisse so einzulesen, wie du in Verzeichnis rekursiv auslesen und in Datenbank schreiben wolltest, ich dir eine Lösung gab, und das anstatt in die Datenbank als CSV auszugeben?

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+3 replies

anton

2012-05-24 10:13

User since
2012-05-15
16 Artikel
BenutzerIn
[default_avatar]

+2 replies

GwenDragon

2012-05-25 12:58

User since
2005-01-17
14850 Artikel
Admin1

Ungetestet:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

$| = 1;

use File::Find;
use File::Spec;
use Text::CSV;

# Verzeichnis von Kommandozeile holen

my $verzeichnis = shift(@ARGV)
    || 'C:\Users\Student\Desktop\Dropbox\Dropbox\AZ Darmstadt';
my $csv_name = shift(@ARGV) || 'C:\Users\Student\Desktop\dir.csv';

# Array für die gefundenen Dateien
my @dateien;

my $id = 0;
my $parent;
my %ids;

sub wanted {
    if ( $_ ne '..' ) {
        $ids{$File::Find::name} = $id;
        $parent = $File::Find::dir;

        push @dateien,
            {
            id       => $id++,
            fullname => $File::Find::name,
            name     => $_,
            parent   => $parent,
            parentid => $ids{$parent},
            size     => ( stat($File::Find::name) )[7],
            mtime    => ( stat($File::Find::name) )[9]
            };
    }
}

# Dateien einlesen
find( \&wanted, File::Spec->rel2abs($verzeichnis) );

my $csv = Text::CSV->new( { eol => $/ } );
open( my $cvsfh, '>', $csv_name ) or die("ERROR open $csv_name $!\n");
print $cvsfh "#fullname,name,size,id,pid,mtime\n";

for my $datei (@dateien) {
    $csv->print(
        $cvsfh,
        [   $datei->{fullname}, $datei->{name},     $datei->{size},
            $datei->{id},       $datei->{parentid}, $datei->{mtime}
        ]
    );
}
close( $cvsfh ) or die("ERROR close $csv_name $!\n");

Last edited: 2012-05-25 12:59:33 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

anton

2012-05-30 09:22

User since
2012-05-15
16 Artikel
BenutzerIn

kann es sein das es hier einen kleinen fehler gibt?

1)es werden ID's (8,9,11,12) übersprungen
2)Paar Dateien hat er nicht gefunden
3)ist hier wichtig wie lange die dateiname ist?
4)bei manchen ist die parentID nicht unter ids zu finden.. also unterordner/dateien sind da aber der übergeordnete nicht

View all threads created 2012-05-15 08:38.