Tabs-to-space function

Minimiscience (Guildorn Tanaleth) — Fri, 06 Jul 2007 05:51:42 GMT

This Perl function returns its argument with any tabs it contained converted into the appropriate number of spaces.

sub tabs2space($) {

 my $str = shift;

 1 while $str =~ s/\t+/' ' x (length($&)*8 - length($`)%8)/e;

 return $str;

}

Paragraph formatter

Minimiscience (Guildorn Tanaleth) — Thu, 05 Jul 2007 02:13:46 GMT

Converts any nonempty lines in a document that don't start with whitespace into more conventional paragraphs



#!/usr/bin/perl -wni

# para.pl

use strict;



/^\s+/ || /^$/ ? print : write;

format ARGVOUT =

        ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$_

^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~

$_

.

DZone Snippets: text formatting code

Tabs-to-space function

Paragraph formatter