Help me beef up my cruddy program

[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";
}

[Uri Guttman]

>>>>> "DJ" == Dan Jacobson <jidanni@jidanni.org> writes:

DJ> Help me beef up my cruddy program. It should then even run on Microsoft,
DJ> by the way.

DJ> #!/usr/bin/perl -ws
DJ> #use strict; #can't use due to -s.

wrong. use vars or our can fix that.

DJ> $, = "\t";
DJ> $\ = "\n";
DJ> my $A = 0.00001549;
DJ> my $B = 0.000006521;
DJ> my $C = 807.8;
DJ> my $D = 248.6;
DJ> if ( $I ) {
DJ> foreach my $i ( $A, $B, $C, $D ) { $i = -$i }
DJ> }
DJ> while (<>) {
DJ> my @F = split;
DJ> print $F[0] - $C - $A * $F[0] - $B * $F[1],
DJ> $F[1] + $D - $A * $F[1] - $B * $F[0], "@F";
DJ> }

if you picked better var names and decribed what this is supposed to do,
someone might help. i won't waste my time on the above.

uri

--
Uri Guttman ------ [email]uri@stemsystems.com[/email] -------- [url]http://www.stemsystems.com[/url]
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- [url]http://jobs.perl.org[/url]
Damian Conway Class in Boston - Sept 2003 -- [url]http://www.stemsystems.com/class[/url]

[Uri Guttman]

>>>>> "DJ" == Dan Jacobson <jidanni@jidanni.org> writes:

DJ> Help me beef up my cruddy program. It should then even run on Microsoft,
DJ> by the way.

DJ> #!/usr/bin/perl -ws
DJ> #use strict; #can't use due to -s.

wrong. use vars or our can fix that.

DJ> $, = "\t";
DJ> $\ = "\n";
DJ> my $A = 0.00001549;
DJ> my $B = 0.000006521;
DJ> my $C = 807.8;
DJ> my $D = 248.6;
DJ> if ( $I ) {
DJ> foreach my $i ( $A, $B, $C, $D ) { $i = -$i }
DJ> }
DJ> while (<>) {
DJ> my @F = split;
DJ> print $F[0] - $C - $A * $F[0] - $B * $F[1],
DJ> $F[1] + $D - $A * $F[1] - $B * $F[0], "@F";
DJ> }

if you picked better var names and decribed what this is supposed to do,
someone might help. i won't waste my time on the above.

uri

--
Uri Guttman ------ [email]uri@stemsystems.com[/email] -------- [url]http://www.stemsystems.com[/url]
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- [url]http://jobs.perl.org[/url]
Damian Conway Class in Boston - Sept 2003 -- [url]http://www.stemsystems.com/class[/url]

[Eric J. Roode]

Dan Jacobson <jidanni@jidanni.org> wrote in
news:8765k1qkti.fsf@jidanni.org:

> Help me beef up my cruddy program. It should then even run on Microsoft,
> by the way.

What's wrong with it?

--
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print

[Bernard El-Hagin]

Eric J. Roode wrote:

> Dan Jacobson <jidanni@jidanni.org> wrote in
> news:8765k1qkti.fsf@jidanni.org:
>

>> Help me beef up my cruddy program. It should then even run on
>> Microsoft, by the way.

>
> What's wrong with it?

It's lacking in beef, according to the Subject.


--
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'

[Helgi Briem]

On Wed, 10 Sep 2003 10:12:45 +0000 (UTC), "Bernard El-Hagin"
<bernard.el-hagin@DODGE_THISlido-tech.net> wrote:

>Eric J. Roode wrote:
>

>> Dan Jacobson <jidanni@jidanni.org> wrote in
>> news:8765k1qkti.fsf@jidanni.org:
>>

>>> Help me beef up my cruddy program. It should then even run on
>>> Microsoft, by the way.

>>
>> What's wrong with it?

>
>
>It's lacking in beef, according to the Subject.

$beef++;

[Bob Dover]

"Helgi Briem" wrote...

> "Bernard El-Hagin" wrote:

> >Eric J. Roode wrote:

> >> What's wrong with it?

> >It's lacking in beef, according to the Subject.

> $beef++;

Chuckle... Thanks, I needed that!

[Jürgen Exner]

Dan Jacobson wrote:

> 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";

What is this supposed to do?

> my $A = 0.00001549;
> my $B = 0.000006521;
> my $C = 807.8;
> my $D = 248.6;

By convention people use upper case variables for file descriptions only.

> if ( $I ) {
> foreach my $i ( $A, $B, $C, $D ) { $i = -$i }
> }

Why the condition? The body will never be executed because $I will never be
true.
Didn't perl warn you about undefined value?

> while (<>) {
> my @F = split;
> print $F[0] - $C - $A * $F[0] - $B * $F[1],
> $F[1] + $D - $A * $F[1] - $B * $F[0], "@F";
> }

And what is this supposed to do versus what does it do?
You naming convention is ---shall we say--- suboptimal?

jue

[Uri Guttman]

>>>>> "JE" == Jürgen Exner <jurgenex@hotmail.com> writes:

>> #!/usr/bin/perl -ws
>> #use strict; #can't use due to -s.

>> if ( $I ) {
>> foreach my $i ( $A, $B, $C, $D ) { $i = -$i }
>> }

JE> Why the condition? The body will never be executed because $I will
JE> never be true. Didn't perl warn you about undefined value?

conditional tests don't warn on undef. and his comment on strict and -s
tells me he was passing -I on the command line and -s would then set $I
which would negate the 4 values.

>> while (<>) {
>> my @F = split;
>> print $F[0] - $C - $A * $F[0] - $B * $F[1],
>> $F[1] + $D - $A * $F[1] - $B * $F[0], "@F";
>> }

JE> And what is this supposed to do versus what does it do?
JE> You naming convention is ---shall we say--- suboptimal?

and he still hasn't responded so i guess a hit and run troll. notice his
other post which made some useless comment on sub locations.

uri

--
Uri Guttman ------ [email]uri@stemsystems.com[/email] -------- [url]http://www.stemsystems.com[/url]
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- [url]http://jobs.perl.org[/url]
Damian Conway Class in Boston - Sept 2003 -- [url]http://www.stemsystems.com/class[/url]

[Tassilo v. Parseval]

Also sprach Uri Guttman:

>>>>>> "JE" == Jürgen Exner <jurgenex@hotmail.com> writes:

> >> while (<>) {
> >> my @F = split;
> >> print $F[0] - $C - $A * $F[0] - $B * $F[1],
> >> $F[1] + $D - $A * $F[1] - $B * $F[0], "@F";
> >> }

>
> JE> And what is this supposed to do versus what does it do?
> JE> You naming convention is ---shall we say--- suboptimal?
>
> and he still hasn't responded so i guess a hit and run troll. notice his
> other post which made some useless comment on sub locations.

It was a question about where to place subroutine-definitions. Looking
at other languages (where the place of the definition could matter; for
Perl it even does matter when using prototypes), it wasn't quite so
useless.

Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus}) !JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexi ixesixeseg;y~\n~~dddd;eval

[Dan Jacobson]

I have added beef kindly provided here to
[url]http://jidanni.org/geo/taiwan_datums/programs/twd6797thl[/url] , thanks.
The only worry left is will
#!/usr/bin/perl -ws
work for my Microsoft pals? If not, how do I make a portable version?
perldoc perlrun shows what -n, -p are equivalent to, but not -s.
Do I just do $^W=1 for -w too?