#include “stdafx.h”
using namespace System;
using namespace System::Collections;
/*
Exemple de Tableau Associatif.
Visual C++: Vérifier si un clé existe dans le HashTable
 |
// Vérifier si la clé "fr" existe dans le hashTable
Console::Write("Fr existe-il? {0}", hash->Contains("fr"));
|
C++ String: Lire un chaîne de caractères qui se termine par un caractère défini
char* getString(char *buffer, char end_char);
int main()
{
char buffer[MAX_SIZE];
int i = 0;
printf("Taper une chaîne de caractères qui se termine par deux points: ");
getString(buffer, ':');
printf(": %s ", buffer);
}
Perl: Créer et manipuler un tableau de Hash
 |
for $href ( @myArraysHash ) {
print "{ ";
for $role ( keys %$href ) {
print "$role=$href->{$role} ";
}
|
Perl: Lister les fichiers d’un répertoire qui contiennent des textes
$dir = “c:/”;
print “Voici les fichier textes de $dir:\n”;
#!/usr/local/bin/perl
opendir(BIN, $dir) or die
Perl: Trouver la taille d’un dossier
| |
la somme de tous les fichiers des répertoires et sous répertoires
my $somme_octet = 0;
find sub { $somme_octet += -s },
|
Perl: Trouver le plus grand fichier d’un répertoire
| |
sub lePlusGrand {
return unless -f && -s _ > $taille_fichier;
$taille_fichier = -s _;
$nom_fichier = $File::Find::name;
|
Perl: Inverser les lignes d’un texte
@reverse_lines = reverse @lines;
print @reverse_lines;
Copier des informations dans le presse-papiers
| |
#!/usr/bin/perl ?Cw
use Win32::Clipboard;
my $presse_p = Win32::Clipboard->new();
# Enregistrer l
|
Automation: Ouvrir Microsoft Excel, créer un classeur et ajouter des données dans les cellules
| |
#!/usr/bin/perl -w
use Win32::OLE;
use strict;
# création d'un objet OLE sur MS Excel
my $xls_app
|