clipping/bin/import.pl

#!/usr/bin/perl

# Import data from CSV file
# (first line should describe data structure)

use strict;

my @file   = <>;
my $header = shift(@file);
chomp $header;

$header =~ s/^\s*#\s*//;

my @fields = split (";", $header);

my ($t_name, @valid_fields);

# $t_name = 'c_customer';
# @valid_fields = qw (c_customer_name c_customer_phone c_customer_email c_customer_notes);

# $t_name = 'c_source';
# @valid_fields = qw (c_source_description c_source_notes);

# $t_name = 'c_type';
# @valid_fields = qw (c_type_description c_type_notes);

# $t_name = 'c_news';
# @valid_fields = qw (c_news_section c_news_page c_news_title c_news_abstract c_news_full_text);


die unless defined $t_name;
die unless defined @valid_fields;

foreach my $f (@file) {
  chomp $f;

  my @f = split (";", $f);

  my %f = ();
  foreach (@fields) {
    $f{$_} = shift (@f);
  }

  print "INSERT INTO $t_name (" .
        join (",", @valid_fields) .
        ") VALUES (" .
        join (",", map ("'$f{$_}'", @valid_fields)) . ");\n";
}
1	dpavlin	1.1	#!/usr/bin/perl
2
3			# Import data from CSV file
4			# (first line should describe data structure)
5
6			use strict;
7
8			my @file = <>;
9			my $header = shift(@file);
10			chomp $header;
11
12			$header =~ s/^\s#\s//;
13
14			my @fields = split (";", $header);
15
16			my ($t_name, @valid_fields);
17
18			# $t_name = 'c_customer';
19			# @valid_fields = qw (c_customer_name c_customer_phone c_customer_email c_customer_notes);
20
21			# $t_name = 'c_source';
22			# @valid_fields = qw (c_source_description c_source_notes);
23
24			# $t_name = 'c_type';
25			# @valid_fields = qw (c_type_description c_type_notes);
26
27			# $t_name = 'c_news';
28			# @valid_fields = qw (c_news_section c_news_page c_news_title c_news_abstract c_news_full_text);
29
30
31			die unless defined $t_name;
32			die unless defined @valid_fields;
33
34			foreach my $f (@file) {
35			chomp $f;
36
37			my @f = split (";", $f);
38
39			my %f = ();
40			foreach (@fields) {
41			$f{$_} = shift (@f);
42			}
43
44			print "INSERT INTO $t_name (" .
45			join (",", @valid_fields) .
46			") VALUES (" .
47			join (",", map ("'$f{$_}'", @valid_fields)) . ");\n";
48			}