Olaf Marzocchi

Eh? ma se devi solo cambiare, come prima, il valore $threshold e il valore "blocks" (da 10 MiB). In effetti dovrei pensare a un modo per unire eventuali misure fatte a più riprese, ma penso che basti unire i file speeds.txt (ovviamente se generati da questa ultima versione degli script) senza lasciare righe vuote in mezzo e poi lanciare stats.pl. Hai messo uno screenshot di Transmission che sta scaricando, a che serve? non ho capito. Quindi niente vino?

Mi mandi una bottiglia di vino della tua zona per tutto questo? Se sei pugliese me la puoi dare di persona, contattami in chat o nell'altro sito che sai tu.

prima usa questo # (C) Olaf Marzocchi, 2012# blocks è il numero di blocchi da 10 MiB da scrivere nel disco nella dir corrente. Bisogna lasciare liberi alla fine almeno 115*blocchi byte in maniera che ci sia spazio per i due file output.txt e speeds.txtblocks=10count_done=0counter=0while [ $count_done -lt $blocks ]dowhile [ -e "$(printf '%06.0f' $counter).zero" ]dolet counter++doneecho "$(printf '%06.0f' $counter).zero" >> output.txtdd count=20480 if=/dev/zero of=$(printf '%06.0f' $counter).zero 2>> output.txtif [ $? -ne 0 ]; then break; filet count_done++donecat output.txt | grep 'transferred\|zero' | sed 's/.*secs (\(.*\)bytes.*/\1/' > speeds.txtpoi questo #!/usr/bin/perl -w# (C) Olaf Marzocchi, 2012use strict;my $threshold = 1e7;# 512 KiBmy $resolution = 500000;my @stats;my @damaged;$, = "\t";$\ = "\n";open (INPUT, '<', 'speeds.txt') || die "Error reading speeds.txt, $!";while (<INPUT>) { chomp($_); my $name = $_; $_ = <INPUT>; chomp; my $speed = int($_); $stats[int (($speed / $resolution) + 1)]++; push @damaged, $name if ($speed < $threshold);}close (INPUT);for (my $i = 0; $i < @stats; $i++) { $stats[$i] = 0 unless defined($stats[$i]); print $i * $resolution, $stats[$i];}$, = " \t";print "Keep these files (they contain damaged blocks), delete the others:";print @damaged;print "(none)" if (@damaged == 0);$\ = "\n";open(OUTPUT, '>', 'keep_these.txt') || die "Error reading writing 'keep_these.txt', $!";foreach my $i (@damaged) { print OUTPUT sprintf("%06.0f.zero", $i);}close(OUTPUT);Ora il primo script genera n blocchi indipendentemente dalla numerazione: parte da zero saltando i file esistenti. Se lo fai una volta farà per esempio da 0 a 99, poi se lo esegui di nuovo fa da 100 a 199. Lo interrompi con control-c se vuoi. Ogni volta viene generato il file delle velocità degli ultimi blocchi che sovrascrive i precedenti, quindi vedi tu cosa fare. Il nuovo secondo script è adattato per usare il nuovo output con numeri di file non necessariamente progressivi.

Esatto, TM è da usarsi per ripristinare versioni precedenti o file cancellati o tutto in caso di rotture, non è un archivio affidabile. Se i dati sono da tenere, vanno copiati/spostati in un disco normale.

Eh ma dimmelo subito che sistemo lo script così da non dover ripartire da zero. Però non ora.

grazie ora mando un feedback

Usare blocchi grossi non velocizzerà il processo e la frammentazione dei blocchi incide poco sul risultato, quelli difettosi dovrebbero comunque essere molto più lenti.

Immagino che lo sviluppatore possa scegliere e che i programmi non aggiornati abbiano solo il disco locale. Domanda: a voi la finestra di selezione file ISO in utility disco scatta? Provate così: - utility disco, masterizza ISO (bottone sulla barra) - col mighty touch scorrete su e giù verticalmente i file di una cartella che ne abbia almeno una ventina di vario tipo (possibilmente anche un ISO grosso) - a me scatta terribilmente, ma solo in questo caso

Non ci sono nemmeno motivi per non fare una installazione pulita, visto che il disco è in pratica vuoto.

Secondo me hai più programmi che partono e quindi impiega di più.

Ma in che applicazioni? Io però ho su Dropbox il mio file delle password (1Password) e ben che sta.

Dovrebbe avere una connessione USB e appare al computer come una chiavetta normale. Io ho il WS-311M e funziona esattamente così. Registra in WMA anche il mio.

Il mio mac pro ha però 4 letture, non mi sembra ne abbia 6.

Che faccia bene o male, sono 5 anni che gira di continuo e ancora funziona. Per il resto non so, chiedi a chi ha sviluppato l'applicazione.

Al minimo se non fai nulla, di più se lavori. Che domanda è?? Al limite con una bomboletta d'aria pulisci quella della scheda video, è l'unica che col tempo si sporca e gira più veloce per compensare. Nel mac pro che uso io (comprato nel 2007, da quel momento sempre acceso senza standby) l'anno scorso ho dovuto far pulire le ventole e dissipatore scheda video. Mi hanno detto che è uscita della gran polvere. Le altre ventole sono ancora pulite.

Eh ma devi comprare le nuove versioni. Io ho quella del 2007.

Io per esempio ho garageband, ma è lì dal 2008 e non so nemmeno se girà più su ML

Apple Lossless oppure FLAC, sono entrambi open source e gratuiti.

Le ventole girano SEMPRE sui Mac Pro.

Grande suggerimento! lui ti chiede un programmino gratis e tu suggerisci non solo un bisonte per un lavoro minuscolo che qualunque è in grado di fare ("volumi/tagli etc"), ma anche molto costoso.

Ma che wav sono? se fai un AAC 256 kbps nessuno sentirà la differenza e risparmi tanto spazio. Se vuoi mantenere la qualità , usa apple lossless o FLAC, ma di certo usare zip per dei file wav è poco efficiente.

Dal momento che non hai fatto tu i test ma stai ripetendo, porta un link a supporto.

Se lo usi con le foto, un disco tradizionale dovrebbe andare più che bene, sono file grossi e non piccoli sparpagliati. Per la stessa cifra prendi 1 TB che ti darebbe probabilmente un vantaggio maggiore rispetto alla velocità aggiuntiva del 512 GB SSD.

Io non ho idea di come scrivere una GUI, al limite posso farlo in VB .Net. Se lo fai sull'intero disco mandami per mail tutti i file speeds.txt che voglio vedere cosa ne esce fuori.

Correggi $threshold ovviamente #!/usr/bin/perl -w# (C) Olaf Marzocchi, 2012use strict;my $threshold = 75000000;# 512 KiBmy $resolution = 524288;open (INPUT, '<', 'speeds.txt') || die "Error reading speeds.txt, $!";my @speeds = <INPUT>;close (INPUT);my @stats;my @damaged;$, = "\t";$\ = "\n";for (my $i = 0; $i < @speeds; $i++) { $stats[int (($speeds[$i] / $resolution) + 1)]++; push @damaged, $i if ($speeds[$i] < $threshold);}for (my $i = 0; $i < @stats; $i++) { $stats[$i] = 0 unless defined($stats[$i]); print $i * $resolution, $stats[$i];}$, = " \t";print "Keep these files (they contain damaged blocks), delete the others:";print @damaged;$\ = "\n";open(OUTPUT, '>', 'keep_these.txt') || die "Error reading writing 'keep_these.txt', $!";foreach my $i (@damaged) { print OUTPUT sprintf("%06.0f.zero", $i);}close(OUTPUT);