Re^2: Loop Array - If $var is something write values until $var is something else

Sorry for confusing, should have removed the reference part as its not really important to my question. I removed it, use strict and warnings and now here is it:

my @result;
foreach my $x (@cleared) {
    if ($x =~ /JOB::(.*)/){
        print $x, "\n";
        } 
        else {
                unless ($x =~ m/^Something/){
                    print "~~Something~~", $x, "\n";
                } 
                else {
                    unless ($x =~ m/^Something Else/){
                    print "~~Something Else~~", $x, "\n";
                    }
        }
    }
}
[download]

Lets see the @cleared (Dump):

$VAR1 = 'JOB::HEREISASTRING';
$VAR2 = 'Something';
$VAR3 = 'StringA';
$VAR4 = 'StringB';
$VAR5 = 'StringC';
$VAR6 = 'StringD';
$VAR7 = 'Something Else';
$VAR8 = 'StringE';
$VAR9 = 'StringF';
$VAR10 = 'StringG';
$VAR11 = 'StringH ';
$VAR12 = 'JOB::HEREISANOTHERSTRING';
$VAR13 = 'Something';
$VAR14 = 'StringI';
$VAR15 = 'StringJ';
$VAR16 = 'StringK';
$VAR17 = 'StringL';
$VAR18 = 'Something Else';
$VAR19 = 'StringM';
$VAR20 = 'StringN';
$VAR21 = 'StringO';
$VAR22 = 'StringP ';
[download]

Output:

JOB::HEREISASTRING
~~Something Else~~Something
~~Something~~StringA
~~Something~~StringB
~~Something~~StringC
~~Something~~StringD
~~Something~~Something Else
~~Something~~StringE
~~Something~~StringF
~~Something~~StringG
~~Something~~StringH
JOB::HEREISANOTHERSTRING
~~Something Else~~Something
~~Something~~StringI
~~Something~~StringJ
~~Something~~StringK
~~Something~~StringL
~~Something~~Something Else
~~Something~~StringM
~~Something~~StringN
~~Something~~StringO
~~Something~~StringP
[download]

I wish output:

JOB::HEREISASTRING
~~Something Else~~Something Else (could be removed)
~~Something~~StringA
~~Something~~StringB
~~Something~~StringC
~~Something~~StringD
~~Something Else~~Something Else (could be removed)
~~Something Else~~StringE
~~Something Else~~StringF
~~Something Else~~StringG
~~Something Else~~StringH
JOB::HEREISANOTHERSTRING
~~Something Else~~Something Else (could be removed)
~~Something~~StringI
~~Something~~StringJ
~~Something~~StringK
~~Something~~StringL
~~Something Else~~Something Else (could be removed)
~~Something Else~~StringM
~~Something Else~~StringN
~~Something Else~~StringO
~~Something Else~~StringP
[download]

In fact i want to tag my values from a start until a match occurs and tag it different and so on.... What comes to my mind is that with foreach loop variable $x changes and in the loop is again "Something"!?

Comment on Re^2: Loop Array - If $var is something write values until $var is something else Select or Download Code

Replies are listed 'Best First'.
Re^3: Loop Array - If $var is something write values until $var is something else by BillKSmith (Monsignor) on Sep 30, 2018 at 00:58 UTC
You seem to want the flip-flop operator. Ref: Range Operators in perlop. A "state variable" is not needed because the state is stored in the operator. ?type 1223291.pl use strict; use warnings; my @cleared = ( 'JOB::HEREISASTRING', 'Something', 'StringA', 'StringB', 'StringC', 'StringD', 'Something Else', 'StringE', 'StringF', 'StringG', 'StringH ', 'JOB::HEREISANOTHERSTRING', 'Something', 'StringI', 'StringJ', 'StringK', 'StringL', 'Something Else', 'StringM', 'StringN', 'StringO', 'StringP ', ); foreach (@cleared) { if (/JOB::(.*)/){ print $_, "\n"; next; } print '~~Something'; if ( !(/Something$/ ... /Something Else$/) or /Else/) { print ' Else'; } print "~~$_\n"; } ?perl 1223291.pl JOB::HEREISASTRING ~~Something~~Something ~~Something~~StringA ~~Something~~StringB ~~Something~~StringC ~~Something~~StringD ~~Something Else~~Something Else ~~Something Else~~StringE ~~Something Else~~StringF ~~Something Else~~StringG ~~Something Else~~StringH JOB::HEREISANOTHERSTRING ~~Something~~Something ~~Something~~StringI ~~Something~~StringJ ~~Something~~StringK ~~Something~~StringL ~~Something Else~~Something Else ~~Something Else~~StringM ~~Something Else~~StringN ~~Something Else~~StringO ~~Something Else~~StringP ? [download] UPDATE: Added reference Bill	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Loop Array - If $var is something write values until $var is something else
by BillKSmith (Monsignor) on Sep 30, 2018 at 00:58 UTC

Range Operators

?type 1223291.pl
use strict;
use warnings;
my @cleared = (
    'JOB::HEREISASTRING',
    'Something',
    'StringA',
    'StringB',
    'StringC',
    'StringD',
    'Something Else',
    'StringE',
    'StringF',
     'StringG',
     'StringH ',
     'JOB::HEREISANOTHERSTRING',
     'Something',
     'StringI',
     'StringJ',
     'StringK',
     'StringL',
     'Something Else',
     'StringM',
     'StringN',
     'StringO',
     'StringP ',
 );
foreach  (@cleared) {
    if (/JOB::(.*)/){
        print $_, "\n";
        next;
    }
    print '~~Something';
    if ( !(/Something$/ ... /Something Else$/)  or /Else/) {
        print ' Else';
    }
    print "~~$_\n";
}

?perl 1223291.pl
JOB::HEREISASTRING
~~Something~~Something
~~Something~~StringA
~~Something~~StringB
~~Something~~StringC
~~Something~~StringD
~~Something Else~~Something Else
~~Something Else~~StringE
~~Something Else~~StringF
~~Something Else~~StringG
~~Something Else~~StringH
JOB::HEREISANOTHERSTRING
~~Something~~Something
~~Something~~StringI
~~Something~~StringJ
~~Something~~StringK
~~Something~~StringL
~~Something Else~~Something Else
~~Something Else~~StringM
~~Something Else~~StringN
~~Something Else~~StringO
~~Something Else~~StringP

?
[download]

UPDATE: Added reference

Bill

[reply]
[d/l]