Academic Tutorials



English | French | Portugese | German | Italian
Google

Home Source Codes E-Books Downloads Contact Us About Us

PERL Tutorial
PERL Introduction
PERL Basic
PERL Programme Running
PERL Scalar Variables
PERL Array Variables
PERL File Handling
PERL Control Structures
PERL Conditionals
PERL String Matching
PERL String Substitution
PERL Split Function
PERL Array Associative
PERL Subroutines
PERL Summary

HTML Tutorials
HTML Tutorial
XHTML Tutorial
CSS Tutorial
TCP/IP Tutorial
XML Tutorials
XML Tutorial
XSL Tutorial
XSLT Tutorial
DTD Tutorial
Schema Tutorial
XForms Tutorial
XSL-FO Tutorial
XML DOM Tutorial
XLink Tutorial
XQuery Tutorial
XPath Tutorial
XPointer Tutorial
RDF Tutorial
SOAP Tutorial
WSDL Tutorial
RSS Tutorial
WAP Tutorial
Web Services Tutorial
Browser Scripting
JavaScript Tutorial
VBScript Tutorial
AJAX Tutorial
DHTML Tutorial
HTML DOM Tutorial
WMLScript Tutorial
E4X Tutorial
Server Scripting
ASP Tutorial
PHP Tutorial
PERL Tutorial
SQL Tutorial
ADO Tutorial
.NET (dotnet)
Microsoft.Net
XML Web Services
ASP.Net
.Net Mobile
C# : C Sharp
ADO.NET
VB.NET
Multimedia
SVG Tutorial
Flash Tutorial
Media Tutorial
SMIL Tutorial
Web Building
Web Browsers
Web Hosting
W3C Tutorial
Web Building
Web Quality
Web Semantic
Web Careers
Java Tutorials
Java Tutorial
JSP Tutorial
Servlets Tutorial
Struts Tutorial
EJB Tutorial
JMS Tutorial
JMX Tutorial
Programming Langauges
C Tutorial
C++ Tutorial
Visual Basic Tutorial
Data Structures Using C
Soft Skills
Communication Skills
Time Management
Project Management
Team Work
Leadership Skills
Corporate Communication
Negotiation Skills


Substitution of String in PERL

Previous Next



Along with identifying regular expressions Perl can make substitutions based on those matches.


This is done using the "s" function which has been designed to mimic the way substitution is made in the vi text editor. Here again the match operator is made used, and again if it is omitted then substitution is assumed to have taken place with the variable $_.
To replace the of london by London in the string $sntnce we use the following expression

$sntnce =~ s/london/London/

and to do the same thing with the $_ variable just
s/london/London/

Notice that both the regular expressions (london and London) are surrounded by a total of three slashes. Number of substitutions made is the result of this expression, so either it is 0 (false) or 1 (true) in this case.


Perl Options

The following example replaces only the first occurrence of the string, and there may be more than one such string which we want to replace. The last slash is followed by "g" to make a global substitution as follows.

s/london/London/g

If we want to also replace occurrences of lOndon, lonDON, LoNDoN and so on then we could use
s/[Ll][Oo][Nn][Dd][Oo][Nn]/London/g
but an easier way is to use the i option (for "ignore case"). The expression
s/london/London/gi

will make a global substitution ignoring case. The i option is also used in the basic /.../ regular expression match.


Remembering patterns

It will be useful if we remember the patterns that have been matched so that they can be used again in future. It just happens that anything that gets matched in parentheses is remembered in the variables $1,...,$9. By using the special RE codes \1,...,\9 these strings can be also used in the same regular expression (or substitution). let us cosider for example:

$_ = "Lord Whopper of Fibbing"; s/([A-Z])/:\1:/g; print "$_\n";

It will replace each upper case letter by those letters surrounded by colons. It will print :L:ord :W:hopper of :F:ibbing. All the variables from $1,...,$9 are read-only variables; therefore you cannot alter them yourself


Cosider the following example.

if (/(\b.+\b) \1/)
{
print "Found $1 repeated\n";
}

This will identify any of the words which are repeated. Each \b represents a word boundary and the .+ matches any of the non-empty strings, so \b.+\b matches anything between two word boundaries. This is then remembered by parentheses and for regular expressions stored as \1 and for the rest of the program as $1.


The following line swaps the first and last characters of a line in a variable $_ :

s/^(.)(.*)(.)$/\3\2\1/

The beginning and the end of the line are matched by ^ and $. The first character is stored in \1 code, everything else up to the last character is stored in the \2 code. which is stored in the code \3 . Then the whole line is replaced with \3 and \1 swapped round.


After a match is found, you can use the variables $` and $& and $' which is special read-only variable to find out what was matched before, during and after the search.

$_ = "Lord Whopper of Fibbing"; /pp/;


All of the following statements are true.(Remember that eq is a string-equality test.)

$` eq "Lord Wo"; $& eq "pp"; $' eq "er of Fibbing";


On the subject of remembering patterns it is also worth knowing that inside of slashes of a match or a substitution variables are been interpolated.

$search = "the";
s/$search/xxx/g;

This line will replace xxx with every occurrence of "the". If you wish to replace every occurence of "there" then you cannot do that using s/$searchre/xxx/, because this will be interpolated as a variable "$searchre". For this you should put the variable names in the curly braces so that the code becomes:

$search = "the";
s/${search}re/xxx/;


Translation in Perl

Character-by-character translation is done by the tr function. In the following expression each a is replaced with e, each b with d, and c with f in the variable $sntnce. The expression returns the number of substitutions made.

$sntnce =~ tr/abc/edf/

Most of the special RE codes are not applicable in the tr function. Let us consider for example, here the statement counts the number of asterisks present in the variable $sntnce and stores that in the variable $count.

$count = ($sntnce =~ tr/*/*/);

However, the "-" is still used to mean "between". This statement converts $_ to upper case.

tr/a-z/A-Z/;




Share And Enjoy:These icons link to social bookmarking sites where readers can share and discover new web pages.
  • blinkbits
  • BlinkList
  • blogmarks
  • co.mments
  • connotea
  • del.icio.us
  • De.lirio.us
  • digg
  • Fark
  • feedmelinks
  • Furl
  • LinkaGoGo
  • Ma.gnolia
  • NewsVine
  • Netvouz
  • RawSugar
  • Reddit
  • scuttle
  • Shadows
  • Simpy
  • Smarking
  • Spurl
  • TailRank
  • Wists
  • YahooMyWeb

Previous Next

Keywords:perl tutorial, perl scripts, perl programming, active perl, perl download, blackberry perl, perl regular expressions, perl split, perl array, perl script page


HTML Quizes
HTML Quiz
XHTML Quiz
CSS Quiz
TCP/IP Quiz
XML Quizes
XML Quiz
XSL Quiz
XSLT Quiz
DTD Quiz
Schema Quiz
XForms Quiz
XSL-FO Quiz
XML DOM Quiz
XLink Quiz
XQuery Quiz
XPath Quiz
XPointer Quiz
RDF Quiz
SOAP Quiz
WSDL Quiz
RSS Quiz
WAP Quiz
Web Services Quiz
Browser Scripting Quizes
JavaScript Quiz
VBScript Quiz
AJAX Quiz
DHTML Quiz
HTML DOM Quiz
WMLScript Quiz
E4X Quiz
Server Scripting Quizes
ASP Quiz
PHP Quiz
PERL Quiz
SQL Quiz
ADO Quiz
.NET (dotnet) Quizes
Microsoft.Net Quiz
XML Web Services Quiz
ASP.Net Quiz
.Net Mobile Quiz
C# : C Sharp Quiz
ADO.NET Quiz
VB.NET Quiz
Multimedia Quizes
SVG Quiz
Flash Quiz
Media Quiz
SMIL Quiz
Web Building  Quizes
Web Browsers Quiz
Web Hosting Quiz
W3C Quiz
Web Building Quiz
Web Quality Quiz
Web Semantic Quiz
Web Careers Quiz
Java Quizes
Java Quiz
JSP Quiz
Servlets Quiz
Struts Quiz
EJB Quiz
JMS Quiz
JMX Quiz
Programming Langauges Quizes
C Quiz
C++ Quiz
Visual Basic Quiz
Data Structures Using C Quiz
Soft Skills Quizes
Communication Skills Quiz
Time Management Quiz
Project Management Quiz
Team Work Quiz
Leadership Skills Quiz
Corporate Communication Quiz
Negotiation Skills Quiz

Privacy Policy
Copyright © 2003-2008 Vyom Technosoft Pvt. Ltd., All Rights Reserved.