- Timestamp:
- 03/06/11 20:25:35 (13 years ago)
- Location:
- trunk/tp-perl
- Files:
-
- 4 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tp-perl/Makefile
r264 r268 13 13 exercice01.pl \ 14 14 exercice02.pl \ 15 fichier.pl filespec.pl filewhich.pl \ 15 16 16 17 FIGURES= \ -
trunk/tp-perl/main.tex
r267 r268 137 137 \end{frame} 138 138 139 \subsection{Renvois d'erreurs} 140 141 \begin{frame}[fragile] 142 \frametitle{Renvois d'erreur} 143 \begin{block}{Fonctions:} 144 \begin{itemize} 145 \item \verb+warn()+: affiche un message d'erreur 146 \item \verb+die()+: met aussi fin au script 147 \end{itemize} 148 \end{block} 149 \begin{block}{Fin de ligne} 150 Sans retour chariot, la ligne est affichée: 151 \begin{scriptsize} 152 \begin{verbatim} 153 DB<16> die "je meurs" 154 je meurs at (eval 40)[/usr/lib/perl5/5.12.2/ 155 perl5db.pl:638] line 2. 156 \end{verbatim} 157 \end{scriptsize} 158 \end{block} 159 \end{frame} 160 139 161 \subsection{Les boucles} 140 162 … … 300 322 \end{frame} 301 323 324 \begin{frame}[fragile] 325 \begin{block}{Trouver le premier \og{}mot \fg{}} 326 \begin{verbatim} 327 $text =~ /([\w']+)/"; 328 print $1; 329 \end{verbatim} 330 \end{block} 331 \pause 332 333 \begin{block}{trouver le premier chiffre} 334 \begin{verbatim} 335 $text =~ /(\d)/"; 336 print $1; 337 \end{verbatim} 338 \end{block} 339 \end{frame} 340 341 \begin{frame}[fragile] 342 \begin{block}{remplacer \og{}Pearl \fg{} par \og{}Perl \fg{}} 343 \begin{verbatim} 344 $text =~ s/Pearl/Perl/; 345 print $text; 346 \end{verbatim} 347 \end{block} 348 \pause 349 350 \begin{block}{remplacer les espaces par des \og{}\_ \fg{}} 351 \begin{verbatim} 352 $text =~ s/\s/_/g; 353 print $text; 354 355 L\'attaque_sur_Pearl_Harbor_fut_lancee_par 356 _surprise_le_matin_du_dimanche_7_décembre 357 _1941. 358 \end{verbatim} 359 \end{block} 360 \end{frame} 361 302 362 \section{AccÚs aux fichiers} 303 363 … … 341 401 \section{Utilisation d'un module} 342 402 343 403 \begin{frame} 404 \frametitle{CPAN} 405 \begin{block}{CPAN ?} 406 Comprehensive Perl Archive Network 407 \begin{itemize} 408 \item \href{http://search.cpan.org}{http://search.cpan.org} 409 \item dépot de modules perl 410 \item contributions bénévoles 411 \end{itemize} 412 \end{block} 413 \pause 414 \begin{alertblock}{Regardez sur le CPAN} 415 Ne réinventez pas la roue ! 416 \end{alertblock} 417 \end{frame} 418 419 \begin{frame}[fragile] 420 \frametitle{Utilisation d'un module} 421 \begin{block}{use: syntaxe} 422 \verb+use MODULE @IMPORT;+ 423 \end{block} 424 \pause 425 \begin{exampleblock}{File::Spec} 426 \scriptsize{\verbatiminput{filespec.pl}} 427 \end{exampleblock} 428 \end{frame} 429 430 \begin{frame}[fragile] 431 \frametitle{Exercice: which} 432 \begin{block}{which ?} 433 Ecrire un script qui affiche l'emplacement d'un executable. 434 Le module \verb+File::Which+ peut servir ! 435 \end{block} 436 \pause 437 \begin{exampleblock}{Solution} 438 \scriptsize{\verbatiminput{filewhich.pl}} 439 \end{exampleblock} 440 \end{frame} 441 442 \section{Parser la ligne de commande} 443 444 \begin{frame} 445 \frametitle{Getopt::Std} 446 \begin{exampleblock}{Exemple} 447 \scriptsize{\verbatiminput{getoptstd.pl}} 448 \end{exampleblock} 449 \end{frame} 450 451 \begin{frame}[fragile] 452 \frametitle{Getopt::Long} 453 \begin{block}{Exercice} 454 Refaire la même chose avec Getopt::Long: 455 \begin{itemize} 456 \item l'argument de \verb+-p+ est affiché 457 \item \verb+-t+ ne fais rien 458 \end{itemize} 459 \end{block} 460 \end{frame} 461 462 \begin{frame}[frame] 463 \frametitle{Getopt::Long} 464 \begin{exampleblock}{Exemple} 465 \scriptsize{\verbatiminput{getoptlong.pl}} 466 \end{exampleblock} 467 \end{frame} 344 468 345 469 \end{document}
Note: See TracChangeset
for help on using the changeset viewer.