[Tech] hard core perl

[Marco Ermini]

On Fri, 18 Mar 2005 17:03:10 +0100 (MET), Carlo Baffa
<baffa@arcetri.astro.it> wrote:
> On Fri, 18 Mar 2005, Marco Ermini wrote:
> 
> > Quello qua sotto è un programma perl che funge da redirector per
> > Squid. In pratica si "mangia" una lista di siti da filtrare da un file
> > m4 situato sotto la directory ./allowed e li "filtra". Io vorrei fare
> > l'esatto contrario, ovvero: nella lista vorrei mettere solo i siti
> > permessi (e tutti gli altri vengono "censurati").
> >
> Se ho capito, devi invertire la condizione del 'next if'
> 
> >               while (my($file,$old)=each %files) {
> >                       my $new=(stat $file)[9];
> >                       $files{$file}=$new;
> >                       next if !defined $old || $old==$new;
> 
> cambia in:
>                         next if $old != $new;
> 
> e poi di seguito:
> 
> >                       push @got,$_;
> >                       redo RELOAD;
> >                       }
> >
> 
> Ovviamente scritto cosi' e' un po' inefficiente. Ma dovrebbe andare (caveat
> emptor il mio Perl e' assai arrugginito.....).
> Ciao
> Carlo

Guarda, provo. Se funziona, ti devo un favore. Se funziona ma non è
efficiente, me ne frega molto poco ;-)

Grazie infinite!


Ciao.
-- 
Marco Ermini
http://www.markoer.org
Dubium sapientiae initium. (Descartes)
root@human # mount -t life -o ro /dev/dna /genetic/research
<< This message is for the designated recipient only and may contain
privileged or confidential information. If you have received it in
error, please notify the sender immediately and delete the original.
Any other use of the email by you is prohibited. >>