Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Seekers of Perl Wisdom

( #479=superdoc: print w/ replies, xml ) Need Help??

If you have a question on how to do something in Perl, or you need a Perl solution to an actual real-life problem, or you're unsure why something you've tried just isn't working... then this section is the place to ask. Post a new question!

However, you might consider asking in the chatterbox first (if you're a registered user). The response time tends to be quicker, and if it turns out that the problem/solutions are too much for the cb to handle, the kind monks will be sure to direct you here.

User Questions
Question on Regular Expression
3 direct replies — Read more / Contribute
by sjain
on Dec 26, 2014 at 19:07

    Hi everyone, I have a question related to regular expression and below are 2 code snippets. Can you please advise why they give diffferent output? What is wrong with code snippet 2 ?

    Code Snippet 1

    #!/usr/bin/perl use re qw(eval); my $pattern1; my $str1 = "RS"; $pattern1 = qr{(?<P_ROOTCODE>.*)(?{ push(@rc1, ${^MATCH}) })\K(?{ $p_r +ootcode = "@rc1" })(?<DAY1>[0-9])(?{ push(@rc2, ${^MATCH}) })\K(?<P_M +ON_CODE>[A-Z])(?{ push(@rc3, ${^MATCH}) })$}; $str1 =~ m/$pattern1/; print "Value of p_rootcode in Pattern 1 is : $p_rootcode\n";

    Code Snippet 2

    #!/usr/bin/perl use re qw(eval); my $pattern2; my $str2 = "RS"; $pattern2 = qr{(?<P_ROOTCODE>.*)(?{ push(@rc1, ${^MATCH}) })\K(?{ $p_r +ootcode = "@rc1" })(?<DAY1>[0-9])(?{ push(@rc2, ${^MATCH}) })\K(?<P_M +ON_CODE>[A-Z])(?{ push(@rc3, ${^MATCH}) })(?<P_NEW_MON_CODE>[A-Z])(?{ + push(@rc4, ${^MATCH}) })$}; $str2 =~ m/$pattern1/; print "Value of p_rootcode in Pattern 2 is : $p_rootcode\n";
displaying an email attachment from a hyperlink
1 direct reply — Read more / Contribute
by Anonymous Monk
on Dec 26, 2014 at 15:37
    Hi Monks,

    WARNING ====> Depending on the solution, this might be more of an html question than a Mime::Lite question, but either way, i'm confident that you monks will know what I'm doing wrong here. I have never been disappointed by this site.

    I am using Mime::Lite to email an html report which contains a hyperlink of text data. When a user clicks on the hyperlink, I want the text to be displayed in an appropriate OS application (in my case, it's Notepad). This seems simple enough, so I tried the following:

    ## this will not run and generate an html report my $html = <html content> my $msg = MIME::Lite->new( Subject => 'my html report', To => 'xxx@gmail.com', Type => 'text/html', Data => $html); $msg->attach( Type => 'text/plain', Path => '/var/tmp/data.txt' Disposition => 'attachment'
    I thought that referencing the attachment in an href like the following would do the trick
    <a href="./data.txt">
    but lo and behold, I have been fooled again! Strangely enough, I did this for image files with and it worked splendidly, so I'm not sure why it wouldn't work the same for plain text files. Anyone know what I'm doing wrong here?

    AS usual, thanks for taking the time to read my lengthy message.

    Best Regards, Michael

How to split big files with Perl ?
4 direct replies — Read more / Contribute
by zalezny
on Dec 26, 2014 at 12:20
    Hi Perl Gurus, does anybody knows how to split big files (for example: 10GB) to multiple small ones ? For example, I would like to take each big file in my backup folder and split for small peaces. For example 10GB file backup.dat needs to be splitted to :

    backup.dat.aa

    backup.dat.ab

    backup.dat.ac

    Is there any library in Perl for splitting files base on the size ? Or maybe some compress parameter to split automaticly files if they are bigger than size XX ? Thanks in advance for Your support ! Zalezny
SMS services
2 direct replies — Read more / Contribute
by jatuljain
on Dec 26, 2014 at 06:00

    I am new to SMPP module. I am looking for some script which can send a SMS from ESME --> SMSC. Though this we already have as "sendmessage.pl".

    My intention is to check SMSC server.

    What I need next is receive the same SMS sent to other ESME. In this case let say receive.pl. Basically setup would be like ESME (Subscriber 1) --> SMSC --> ESME(Subscriber 2) Can you please help me in this. I am able to send Submit_sm and get the response. But I am not getting how to forward the same to ESME receiver side ?

How to issue "Ctrl-y" to a network device
1 direct reply — Read more / Contribute
by sriram83.life
on Dec 26, 2014 at 01:59
    Hello Monks,

    I am executing commands on telecommunications 2G/3G network devices like GCS /MSS. On these elements, once a command is executed,i need to issue a "Ctrl-y" ( Contol y command) to exit from the previous prompt.But, I am not able to issue Ctrl-y to the device.This makes the device to wait until it times out and continue with other commands. This is delaying my script to execute and it is running for more than one day.I am able to enter into the router from which i can issue commands on to the device,but i am not able to "\cy" command on the device. Your help is much appreciated.

    Sriram

Method of child module called by parent
1 direct reply — Read more / Contribute
by gzartman
on Dec 25, 2014 at 23:51
    I'm somewhat new to perl OOP. I've been working on a perl module and found that it was getting a big unwieldy, so decided to spin off a few child classes to my main class to help organization and what not. I'd like to be able to call methods from the child class as if they were in the parent class (at least that's how I envisioned this working). Simplified example:
    package parentClass; use parentClass::childClass; sub new { my ($class, %params) = @_; my $self = {}; bless ($self, $class); return ($self); } 1; package parentClass::childClass; sub new { my ($class, %params) = @_; my $self = {}; bless ($self, $class); return ($self); } sub myMethod { return ('Yo I am one sweet method'); } Test Script utilizing these classes: use parentClass; $object = parentClass->new(); print $object->myMethod();
    When I do this, perl complains that it can't find myMethod. I'm betting this is something fairly simple, but I can' figure it out. Thanks.
Help !!! Symbolic Math Factroize Subroutine is clobbering my hash
1 direct reply — Read more / Contribute
by ipreferperl
on Dec 25, 2014 at 13:21
    Hello All,

    I have written a sub routine to factorize a set of equations symbolically. What appears to be happening is that in the subroutine, I am factoring an equation passed as an argument and storing the variable and coefficients associated with that variable in a hash; whose key is the variable and value is the array of coefficients. Within the routine I am using Dumper to check how the hash is getting populated. On factorizing with respect to the first variable, I see the coefficients get recorded correctly in the hash. When the next variable is factored and recorded in the has, I see the coefficients of the next variable get recorded correctly but the firs variable coefficients appears to have been clobbered.. Finally the subroutine returns an array of hashes has recorded the coefficients in an array ( value ) with respect to the variables (keys) for each equation ( equation set ). I am also having difficulty accessing the contents of the returned array of hashes from the subroutine... Any helps would be very appreciated; code is attached below -

    #!/usr/bin/perl use Data::Dumper; #use strict; my $DEBUG1=1; my @eq1; my @eq2; my @eqn_set; my @variables; my @factored_eqns; ################################################################ #2 equations( variables are x1 and x2 ) #Representations #eq1 = 2*a*b*x1 + 4*a*c*x2 + 2*a*d*x2 + 4*a*e*x2 #eq2 = 4*m*n*x1 + 2*m*o*x2 + 4*m*p*x1 + 2*m*q*x2 ################################################################ @eq1 = ("2*a*b*x1", "4*a*c*x2", "2*a*d*x1", "4*a*e*x2"); @eq2 = ("4*m*n*x1", "2*m*o*x2", "4*m*p*x1", "2*m*q*x2"); ################################################################# #Form the equation set ################################################################# @eqn_set = (\@eq1, \@eq2); ################################################################## #Return an array of hashes; hash 1 corresponds to a factored #form of eqn1; hash 2 corresponds to a factored form of eqn2 #Returns- #@factored_eqns = (%factored_eqn1, %factored_eqn2); #Where - #$factored_eqn1{"x1"} = ("2*a*b", "2*a*d"); #$factored_eqn1{"x2"} = {"4*a*c", "4*a*e"}; #$factored_eqn2{"x1"} = ("4*m*n", "4*m*p"); #$factored_eqn3{"x2"} = {"2*m*o", "2*m*q"}; ################################################################## @variables = ("x1", "x2"); @factored_eqns = &factorize(\@eqn_set,\@variables); ################################################################### #Now Dump the result of the factorization ################################################################### my $item; foreach $item (@factored_eqns){ print Dumper \%{$item}; } #################################################################### #The factorize subroutine --- #################################################################### sub factorize{ my @this_eqn_set = @{$_[0]}; my @this_variable_set = @{$_[1]}; my $equation; my $variable; my $term; my @factors = (); my %coefficient_array; my $ii=0; my @factored_rows=(); #clear the coefficient array hash undef %coefficient_array; print "Factorize.....\n"; #for each equation in the equation set foreach $equation (@this_eqn_set){ #then for each variable in the eqution foreach $variable (@this_variable_set){ #then for each term in the equation foreach $term (@{$equation}){ #if the term contains the variable currently be factored if($term =~ /\*$variable/){ #extract the variable coefficient from the term $term =~ s/\*$variable//; #save the coefficient for that variable in that term for t +hat equation push (@factors, $term); } }#End processing the term #save the coefficients for that variable in that row $coefficient_array{$variable} = \@factors; #Debug to check that the coefficient array is getting populate +d if($DEBUG1==1){ print "DEBUG1: Coefficient Array Pass $ii -\n"; print Dumper \%coefficient_array; print "D1*****D1******\n"; $ii++; } #clear the factors array for the next variable @factors=(); #the coefficient array at this satge should be a hash whose #keys are the variables and values are the coefficient terms f +or #that variable; we save the hash into the equation set retrun +array push(@factored_rows,%coefficient_array); }#End processing variable in the equation #reset the coefficient array for the the next equation undef %coefficient_array; }#End processing the equation of the equation set #return the factored rows to the calling routine return(@factored_rows); }
rest service - input collection
2 direct replies — Read more / Contribute
by Anonymous Monk
on Dec 25, 2014 at 11:45
    Hi,

    I just implemented Apache2::REST webservice..and it works....can someone help me how to retrieve the input which supplied with POST method? i pass the input by $client->POST('/api/?fmt=json','{"tag1":test,"tag2":test}');

    from this i want to parse {"tag1":test,"tag2":test}...
Perl/Tk hang when conecting to Remote MySQL Server
3 direct replies — Read more / Contribute
by Muskovitz
on Dec 24, 2014 at 12:09

    hey perl mongers i have scripted a little program of perl/tk that will connect to mysql db and then process the query search and then prints out the results but it gets hang sometimes it wont load.

    #!/usr/bin/perl use strict; use warnings; use Tk; use DBI; use DBD::mysql; our $type="mysql"; our $database="store"; our $host="somesite.com"; our $port="3306"; our $tablename="vegetables"; our $user="example"; our $pwd="*********"; our $dsn="dbi:$type:$database:$host:$port"; our $query; our $queryhandle; our $connect=DBI->connect($dsn,$user,$pwd) || die "ERROR: $!\n"; my $mw=new MainWindow; $mw->Lable(-text=>"Search for vegetables")->pack; my $veges=$mw->Entry()->pack; $mw->Button(-text=>"Search",-command=>\&search)->pack; sub search{ my $sv=$veges->get();$veges->delete(qw/0 end/); $query="SELECT * FROM vegetables WHERE vegetable LIKE '%$sv%'"; $queryhandle=$connect->prepare($query); $queryhandle->execute; while($queryhandle->fetch()){ $mw->Label(-text=>"Vegetables Found for: $sv")->pack; } } MainLoop;

    I'll go for sleep for now just leave a comment guys i'll back reading it tomorrow! thanks in advance.

problem with hashes, loaded from file
1 direct reply — Read more / Contribute
by igoryonya
on Dec 24, 2014 at 06:20
    I am working as a sysadmin.

    Naturally, I have to deal with a lot of files. One of the tasks, often done, is searching and removing duplicate files.
    One of the console programs, I've been using often to find duplicates is fdupes. It can find duplicates and then ask which files to leave from found duplicate sets or just output the results on the screen, so you can work with the results your own way.
    It's a great program, but it shows duplicate sets in an unordered fasion, without groupping directories, that have several of the duplicate files to other directories. It becomes cumbersome after a while to do it manually, so I've decided to write a point and click interface for it in Tk. On the plus side, is that I've never done gui before, so, I am learning along the way :).
    I've got it to the point, where it's usable now, but not finished yet.

    So, it takes fdupes output, parses it, analyses and builds a representation of duplicate directory trees.
    Some fdupe result files become over 100-200-300Mb, and it takes on different computers 15-20-30min. to parse them.
    I've analysed my code to find bottlenecks and optimized the parsing routine to the point, where it now parses such big files 1-4min, but though, the parsing time got cut down significantly, it's still annoying to wait for 4 minutes to load, so, I've decided to cache the parced result. Now, what took to parse 4 minutes, loads from the cache in 20-30 seconds.

    On smaller cache files, I didn't encounter the problem, but when fdupe's result file is big, I've noticed a problem with loading from cache. The cache is just hash variables, saved to a file. Wnen the program starts, it 'requires' cache as a library, if it exists and skips parsing the result file then. In that case, some keys appear as references to arrays. I've looked inside of generated cache (library) file, but didn't find any problem.

    To troubleshoot this problem, I've decided to test that cache file on a separate script. Here is the script that test opens the cached variables:
    #!/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";
    Here is the cut down version of the generated cache file to show you an example of a structure.
    The complete cache file, where I have a problem:
    http://pharmacy.chukotnet.ru/files/fdupes-gui_chmk-dupes.txt.cache.7z
    When you run the test prog against the cache file from the above url, some keys, especially, it's noticable on the %folders var, become array references, although, in the cache all the keys are scalars. Somehow, some array references from the value side shift to keys, I guess.
    Updated:
    So, I shortened an exmple.
    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/&#1076;&#1083 +;&#1103; &#1057;&#1077;&#1088;&#1080;&#1082;&#1086;&#1074;&#1072; &#1 +040;.&#1042;/SAS_v120808/cache/map/z18/74/x76538/37/'=>[ 'y38062.png', 'y38061.png' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/Buh/&#1056;&#1072;&#1089 +;&#1095;&#1077;&#1090;&#1095;&#1080;&#1082;/'=>[ '&#1044;&#1086;&#1082;&#1091;&#1084;&#1077;&#1085;&#1090;&#1099; & +#1055;&#1059; 5_2010.lnk', '&#1044;&#1086;&#1082;&#1091;&#1084;&#1077;&#1085;&#1090;&#1099; &#105 +5;&#1059; 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/&#1076;&#1083 +;&#1103; &#1057;&#1084;&#1080;&#1088;&#1085;&#1086;&#1074;&#1086;&#10 +81; &#1053;.&#1053;/&#1086;&#1090; &#1053;&#1080;&#1082;&#1086;&#1083 +;&#1072;&#1077;&#1085;&#1082;&#1086; &#1058;.&#1052;/&#1054;&#1090;&# +1076;&#1077;&#1083;&#1077;&#1085;&#1080;&#1077;_&#1087;&#1077;&#1076; +&#1072;&#1075;&#1086;&#1075;&#1080;&#1082;&#1080;/050501_&#1055;&#108 +8;&#1086;&#1092;&#1077;&#1089;&#1089;&#1080;&#1086;&#1085;&#1072;&#10 +83;&#1100;&#1085;&#1086;&#1077;_&#1086;&#1073;&#1091;&#1095;&#1077;&# +1085;&#1080;&#1077;_(&#1087;&#1086; &#1086;&#1090;&#1088;&#1072;&#108 +9;&#1083;&#1103;&#1084;)_&#1043;&#1054;&#1057;/&#1052;&#1077;&#1090;& +#1086;&#1076;._&#1084;&#1072;&#1090;&#1077;&#1088;&#1080;&#1072;&#108 +3;&#1099;/&#1058;&#1072;&#1088;&#1072;&#1085;&#1077;&#1085;&#1082;&#1 +086; &#1056;&#1048;&#1057;&#1059;&#1053;&#1054;&#1050; &#1044;&#1051; +&#1071; 018-03+ &#1047;&#1072;&#1076;&#1072;&#1085;&#1080;&#1103;/&#1 +047;&#1040;&#1044;&#1040;&#1053;&#1048;&#1071;/&#1056;&#1045;&#1041;& +#1059;&#1057;&#1067; &#1052;&#1051;&#1045;&#1050;&#1054;&#1055;&#1048 +;&#1058;/'=>[ '&#1056;&#1045;&#1041;&#1059;&#1057; 2.jpg', '&#1056;&#1045;&#1041; 2 .jpg' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Distrib/E +du/Stamina/Data/'=>[ 'lessons.lt', 'lessons.lv', 'lessons.da' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Distrib/u +nsorted/&#1042;&#1088;&#1077;&#1084;&#1077;&#1085;&#1085;&#1086;/&#10 +57; &#1076;&#1080;&#1089;&#1082;&#1072; D/&#1050;&#1072;&#1088;&#1090 +;&#1072; &#1087;&#1072;&#1084;&#1103;&#1090;&#1080; 2 &#1075;&#1080;& +#1075;&#1072; &#1076;&#1083;&#1103; &#1089;&#1086;&#1083;&#1076;&#107 +2;&#1090;&#1086;&#1074;&#1072;/Sounds/&#1056;&#1072;&#1085;&#1077;&#1 +090;&#1082;&#1080;/&#1051;&#1077;&#1056;&#1072;/'=>[ '&#1083;&#1077;&#1088;&#1072;_&#1082;&#1086;&#1079;&#1083;&#1086;& +#1074;&#1072;_-_&#1088;&#1103;&#1076;&#1086;&#1084;_2c4f2ec6c8e2.mp3' +, '&#1083;&#1077;&#1088;&#1072;_&#1082;&#1086;&#1079;&#1083;&#1086;&#107 +4;&#1072;_-_&#1088;&#1103;&#1076;&#1086;&#1084;_1309842aff23.mp3' ] ); my %info = ( '93688'=>'26884 bytes each:', '58684'=>'79479 bytes each:' ); my %folders = ( '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/&#1076;&#1083 +;&#1103; &#1057;&#1080;&#1089;&#1040;&#1076;&#1084;&#1080;&#1085;&#10 +72;/recover-priyomnaya/recup_dir.2376/'=>[ 'f3484724920.doc', 'f3484724712.doc' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/&#1076;&#1083 +;&#1103; &#1040;&#1084;&#1086;&#1089;&#1086;&#1074;&#1086;&#1081; &#1 +045;.&#1043;/&#1044;&#1086;&#1082;/&#1055;&#1088;&#1086;&#1075;&#1088 +;&#1072;&#1084;&#1084;&#1099; &#1080; &#1050;&#1058;&#1055; &#1042;&# +1086;&#1087;&#1088;&#1086;&#1089;&#1099;/2012-2013/&#1058;&#1080;&#10 +90;&#1091;&#1083;&#1100;&#1085;&#1080;&#1082;&#1080; &#1080; &#1083;& +#1080;&#1090;&#1077;&#1088;&#1072;&#1090;&#1091;&#1088;&#1072;/949-05 +/&#1050;&#1052;/'=>[ '&#1051;&#1080;&#1090;&#1077;&#1088;&#1072;&#1090;&#1091;&#1088;&# +1072;.doc', '&#1056;&#1055; &#1050;&#1052; (&#1060;).doc' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/&#1076;&#1083 +;&#1103; &#1057;&#1080;&#1089;&#1040;&#1076;&#1084;&#1080;&#1085;&#10 +72;/recover-priyomnaya/recup_dir.433/'=>[ 'f1793587968.doc', 'f1793889136.doc', 'f1793885184.doc' ], '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Distrib/u +nsorted/&#1042;&#1088;&#1077;&#1084;&#1077;&#1085;&#1085;&#1086;/&#10 +52;&#1086;&#1080; &#1076;&#1086;&#1082;&#1091;&#1084;&#1077;&#1085;&# +1090;&#1099;/&#1055;&#1072;&#1088;&#1080;&#1082;&#1084;&#1084;&#1072; +&#1093;&#1077;&#1088; 2010-2012 &#1091;&#1095;.&#1075;&#1086;&#1076;/ +&#1057;&#1098;&#1077;&#1084;&#1085;&#1099;&#1081; &#1076;&#1080;&#108 +9;&#1082; (G)/&#1087;&#1072;&#1088;&#1080;&#1082;&#1084;&#1072;&#1093 +;&#1077;&#1088;/&#1074;&#1080;&#1082;&#1090;&#1086;&#1088;&#1080;&#10 +85;&#1072;/pic1-6/pic1/'=>[ '2 (3).JPG', '2 (2).JPG' ] ); my %files = ( '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/&#1076;&#1083 +;&#1103; &#1057;&#1080;&#1089;&#1040;&#1076;&#1084;&#1080;&#1085;&#10 +72;/recover-priyomnaya/recup_dir.2036/f3467715168.doc'=>'71514', '/media/igor/chmk/home/zamutnii/Shared_Folder/0.3.shared/&#1076;&#1083 +;&#1103; &#1057;&#1080;&#1089;&#1040;&#1076;&#1084;&#1080;&#1085;&#10 +72;/recover-priyomnaya/recup_dir.2356/f3483793848.doc'=>'47380'); my %groups = ( '93688'=>[ '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Docs/ +&#1043;&#1072;&#1083;&#1080;&#1085;&#1072; &#1055;&#1072;&#1074;&#108 +3;&#1086;&#1074;&#1085;&#1072;/&#1044;&#1086;&#1082;&#1091;&#1084;&#1 +077;&#1085;&#1090;&#1099;/&#1050;&#1091;&#1079;&#1085;&#1077;&#1094;& +#1086;&#1074;&#1072; &#1043;.&#1055;/&#1053;&#1086;&#1074;&#1072;&#11 +03; &#1087;&#1072;&#1087;&#1082;&#1072;/standard/stddir1/xserver-xorg +-input-all_7.3+19_i386.deb', '/media/igor/chmk/home/zamutnii/Shared_Folder/Administrators/Distrib/D +istr_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/99a36a6da9cc659b +be4e7122a92e66d1/8250final/images/ch06fig06_0.jpg', '/media/igor/chmk/m3/zamutnii/.chmsee/bookshelf/99a36a6da9cc659bbe4e71 +22a92e66d1/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);

Add your question
Title:
Your question:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others browsing the Monastery: (7)
    As of 2014-12-27 02:38 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      Is guessing a good strategy for surviving in the IT business?





      Results (176 votes), past polls