From 47d631936c2661ee462ce475a3e7ade898306ac2 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Tue, 2 Sep 2008 11:36:27 +0000
Subject: usiamo sempre "foreach"

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

diff --git a/corso.content.tex b/corso.content.tex
index a2effe9..394a4cb 100644
--- a/corso.content.tex
+++ b/corso.content.tex
@@ -742,7 +742,7 @@ Questo {\em 
 
 \begin{frame}\frametitle{Contesto scalare e lista}
 \begin{itemize}
-\item ciascuna espressione in un programm \Perl\ viene valutata in un certo {\em contesto}
+\item ciascuna espressione in un programma \Perl\ viene valutata in un certo {\em contesto}
 \item il contesto può essere {\em scalare} o {\em lista}
 \item molte funzioni restituiscono risultati diversi a seconda del contesto
 \end{itemize}
@@ -922,7 +922,7 @@ my %traccia_in=( X => 'corso',
 \begin{itemize}
 \item \lstinline!keys %a! restituisce la lista delle chiavi in \lstinline!%a!, {\em in un qualche ordine arbitrario}
 \item \lstinline!values %a! restituisce la lista dei valori in \lstinline!%a!, {\em nello stesso ordine di \lstinline!keys!}
-\item in contesto scalare, restituiscono il numero di chiavi (o valori, è lo stesso)
+\item in contesto scalare, restituiscono il numero di chiavi (o valori, é lo stesso)
 \item per sapere se un hash è vuoto o meno, invece di controllare \lstinline!keys %a!, basta controllare \lstinline!%a!: un hash è vero se e solo se è non-vuoto
 \end{itemize}
 \end{frame}
@@ -1086,7 +1086,7 @@ contesto scalare
 \begin{lstlisting}
 sub somma_a_tutti {
   my ($quanto,@numeri)=@_;
-  for my $numero (@numeri) {
+  foreach my $numero (@numeri) {
     $numero+=$quanto;
   }
   return @numeri;
@@ -1175,7 +1175,7 @@ warning)
 \begin{lstlisting}
 use strict;use warnings;
 my $righe;
-for my $riga (<>) {
+foreach my $riga (<>) {
  chomp($riga);print reverse($riga),"\n";
  ++$righe;
 }
@@ -1410,7 +1410,7 @@ use strict; use warnings;
 while (my $linea=<>) {
   chomp($linea);
   my @campi = split /,/,$linea;
-  for my $campo (@campi) {
+  foreach my $campo (@campi) {
     print "Campo: $campo\n"
   }
   print "-- fine record\n";
@@ -1542,7 +1542,7 @@ while (my $line=<>) {
 
 \begin{frame}[fragile]\frametitle{Ripetere un'iterazione}
 \begin{lstlisting}
-for my $parola (@parole) {
+foreach my $parola (@parole) {
  pronuncia($parola);
  my $tentativo=<>;chomp($tentativo);
  if ($tentativo eq $parola) {
@@ -1561,7 +1561,7 @@ for my $parola (@parole) {
 LINEA: while (my $linea=<>) {
   chomp($linea);
   my (@parole)=split /\s+/,$linea;
-  for my $parola (@parole) {
+  foreach my $parola (@parole) {
     next LINEA if $parola eq '--';
     usa_parola($parola);
   }
@@ -1721,7 +1721,7 @@ Leggere da un filehandle si fa sempre nello stesso modo, comunque sia stato otte
 
 \begin{lstlisting}
 print $log "Letta configurazione\n";
-for my $key (keys %conf) {
+foreach my $key (keys %conf) {
   print $output "$key -> $conf{$key}\n";
 }
 print $log "Stampata configurazione\n";
@@ -2050,7 +2050,7 @@ for $_ (@lista) {
 \end{lstlisting}
 \onslide<4|handout:0>
 \begin{lstlisting}
-for my $elem (@lista) {
+foreach my $elem (@lista) {
   print $elem;
 }
 \end{lstlisting}
@@ -2058,7 +2058,7 @@ for my $elem (@lista) {
 \begin{onlyenv}<handout>
 equivalente a:
 \begin{lstlisting}
-for my $elem (@lista) {
+foreach my $elem (@lista) {
   print $elem;
 }
 \end{lstlisting}
@@ -2157,7 +2157,7 @@ my @parolne_lunghe=
 \begin{lstlisting}
 # my @out=grep {test($_)} @in;
 my @out;
-for my $elem (@in) {
+foreach my $elem (@in) {
  if (test($elem)) {
   push @out,$elem;
  }
@@ -2177,7 +2177,7 @@ my @maiuscole=map {uc($_)} @minuscole;
 \begin{lstlisting}
 # my @out=map {trans($_)} @in;
 my @out;
-for my $elem (@in) {
+foreach my $elem (@in) {
  push @out,trans($elem);
 }
 \end{lstlisting}
-- 
cgit v1.2.3