If you have fixed width records then use unpack

#!perl
use strict;
while (<DATA>){
  chomp;
  my @vals = unpack("A10A10A5A24A10",$_);
  print join "|", @vals,"\n";
  #$sth->execute(@vals);
}

__DATA__
StudentId Name      Dept address                 city
1         Chellappa CSE  22 xx-colony 2nd street coimbatore
2         Vijay     IT   23 yy colony            coimbatore
[download]

You can also generate the unpack string from the header itself if you know that the position of the keys in the header defines the columns in the rest of the file:

#!/usr/bin/perl

use strict;
use warnings;

my $header = <DATA>;
my @p;
push @p, length $1 while $header =~ /(\S+\s*)/g;
my $unpack_pattern = join "", map { 'A'.$_ } @p[0..$#p-1];
$unpack_pattern .= "A*";

while (<DATA>){
  chomp;
  my @vals = unpack($unpack_pattern,$_);
  print join "|", @vals,"\n";
  #$sth->execute(@vals);
}

__DATA__
StudentId Name      Dept address                 city
1         Chellappa CSE  22 xx-colony 2nd street coimbatore
2         Vijay     IT   23 yy colony            coimbatore
[download]

There is a CPAN module DataExtract::FixedWidth for handling the fixed unpacking details. I tried it on the test sample and it seems to work fine.

use strict;
use warnings;

use DataExtract::FixedWidth;
use Data::Dumper;

my $de = DataExtract::FixedWidth->new({
    header_row => scalar(<DATA>)
});
while (my $l = <DATA>) {
    my $fields = $de->parse($l);
    print Dumper($fields);
}

__DATA__
StudentId Name      Dept address                 city
1         Chellappa CSE  22 xx-colony 2nd street coimbatore
2         Vijay     IT   23 yy colony            coimbatore
[download]

Ron

StudentId | Name | Dept | address | city |

+-----------+--------+--------+-----------+------------------------+

| 1 | a CSE | 22 x | x-colony | 2nd street coimbatore |

| 2 | T 23 | yy col | ony coim | batore

when i am trying this code only above values to store database for example CSE is not stored in dept column

If your input file is tab delimited, adjust your split statement:

    my @vals = split /\t/;
[download]

If the file uses fixed-width, space-padded columns, use "unpack" as described in a previous reply.

(*) UPDATE - a better explanation of "fixed-width columns" (because my original wording was not very good): every row (line of text) would have the same number of characters; the columns in a given row can be various sizes, but each column has the same size on consecutive rows, so that column boundaries are always at the same offsets from the start of the row, and strings contained in each column would be padded with spaces as needed to maintain the character offset to the next column (or end of line).

Read the basic debugging checklist for some suggestions on how to find out what's not working

no sir that code doesn't work properly

... doesn't work properly

Don't hesitate to elaborate further. What happened then? What did you expect to happen?

Cheers, Sören

Créateur des bugs mobiles - let loose once, run everywhere.
(hooked on the Perl Programming language)

It looks like your data may be tab delimited, so try changing the split parameter, like this:

while (<$fh>){
    chomp;
    my @vals = split /\t/; 
    $sth->execute(@vals);
}
[download]

To split on \t seems the solution at your problem (already posted above).

my $query = 'INSERT INTO student (StudentId,Name,Dept,address,city) VA
+LUES (?,?,?,?,?)';
[download]

but the quote delimiter in this code is weak and could break easely. "insert..... "; is better.

why don't you replace all ' by \' in the values ?

Peace

but the quote delimiter in this code is weak and could break easely. "insert..... "; is better.

Why are double quotes better when there are no variables to interpolate ?

poj