Changeset 178 for trunk/perl/variablesbis.tex

Timestamp:

08/26/08 22:25:46 (16 years ago)

Author:

nanardon

Message:

• beautify

File:

• trunk/perl/variablesbis.tex (modified) (7 diffs)

trunk/perl/variablesbis.tex

@@ -7 +7 @@
 \begin{frame}[fragile]
 \frametitle{Référence: Concept}
+\begin{block}{Quoi ça ?}
 C'est une valeur scalaire\ldots
 
@@ -22 +23 @@
 \item on peut faire des tableaux de références\ldots
 \end{itemize}
-\pause
-\vfill
-\textbf{Ce n'est pas un pointeur au sens C du terme}: \verb.$ref++;. ne donnera rien de bien !!!!
+\end{block}
+\pause
+\vfill
+\begin{alertblock}{Ce n'est pas un pointeur au sens C du terme}
+\verb.$ref++;. ne donnera rien de bien !!!!
+
+On fait du perl, on ne joue pas avec les octets de la mémoire.
+\end{alertblock}
 \end{frame}
 
 \begin{frame}[fragile]
 \frametitle{Créer des références}
-\pause
-Référence de tableaux:
-\pause
-\vfill
-\begin{verbatim}
-my @tableau = (1, 2, 3);
-\end{verbatim}
-\pause
-Récupérer une référence vers:
-\begin{verbatim}
-my $tabref = \@tableau;
-\end{verbatim}
-\pause
-Créer une référence vers un nouveau tableau:
-\begin{verbatim}
-my $tabref = [ @tableau ];
-\end{verbatim}
-\vfill
-\vfill
-\pause
-Référence de hash:
-\pause
-\vfill
-\begin{verbatim}
-my %hash = (a => 1);
-\end{verbatim}
-\pause
-Récupérer une référence vers:
-\begin{verbatim}
-my $hashref = \%hash;
-\end{verbatim}
-\pause
-Créer une référence vers un nouveau tableau:
-\begin{verbatim}
-my $hashref = { %hash } ;
-\end{verbatim}
+\begin{exampleblock}{Renvoyer la référence de}
+\verb+\+ pour renvoyer un référence:
+\begin{verbatim}
+my $ref = \$scalaire;
+my $ref = \@tableau;
+my $ref = \%hash;
+\end{verbatim}
+\end{exampleblock}
+\vfill
+\pause
+
+\begin{block}{Créer une référence:}
+\begin{tabular}{|l|c|}
+\hline
+Type de variable&code\\
+\hline
+\hline
+tableau&\verb+[ 'val1', 'val2' ]+\\
+\hline
+hash&\verb+{ key => val }+\\
+\hline
+\end{tabular}
+\end{block}
 \end{frame}
 
 \begin{frame}[fragile]
 \frametitle{Utiliser les références}
-Pour accéder au contenu la variable référencée on utilise \verb+->+.
-\vfill
-Pour acceder à la variable elle même: \verb+$$+, \verb+@$+ et \verb+%$+ pour
-respectivement les scalaires, tableaux et les hash.
-
-\pause
-On créer un réference:
-\begin{verbatim}
-my $tabref = [ 1, 2, 3 ];
-my $hashref = { a => 1 };
-\end{verbatim}
-\pause
-On accède au tableau via la référence:
-\begin{verbatim}
-$tabref->[0];
-$hashref->{a};
-\end{verbatim}
-\pause
-Après tout est presque pareil:
-\begin{verbatim}
-scalar(@$tabref);
-keys %$hashref;
-\end{verbatim}
-
+
+\begin{exampleblock}{prenons une référence}
+\begin{verbatim}
+$ref = { key => 'val' }; print $ref;
+HASH(0x8bca880)
+\end{verbatim}
+\end{exampleblock}
+\pause
+
+\begin{block}{Accès aux variable}
+\center
+\begin{tabular}{|l|c|c|}
+\hline
+type&variables&éléments de\\
+\hline
+\hline
+scalaire&\verb+$$var+&\\
+\hline
+tableau&\verb+@{$ref}+&\verb+$ref->[0]+\\
+\hline
+hash&\verb+%{$ref}+&\verb+$ref->{'key'}+\\
+\hline
+\end{tabular}
+\end{block}
+\pause
+
+\begin{exampleblock}{}
+\begin{verbatim}
+foreach my $key (keys %$ref) {
+    print "$ref->{$key}\n";
+}
+\end{verbatim}
+\end{exampleblock}
 \end{frame}
 
 \begin{frame}[fragile]
 \frametitle{Pourquoi les références ?}
-Perl aplati les listes, remember ?
+\begin{alertblock}{Perl aplati les listes, remember ?}
 
 \pause
@@ -105 +107 @@
 \end{verbatim}
 \verb+@tab+ contient 4 éléments...
-\pause
+\end{alertblock}
+\pause
+
+\begin{block}{par contre:}
 \begin{verbatim}
 my @tab1 = (1,2); my @tab2 = (3,4);
@@ -111 +116 @@
 \end{verbatim}
 \verb+@tab+ contient 2 éléments qui réferencent des tableaux.
-\pause
-
-On accède aux valeurs:
+\end{block}
+\pause
+
+\begin{block}{On accède aux valeurs:}
 \begin{verbatim}
 $tab[0]->[0];
-\end{verbatim}
-\pause
-Ou même plus simplement:
-\begin{verbatim}
 $tab[0][0];
 \end{verbatim}
-\ldots qui revient à faire un tableau à 2 dimensions.
-
-\end{frame}
-
-\begin{frame}[fragile]
-\frametitle{Références: copain de la mémoire}
-\begin{small}
-\begin{verbatim}
-# très gros tableau
-my @tab = ();
-
-fonc(@tab);
-
-sub fonc {
-    my @tab = @_; # Créer un copie complète
-}
-\end{verbatim}
-\pause
-\begin{verbatim}
-# très gros tableau
-my @tab = ();
-
-fonc(\@tab);
-
-sub fonc {
-    my ($tab) = @_; # Ne copie que la référence
-}
-\end{verbatim}
-\end{small}
+\end{block}
+
 \end{frame}
 
 \begin{frame}[fragile]
 \frametitle{Références: les pièges}
-Déférencer un undef:
+\begin{alertblock}{Déférencer un undef:}
 \begin{verbatim}
 perl -we 'my $ref; print @{ $ref }'
@@ -161 +136 @@
 array dereference at -e line 1.
 \end{verbatim}
-\pause
-Voici l'astuce:
-\begin{verbatim}
-perl -we 'my $ref; print @{ $ref || [] }'
-\end{verbatim}
-\pause
-\vfill
-\vfill
-Attention au type de variable référencée:
+\end{alertblock}
+\pause
+\vfill
+\begin{alertblock}{Attention au type de variable référencée:}
 \begin{verbatim}
 perl -we 'my $ref = {}; print @{ $ref }'
 Not an ARRAY reference at -e line 1.
 \end{verbatim}
-\pause
-\vfill
-\vfill
-Attention au structure complexes:
+\end{alertblock}
+\pause
+\vfill
+\begin{alertblock}{Attention au structure complexes:}
 \begin{verbatim}
 $ref->[0][2]{daleks}[0]{episode}
     {$ennemi}{histoire}[0];
 \end{verbatim}
-\end{frame}
-
-\begin{frame}[fragile]
-\frametitle{Références: dernières choses}
-On peut connaitre le type de référence avec \verb+ref()+
-\begin{verbatim}
-perl -we 'my $ref = {}; print ref $ref'
-HASH
-\end{verbatim}
-\vfill
-\vfill
-\pause
-Tout est là:\\
-\verb+man perlreref+
+\end{alertblock}
 \end{frame}
 
@@ -202 +159 @@
 \begin{frame}[fragile]
 \frametitle{Fichiers: Version simple}
-Version moderne:
-
-Ouvrir un fichier en lecture:
+\begin{exampleblock}{Ouvrir un fichier en lecture:}
 \begin{verbatim}
 open(my $handle, '<', 'fichier');
 \end{verbatim}
-\pause
-Lire une ligne:
+\end{exampleblock}
+\pause
+\begin{exampleblock}{Lire une ligne:}
 \begin{verbatim}
 my $line = <$handle>;
 chomp($line); # strip cariage return
 \end{verbatim}
-\pause
-Fermer le fichier:
+\end{exampleblock}
+\pause
+\begin{exampleblock}{Fermer le fichier:}
 \begin{verbatim}
 close($handle);
 \end{verbatim}
-\pause
-\vfill
-Ancienne méthode:
+\end{exampleblock}
+\pause
+\vfill
+\begin{alertblock}{Ancienne méthode (perl < 5.6)}
 \begin{verbatim}
 open(HANDLE, '<', 'fichier');
 my $line = <HANDLE>;
-chomp($line); # strip cariage return
 close(HANDLE);
 \end{verbatim}
+\end{alertblock}
 \end{frame}
 
@@ -233 +191 @@
 \frametitle{Fichier: version simple (suite)}
 
-Ouvrir:
+\begin{exampleblock}{Ecrire}
 \begin{verbatim}
 open(my $handle, '>', 'fichier');
-\end{verbatim}
-\pause
-Écrire:
-\begin{verbatim}
 print $handle "Exterminate !\n";
-\end{verbatim}
-\begin{textbf}Attention à \verb+print+: pas de \verb+,+ après le file handle\end{textbf}
-
-\pause
-\vfill
-Fermer:
-\begin{verbatim}
 close($handle);
 \end{verbatim}
-\pause
-Trois file handle par défaut: \verb+STDIN+, \verb+STDOUT+, \verb+STDERR+
-(entrée, sortie, sortie d'erreur).
+\end{exampleblock}
+\pause
+
+\begin{alertblock}{Attention à print}
+pas de \verb+,+ après le file handle
+\end{alertblock}
+
+\pause
+\vfill
+\begin{block}{File handle par défaut}
+\begin{itemize}
+\item \verb+STDERR+ (sortie d'erreur)
+\item \verb+STDOUT+ (sortie standard)
+\item \verb+STDIN+ (entrée standard)
+\end{itemize}
+\end{block}
 \end{frame}
 
 \begin{frame}[fragile]
 \frametitle{Fichiers: Version compliquée}
-Pour des besoins très spécifiques:
+\begin{block}{haut niveau}
 \begin{itemize}
 \item open()/close()
 \item read()/print()
 \end{itemize}
-
-\vfill
-ou:
-\vfill
-\pause
+\end{block}
+
+\pause
+\vfill
+\begin{block}{bas niveau}
 \begin{itemize}
 \item sysopen()/sysclose()
 \item sysread()/syswrite()
 \end{itemize}
-\pause
-\vfill
-\vfill
-Si vraiment vous voulez en savoir plus: \verb+man+
+\end{block}
+
+\pause
+\vfill
+\begin{block}{Glob !}
+Pour info, un filehandle est une variable de type \textbf{GLOB}.
+\end{block}
+
+\pause
+\vfill
+\begin{block}{Si vraiment vous voulez en savoir plus: man}
 \begin{itemize}
 \item perlfunc
-\pause
 \item perlopentut
 \end{itemize}
-\end{frame}
-
+\end{block}
+\end{frame}
+