Celestin Apprentice 2/Apprentice-Release2.iso/Source Code/C/Applications/Eudora 1.3.1/source/Bits/wrap

Text File | 1993-03-16 | 245 b | 17 lines | [TEXT/MPS ]

perl -x -s "{0}" {"Parameters"}
Exit {Status}
#!/usr/local/bin/perl
while (<>)
{
  chop;
    split;
    $len = 0;
    foreach $w (@_)
    {
        if ($len && length($w)+$len > 76) {print "\n"; $len = 0;}
        $len += length($w)+1;
        print "$w ";
    }
    print "\n";
}