Changeset 271
- Timestamp:
- 03/07/11 11:33:05 (13 years ago)
- Location:
- trunk/tp-perl
- Files:
-
- 2 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tp-perl/Makefile
r268 r271 14 14 exercice02.pl \ 15 15 fichier.pl filespec.pl filewhich.pl \ 16 services-file.pl services.pl \ 16 17 17 18 FIGURES= \ -
trunk/tp-perl/exercice01.pl
r264 r271 1 #!/bin/env perl 2 1 #!/bin/env perl -w 3 2 use strict; 4 use warnings;5 3 6 4 foreach my $let (qw(a b c)) { -
trunk/tp-perl/main.tex
r268 r271 52 52 53 53 \begin{frame} 54 \frametitle{ RÚgles de perl}54 \frametitle{Perl} 55 55 \begin{alertblock}{TMTOWTDI} 56 56 There's more than one way to do it … … 58 58 \pause 59 59 60 \begin{exampleblock}{Documentations de base} 61 \begin{itemize} 62 \item perlfunc: fonctions principales 60 \begin{exampleblock}{Documentations principales} 61 \begin{itemize} 62 \item perl: la liste des documentations 63 \item perlfunc: fonctions de bases 63 64 \item perlop: les opérateurs 64 65 \item perlvar: les variables \og{}magiques \fg{} … … 71 72 \begin{frame}[fragile] 72 73 \frametitle{Perl} 73 \begin{block}{Le programme }74 \begin{block}{Le programme perl} 74 75 \begin{verbatim} 75 76 $ perl -v … … 84 85 85 86 \begin{frame}[fragile] 86 \frametitle{ First Script}87 \frametitle{Premier Script perl} 87 88 \begin{exampleblock}{Hello World!} 88 89 \verbatiminput{hello-world.pl} … … 103 104 104 105 main::(-e:1): 0 105 DB<1> print "coucou" 106 DB<1> print "coucou" 106 107 coucou 107 108 DB<2> … … 140 141 141 142 \begin{frame}[fragile] 142 \frametitle{ Renvois d'erreur}143 \frametitle{die() et warn()} 143 144 \begin{block}{Fonctions:} 144 145 \begin{itemize} 145 146 \item \verb+warn()+: affiche un message d'erreur 146 \item \verb+die()+: met aussifin au script147 \item \verb+die()+: met de plus fin au script 147 148 \end{itemize} 148 149 \end{block} … … 162 163 163 164 \begin{frame}[fragile] 164 \frametitle{ Boucles}165 \frametitle{Traitement sur des listes} 165 166 \begin{block}{foreach} 166 167 \verb+foreach my $v (@tab) { }+ … … 191 192 \begin{exampleblock}{Exercice 1} 192 193 \scriptsize{\verbatiminput{exercice01.pl}} 194 \end{exampleblock} 195 196 \begin{exampleblock}{Avec un one-liner} 197 \scriptsize{ 198 \begin{verbatim} 199 $ perl -e 200 'print $_ . " " . uc($_) . "\n" foreach(qw(a b c))' 201 a A 202 b B 203 c C 204 \end{verbatim} 205 } 193 206 \end{exampleblock} 194 207 \end{frame} … … 401 414 \section{Utilisation d'un module} 402 415 416 \subsection{Howto} 417 403 418 \begin{frame} 404 419 \frametitle{CPAN} … … 440 455 \end{frame} 441 456 442 \s ection{Parser la ligne de commande}457 \subsection{Parser la ligne de commande} 443 458 444 459 \begin{frame} … … 467 482 \end{frame} 468 483 484 \section{Exercice final} 485 486 \begin{frame}[fragile] 487 \frametitle{ProblÚme} 488 \begin{block}{Enoncé:} 489 Ecrire un programme qui affiche le numéro de port dédié à un couple 490 service/protocole. Un switch permettra de trouver le service à partir du numéro 491 de port. 492 \end{block} 493 494 \begin{block}{Informations:} 495 Ces informations sont stockées dans le fichier \verb+/etc/services+: 496 \begin{verbatim} 497 ssh 22/tcp # SSH Remote Login Protocol 498 \end{verbatim} 499 \begin{itemize} 500 \item Format: \verb+NOM PORT/PROTOCOL+ 501 \item tout ce qui suit un \verb+#+ est du commentaire 502 \end{itemize} 503 \end{block} 504 \end{frame} 505 506 \begin{frame} 507 \frametitle{Solution 1: utilisez les fonctions std} 508 \begin{exampleblock}{} 509 \scriptsize{\verbatiminput{services.pl}} 510 \end{exampleblock} 511 \end{frame} 512 513 \begin{frame} 514 \frametitle{Solution 2: Parser le fichier} 515 \tiny{\verbatiminput{services-file.pl}} 516 \end{frame} 517 469 518 \end{document}
Note: See TracChangeset
for help on using the changeset viewer.