zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-07-22 18:25:54 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.37

Browse source
This commit is contained in:
Nick Bebout 2011-03-12 02:43:47 +00:00
parent 564aed33ea
commit 1ae8613d80
6 changed files with 83 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

16
learn/zz Normal file
View file

@ -0,0 +1,16 @@
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";
}