From a94bd2e33d0fb4645eab7b9345f753a5edeeeee4 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 13 Aug 2008 14:19:35 +0000
Subject: ora compila pure...

git-svn-id: svn://luxion/repos/intro-perl@358 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 corso.content.tex | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'corso.content.tex')

diff --git a/corso.content.tex b/corso.content.tex
index 6328ba9..e94dcb8 100644
--- a/corso.content.tex
+++ b/corso.content.tex
@@ -1316,7 +1316,7 @@ oppure \lstinline!ade!
 
 \subsection{Uso generale} % m, s, split, =~, options, tr
 
-\begin{frame}[fragile]{Esempio: contare le pecore}
+\begin{frame}[fragile]\frametitle{Esempio: contare le pecore}
 \begin{lstlisting}
 use strict; use warnings;
 my $pecore=0;
@@ -1329,7 +1329,7 @@ print "Ho visto $pecore pecore\n";
 \end{lstlisting}
 \end{frame}
 
-\begin{frame}[fragile]{L'operatore \texttt{m//}}
+\begin{frame}[fragile]\frametitle{L'operatore \texttt{m//}}
 \lstinline!$linea =~ m{pecora}!
 
 \begin{itemize}
@@ -1344,7 +1344,7 @@ delimitatori che volete
 \end{itemize}
 \end{frame}
 
-\begin{frame}[fragile]{Esempio: sommare i numeri}
+\begin{frame}[fragile]\frametitle{Esempio: sommare i numeri}
 \begin{lstlisting}
 use strict; use warnings;
 my $totale=0;my $testo='';
@@ -1359,7 +1359,7 @@ print "Testo: $testo\n";
 \end{frame}
 %$
 
-\begin{frame}[fragile]{L'operatore \texttt{m//} in contesto lista}
+\begin{frame}[fragile]\frametitle{L'operatore \texttt{m//} in contesto lista}
 \lstinline!my ($prima,$numero,$dopo) =!
 \lstinline!    $linea =~ m{^([^0-9]*)([0-9]+)(.*)$};!
 %$
@@ -1373,7 +1373,7 @@ stringa che corrispondono ai pezzi tra parentesi
 \end{itemize}
 \end{frame}
 
-\begin{frame}[fragile]{Esempio: censurare gli indirizzi}
+\begin{frame}[fragile]\frametitle{Esempio: censurare gli indirizzi}
 \begin{lstlisting}
 use strict; use warnings;
 while (my $linea=<>) {
@@ -1384,7 +1384,7 @@ while (my $linea=<>) {
 \end{lstlisting}
 \end{frame}
 
-\begin{frame}[fragile]{L'operatore \texttt{m//}}
+\begin{frame}[fragile]\frametitle{L'operatore \texttt{s///}}
 \begin{lstlisting}[escapeinside=«»,backgroundcolor=,numbers=none]
 $linea =~ s{[a-z0-9.-]+\@[a-z0-9.-]+}{***\@***};
 
@@ -1399,7 +1399,7 @@ stringa di sostituzione sono trattate come se avessero le virgolette doppie
 \end{itemize}
 \end{frame}
 
-\begin{frame}[fragile]{Esempio: leggere un CSV}
+\begin{frame}[fragile]\frametitle{Esempio: leggere un CSV}
 \begin{lstlisting}
 use strict; use warnings;
 while (my $linea=<>) {
@@ -1413,7 +1413,7 @@ while (my $linea=<>) {
 \end{lstlisting}
 \end{frame}
 
-\begin{frame}[fragile]{L'operatore \texttt{m//}}
+\begin{frame}[fragile]\frametitle{\texttt{split}}
 \begin{lstlisting}[escapeinside=«»,backgroundcolor=,numbers=none]
 my @campi = split /,/,$linea;
 
-- 
cgit v1.2.3

