Re^3: Compare elements of a line in a file

So, based on the code you posted in response to Dave, you should be able to replace your foreach loop with:

foreach (sort keys %h) {
    @n = split /\t/, $h{$_};
    map {say if $_ > $last+50; $last = $_} @n;
}
[download]

Comment on Re^3: Compare elements of a line in a file Download Code

Replies are listed 'Best First'.
Re^4: Compare elements of a line in a file by oxydeepu (Novice) on Sep 13, 2012 at 08:35 UTC
Thank you. I will try that snippet.	[reply]
Re^4: Compare elements of a line in a file by oxydeepu (Novice) on Sep 13, 2012 at 08:38 UTC
Thank you. I will try that snippet. If you don't mind can you tell me what does it do?	[reply]
Re^5: Compare elements of a line in a file by frozenwithjoy (Priest) on Sep 13, 2012 at 08:45 UTC
Unless I've made a typo, the following two snippets should be equivalent: `my $last = -50; # set to -50 so that the first coordinate will be incl +uded as long as it is 1 or more map {say if $_ > $last + 50; $last = $_} @n;` [download] `my $last = -50; for (@n) { if ($_ > $last + 50) { say $_; } $last = $_; }` [download]	[reply] [d/l] [select]
Re^6: Compare elements of a line in a file by oxydeepu (Novice) on Sep 13, 2012 at 09:32 UTC
Thanks a ton. I don't Know your name. Anyways it worked. Thank you. Best Regards Deepak	[reply]