Re: whitespaces replace with tabs

Why re-invent the wheel?

use Text::Tabs;
my $tabstop = 4;
@lines_with_tabs = unexpand(@lines_without_tabs);
[download]

This module is part of (my) core Perl.
--
bm

Comment on Re: whitespaces replace with tabs - help needed... Download Code

Replies are listed 'Best First'.
Re: Re: whitespaces replace with tabs - help needed... by thelenm (Vicar) on Aug 14, 2003 at 18:12 UTC
Of course, this doesn't actually substitute each space character with a tab, as the original poster claims to want (whether that's what s/he really wants is an open question :)... Also, the `my` declaration creates a new lexical variable called `$tabstop`, which doesn't have any effect on the module's behavior. Instead, you can just get rid of the `my` since `$Text::Tabs::tabstop` is exported by the module. -- Mike -- `XML::Simpler does not require XML::Parser or a SAX parser. It does require File::Slurp. -- grantm, perldoc XML::Simpler`	[reply] [d/l] [select]
Re: Re: whitespaces replace with tabs - help needed... by inelukii (Sexton) on Aug 15, 2003 at 12:38 UTC
I know we are discussing a Perl solution, but for something like this (and assuming you are using some flavor of linux) you can simply use the existing "expand" utility...	[reply]