simpleawk.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8::all;


sub trim
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    if(length($string)<1){
        return " ";
    }else{
        return $string;
    }
}

my  $file = "a.txt";

open my $in, "<:encoding(utf8)", $file or die "$file: $!";
my @lines = <$in>;
close $in;
 
chomp @lines;
for my $line (@lines) {
    my @a = split ',', $line;
    my $b = shift @a;
    $b = trim $b;
    my $c = shift @a;
    $c =  trim $c;

    my $out = <<_EOC_;
    insert into item (item_desc,item_sku) values ("$b" , "$c");\n
_EOC_

    print $out;


}