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

Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Java

Java Tutorial

Java Source Code / Java Documentation

Illustrator Tutorials

GIMP Tutorials

C# / C Sharp

C# / CSharp Tutorial

C# / CSharp Open Source

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

Flash / Flex / ActionScript

VBA / Excel / Access / Word

XML

XML Tutorial

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

Perl » Array » 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

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.