in reply to Limit loop

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11146507
use warnings;

for my $n ( 24, 25, 26 )
  {
  my $favorites = join '~~~', map "a|||b|||$_", 1 .. $n;

  my $favnums = join '',
    reverse map ',' . (split /\|{3}/ )[2],
    grep defined,
    ( split /~~~/, $favorites, 26 )[0 .. 24];

  print "n = $n\n\n$favorites\n\n$favnums\n\n";
  }

[download]

Outputs: 

n = 24

a|||b|||1~~~a|||b|||2~~~a|||b|||3~~~a|||b|||4~~~a|||b|||5~~~a|||b|||6~
+~~a|||b|||7~~~a|||b|||8~~~a|||b|||9~~~a|||b|||10~~~a|||b|||11~~~a|||b
+|||12~~~a|||b|||13~~~a|||b|||14~~~a|||b|||15~~~a|||b|||16~~~a|||b|||1
+7~~~a|||b|||18~~~a|||b|||19~~~a|||b|||20~~~a|||b|||21~~~a|||b|||22~~~
+a|||b|||23~~~a|||b|||24

,24,23,22,21,20,19,18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1

n = 25

a|||b|||1~~~a|||b|||2~~~a|||b|||3~~~a|||b|||4~~~a|||b|||5~~~a|||b|||6~
+~~a|||b|||7~~~a|||b|||8~~~a|||b|||9~~~a|||b|||10~~~a|||b|||11~~~a|||b
+|||12~~~a|||b|||13~~~a|||b|||14~~~a|||b|||15~~~a|||b|||16~~~a|||b|||1
+7~~~a|||b|||18~~~a|||b|||19~~~a|||b|||20~~~a|||b|||21~~~a|||b|||22~~~
+a|||b|||23~~~a|||b|||24~~~a|||b|||25

,25,24,23,22,21,20,19,18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1

n = 26

a|||b|||1~~~a|||b|||2~~~a|||b|||3~~~a|||b|||4~~~a|||b|||5~~~a|||b|||6~
+~~a|||b|||7~~~a|||b|||8~~~a|||b|||9~~~a|||b|||10~~~a|||b|||11~~~a|||b
+|||12~~~a|||b|||13~~~a|||b|||14~~~a|||b|||15~~~a|||b|||16~~~a|||b|||1
+7~~~a|||b|||18~~~a|||b|||19~~~a|||b|||20~~~a|||b|||21~~~a|||b|||22~~~
+a|||b|||23~~~a|||b|||24~~~a|||b|||25~~~a|||b|||26

,25,24,23,22,21,20,19,18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1

[download]

Replies are listed 'Best First'.
Re^2: Limit loop
by htmanning (Friar) on Aug 30, 2022 at 23:02 UTC
    Thanks. This is an example of the $favorites field: 
    Adam Knowles|||https://www.site.com/?ID=11977|||11977~~~Alex Burleson|
+||https://www.site.com/?ID=27627|||27627~~~Billy|||https://www.site.c
+om/?ID=18836|||18836~~~Billy|||https://www.site.com/?ID=18836|||18836
+~~~Christopher Duarte|||https://www.site.com/?ID=14713|||14713~~~Dave
+ Martin|||https://www.site.com/?ID=5590|||5590~~~Drew Rubado|||https:
+//www.site.com/?ID=26867|||26867~~~Emily Hanson|||https://www.site.co
+m/?ID=6782|||6782~~~James Gehrke|||https://www.site.com/?ID=7834|||78
+34~~~Jeff Banta|||https://www.site.com/?ID=11446|||11446~~~Jeffrey P 
+Sandoval|||https://www.site.com/?ID=14637|||14637~~~Jesse Bollinger||
+|https://www.site.com/?ID=8034|||8034~~~Jonathan Walker|||https://www
+.site.com/?ID=4811|||4811~~~Jordan Hall|||https://www.site.com/?ID=12
+549|||12549~~~Joseph Dodds|||https://www.site.com/?ID=26211|||26211~~
+~Mark Tappan|||https://www.site.com/?ID=5370|||5370~~~Mary Christine 
+Hammill-Perkins|||https://www.site.com/?ID=15901|||15901~~~Mary E. Bo
+esch|||https://www.site.com/?ID=20326|||20326~~~Matthew Smith|||https
+://www.site.com/?ID=26752|||26752~~~Matthew Tuggle|||https://www.site
+.com/?ID=13170|||13170~~~Moises Cariaso|||https://www.site.com/?ID=27
+397|||27397~~~Nicole Masciola|||https://www.site.com/?ID=27230|||2723
+0~~~Paul Zenns|||https://www.site.com/?ID=8396|||8396~~~Paul Zenns|||
+https://www.site.com/?ID=8396|||8396~~~Phillip Scott|||https://www.si
+te.com/?ID=5015|||5015~~~Ross Martin|||https://www.site.com/?ID=27192
+|||27192~~~Sam Lavine|||https://www.site.com/?ID=26277|||26277~~~Step
+hen Beatty Jr|||https://www.site.com/?ID=10557|||10557~~~TODD A PARTI
+N|||https://www.site.com/?ID=21876|||21876~~~

    [download]
    Unfortunately I'm just a hack and I didn't write this. It looks like the last number gets stuffed into the $favnums var and that is stuffed into a cookie. I think it's too long for the cookie to handle if there are more than 25 favorites or so which is why I'm trying to chop it down. I'm sure I'm doing something wrong but none of these suggestions have led me to the answer. I've tried setting a counter to zero and adding one to the counter at the end of the loop and then telling it to stop if it reaches 25, but I must be doing something wrong because it doesn't work. I'll keep trying. Thank you for all who have attempted to help.
[reply]
[d/l]
      now that you show the actual data, I would just get the nums from the end of the lines via match global, thusly: 
      use strict;
use warnings;

my $str = 'Adam Knowles|||https://www.site.com/?ID=11977|||11977~~~Ale
+x Burleson|||https://www.site.com/?ID=27627|||27627~~~Billy|||https:/
+/www.site.com/?ID=18836|||18836~~~Billy|||https://www.site.com/?ID=18
+836|||18836~~~Christopher Duarte|||https://www.site.com/?ID=14713|||1
+4713~~~Dave Martin|||https://www.site.com/?ID=5590|||5590~~~Drew Ruba
+do|||https://www.site.com/?ID=26867|||26867~~~Emily Hanson|||https://
+www.site.com/?ID=6782|||6782~~~James Gehrke|||https://www.site.com/?I
+D=7834|||7834~~~Jeff Banta|||https://www.site.com/?ID=11446|||11446~~
+~Jeffrey P Sandoval|||https://www.site.com/?ID=14637|||14637~~~Jesse 
+Bollinger|||https://www.site.com/?ID=8034|||8034~~~Jonathan Walker|||
+https://www.site.com/?ID=4811|||4811~~~Jordan Hall|||https://www.site
+.com/?ID=12549|||12549~~~Joseph Dodds|||https://www.site.com/?ID=2621
+1|||26211~~~Mark Tappan|||https://www.site.com/?ID=5370|||5370~~~Mary
+ Christine Hammill-Perkins|||https://www.site.com/?ID=15901|||15901~~
+~Mary E. Boesch|||https://www.site.com/?ID=20326|||20326~~~Matthew Sm
+ith|||https://www.site.com/?ID=26752|||26752~~~Matthew Tuggle|||https
+://www.site.com/?ID=13170|||13170~~~Moises Cariaso|||https://www.site
+.com/?ID=27397|||27397~~~Nicole Masciola|||https://www.site.com/?ID=2
+7230|||27230~~~Paul Zenns|||https://www.site.com/?ID=8396|||8396~~~Pa
+ul Zenns|||https://www.site.com/?ID=8396|||8396~~~Phillip Scott|||htt
+ps://www.site.com/?ID=5015|||5015~~~Ross Martin|||https://www.site.co
+m/?ID=27192|||27192~~~Sam Lavine|||https://www.site.com/?ID=26277|||2
+6277~~~Stephen Beatty Jr|||https://www.site.com/?ID=10557|||10557~~~T
+ODD A PARTIN|||https://www.site.com/?ID=21876|||21876~~~';

my @favnums = $str =~ /\|\|\|(\d+)~/g;

$#favnums = 24 if ($#favnums >24); #maximum of 25 fav's

my $favnumstr = join ",",@favnums;
print $favnumstr;

11977,27627,18836,18836,14713,5590,26867,6782,7834,11446,14637,8034,48
+11,12549,26211,5370,15901,20326,26752,13170,27397,27230,8396,8396,501
+5

      [download]
[reply]
[d/l]
        Thank you! This works.
[reply]
[reply]

In Section Seekers of Perl Wisdom