D
Dan Jacobson
Help me beef up my cruddy program. It should then even run on Microsoft,
by the way.
#!/usr/bin/perl -ws
#use strict; #can't use due to -s.
$, = "\t";
$\ = "\n";
my $A = 0.00001549;
my $B = 0.000006521;
my $C = 807.8;
my $D = 248.6;
if ( $I ) {
foreach my $i ( $A, $B, $C, $D ) { $i = -$i }
}
while (<>) {
my @F = split;
print $F[0] - $C - $A * $F[0] - $B * $F[1],
$F[1] + $D - $A * $F[1] - $B * $F[0], "@F";
}
by the way.
#!/usr/bin/perl -ws
#use strict; #can't use due to -s.
$, = "\t";
$\ = "\n";
my $A = 0.00001549;
my $B = 0.000006521;
my $C = 807.8;
my $D = 248.6;
if ( $I ) {
foreach my $i ( $A, $B, $C, $D ) { $i = -$i }
}
while (<>) {
my @F = split;
print $F[0] - $C - $A * $F[0] - $B * $F[1],
$F[1] + $D - $A * $F[1] - $B * $F[0], "@F";
}