Esercizio 3, prova pratica 13/09/2013 - Revision history

Maldus at 14:07, 5 April 2015

2015-04-05T14:07:54Z

Davide.quadrelli2 at 09:24, 4 April 2015

2015-04-04T09:24:39Z

Maldus: Created page with "Consegna([http://www.cs.unibo.it/~renzo/so/pratiche/2013.09.13.pdf]): Sia data una directory che contiene file di testo. Scopo dell'esercizio e' di contar..."

2015-04-02T20:21:17Z

Created page with "Consegna([http://www.cs.unibo.it/~renzo/so/pratiche/2013.09.13.pdf]): <source lang="text"> Sia data una directory che contiene file di testo. Scopo dell'esercizio e' di contar..."

New page

Consegna([http://www.cs.unibo.it/~renzo/so/pratiche/2013.09.13.pdf]):
<source lang="text">
Sia data una directory che contiene file di testo.
Scopo dell'esercizio e' di contare i caratteri delle corrispondenti righe di testo di tutti i file della directory, si vuole cioe' sapere
il numero totale di caratteri presenti nelle prime righe di tutti i file, nelle seconde linee, ecc.
$ ccpl mydir
1 234
2 21
3 333
.....
l'ouput significa che se contiamo tutti i caratteri contenuti nella prima riga di tutti i file in mydir otteniamo 234 (mydir/file1
puo' avere 40 caratteri nella prima riga, mydir/file2 ne puo' avere 20, ecc... procedendo per tutti i file di mydir la somma fa
234).
</source>

===Soluzione di Maldus===
<source lang="bash">
#! /bin/bash

count=1 #conta il numero di riga che sto considerando
bool=1 #resta 1 finchè ci sono righe da contare in qualche file
file=`ls`

while [[ $bool -eq 1 ]]; do
tot=0
bool=0
for word in $file; do
if [[ (-r $word) && (-s $word) && (! $word = *~ ) ]]; then
x=`awk 'NR==c' c=$count $word | wc -m` #considero solo la riga contata da count
if [[ $x -ne 0 ]]; then #se la riga non è vuota
tot=`expr $tot + $x - 1` #con -1 tolgo il carattere \n che era stato contato da awk
bool=1 #bool=1 finchè c'è qualche riga da contare
fi
fi
done
if [[ $bool -eq 1 ]]; then
echo "$count: $tot"
fi
count=`expr $count + 1`
done
</source>

@@ Line 21: / Line 21: @@
 count=1		#conta il numero di riga che sto considerando
 bool=1		#resta 1 finchè ci sono righe da contare in qualche file
 file=`ls`
@@ Line 27: / Line 32: @@
 	bool=0
 	for word in $file; do
-		if [[ (-r $word) && (-s $word) && (! $word = *~ ) ]]; then
+		if [[ (-r $word) && (-s $word) && ( -f $word) && (! $word = *~ ) ]]; then
 			x=`awk 'NR==c' c=$count $word | wc -m`	#considero solo la riga contata da count
 			if [[ $x -ne 0 ]]; then			#se la riga non è vuota

@@ Line 39: / Line 39: @@
 	fi
 	count=`expr $count + 1`
 done
 </source>