Changeset 268

Timestamp:

03/06/11 20:25:35 (13 years ago)

Author:

nanardon

Message:

• likelly end

Location:

trunk/tp-perl

Files:

• Makefile (modified) (1 diff)
• filespec.pl (added)
• filewhich.pl (added)
• getoptlong.pl (added)
• getoptstd.pl (added)
• main.tex (modified) (3 diffs)

trunk/tp-perl/Makefile

@@ -13 +13 @@
    exercice01.pl \
    exercice02.pl \
+   fichier.pl  filespec.pl  filewhich.pl \
 
 FIGURES= \

trunk/tp-perl/main.tex

@@ -137 +137 @@
 \end{frame}
 
+\subsection{Renvois d'erreurs}
+
+\begin{frame}[fragile]
+\frametitle{Renvois d'erreur}
+\begin{block}{Fonctions:}
+\begin{itemize}
+\item \verb+warn()+: affiche un message d'erreur
+\item \verb+die()+: met aussi fin au script
+\end{itemize}
+\end{block}
+\begin{block}{Fin de ligne}
+Sans retour chariot, la ligne est affichée:
+\begin{scriptsize}
+\begin{verbatim}
+  DB<16> die "je meurs"                                                                                                                                      
+je meurs at (eval 40)[/usr/lib/perl5/5.12.2/
+   perl5db.pl:638] line 2.
+\end{verbatim}
+\end{scriptsize}
+\end{block}
+\end{frame}
+
 \subsection{Les boucles}
 
@@ -300 +322 @@
 \end{frame}
 
+\begin{frame}[fragile]
+\begin{block}{Trouver le premier \og{}mot \fg{}}
+\begin{verbatim}
+$text =~ /([\w']+)/";
+print $1;
+\end{verbatim}
+\end{block}
+\pause
+
+\begin{block}{trouver le premier chiffre}
+\begin{verbatim}
+$text =~ /(\d)/";
+print $1;
+\end{verbatim}
+\end{block}
+\end{frame}
+
+\begin{frame}[fragile]
+\begin{block}{remplacer \og{}Pearl \fg{} par \og{}Perl \fg{}}
+\begin{verbatim}
+$text =~ s/Pearl/Perl/;
+print $text;
+\end{verbatim}
+\end{block}
+\pause
+
+\begin{block}{remplacer les espaces par des \og{}\_ \fg{}}
+\begin{verbatim}
+$text =~ s/\s/_/g;
+print $text;
+
+L\'attaque_sur_Pearl_Harbor_fut_lancee_par
+_surprise_le_matin_du_dimanche_7_décembre
+_1941.
+\end{verbatim}
+\end{block}
+\end{frame}
+
 \section{AccÚs aux fichiers}
 
@@ -341 +401 @@
 \section{Utilisation d'un module}
 
-
+\begin{frame}
+\frametitle{CPAN}
+\begin{block}{CPAN ?}
+Comprehensive Perl Archive Network
+\begin{itemize}
+\item \href{http://search.cpan.org}{http://search.cpan.org}
+\item dépot de modules perl
+\item contributions bénévoles
+\end{itemize}
+\end{block}
+\pause
+\begin{alertblock}{Regardez sur le CPAN}
+Ne réinventez pas la roue !
+\end{alertblock}
+\end{frame}
+
+\begin{frame}[fragile]
+\frametitle{Utilisation d'un module}
+\begin{block}{use: syntaxe}
+\verb+use MODULE @IMPORT;+
+\end{block}
+\pause
+\begin{exampleblock}{File::Spec}
+\scriptsize{\verbatiminput{filespec.pl}}
+\end{exampleblock}
+\end{frame}
+
+\begin{frame}[fragile]
+\frametitle{Exercice: which}
+\begin{block}{which ?}
+Ecrire un script qui affiche l'emplacement d'un executable.
+Le module \verb+File::Which+ peut servir !
+\end{block}
+\pause
+\begin{exampleblock}{Solution}
+\scriptsize{\verbatiminput{filewhich.pl}}
+\end{exampleblock}
+\end{frame}
+
+\section{Parser la ligne de commande}
+
+\begin{frame}
+\frametitle{Getopt::Std}
+\begin{exampleblock}{Exemple}
+\scriptsize{\verbatiminput{getoptstd.pl}}
+\end{exampleblock}
+\end{frame}
+
+\begin{frame}[fragile]
+\frametitle{Getopt::Long}
+\begin{block}{Exercice}
+Refaire la même chose avec Getopt::Long:
+\begin{itemize}
+\item l'argument de \verb+-p+ est affiché
+\item \verb+-t+ ne fais rien
+\end{itemize}
+\end{block}
+\end{frame}
+
+\begin{frame}[frame]
+\frametitle{Getopt::Long}
+\begin{exampleblock}{Exemple}
+\scriptsize{\verbatiminput{getoptlong.pl}}
+\end{exampleblock}
+\end{frame}
 
 \end{document}