Re: How do I replace \t and regarding to the alignment requirement ?

my @l = (0, 7, 6, 5, 4, 3, 2, 1);
$str =~ s/\G([^\t]*)\t/$1 . (' ' x $l[length($1) % 8])/eg;
[download]

I'm sure it can be done with a closed formula instead of a lookup table, but this was faster coding.

Comment on Re: How do I replace \t and regarding to the alignment requirement ? Download Code

Replies are listed 'Best First'.
Re^2: How do I replace \t and regarding to the alignment requirement ? by PerlOnTheWay (Monk) on Apr 19, 2012 at 14:20 UTC
This doesn't work for multiple lines.	[reply]
Re^3: How do I replace \t and regarding to the alignment requirement ? by JavaFan (Canon) on Apr 19, 2012 at 14:26 UTC
Sure it does. Unless you mean that you want to restart counting offsets on each newline. But you didn't specify that.	[reply]
Re^4: How do I replace \t and regarding to the alignment requirement ? by PerlOnTheWay (Monk) on Apr 19, 2012 at 14:28 UTC
Yes I want to restart counting offset on newline,sorry for missing that!	[reply]
Re^5: How do I replace \t and regarding to the alignment requirement ? by JavaFan (Canon) on Apr 19, 2012 at 14:30 UTC
A reply falls below the community's threshold of quality. You may see it by logging in.
Re^3: How do I replace \t and regarding to the alignment requirement ? by Anonymous Monk on Apr 19, 2012 at 14:23 UTC
And what should it do for multiple lines?	[reply]