#!/usr/bin/perl -w
#=====================================================================
+==========
#
#         FILE:  create_seq_test.pl
#
#        USAGE:  ./create_seq_test.pl
#
#  DESCRIPTION:  Test script to "create sequences" from backup sql fil
+e
#
#      OPTIONS:  ---
# REQUIREMENTS:  ---
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Gavin Henry (GH), <ghenry@suretecsystems.com>
#      COMPANY:  Suretec Systems Ltd.
#      VERSION:  1.0
#      CREATED:  29/12/05 14:42:44 GMT
#     REVISION:  ---
#=====================================================================
+==========

use strict;
use warnings;
use Carp;
use Readonly;
use Regexp::DefaultFlags; # Adds xms to the end of all Regexp
use diagnostics;          # More helpful error messages, comment out l
+ater
$| = 1;                   # Set the autoflush flag to on

Readonly my $import_seqs  => 'dbexp.sql';
Readonly my $create_seqs  => 'cre_seq.sql';

open my $CREATE_SEQS, '+>', $create_seqs     # using indirect filehand
+les, r/w
    or croak "Can't open '$create_seqs': $!";

open my $SQL_TO_GREP, '<', $import_seqs      # three-argument form is 
+more robust
    or croak "Can't open '$import_seqs': $!";

while ( <$SQL_TO_GREP> ) {
    print $CREATE_SEQS $_ if /\A SELECT [ ] pg_catalog [.] setval [(]/
+;
}
close $SQL_TO_GREP or croak "Couldn't close '$import_seqs': $!";

seek( $CREATE_SEQS, 0, 0 )  # Go back to start of file before substitu
+tion
    or croak "can't rewind '$create_seqs': $!";

while ( <$CREATE_SEQS> ) {
    s{\A                                         # Substitute from sta
+rt of line
        SELECT [ ] pg_catalog [.] setval [(] ['] # Replace this, which
+ uses singular
                                                 # Character classes t
+o escape
                                                 # metacharacters, inc
+luding spaces

    }
    { CREATE [ ] SEQUENCE [ ] imp [.] }g;        # With this, globally

    s{ ['] [,] [ ] }{ [ ] INCREMENT [ ] BY [ ] 1 [ ] START [ ] WITH [ 
+] }g;

    s{ [,] [ ] false [)] ; }{ ; }g;

    s{ [,] [ ] true [)] ; }{ ; }g;
}

close $CREATE_SEQS or croak "Couldn't close '$create_seqs': $!";
print "Create Sequence statements file complete.\n"
[download]

Data that gets written to $create_seqs:

SELECT pg_catalog.setval('country_id_seq', 240, true);
SELECT pg_catalog.setval('industry_id_seq', 27, true);
SELECT pg_catalog.setval('language_id_seq', 5, true);
SELECT pg_catalog.setval('privilege_id_seq', 3, true);
SELECT pg_catalog.setval('action_id_seq', 1, true);
SELECT pg_catalog.setval('lead_id_seq', 47, true);
SELECT pg_catalog.setval('company_type_id_seq', 10, true);
SELECT pg_catalog.setval('object_id_seq', 28091, true);
SELECT pg_catalog.setval('reason_id_seq', 226, true);
SELECT pg_catalog.setval('currency_id_seq', 252, true);
SELECT pg_catalog.setval('custom_fields_id_seq', 173, true);
SELECT pg_catalog.setval('custom_lists_id_seq', 166, true);
SELECT pg_catalog.setval('custom_options_id_seq', 623, true);
SELECT pg_catalog.setval('reference_companies_id_seq', 1, false);
SELECT pg_catalog.setval('email_template_seq', 81, true);
SELECT pg_catalog.setval('help_content_id_seq', 1, false);
SELECT pg_catalog.setval('department_id_seq', 8, true);
SELECT pg_catalog.setval('workflow_id_seq', 1, false);
SELECT pg_catalog.setval('pgroup_id_seq', 12, true);
SELECT pg_catalog.setval('aws_user_id_seq', 1, false);
SELECT pg_catalog.setval('sequence_id_seq', 1, false);
SELECT pg_catalog.setval('response_id_seq', 101, true);
[download]