home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / lib / Text / Tabs.pm < prev    next >
Text File  |  1995-12-28  |  1KB  |  81 lines
  1. #
  2. # expand and unexpand tabs as per the unix expand and 
  3. # unexpand programs.
  4. #
  5. # expand and unexpand operate on arrays of lines.  Do not
  6. # feed strings that contain newlines to them.
  7. #
  8. # David Muir Sharnoff <muir@idiom.com>
  9. # 
  10. # Version: 9/21/95
  11. #
  12.  
  13. =head1 NAME
  14.  
  15. Text::Tabs -- expand and unexpand tabs
  16.  
  17. =head1 SYNOPSIS
  18.  
  19.     use Text::Tabs;
  20.     
  21.     #$tabstop = 8; # Defaults
  22.     print expand("Hello\tworld");
  23.     print unexpand("Hello,        world");
  24.     $tabstop = 4;
  25.     print join("\n",expand(split(/\n/,
  26.         "Hello\tworld,\nit's a nice day.\n"
  27.         )));
  28.  
  29. =head1 DESCRIPTION
  30.  
  31. This module expands and unexpands tabs into spaces, as per the unix expand
  32. and unexpand programs. Either function should be passed an array of strings
  33. (newlines may I<not> be included, and should be used to split an incoming
  34. string into separate elements.) which will be processed and returned.
  35.  
  36. =head1 AUTHOR
  37.  
  38. David Muir Sharnoff <muir@idiom.com>
  39.  
  40. =cut
  41.  
  42. package Text::Tabs;
  43.  
  44. require Exporter;
  45.  
  46. @ISA = (Exporter);
  47. @EXPORT = qw(expand unexpand $tabstop);
  48.  
  49. $tabstop = 8;
  50.  
  51. sub expand
  52. {
  53.     my @l = @_;
  54.     for $_ (@l) {
  55.         1 while s/^([^\t]*)(\t+)/
  56.             $1 . (" " x 
  57.                 ($tabstop * length($2)
  58.                 - (length($1) % $tabstop)))
  59.             /e;
  60.     }
  61.     return @l if wantarray;
  62.     return @l[0];
  63. }
  64.  
  65. sub unexpand
  66. {
  67.     my @l = &expand(@_);
  68.     my @e;
  69.     for $x (@l) {
  70.         @e = split(/(.{$tabstop})/,$x);
  71.         for $_ (@e) {
  72.             s/  +$/\t/;
  73.         }
  74.         $x = join('',@e);
  75.     }
  76.     return @l if wantarray;
  77.     return @l[0];
  78. }
  79.  
  80. 1;
  81.