Changeset 153 for trunk/perl

Timestamp:

07/27/08 05:59:42 (16 years ago)

Author:

nanardon

Message:

• structure de controle

File:

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

trunk/perl/presentation.tex

@@ -44 +44 @@
 \begin{frame}
 \frametitle{PERL}
-Perl \textbf{5}, écrit par Larry Wall en 1987.
+Perl, écrit par Larry Wall en 1987.
 \vfill
 \emph{Practical Extraction and Report Language}
@@ -52 +52 @@
 (\emph{collectionneur de déchets pathétiquement éclectiques})
 \vfill
+
+Je parle de Perl \textbf{5} !
 
 Dernière version 5.10.0 (Rafael Garcia-Suarez)
@@ -62 +64 @@
 \frametitle{Pourquoi PERL ?}
 \begin{itemize}
+\item langage scripté, non compilé
+\pause
+\item portable
+\pause
 \item permet une écriture rapide
 \pause
@@ -127 +133 @@
 \section{Variables}
 
+\subsection{Variables de Perl}
+
 \begin{frame}
 \frametitle{types de variables}
@@ -141 +149 @@
 Et les autres on s'en moque...
 \end{frame}
+
+\subsection{Scalaire}
 
 \begin{frame}[fragile]
@@ -174 +184 @@
 \end{frame}
 
+\subsection{Les tableaux}
+
 \begin{frame}[fragile]
 \frametitle{tableau (array)}
@@ -289 +301 @@
 @tab = (1, 2, 3, 4);
 %hash = @tab;
+%unhash = (%hash2, %hash3);
 \end{verbatim}
 \verb+%hash+ contient 1 \verb+=>+ 2, 3 \verb+=>+ 4\ldots
 
 Les clef dupliquées sont ecrasées, la dernière gagne !
+
+\end{frame}
+
+\section{Syntaxe}
+
+\subsection{Syntaxe générale}
+
+\begin{frame}[fragile]
+\frametitle{Grandes lignes}
+\begin{itemize}
+\item les espaces sépare les mots
+\pause
+\item le '\verb+;+' sépare les instructions
+\pause
+\item le '\verb+,+' sépare les valeurs
+\pause
+\item \verb+( )+ limite une liste
+\pause
+\item \verb+{ }+ limite un bloc
+\pause
+\item tout ce qui suit un \verb+#+ est un commentaire
+\pause
+\item \verb+__END__+ mets fin au script
+\end{itemize}
+\pause
+
+Tout est permis, y compris apporter de la lisibilité à votre code:
+\begin{verbatim}
+      push # création du tableau
+(         @tableau
+  , $valeur,
+    $valeur2                   );
+\end{verbatim}
+Sauf si vous tenez à faire dans l'obfu !
+\end{frame}
+
+\begin{frame}[fragile]
+\frametitle{Structure classique d'un script}
+\onslide<1-6>{un shell bang:}
+\onslide<2->
+\begin{verbatim}
+#!env perl
+\end{verbatim}
+\onslide<3-6>{charger les modules dont on a besoin:}
+\onslide<4->
+\begin{verbatim}
+use strict;
+use warnings;
+\end{verbatim}
+\onslide<5-6>{arrive le code:}
+\onslide<6->
+\begin{verbatim}
+while (<STDIN>) {
+    s/ //g;
+    print $_;
+}
+\end{verbatim}
+\onslide<7->
+\begin{verbatim}
+__END__
+\end{verbatim}
+\end{frame}
+
+\subsection{Controles d'execution}
+
+\begin{frame}[fragile]
+\frametitle{if}
+\onslide<1->
+Bah... if quoi...
+\vfill
+\begin{verbatim}
+if ($var == 0) {
+    print "var vaut 0\n";
+}
+\end{verbatim}
+\onslide<3->
+\begin{verbatim}
+ elsif ($var == 1) {
+    print "var vaut 1\n";
+}
+\end{verbatim}
+\onslide<2->
+\begin{verbatim}
+ else {
+    print "var vaut $var\n";
+}
+\end{verbatim}
+\onslide<4->
+Forme suffixée:
+\begin{verbatim}
+print "var vaut 0\n" if ($var == 0);
+\end{verbatim}
+\end{frame}
+
+\begin{frame}[fragile]
+\frametitle{while}
+Boucle tant qu'une condition est vraie:
+
+\begin{verbatim}
+while ($i < 100) {
+    print "$i\n";
+    $i++;
+}
+\end{verbatim}
+\vfill
+\pause
+Forme suffixée:
+
+\begin{verbatim}
+$i++ while($i < 100);
+\end{verbatim}
+\end{frame}
+
+\begin{frame}[fragile]
+\frametitle{foreach}
+Boucle \textbf{pour chaque} élément d'une liste:
+
+\begin{verbatim}
+foreach $elem (@tableau) {
+    print "$elem\n";
+}
+\end{verbatim}
+
+Très pratique, cela évite de s'embeter avec les indices du tableau.
+\vfill
+\pause
+
+Forme suffixée:
+
+\begin{verbatim}
+print "$_\n" foreach(@tableau);
+\end{verbatim}
+\end{frame}
+
+\begin{frame}[fragile]
+\frametitle{Sortez moi de là}
+\textbf{next} fait passer à la prochaine itération d'une boucle:
+
+\begin{verbatim}
+foreach $val (@tableau) {
+    next if(!$val);
+    print "$val\n";
+}
+\end{verbatim}
+\pause
+\vfill
+\textbf{last} quitte une boucle:
+
+\begin{verbatim}
+foreach $val (@tableau) {
+    if ($val > 1000) {
+        print "$val est trop haut, arret\n";
+        last;
+    }
+    print "$val\n";
+}
+\end{verbatim}
 \end{frame}