Connaissances Informatiques >> programmation >> programmation Perl >> Content
  Derniers articles
  • Comment utiliser le Bloc-notes de co…
  • Comment puis-je imprimer une variabl…
  • Comment valoriser une chaîne en Per…
  • Perl Chaque Foreach vs 
  • Comment utiliser le code Perl Hooks 
  • Comment faire pour capturer l'entré…
  • Comment faire pour supprimer la prem…
  • Tutoriel pour XML pour Perl 
  • Comment faire pour utiliser une expr…
  • Comment lire à partir du milieu d'u…
  •   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 inverser un tableau

    Pratiquement tous les langages de programmation utilisent une structure de tableau pour stocker une liste de données . Par exemple, "array (76, 3, 5) . " La matrice inversée contient les mêmes données mais à l'envers c'est à dire " new_array (5, 3 , 76) . " Perl, un langage de programmation librement accessible, vous permet d'implémenter un algorithme très élégant pour inverser un tableau qui ne nécessite que quatre lignes du code. L'algorithme utilise Perl fonctions intégrées "pop" et "Push ". Choses que vous devez
    Computer
    Voir Plus Instructions
    Les étapes
    1

    obtenir des données de tableau à partir du programme principal. Un autre tableau " new_array " contiendra des données inversées .
    2

    supprimer le dernier élément du tableau initial en utilisant la fonction «pop» .
    3

    Ajoutez que élément que le premier de la nouvelle gamme avec fonction "shift"
    4

    Répétez les étapes 2 et 3 jusqu'à ce que le tableau initial devient vide ; . tous ses éléments sont transférés vers le nouveau dans l'ordre inverse .
    5

    Le programme Perl de travail est inférieure à # programme startsmy $ array = [ QW ( 1 2 6 9 25 7,4 12,6 2 6]); # Exemple arraymy $ new_array = []; print " @ $ tableau \\ n "; reverse_array ( $ array , new_array $ ) ; print" @ $ new_array \\ n "; # impression de la nouvelle arrayexit ;

    sous reverse_array {my ( $ array , $ new_array ) = @ _; # étape 1. Lire arraywhile initial ( @ $ array ) {my $ entry = pop (@ $ array ) ; # Étape 2 . supprimer le dernier élément de la arraypush initial @ new_array $ , $ entrée ; # Étape 3 . Ajouter cet élément dans le nouveau tableau comme le premier }}
    6

    La sortie du programme est comme suit 1 2 6 9 25 7,4 12,6 2 6 <--- initial tableau6 2 9 25 12,6 7,4 6 2 1 <--- nouveau tableau arrayThe est inversée.

     
    Article précédent:
    Article suivant:
    Articles recommandés
  • Comment utiliser la fonction d'impression de Perl 
  • Comment créer une instruction while en Perl 
  • Comment créer un fichier plat 
  • Comment puis-je pousser un chemin vers Unix variable d'environnement PATH en Perl 
  • PERL Vs . SED 
  • Comment faire pour convertir en UTF-8 en UTF -16 en Perl 
  • Comment faire pour exécuter PHP sur Perl 
  • Comment se connecter à une base de données Oracle avec Perl 
  • Comment faire pour obtenir un format de tableau Perl 
  • Comment ajouter un lien dans un script Perl 
  • Connaissances Informatiques © http://www.ordinateur.cc