This is at least the fifth or sixth node that you have posted with the title "Suggest me some suitable code" or something similar. Each time you have been told that this is a bad title and each time the site janitors have changed the title to something more suitable.

Please take the time to name your nodes sensibly. The node title should be a brief summary of the problem. For example a good title for this problem might be something like "Skipping Comment Lines". Many people use the title of a post to decide whether to bother reading it. By using bad titles as you currently do, you might be unnecessarily limiting the number of people who read your posts.

I also strongly recommend that you listen to what the monks are telling you, with regard to showing the code you have already attempted. Many monks are very generous, but sooner or later, you will exhaust that goodwill unless you begin to show that you are not just wasting our time.

You've been asked several times to show code:

• Re: How can i read the lines and store them in an array like following fashion?
• Re: Extracting substrings from scalars
• Re: How to remove unwanted text from elements of an array?
• Re: How to remove unwanted text from elements of an array?
• Re: How to remove unwanted text from elements of an array?
• Re: How time out can be done here?

Please make an effort, and we'll be delighted to help you. :)

I might do something like this:

use strict;
use warnings;

open my $infile, '<', 'sss.txt' or die $!;

while( my $line = <$infile> ) {
    $line =~ /^$/ and die "Blank line detected at $.\n";
    $line =~ /^#/ and next;
    print "$.: $line";
}

close $infile;
[download]

The first regexp matches (thus triggering the die) if the line is empty, or empty with a newline character at the end.

The second regexp matches (thus skipping to the next line) if a '#' is found as the first character of the line.

$line =~ /^$/ and die "Blank line detected at $.\n";

Because people have differing opinions about what a blank line is, I'd probably replace that line with:

$line =~ /\S/ or die "Blank line detected at $.\n";
[download]

--
<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

To help you along the way : I'd iterate over the lines and use a Regular Expression at each line to determine the next action to take.

Good luck :)

a code that may suit your purpose might be something like:

my      $INFILE_file_name = 'your_file';

open  my $INFILE, '<', $INFILE_file_name
        or die  "$0 : failed to open  input file $INFILE_file_name : $
+!\n";

while (<$INFILE>){
        next if ( m{ \A \s* # }x);

        ... your code here ...
}

close  $INFILE
        or warn "$0 : failed to close input file $INFILE_file_name : $
+!\n";
[download]

HTH,
Mickey