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

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:

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]

@numberwhun
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.