Perl-Tk code snippets divers - Historique des versions

Toine le 28 juillet 2018 à 15:59

2018-07-28T15:59:32Z

Toine le 28 juillet 2018 à 15:58

2018-07-28T15:58:58Z

Toine le 21 février 2018 à 17:18

2018-02-21T17:18:35Z

Toine : Toine a déplacé la page Perl-Tk code snippets vers Perl-Tk code snippets divers

2018-02-03T18:14:23Z

Toine a déplacé la page Perl-Tk code snippets vers Perl-Tk code snippets divers

Toine le 3 février 2018 à 18:13

2018-02-03T18:13:44Z

Toine : Page créée avec « = Afficher les options disponibles et la valeur courante sur un widget = Exemple pour le widget Label: my $label = $mw->Label(-text => 'Hi World', -bg => 'white'); my... »

2018-02-03T17:58:05Z

Page créée avec « = Afficher les options disponibles et la valeur courante sur un widget = Exemple pour le widget Label: my $label = $mw->Label(-text => 'Hi World', -bg => 'white'); my... »

Nouvelle page

= Afficher les options disponibles et la valeur courante sur un widget =
Exemple pour le widget Label:
my $label = $mw->Label(-text => 'Hi World', -bg => 'white');
my @elems = $label->configure();
my $nbelems = @elems;
my $elem;
print my $elem;
"$nbelems configuration elements for widget Label\n";
my $i=0;
foreach $elem (@elems)
{print ++$i.">>".join(" - ",@$elem)."<<\n";}

@@ Ligne 22 : / Ligne 22 : @@
 =Manipuler une liste de fichiers correspondant à un motif=
 Pour itérer sur des fichiers correspondant à un motif (extension par exemple):
    foreach (<*.my>) {
      print $_;
+   }
 =Afficher le contenu de structures de données=
 Voir le module Data::Dumper:
    #!/usr/local/bin/perl
    use strict;
@@ Ligne 36 : / Ligne 39 : @@
    $d = Data::Dumper->new($data);
    print $d->Dump;
 Affiche:

← Version précédente		Version du 21 février 2018 à 17:18
Ligne 49 :		Ligne 49 :
	'cle2a' => 'val2a'		'cle2a' => 'val2a'
	};		};
		+
		+	[[Category:Perl]]
		+	[[Category:Snippets]]

← Version précédente		Version du 3 février 2018 à 18:13
Ligne 10 :		Ligne 10 :
	foreach $elem (@elems)		foreach $elem (@elems)
	{print ++$i.">>".join(" - ",@$elem)."<<\n";}		{print ++$i.">>".join(" - ",@$elem)."<<\n";}
		+
		+	=Modules pour manipuler des fichiers =
		+	*use File::Basename; # obtenir le répertoire, l'extension ou le nom de fichier
		+	*use File::Compare; # comparer des fichiers (attributs ou contenu)
		+	*use File::Copy; # copier déplacer des fichiers avec diverses possibilités
		+	*use File::Path; # créer des chemins, ...
		+	*use File::Temp qw (tempfile); # créer des répertoires ou fichiers temporaires
		+	*File::Find # permet de faire l'équivalent d'un "find -exec ..."
		+
		+	=Manipuler une liste de fichiers correspondant à un motif=
		+	Pour itérer sur des fichiers correspondant à un motif (extension par exemple):
		+	foreach (<*.my>) {
		+	print $_;
		+	}
		+
		+	=Afficher le contenu de structures de données=
		+	Voir le module Data::Dumper:
		+	#!/usr/local/bin/perl
		+	use strict;
		+	use Data::Dumper;
		+	my $data = [{"cle1" => "val1", "cle2" => "val2"},
		+	{"cle1a" => "val1a", "cle1b" => "val1b"},
		+	{"cle2a" => "val2a", "cle2b" => "val2b"}];
		+	$d = Data::Dumper->new($data);
		+	print $d->Dump;
		+
		+	Affiche:
		+	$VAR1 = {
		+	'cle1' => 'val1',
		+	'cle2' => 'val2'
		+	};
		+	$VAR2 = {
		+	'cle1b' => 'val1b',
		+	'cle1a' => 'val1a'
		+	};
		+	$VAR3 = {
		+	'cle2b' => 'val2b',
		+	'cle2a' => 'val2a'
		+	};

@@ Ligne 1 : / Ligne 1 : @@
 = Afficher les options disponibles et la valeur courante sur un widget =
 Exemple pour le widget Label:
    my $label = $mw->Label(-text => 'Hi World', -bg => 'white');
    my @elems = $label->configure();
@@ Ligne 10 : / Ligne 11 : @@
    foreach $elem (@elems)
      {print ++$i.">>".join(" - ",@$elem)."<<\n";}
+</syntaxhighlight>
 =Modules pour manipuler des fichiers =
 *use File::Basename;                      # obtenir le répertoire, l'extension ou le nom de fichier

← Version précédente	Version du 3 février 2018 à 18:14
(Aucune différence)