0 #!/usr/bin/perl -w 1 # -*- perl -*- 2 # enter_vrn.pl 3 use strict; 4 use DBI; 5 my $db = DBI->connect('dbi:mysql:CEA') or die "Can't connect: $DBI::errstr"; 6 my $stl = $db->prepare( 'INSERT INTO registration (registration_id) VALUES (?)' ) 7 or die "Can't prepare: ",$db->errstr; 8 $/ = ""; # paragraph mode 9 while (<>) { 10 chomp; 11 my ($digits) = /--REGISTRATION-START--(.+)--REGISTRATION-END--/s; 12 $digits =~ s/\D//g; 13 $stl->execute($digits) or die $db->errstr; 14 } 15 $stl->finish; 16 $db->disconnect;