Using splice to insert array elements. : splice « Array « Perl






Using splice to insert array elements.

   
#!/usr/local/bin/perl 

$count = 0; 
while ($line = <STDIN>) { 
    chop ($line); 
    @words = split(/\s+/, $line); 
    $added = 0; 
    for ($i = 0; $i+$added < @words; $i++) { 
        if ($count > 0 && ($count + $i) % 10 == 0) { 
            splice (@words, $i+$added, 0, 
            $count + $i); 
            $added += 1; 
        } 
    } 
    $count += @words - $added; 
    $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 delete words.
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