1#!/usr/bin/perl -wn 2 3# This program was posted on the MacPerl mailing list by 4# Charles Albrecht as one way to get perltidy to work as a filter 5# under BBEdit. 6 7use Perl::Tidy; 8 9BEGIN { my $input_string = ""; my $output_string = ""; } 10 11$input_string .= $_; 12 13END { 14 my $err=Perl::Tidy::perltidy( 15 source => \$input_string, 16 destination => \$output_string 17 ); 18 if ($err){ 19 die "Error calling perltidy\n"; 20 } 21 print "$output_string\n"; 22} 23 24__END__ 25 26