Substitute first T with an M : substitution « Regular Expression « 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 » Regular Expression » substitution

Substitute first T with an M


    



#!/usr/bin/perl

$name="Tom";

print "Hello Tom\n"  if $name =~ /Tom/; 

print "$name\n" if  $name !~ /Tom/;     



$name =~ s/T/M/;                        # Substitute first T with an M

print "$name.\n";

Related examples in the same category

1.	Options for the substitution operator.
2.	Replace pattern
3.	Replace pattern with ()
4.	Substitute I with N and print
5.	Substitute N with J
6.	Substitute every T with M
7.	Substitute first occurrence of "blue" with "red"
8.	Substitute tom with Mary
9.	Substitution Example
10.	Substitution Modifiers
11.	Using substitutions to clean up input data.
12.	Capitalize all sentences
13.	Using Patterns with Substitutions
14.	Changing substitution delimiters
15.	Increase salary with pattern match
16.	Evaluate replacement
17.	Alternation: /John\|Karen\|Steve/ will match a line containing John or Karen or Steve.
18.	Options for the S Operator
19.	Ignore case, global substitution

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.