Changeset 271 for trunk

Timestamp:

03/07/11 11:33:05 (13 years ago)

Author:

nanardon

Message:

• fixes, improvement and last slide

Location:

trunk/tp-perl

Files:

• Makefile (modified) (1 diff)
• exercice01.pl (modified) (1 diff)
• main.tex (modified) (11 diffs)
• services-file.pl (added)
• services.pl (added)

trunk/tp-perl/Makefile

@@ -14 +14 @@
    exercice02.pl \
    fichier.pl  filespec.pl  filewhich.pl \
+   services-file.pl  services.pl \
 
 FIGURES= \

trunk/tp-perl/exercice01.pl

@@ -1 @@
-#!/bin/env perl
-
+#!/bin/env perl -w
 use strict;
-use warnings;
 
 foreach my $let (qw(a b c)) {

trunk/tp-perl/main.tex

@@ -52 +52 @@
 
 \begin{frame}
-\frametitle{RÚgles de perl}
+\frametitle{Perl}
 \begin{alertblock}{TMTOWTDI}
 There's more than one way to do it
@@ -58 +58 @@
 \pause
 
-\begin{exampleblock}{Documentations de base}
-\begin{itemize}
-\item perlfunc: fonctions principales
+\begin{exampleblock}{Documentations principales}
+\begin{itemize}
+\item perl: la liste des documentations
+\item perlfunc: fonctions de bases
 \item perlop: les opérateurs
 \item perlvar: les variables \og{}magiques \fg{}
@@ -71 +72 @@
 \begin{frame}[fragile]
 \frametitle{Perl}
-\begin{block}{Le programme}
+\begin{block}{Le programme perl}
 \begin{verbatim}
 $ perl -v
@@ -84 +85 @@
 
 \begin{frame}[fragile]
-\frametitle{First Script}
+\frametitle{Premier Script perl}
 \begin{exampleblock}{Hello World!}
 \verbatiminput{hello-world.pl}
@@ -103 +104 @@
 
 main::(-e:1):   0
-  DB<1> print "coucou"                                                                                                                                       
+  DB<1> print "coucou"
 coucou
   DB<2>
@@ -140 +141 @@
 
 \begin{frame}[fragile]
-\frametitle{Renvois d'erreur}
+\frametitle{die() et warn()}
 \begin{block}{Fonctions:}
 \begin{itemize}
 \item \verb+warn()+: affiche un message d'erreur
-\item \verb+die()+: met aussi fin au script
+\item \verb+die()+: met de plus fin au script
 \end{itemize}
 \end{block}
@@ -162 +163 @@
 
 \begin{frame}[fragile]
-\frametitle{Boucles}
+\frametitle{Traitement sur des listes}
 \begin{block}{foreach}
 \verb+foreach my $v (@tab) { }+
@@ -191 +192 @@
 \begin{exampleblock}{Exercice 1}
 \scriptsize{\verbatiminput{exercice01.pl}}
+\end{exampleblock}
+
+\begin{exampleblock}{Avec un one-liner}
+\scriptsize{
+\begin{verbatim}
+$ perl -e
+    'print $_ . " " . uc($_) . "\n" foreach(qw(a b c))'
+a A
+b B
+c C
+\end{verbatim}
+}
 \end{exampleblock}
 \end{frame}
@@ -401 +414 @@
 \section{Utilisation d'un module}
 
+\subsection{Howto}
+
 \begin{frame}
 \frametitle{CPAN}
@@ -440 +455 @@
 \end{frame}
 
-\section{Parser la ligne de commande}
+\subsection{Parser la ligne de commande}
 
 \begin{frame}
@@ -467 +482 @@
 \end{frame}
 
+\section{Exercice final}
+
+\begin{frame}[fragile]
+\frametitle{ProblÚme}
+\begin{block}{Enoncé:}
+Ecrire un programme qui affiche le numéro de port dédié à un couple
+service/protocole. Un switch permettra de trouver le service à partir du numéro
+de port.
+\end{block}
+
+\begin{block}{Informations:}
+Ces informations sont stockées dans le fichier \verb+/etc/services+:
+\begin{verbatim}
+ssh  22/tcp  # SSH Remote Login Protocol
+\end{verbatim}
+\begin{itemize}
+\item Format: \verb+NOM PORT/PROTOCOL+
+\item tout ce qui suit un \verb+#+ est du commentaire
+\end{itemize}
+\end{block}
+\end{frame}
+
+\begin{frame}
+\frametitle{Solution 1: utilisez les fonctions std}
+\begin{exampleblock}{}
+\scriptsize{\verbatiminput{services.pl}}
+\end{exampleblock}
+\end{frame}
+
+\begin{frame}
+\frametitle{Solution 2: Parser le fichier}
+\tiny{\verbatiminput{services-file.pl}}
+\end{frame}
+
 \end{document}