Discard words until we see the "A" marker : Array Value « Array « Perl






Discard words until we see the "A" marker

    


#!/usr/bin/perl
use warnings;
use strict;

my @lines = ("C", "B", "A", "E", "D");

while (my $line = shift @lines) {
    last if $line eq 'A';
}

print "@lines";

   
    
    
    
  








Related examples in the same category

1.Change value in an array
2.Sum values in an array
3.Totalling a List
4.A program that copies an array and compares the elements of the two arrays.
5.A program that assigns a list as part of another list.
6.Determine the mean
7.Empty list
8.Filling an array with 100 zeroes by using the 'x' operator
9.Filling an array with a sequence of numbers by using the '..' operator
10.Reference Counting and Destruction
11.Mix data type in an array
12.Accessing Elements: Populating an array and printing its values