Perl

Perl DBF file doubt

Please support our Perl advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Oct 2009

Posts: 1

Reputation: arun10427 is an unknown quantity at this point

Solved Threads: 0

arun10427

Offline

Newbie Poster

Perl DBF file doubt

Oct 24th, 2009

Hi all,

I am a perl newbie. I am using a perl code to read a column full of data from 1 field into an array

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
for(my $i=2;$i<table->last_record;$i++)
my @data = $table->get_record($i,"Date");
for(my $i=2;$i<table->last_record;$i++)
my @data = $table->get_record($i,"Date");

Now for example if my @data[1] consists of list of numbers, I need to find the diff between current record and prev record till it reaches the end of array.. Perl has such complex way of array accessing, I donno how to do $data[$i]-$data[$i-1].

•

Join Date: Feb 2006

Posts: 2,467

Reputation: masijade has much to be proud of

Solved Threads: 267

masijade

Offline

Nearly a Posting Maven

Oct 26th, 2009

Have you actually tried doing exactly that?

Java Programmer and Sun Systems Administrator

----------------------------------------------

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it.
--Brian Kernighan

•

Join Date: Oct 2009

Posts: 8

Reputation: vbharathi is an unknown quantity at this point

Solved Threads: 1

vbharathi

Offline

Newbie Poster

Oct 26th, 2009

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
my @data1=(1,6,3,4,5);
for($i=1;$i<=$#a;$i++)
{
        $b=$a[$i]-$a[$i-1];
        print "Difference b/n current and previous records: $b\n";
}
my @data1=(1,6,3,4,5);
for($i=1;$i<=$#a;$i++)
{
        $b=$a[$i]-$a[$i-1];
        print "Difference b/n current and previous records: $b\n";
}

•

Join Date: Feb 2006

Posts: 2,467

Reputation: masijade has much to be proud of

Solved Threads: 267

masijade

Offline

Nearly a Posting Maven

Oct 26th, 2009

Okay? So why are you using "$a[...]" when your array is @data1?

•

Join Date: Oct 2009

Posts: 8

Reputation: vbharathi is an unknown quantity at this point

Solved Threads: 1

vbharathi

Offline

Newbie Poster

Oct 26th, 2009

sorry! actually i have assumed the '@a' in place of '@data1'.

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
my @data1=(1,6,3,4,5);
for($i=1;$i<=$#data1;$i++)
{
        $b=$data1[$i]-$data1[$i-1];
        print "Difference b/n current and previous records: $b\n";
}
my @data1=(1,6,3,4,5);
for($i=1;$i<=$#data1;$i++)
{
        $b=$data1[$i]-$data1[$i-1];
        print "Difference b/n current and previous records: $b\n";
}

•

Join Date: Feb 2006

Posts: 2,467

Reputation: masijade has much to be proud of

Solved Threads: 267

masijade

Offline

Nearly a Posting Maven

Oct 26th, 2009

Okay? So why are you attempting to do other's homework for them?

•

Join Date: Oct 2009

Posts: 8

Reputation: vbharathi is an unknown quantity at this point

Solved Threads: 1

vbharathi

Offline

Newbie Poster

Oct 26th, 2009

•

Originally Posted by masijade

Okay? So why are you attempting to do other's homework for them?

then what is the purpose of forums?

•

Join Date: Feb 2006

Posts: 2,467

Reputation: masijade has much to be proud of

Solved Threads: 267

masijade

Offline

Nearly a Posting Maven

Oct 26th, 2009

To help them learn. Definately not to do their homework for them.

Get them to attempt it, and post their code. Then, give them pointers on what they then need to do to fix that code, and get them to do it and post it again.

IOW, make them think. When you do it for them, they learn nothing.