Need another file split into subfiles

This is along the same line as my last question:     2013-11-15 at 17:33:08 ID28295719

In this case, it is one file that is being split into about 380 files.

Each section to be copied out begins with /*Sec and ends with the line before the next /*Sec.

The file should be named Sec-01-01.sql, Sec-01-02.sql, etc.

/*Sec-01-01:Connecting to a Database*/

USE AdventureWorks2008R2;


/*Sec-01-02:Retrieving Specific Columns*/

SELECT  NationalIDNumber,
        LoginID,
        JobTitle
FROM    HumanResources.Employee;


/*Sec-01-03:Retrieving All Columns*/

SELECT  *
FROM    HumanResources.Employee;


/*Sec-01-04:Specifying Rows to Be Returned*/

SELECT  Title,
        FirstName,
        LastName
FROM    Person.Person
WHERE   Title = 'Ms.';

SELECT  Title, 
        FirstName, 
        LastName
FROM  Person.Person 
WHERE Title = 'Ms.' AND 
        LastName = 'Antrim';

Open in new window

Code-w-Sections.txt
LVL 1
Alex CampbellAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
jb1devConnect With a Mentor Commented:
#!/usr/bin/perl

my $file = $ARGV[0];

if(!defined($file)) {
    print "Specify file name on command line\n";
    exit 1;
}

open FILE, "<$file";

open OUT, ">/dev/null";

while(<FILE>) {
    if(/^\/\*(.*):/) {
        # Found new file 
        # Close previous file.
        close OUT;
        # print "Found section $1\n";
        open OUT, ">$1.sql";
    }
    print OUT $_;
}
close OUT;
close FILE;

Open in new window

0
 
Alex CampbellAuthor Commented:
thanks, very good...again
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.