#!/usr/bin/perl #Locale settings: no warnings 'layer'; use utf8; use locale; use encoding 'utf8', STDOUT => 'utf8', STDERR => 'utf8'; use POSIX qw(locale_h); setlocale(LC_TYPE, 'ru_RU.UTF-8'); use Encode; #The test code require 'fdupes-gui_chmk-dupes.txt.cache'; my $imported_vars = import_vars(); print "---test_before---\n"; for my $cvar (keys %$imported_vars){ print "$cvar:\n"; for my $ckey (keys %{$imported_vars->{$cvar}}){ print "\t$cvar: $ckey\n"; } } print "---after_test---\n"; #### no warnings 'layer'; use utf8; use locale; use encoding 'utf8', STDOUT => 'utf8', STDERR => 'utf8'; use POSIX qw(locale_h); setlocale(LC_TYPE, 'ru_RU.UTF-8'); use Encode; my %sameFilesOneDir = ( '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/для Серикова А.В/SAS_v120808/cache/map/z18/74/x76538/37/'=>[ 'y38062.png', 'y38061.png' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/Buh/Расчетчик/'=>[ 'Документы ПУ 5_2010.lnk', 'Документы ПУ 5_2010 (2).lnk' ], '/media/igor/chmk/home/zamutnii/.repo/10.04/amd64/pool/x/xserver-xorg-video-nouveau/'=>[ 'xserver-xorg-video-nouveau_0.0.15+git20100219+9b4118d-0ubunt.deb', 'xserver-xorg-video-nouveau_0.0.15+git20100219+9b4118d-0ubuntu5_amd64.deb' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/для Смирновой Н.Н/от Николаенко Т.М/Отделение_педагогики/050501_Профессиональное_обучение_(по отраслям)_ГОС/Метод._материалы/Тараненко РИСУНОК ДЛЯ 018-03+ Задания/ЗАДАНИЯ/РЕБУСЫ МЛЕКОПИТ/'=>[ 'РЕБУС 2.jpg', 'РЕБ 2 .jpg' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Distrib/Edu/Stamina/Data/'=>[ 'lessons.lt', 'lessons.lv', 'lessons.da' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Distrib/unsorted/Временно/С диска D/Карта памяти 2 гига для солдатова/Sounds/Ранетки/ЛеРа/'=>[ 'лера_козлова_-_рядом_2c4f2ec6c8e2.mp3', 'лера_козлова_-_рядом_1309842aff23.mp3' ] ); my %info = ( '93688'=>'26884 bytes each:', '58684'=>'79479 bytes each:' ); my %folders = ( '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/для СисАдмина/recover-priyomnaya/recup_dir.2376/'=>[ 'f3484724920.doc', 'f3484724712.doc' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/для Амосовой Е.Г/Док/Программы и КТП Вопросы/2012-2013/Титульники и литература/949-05/КМ/'=>[ 'Литература.doc', 'РП КМ (Ф).doc' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/для СисАдмина/recover-priyomnaya/recup_dir.433/'=>[ 'f1793587968.doc', 'f1793889136.doc', 'f1793885184.doc' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Distrib/unsorted/Временно/Мои документы/Парикммахер 2010-2012 уч.год/Съемный диск (G)/парикмахер/викторина/pic1-6/pic1/'=>[ '2 (3).JPG', '2 (2).JPG' ] ); my %files = ( '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/для СисАдмина/recover-priyomnaya/recup_dir.2036/f3467715168.doc'=>'71514', '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/для СисАдмина/recover-priyomnaya/recup_dir.2356/f3483793848.doc'=>'47380'); my %groups = ( '93688'=>[ '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Docs/Галина Павловна/Документы/Кузнецова Г.П/Новая папка/standard/stddir1/xserver-xorg-input-all_7.3+19_i386.deb', '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Distrib/Distr_Unix/Repo/Repo_1/pool/main/x/xorg/xserver-xorg-input-all_7.3+19_i386.deb' ], '58684'=>[ '/media/igor/chmk/home/zamutnii/.chmsee/bookshelf/99a36a6da9cc659bbe4e7122a92e66d1/8250final/images/ch06fig06_0.jpg', '/media/igor/chmk/m3/zamutnii/.chmsee/bookshelf/99a36a6da9cc659bbe4e7122a92e66d1/8250final/images/ch06fig06_0.jpg' ] ); my %oneFileEachDir = ( ); my %foldersWithOneFile = ( '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/deb-repo/1/pool/universe/libc/libconfig-mvp-perl/'=>[ 'libconfig-mvp-perl_0.093350-1_all.deb' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/deb-repo/6/pool/universe/p/python-tgext.admin/'=>[ 'python-tgext.admin_0.2.6-1_all.deb' ] ); sub import_vars{ return({ 'sameFilesOneDir'=>\%sameFilesOneDir, 'info'=>\%info, 'folders'=>\%folders, 'files'=>\%files, 'groups'=>\%groups, 'oneFileEachDir'=>\%oneFileEachDir, 'foldersWithOneFile'=>\%foldersWithOneFile }); } return(1);