Using splice to delete words. : splice « Array « Perl






  1. Perl
  2. Array
  3. splice

Using splice to delete words.

   
#!/usr/local/bin/perl 

while ($line = <STDIN>) { 
    @words = split(/\s+/, $line); 
    $i = 0; 
    while (defined($words[$i])) { 
        if (length($words[$i]) > 5) { 
            splice(@words, $i, 1); 
        } else { 
            $i++; 
        } 
    } 
    $line = join (" ", @words); 
    print ("$line\n"); 
}








Related examples in the same category

1.Remove elements from position 7 onward
2.Remove first element only and save it
3.Replace the second and third elements.
4.Using splice to insert array elements.
5.The splice function removes and replaces elements in an array.
6.Splicing and replacing elements of a list
7.splice(@array, 2, 0, "three");
8.Splice two arrays
9.splice(@array, 2, 1, @array2);
10.Remove last three elements
11.Remove elements from array with splice
12.Delete all remaining elements
13.Removing 3 elements, beginning with element 15 of @array
14.Removing all elements from element 8 to the end of @array
15.Removing all elements in the array
16.Replacing part of @array with the elements from @array2