Academic Tutorials



English | French | Portugese | Dutch | Italian
Google

Online

À la maison Codes sources E-Livres Téléchargements Nous contacter Au sujet de nous

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 de corde dans le Perl

Previous Next





Avec l'identification le Perl régulier d'expressions peut faire des substitutions basées sur ces matchs.


Ceci est fait en utilisant la fonction de « s » qui a été conçue pour imiter la manière que la substitution est faite dans l'éditeur du texte vi. Ici encore l'opérateur de match est fait utilisé, et encore si elle est omise alors on assume que la substitution a lieu avec le $_ variable.
Pour remplacer de Londres par Londres dans la corde $sntnce nous employons l'expression suivante

$sntnce =~ s/london/London/

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

Noter que les les deux les expressions régulières (Londres et Londres) sont entourées par un total de trois estafilades. Le nombre de substitutions faites est le résultat de cette expression, ainsi l'un ou l'autre il est 0 (faux) ou 1 (vrai) dans ce cas-ci.


Options de Perl

L'exemple suivant remplace seulement la première occurrence de la corde, et il peut y avoir plus d'une telle corde que nous voulons remplacer. La dernière estafilade est suivie de « g » pour faire une substitution globale comme suit.

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.


Se rappeler des modèles

Il sera utile si nous nous rappelons les modèles qui ont été assortis de sorte qu'ils puissent être employés encore à l'avenir. Il se produit juste que quelque chose qui obtient assorti entre parenthèses est rappelé dans les variables $1,…, $9. En employant le spécial AU SUJET des codes \ 1,…, \ 9 ces cordes peut être également employé dans la même expression régulière (ou la substitution). nous laisser cosider par exemple :

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

Elle remplacera chaque lettre majuscule par ces lettres entourées par des deux points. Elle imprimera : L : ord : W : distributeur de : F : ibbing. Toutes variables de $1,…, $9 sont des variables inaltérables ; donc vous ne pouvez pas les changer vous-même


Cosider l'exemple suivant.

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

Ceci identifiera les mots l'uns des qui sont répétés. Chacun \ b représente une frontière de mot et. + cordes non vides l'unes des de matchs, ainsi \ b.+ \ matchs quelque chose de b entre les frontières de deux mots. Ceci est alors rappelé par des parenthèses et pour par expressions stocké comme régulier \ 1 et pour le reste du programme en tant que $1.


La ligne suivante permutent les premiers et derniers caractères d'une ligne en $ variable _ :

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

Le commencement et la fin de la ligne sont assortis par le ^ et le $. Le premier caractère est dans stocké \ 1 code, tout autrement jusqu'au dernier caractère est stocké en code \ 2. ce qui est stocké dans le code \ 3. Alors la ligne entière est avec remplacé \ 3 et \ 1 permutée en rond.


Après qu'un match soit trouvé, vous pouvez employer le `de $ de variables et le $& et le $ ' qui est variable inaltérable spéciale pour découvrir avant ce qui a été assorti, pendant et après la recherche.

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


Tous les rapports suivants sont vrais. (Se rappeler que l'eq est un essai de corde-égalité.)

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


Au sujet de se rappeler des modèles il est également intéressant savoir cela à l'intérieur de des estafilades d'un match ou des variables d'une substitution sont interpolées.

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

Cette ligne remplacera xxx avec chaque occurrence de « ». Si vous souhaitez remplacer chaque occurence de « là » puis vous ne pouvez pas faire cela qui emploie s/$searchre/xxx/, parce que ceci sera interpolé comme « $searchre » variable. Pour ceci vous devriez mettre les noms variables dans les croisillons bouclés de sorte que le code devienne :

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


Traduction dans le Perl

la traduction de Caractère-par-caractère est faite par la fonction de TR. Dans l'expression suivante chaque a est remplacé avec e, chaque b avec d, et c avec f dans le $sntnce variable. L'expression renvoie le nombre de substitutions faites.

$sntnce =~ tr/abc/edf/

Les la plupart du spécial AU SUJET des codes ne sont pas applicables dans la fonction de TR. Considérons par exemple, ici les comptes de rapport le nombre d'astérisques actuels dans le $sntnce variable et les magasins qui dans le $count variable.

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

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

tr/a-z/A-Z/;





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.