1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#! /usr/bin/perl
$data_file = "savedata.txt";
$folder_dest = "/tmp";
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT);
foreach $line (@raw_data)
{
chop($line);
if ($line =~ /^#/ || $line =~ /^$/){
# ignore les commentaires du fichier
} else {
system ("cp -v -f $line $folder_dest");
}
}
# exemple savedata.txt :
-R /etc
-R /home/user/www
/home/user/myfile.txt
|
Informations rapides
