mirror of
https://github.com/imapsync/imapsync.git
synced 2025-06-09 22:24:33 +02:00
16 lines
355 B
Text
16 lines
355 B
Text
|
|
my $f_sep="/";
|
|
my $t_sep=".";
|
|
|
|
foreach my $f_fold ("testsub/testsub3", "testsub.testsub3" ) {
|
|
my $t_fold;
|
|
print "From Folder [$f_fold]\n";
|
|
$t_fold = $f_fold;
|
|
my $t_fold2 = $f_fold;
|
|
$t_fold =~ s@\Q$f_sep@$t_sep@g;
|
|
$t_fold2 =~ s@\Q$t_sep@$f_sep@g;
|
|
#$t_fold =~ s@/@.@g;
|
|
print "To /. Folder [$t_fold]\n";
|
|
print "To ./ Folder2[$t_fold2]\n\n";
|
|
|
|
}
|