splitting a file by a character

dafydd

I got a multiline SQL file that I would like to split by ; and read into an array. However when I try to do

Expand|Select|Wrap|Line Numbers

my @array = split(";", <FH>);

and iterate over each element I get just the first line of the SQL file.

Does anyone know how they would get the array of sql statements (and no new lines)?

Icecrack

so far what is all your code or at least how are you reading the next line of the sql file?

have you tried a while loop?

dafydd

I've solved this problem since I last posted here. Thanks for the response though. Here's what I used:

Expand|Select|Wrap|Line Numbers

 
my $line = "";

my $currentCommand = "";

while(defined($line = <SCHEMA>)) {

    $line =~ s/[\t\n]*//g;

    # append to the current sql command

    $currentCommand = $currentCommand . $line;

    if($line =~ /;/) {

        # this line ends an sql command, execute

        $sth = $dbh->prepare($currentCommand);

        $sth->execute();

        # reset the current line

        $currentCommand = "";

    }

}

close(SCHEMA);

numberwhun

Your code, upon issuing the execute statement, will fetch the first row from sql, but what about each subsequent row? To do that, you will have to incorporate the fetchrow_array method in a loop.

dafydd

Quote:

Originally Posted by numberwhun

Your code, upon issuing the execute statement, will fetch the first row from sql, but what about each subsequent row? To do that, you will have to incorporate the fetchrow_array method in a loop.

I'm sorry I forgot to mention in the title what those sql statements were. I'm not fetching anything from the database using this code. I'm issuing statements to create sql tables and such to postgresql using the DBI.

splitting a file by a character

re: splitting a file by a character

re: splitting a file by a character

re: splitting a file by a character

re: splitting a file by a character

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about