From @jidanni

Comments on Text​::Tabs man page​:
  $tabstop = 4;
Say perhaps instead
  $tabstop = 4; #default = 8

  Text​::Tabs does about what the unix utilities expand(1) and
  unexpand(1) do.

Not exactly. It seems unexpand does what GNU's unexpand -a does, which
in fact is nice.

  expand doesn't handle newlines very quickly -- do not feed it an entire document in
  one string. Instead feed it an array of lines.

I'd add a simpler example too, indeed, one can use
print unexpand $_;
which I discovered works too, and should be there on the man page, no?

From @petdance

Let's make a big in unexpand while we're at it.

  $lastbit = "\t"
  if $lastbit eq " "x$tabstop;

This line is run once per line. The C<$lastbit eq " "x$tabstop> can get
computed outside the loop, once per call to C<unexpand>.

And, we can change the format of the version number in Text​::Tabs to
match that of Text​::Wrap.

@petdance - Status changed from 'new' to 'open'

From @muir

On Tue Jun 22 23​:08​:26 2004, petdance wrote​:

Let's make a big in unexpand while we're at it.

$lastbit = "\\t"
    if $lastbit eq " "x$tabstop;

This line is run once per line. The C<$lastbit eq " "x$tabstop> can get
computed outside the loop, once per call to C<unexpand>.

And, we can change the format of the version number in Text​::Tabs to
match that of Text​::Wrap.

Done. (In the about-to-be released version).

-Dave

From @muir

On Fri Jun 11 21​:41​:42 2004, jidanni@​jidanni.org wrote​:

Comments on Text​::Tabs man page​:
$tabstop = 4;
Say perhaps instead
$tabstop = 4; #default = 8

   Text​::Tabs does about what the unix utilities expand\(1\) and
   unexpand\(1\) do\.

Not exactly. It seems unexpand does what GNU's unexpand -a does, which
in fact is nice.

   expand doesn't handle newlines very quickly \-\- do not feed it

an entire document in
one string. Instead feed it an array of lines.

I'd add a simpler example too, indeed, one can use
print unexpand $_;
which I discovered works too, and should be there on the man page, no?

I'm about roll a new release. This is what I've got now​:

=head1 NAME

Text​::Tabs -- expand and unexpand tabs per the unix expand(1) and
unexpand(1)

=head1 SYNOPSIS
 
  use Text​::Tabs;

  $tabstop = 4; # default = 8
  @​lines_without_tabs = expand(@​lines_with_tabs);
  @​lines_with_tabs = unexpand(@​lines_without_tabs);
 
=head1 DESCRIPTION
 
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 C<unexpand -a>). Invisible compression with plain ASCII!
 
=head1 EXAMPLE
 
  #!perl
  # unexpand -a
  use Text​::Tabs;

  while (<>) {
  print unexpand $_;
  }
 
Instead of the C<expand> comand, use​:
 
  perl -MText​::Tabs -n -e 'print expand $_'
 
Instead of the C<unexpand -a> command, use​:
 
  perl -MText​::Tabs -n -e 'print unexpand $_'

=head1 BUGS

expand doesn't handle newlines very quickly -- do not feed it an
entire document in one string. Instead feed it an array of lines.

=head1 LICENSE
 
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.

p5p@spam.wizbit.be - Status changed from 'open' to 'resolved'