Changeset 164

Timestamp:

08/23/08 00:38:44 (16 years ago)

Author:

nanardon

Message:

• end regexp

File:

• trunk/perl/chaines.tex (modified) (2 diffs)

trunk/perl/chaines.tex

@@ -121 +121 @@
 \pause
 &\\
+\verb+^+&début de ligne\\
+\verb+$+&fin de ligne\\
+\pause
+&\\
 \verb+()+&forme un groupe\\
 \end{tabular}
@@ -131 +135 @@
 \begin{frame}[fragile]
 \frametitle{RegExp: exemple dans perl}
+\begin{verbatim}
+my @list = ('UMR7620', 'umr8639');
+
+foreach my $umr (@list) {
+    my ($number) = $umr =~ /^umr(.*)$/;
+    if ($number)  {
+        print "Unité mixte $number\n";
+    }
+}
+\end{verbatim}
+\pause
+\vfill
+Bon, je parle de perl, pas des RegExp, alors \verb+man perlre+ et \verb+man perlretut+ !
+
 \end{frame}