Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: subtractionn in an array

by GrandFather (Saint)
on Mar 21, 2012 at 21:04 UTC ( [id://960867]=note: print w/replies, xml ) Need Help??


in reply to subtractionn in an array

I strongly recommend you add use strict; to every script you write. Also you should always use the three parameter version of open and lexical file handles (a variable declared with my): open my $fileIn, '<', 'filename.txt' or die "Unable to open filename.txt: $!\n".

There are lots of ways to solve your problem and some of them don't need an array at all. Consider:

use strict; use warnings; my $lastValue = <DATA>; chomp $lastValue; while (<DATA>) { chomp; print $_ - $lastValue, "\n"; $lastValue = $_; } __DATA__ 1 76 34 6 12 5

Prints:

75 -42 -28 6 -7

Use perldoc to look up chomp and defined if you aren't familiar with them.

True laziness is hard work

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://960867]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2024-04-23 22:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found