open ...;
open ...;
open ...;
while (...) {
   ...
}
close ...;
close ...;
close ...;
[download]

If i have the files open before the loop the files will be created automatically without satisfying the condition. For e.g if i have only 5 records, it will create 3 files. All the 5 records will be written to the first file and leaving other files blank without any content.

Test for the condition prior to entering the loop, OR, open within the loop, but on each iteration check to see if the file is already open. Easy way to do that would be to use a lexical filehandle, scoped to just outside the loop. Here's an example:

{
    my $fh;
    while ( ....condition.... ) {
        unless( defined( $fh ) ) {
            open $fh, '>', $filename or die $!;
        }
        # ....do your stuff...
    }
    close $fh or die $!;
}
[download]




Dave

Your "if ... elsif ... elsif ..." structure is really not sustainable if you ever need to adapt to input files of arbitrary length. Personally, given a stable (but potentially changeable) csv file (or other database-like source), I would be inclined to use CGI and have a process that delivers a user-specified quantity of data rows starting at a user-specified point, with a button to move back and forth by pages -- similar to what is done here at the Monastery (Nodes You Wrote Perl Monks User Search being a very good example).

But if you just want to generate a set of static html files from your data, I'd do that like this:

#!/usr/bin/perl

use strict;
use warnings;

my $input = ( @ARGV and -f $ARGV[0] ) ?  shift : "C:/csv_in/test.csv";
open( $ifh, "<", $input ) or die "$input: open failed: $!\n";

my $out_num = my $out_count = 0;
my $ofh;

while ( <$ifh> ) {
    if ( ! defined( $ofh ) or $out_count == 5 ) {
        if ( $ofh ) {
            # print closing html stuff (page trailer, etc)...
            close $ofh;
        }
        my $out_name = sprintf( "C:/html_out/output_%d.html", ++$out_n
+um );
        open( $ofh, ">", $out_name ) or die "$out_name: cannot open: $
+!\n";
        # print opening html stuff...
        $out_count = 0;
    }
    # extract fields from data row and stuff it into html...
    print $ofh ...
    $out_count++;
}
# print closing html content to current $ofh ...
[download]

(Update: I had forgotten that "Nodes You Wrote" was a personal tweak to one's personal "nodelet" set -- which is easy to set up, just follow the original link above -- whereas "Perl Monks User Search" is the direct link to the facility.)

If you work with CSV files, you can use a dedicated module.
For example Text::CSV, Text::CSV_XS, DBD::AnyData or DBD::CSV

#!/usr/bin/perl 
use strict;
use warnings;
use DBI;

my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');

# The default is to treat the first line
# of the file as the list of column names

# If you just want to select the women
$dbh->func( 'people', 'CSV', '/home/user1/file.csv',
    { sql => "SELECT name FROM people WHERE genre='F'" }, 'ad_import' 
+);


# Print the result as a HTML table
print $dbh->func( 'people', 'HTMLtable',
 'ad_export' );

# or save it in a file
$dbh->func( 'people', 'HTMLtable', '/home/user/mytab1.html', 'ad_expor
+t' );
[download]

OUTPUT:
<table bgcolor="white" border="1">
  <tr bgcolor="#c0c0c0"><th>name</th></tr>
  <tr><td>Kathy</td></tr>
  <tr><td>Stella</td></tr>
  <tr><td>Katherine</td></tr>
</table>
[download]

hth,
PooLpi