$array_length = @_;
for($i=0;$i<$array_length;$i++){
  $j = $i+1;
  $hash {$_[$i]} = $_[$j];
  $i++;
}
[download]

%hash=@_;
[download]

its taking like infinite time.

No, it's not running at all because of the errors.

First, add use strict; use warnings;

Then, realize that variable names like $_$i, $temp1_array$ct and $temp1_array$i are invalid. (A scalar starts with a '$'; you can't have one embedded.)

If you're trying to use them as hashes, you'd say $temp1_array{ $i }. If as an array, $temp1_array( $i ).

Try making those changes, and see what happens as a result.

(By the way, when posting code, it helps the rest of us if you bracket it with <code> and </code>.)

Good luck with the program!

You need to wrap your code in <code> and </code> tags. The characters [ and ] are special to perl monks and can't put put as literal text in your post. You should also use <p> and </p> tags around paragraphs.

A general tip is to put

use strict;
use warnings;
[download]

Assuming I've understood your problem then this does what you want.

my @data = get_data(); # or however you get them
my %count;
foreach my $datum (@data) {
    ++$count{$datum};
};
foreach my $item_count ( values %count ) {
    $item_count *= 100/@data;
}
[download]

Thanks for trying to help me out. I really appreciate it :)

I was not using \<code\></code> may be that's y u had error. The code should work now. I HAVE TO FIND PERCENTILE AND NOT PERCENTAGE :( which makes it more difficult to execute in less time.

Eagerly waiting for reply, thanks again

How about

use strict;
use warnings;

my @data = get_data(); # or however you get them

my %count;
foreach my $datum (@data) {
    ++$count{$datum};
}

my %percentile;
my $total = 0;
foreach my $datum (sort { $a <=> $b } keys %count) {
    $total += $count{$datum};
    $percentile{$datum} = $total / @data;
}
[download]

For future reference, if you modify your original post, you should also add a Revised: note, explaining the change. Otherwise it's confusing to the people new to the thread.

#!/usr/bin/perl
use warnings;
use strict;
use Statistics::Descriptive;

#
# Warning: untested code.
#

my @data = (1,7,2,19,3,4,21,1092,6);

my $stat = Statistics::Descriptive::Full->new();
$stat->add_data(@data);
$stat->sort_data();
print $stat->percentile(25);
[download]

Great Help :)
Although, when I run it, it says, Can't locate Statistics/Descriptive.pm in @INC.
I apologize for asking simple questions, but kindly bear with it, am new to perl
Thanks again.

The module Statistics::Descriptive is a Perl CPAN module, and how you add a Perl module will change depending on the flavor of Perl you are running.

Are you running Perl on a Windows box using Active State Perl or on a Unix machine?

In Active State, you would use the command 'ppm' to launch the tool to install modules, and in Unix, you can use the command:



perl -MCPAN -e shell
[download]

To start the process of accessing the CPAN repository. If you do not have Internet access from your machine, you may have to download the modules manually.

If you need to know more, there is this node on Perl Monks that has all kinds of information about installing modules.

Update: added PM node on module installation.