Connaissances Informatiques >> programmation >> programmation Perl >> Content
  Derniers articles
  • Comment puis-je imprimer une variabl…
  • Comment faire pour mettre une chaîn…
  • Comment stricte utilisation dans un …
  • Comment déclarer un tableau dans le…
  • Comment se connecter à Perl avec Pe…
  • Comment obtenir la différence entre…
  • Comment créer un PDF à partir d' u…
  • Comment créer des rapports avec Per…
  • Comment utiliser DBI se connecter à…
  • Comment faire pour supprimer Perl Ne…
  •   programmation Perl
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    programmation Perl

    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 ») ;

    @ chance = ( 'Under Ladder »,« Black Cats »,« renversé Salt' , '13 ');
    2

    trier les noms avec des boucles imbriquées comme suit:

    @ 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. "

     
    Article précédent:
    Article suivant:
    Articles recommandés
  • Comment analyser CSV en Perl 
  • Comment savoir si Perl est 32 ou 64 bits 
  • Comment utiliser l'instruction foreach dans Perl 
  • Comment devenir un programmeur Perl 
  • Comment faire pour supprimer un nœud dans Perl XML Brindille 
  • Comment faire pour convertir un tableau en une chaîne en Perl 
  • Comment trier un tableau associatif en Perl 
  • Comment créer des rapports avec Perl 
  • Comment faire pour convertir XLS à CSV de Perl 
  • Comment masquer Mot de passe Caractères dans STDIN Perl sous Windows 
  • Connaissances Informatiques © http://www.ordinateur.cc