Let's assume that I have a text file with the following format:
# This is a commented line
# blah blah blah
:data
:data
Well, I've been able to read the file into a scaler. Now i'd like to strip all the comment lines (prefixed by "#") out of the scaler before I move on and do anything else. For the sub routine, I am useing the following code:
sub get_info {
my $infile = "template.dsc";
open (INFILE, "$infile") || die "Broken: $!";
my $content;
while (<INFILE>) {
$content .= $_;
};
# Remove Comments?
close (INFILE);
return $content;
};
Please help me get rid of that unwanted data (but I need to keep it in the text file for the idiots who use it).
Originally posted as a Categorized Question.