Text::Tabs -- expand and unexpand tabs per the unix expand(1) and unexpand(1)
use Text::Tabs; $tabstop = 4; # default = 8 @lines_without_tabs = expand(@lines_with_tabs); @lines_with_tabs = unexpand(@lines_without_tabs);
Text::Tabs does about what the unix utilities expand(1) and unexpand(1) do. Given a line with tabs in it, expand will replace the tabs with the appropriate number of spaces. Given a line with or without tabs in it, unexpand will add tabs when it can save bytes by doing so (just like unexpand -a). Invisible compression with plain ASCII!
unexpand -a
#!perl # unexpand -a use Text::Tabs; while (<>) { print unexpand $_; }
Instead of the expand comand, use:
expand
perl -MText::Tabs -n -e 'print expand $_'
Instead of the unexpand -a command, use:
perl -MText::Tabs -n -e 'print unexpand $_'
Copyright (C) 1996-2002,2005,2006 David Muir Sharnoff. Copyright (C) 2005 Aristotle Pagaltzis This module may be modified, used, copied, and redistributed at your own risk. Publicly redistributed modified versions must use a different name.
To install Text::Wrap, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Text::Wrap
CPAN shell
perl -MCPAN -e shell install Text::Wrap
For more information on module installation, please visit the detailed CPAN module installation guide.