topical media & game development
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

talk show tell print

mashup-gmaps-ch11-02insert.pl / pl



  #!/usr/bin/perl
  
  use DBI;
  
  my dbh = DBI->connect( 'dbi:mysql:database=mapsbookex;host=db.maps.mcslp.com',
                          'mapsbookex',
                          'examples',
                          );
  
  if (!defined(dbh))
  {
      die "Couldn't open connection to database\n";
  }
  
  open(DATA,ARGV[0]) or die "Couldn't open file; did you forget it?";
  
  my counter = 0;
  
  while(<DATA>)
  {
      chomp;
      my (title,lng,lat,street,city,postcode,phone) = split /:/;
  
      dbh->do(sprintf('insert into ch08_cplx values(\%s,\%s,\%s,\%s,\%s,\%s,\%s)',
                       dbh->quote(lat),
                       dbh->quote(lng),
                       dbh->quote(title),
                       dbh->quote(street),
                       dbh->quote(city),
                       dbh->quote(postcode),
                       dbh->quote(phone),
                       ));
      counter++;
  }
  close(DATA);
  
  print "counter records inserted\n";
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

(C) Æliens 20/2/2008

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.