Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 234
  • Last Modified:

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
0
Alex Campbell
Asked:
Alex Campbell
1 Solution
 
jb1devCommented:
#!/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

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now