BLACKSITE


	: 216.73.216.249
	: 157.173.108.86 / pdclassessgnr.in
	: Linux server.madnetech.com 4.18.0-553.117.1.el8_10.x86_64 #1 SMP Sun Apr 5 23:14:32 EDT 2026 x86_64

: /usr/share/doc/perltidy/examples/

files >> //usr/share/doc/perltidy/examples/bbtidy.pl

 #!/usr/bin/perl -wn

# This program was posted on the MacPerl mailing list by 
# Charles Albrecht as one way to get perltidy to work as a filter
# under BBEdit.

use Perl::Tidy;

BEGIN { my $input_string = ""; my $output_string = ""; }

$input_string .= $_;

END {
    my $err=Perl::Tidy::perltidy(
        source      => \$input_string,
        destination => \$output_string
    );
    if ($err){
        die "Error calling perltidy\n";
    }
    print "$output_string\n";
}

__END__