#!/usr/bin/perl

my $file=shift || "";

use strict;
#undef $/;
#$/='';

open(F,"-|","ls /home/natura/wiki-score/data/pages/$file*/s[0-9]*.txt") or die;
while(<F>){
 chomp;
 s!.*?pages/!!;
 s!/!:!;
 s!.txt$!!;
 system "curl 'http://www.wiki-score.org/doku.php?id=$_&purge=true'\n";
}
close F;