Spacing problems in I/O 1

[titanandrews]

Hi,
I have a program which reads all the lines of a C++ source file into an array, like this:

@lines = <MY_CPP_FILE>;

Then I display the lines to the console like this:

foreach(@lines)
{
   print $_;
}

The problem is that somewhere I am getting double spaces on all the lines that contain spaces in front of the line. For example, if this were the C++ file I am reading.

bool MyClass::isTrue()
{
   return true;
}

The display on the console will look like this:

bool MyClass::isTrue()
{
       return true;
}

Notice the extra 4 spaces. This is double what I originally had. Does anyone know what is causing this, and how to correct it?

many thanks,

Barry

 

[Vagabundo]

Are you sure that there are spaces?
I think this are tabs and the tabsize is different.
regards
Chris

 

[titanandrews]

Yep, you're right! I solved the problem by using the Text::Tabs module like this:

use Text::Tabs;
$tabstop=4;
@lines = expand(@lines);

thanks,

Barry