Removing Preceding Spaces

[jonnymp316]

Hello,
I am inputing text from a file like so:

my $n = 1;
open INFO, '<stored.txt';
my @stuff = <INFO>;
foreach (@stuff){
print $stuff[$n];
if (n < 30) {
$n++
}
}
close INFO;

The problem is that the variable that I am reading from the text file has 12 preceding spaces, I was just wondering if anyone knows how I can parse out those preceding spaces, like the opposite of the chop/chomp command.

Thanks,
-Jonny

 

[icrf]

That's a mighty odd way of doing a loop, but a simple regex can take it out. Can take out both leading and trailing whitespace, if you'd like. Example:

my $line = "     Five spaces before, and a space and newline terminating \n";
$line =~ s/^\s+|\s+$//g;

If efficency is a big issue, generally separating out an OR regex into two separate ones is faster, though I don't know if that still applies when using anchors on both.

$line =~ s/^\s+//g;
$line =~ s/\s+$//g;

----------------------------------------------------------------------------------
...but I'm just a C man trying to see the light