| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> programmation Perl >> Content
    Comment faire pour utiliser des étiquettes en Perl
    Perl est un langage de programmation puissant qui permet au programmeur de prendre un degré élevé de contrôle sur le programme. Les étiquettes sont utilisées pour aider les programmeurs Perl organisent le programme. Une étiquette peut être appliqué à une boucle ou à un commutateur . Les boucles et les commutateurs imbriqués dans la boucle étiquetée peut alors rappeler à la structure plus large , sans ajouter une exception de terminaison à chaque commutateur et boucle le long du chemin . Ainsi , le programmeur peut sauter autour de la structure du code rapidement et simplement. Instructions
    1

    créer deux tableaux qui exigent le tri spécialisé. Ces tableaux seront prises pour un exemple :

    @ animaux = ( "Chats noirs" , " chiens noirs », « Vaches laitières », « Wild Horses ','' Monkeys ») ;
    < p > @ chance = ( 'Under Ladder »,« Black Cats »,« renversé Salt' , '13 ');
    2

    trier les noms avec des boucles imbriquées comme suit:
    < p > @ animaux = ( "Chats noirs" , " chiens noirs », « Vaches laitières », « Wild Horses ','' Monkeys »);

    @ chanceux = (' Under Ladder »,« chats noirs » , " renversé Salt ' , '13 ');

    foreach $ créature ( @ animaux ) {

    print" $ créature \\ n ";

    if ($ créature = ~ /Black /) { foreach $

    charme (@ chanceux) {

    print "\\ t $ charme \\ n";

    dernier if $ charme eq $ chanceux ; Photos

    } }


    }

    ici, nous cherchons à travers le réseau des animaux de mauvaises porte-bonheur . La boucle de charmes de boucle se ferme lorsque "Chats noirs" sont rencontrés dans les deux boucles , mais la boucle d' animaux global continuera
    3

    insérer une étiquette à dissiper la confusion : .

    @ animaux = ( "Chats noirs" , " chiens noirs », « Vaches laitières », « Wild Horses ','' Monkeys »);

    @ chance = ( ' Under Ladder »,« Noir Cats »,« Renversé Salt ' , '13 ');

    label: foreach $ créature ( @ animaux ) {

    print "$ créature \\ n";

    si ($ créature = ~ /Black /) { foreach $

    charme (@ chanceux) {

    print "\\ t $ charme \\ n";

    dernière étiquette si $ charme eq $ chanceux ;

    }

    } }


    N'importe quel nom peut être utilisé à la place de «label ». Elle doit être suivie par un colon quand il est d'abord déclaré. Il peut alors être appelé n'importe où dans la boucle ou qu'il contrôle. Au niveau des parties ultérieures du programme , il peut être appelé à «Label Start. "

    Previous :

    next :
      articles connexes
    ·Comment faire pour intégrer les commandes Unix de Perl…
    ·Comment faire pour capturer l'entrée standard en Perl 
    ·Perl 5.10 vs. 5.8.8 
    ·Comment faire une boîte de dialogue X11 rapide en Perl…
    ·Comment lire le texte entré dans DOSBox Avec Perl 
    ·Comment faire pour installer Perl DBD- ODBC sur AIX 
    ·Comment mémoriser un fichier en Perl 
    ·Comment faire pour modifier la barre de titre en Perl S…
    ·Comment remplacer les espaces de fin avec des expressio…
    ·Comment ajouter des modules Perl 
      articles en vedette
    ·Comment insérer une image dans un e-mail HTML en utili…
    ·Qu'est-ce que JavaScript Void 
    ·Comment créer un babillard en ligne 
    ·Comment obtenir MySQL Certification 
    ·Comment changer la couleur du texte des articles ListBo…
    ·Comment écrire une fonction pour insérer des élémen…
    ·Comment mettre à jour les sélecteurs CSS pour IE6 
    ·Comment personnaliser le vérificateur de grammaire en …
    ·Comment faire une chaîne Immuable 
    ·Comment utiliser les ListBox dans Visual Studio 
    Copyright © Connaissances Informatiques http://fr.wingwit.com