J'ai donc un exemple de script qui pourra vous aider dans ce sens.
Pour l'utiliser, créez un fichier (par exemple "monScript") et copiez-y le code suivant:
Comme c'est du perl vous aurez besoin de ce paquet : perl
#!/usr/bin/perl
use strict;
###
# To configure everything
# File to clean (actually only xml-built with boommark as keyword at the moment)
my $file = "/home/login/.recently-used.xbel"; #replace by your login
my $filter_keyword_bgn = "<bookmark ";
my $filter_keyword_end = "<\/bookmark>";
# List of regexp to look for
my @searched_list = (
"searched_keyword_1"
# , "searched_keyword_1" # keyword2, etc...
);
# Actions: 1=leave only if keyword found ; 0=remove if keyword found
my $const_action = 0;
###
# Must not be modified
my $copy = 1; # Initialize to 1 to copy the begining of the file
my $tmp_file = $file.".tmp";
my $tmp_regexp;
#Processing
if (-f $file ){
#Filtered copy to a temporary file
open (FILE_SRC , "<".$file);
unlink $tmp_file if (-f $tmp_file);
open (FILE_DST , ">".$tmp_file) or die();
while (<FILE_SRC>){
if ($_ =~ m/$filter_keyword_bgn/i) {
$copy = !$const_action;
#Loop on filter_keyword
foreach $tmp_regexp (@searched_list) {
if ($_ =~ m/.*$tmp_regexp.*/i) {
$copy = $const_action;
last;
}
}
}
print FILE_DST $_ if (1 == $copy);
$copy = 1 if $_ =~ m/$filter_keyword_end/i;
}
close (FILE_DST);
close (FILE_SRC);
#Final copy from the filtered result to the original file
#Erase the previous file
unlink $file;
#Open the files in read or write
open(FILE_SRC, "<".$tmp_file);
open(FILE_DST, ">".$file);
#Copy the result to the original file
while (my $len = sysread(FILE_SRC, my $buffer, 512))
{
syswrite(FILE_DST, $buffer, $len);
}
close(FILE_DST);
close(FILE_SRC);
#Remove the temporary file
unlink $tmp_file;
}
Rendez votre fichier exécutable et copiez-le dans un dossier bin inclus dans votre path (echo $PATH dans un terminal).
Pour le configurer: cherchez la liste @searched_list et mettez tous les mots clefs qui vous intéresse (rechercher des infos sur les tables dans perl si vous ne savez pas comment faire).
Vous pouvez choisir d'effacer ou ne laisser uniquement les entrées que vous mettez dans @searched_list grâce à la variable $const_action.
Il ne reste plus qu'à exécuter le script régulièrement en l'ajoutant à cron.
