Supprimer des virus d'un répertoire...
Utilisation:
perl rem.pl /media/diskwindows/documents exe
va enlever tout les exécutables de ce dossier (assurez vous d'avoir enlever toutes les applications .exe utiles).
Vous pouvez aussi l'appliquer avec n'importe quelle extension pour supprimer les fichiers correspondants, par éxemple pour effacer toutes les photos .jpg:
perl rem.pl /media/diskwindows/documents jpg
Attention : ne jamais l'appliquer sur un dossier système!
Remove viruses from a folder ...
Usage:
perl rem.pl /media/diskwindows/documents exe
will remove all the executables in this folder (make sure to remove all applications .exe useful from this folder).
You can apply it with any extension to delete these files, for example delete all files. Jpg:
You can apply it with any extension to delete these files, for example delete all files. Jpg:
perl rem.pl /media/diskwindows/documents jpg
Attention : ne jamais l'appliquer sur un dossier système!
إزالة الفيروسات من ملف
perl rem.pl /media/windowdisk/documents exe
(سيتم إزالة كافة الملفات التنفيذية في هذا المجلد )تأكد من نزع كافة التطبيقات المفيدة
.jpgيمكنك تطبيق ذلك مع أي تمديد لحذف هذه الملفات ، على سبيل المثال حذف كل الملفات
perl rem.pl /home/me//documents jpg
حذاري: عدم تطبيق هذا السكريبت على مجلد نظام التشغيل
Open in a new window
#!/usr/bin/perl
####################################################
# find more scripts on scripts-n-codes.blogspot.com
####################################################
use strict;
use Carp;
use warnings;
my @ext = ("\.".$ARGV[1]); # tu mets les extensions de fichiers
my $fol = $ARGV[0]; # tu mets ton répertoire
my @fic = ls_fic($fol);
foreach my $file (@fic) {
foreach my $exs (@ext) {
if($file =~ m{$exs$}i) {
print "$file deleted\n";
unlink($file);
}
}
}
sub ls_fic {
my ($fol) = @_;
my @fic = ();
opendir (my $rep_fh, $fol)
or die "impossible d'ouvrir le repertoire $fol\n";
my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh);
closedir ($rep_fh);
foreach my $nom (@file_rep) {
if ( -f "$fol/$nom") {
push (@fic, "$fol/$nom");
}
elsif ( -d "$fol/$nom") {
push (@fic, ls_fic("$fol/$nom"));
}
}
return @fic;
}