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	#!/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	}