perl.beginners

perl.beginners http://www.nntp.perl.org/group/perl.beginners/ ... Copyright 1998-2013 perl.org Wed, 22 May 2013 15:27:29 +0000 ask@perl.org Re: begining by Shlomi Fish Hi Ray, On Sun, 19 May 2013 17:10:03 +0100 Rahim Fakir <rahim.g.fakir@gmail.com> wrote: > Can someone tell me or give a adress to programs like hello world or > similar, for practice. See: http://perl-begin.org/exercises/ ( Note that http://perl-begin.org/ is a site I happen to maintain. ) > Iam beging practice programming, and bought a book of perl, but i need > program to practice can someone give me a hand. Which book did you buy? For lists of recommended books and tutorials, see: * http://perl-tutorial.org/ * http://perl-begin.org/tutorials/ * http://perl-begin.org/books/ Regards, Shlomi Fish -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ UNIX Fortune Cookies - http://www.shlomifish.org/humour/fortunes/ Tcl is Lisp on drugs. Using strings instead of S‐expressions for closures is Evil with one of those gigantic E’s you can find at the beginning of chapters. Please reply to list if it's a mailing list post - http://shlom.in/reply . http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122899.html Mon, 20 May 2013 08:47:40 +0000 Re: begining by Peter Gordon <HTML><HEAD> <BASEFONT FACE="Arial" SIZE="3" COLOR="#000000"> </HEAD> <BODY> <div>On Sun, 19 May 2013 09:16:33 -0700, John SJ Anderson wrote: </div> <div> &gt;Our FAQ has a list of recommended resources: <a href="http://www.perl.org/learn/faq/beginners.html#books">http://www.perl.org/learn/faq/beginners.html#books</a> </div> <div>Heck, that list is dated.&nbsp; Learning Perl is now in it's 6 th edition. </div> <div>&nbsp;</div> <div>-- </div> <div>Peter Gordon, petergo@netspace.net.au on 05/20/2013 </div> </body></html> http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122898.html Sun, 19 May 2013 20:27:11 +0000 Re: DBD::mysqlPP is giving out of memory exception and ODBC isworking fine. by Ganesh Babu N Dear Shlomi Fish, . Thank you for pointing to the right website I will follow the rules. The above code is only part of the large program. I have posted only the Database related portion only. Regards, Ganesh On Sun, May 19, 2013 at 1:38 PM, Shlomi Fish <shlomif@shlomifish.org> wrote: > Hi Ganesh, > > On Sat, 18 May 2013 20:11:09 +0530 > Ganesh Babu N <nbabuganesh@gmail.com> wrote: > > > $dbh = DBI->connect("dbi:mysqlPP:$dsn;host=$host", $user, $pw, > > {PrintError => 1, RaiseError => 1}); > > if (!$dbh) { > > print "error: connection: $DBI::err\n$DBI::errstr\n$DBI::state\n"; > > } > > $drh = DBI->install_driver("mysqlPP"); > > $ary_ref = $dbh->selectcol_arrayref("SELECT pui,spuid FROM inven WHERE > > dispatchdate=\"0000-00-00\" and dupli is NULL LIMIT 0, 5000", { > > Columns=>[1,2] }); > > %masterdb = @$ary_ref; # build hash from key-value pairs so $hash{$id} => > > name > > $sth = $dbh->prepare("SELECT DISTINCT spuid FROM inven WHERE > > dispatchdate<>\"0000-00-00\" and dupli is NULL LIMIT 0, 1000"); > > $sth->execute(); > > while ( @row = $sth->fetchrow_array ) { > > push(@dspu, "@row\.dat"); > > } > > This code is really bad: > > 1. It lacks "use strict;" and "use warnings;". > > 2. It doesn't throw an exception when "$dbh" is undef. > > 3. It is not properly indented. > > 4. It lacks empty lines between code paragraphs. > > Please fix all those. See the link > http://perl-begin.org/tutorials/bad-elements/ on The Perl Beginners Site, > which > is a site I maintain. > > > > > The above code which uses mysqlPP module is giving our of memory > exception > > and not getting executed. > > Why are you using mysqlPP instead of > https://metacpan.org/release/DBD-mysql ? > > DBD::mysql is asking for mysql.dll in the module folder when we create EXE using PDK which is not present. I am using Activestate Perl > > > > Where as if it uses ODBC connection it is working without any exception. > > > > first query will fetch 3000 records and 2nd query fetches 500 records. it > > may increase in later stages. > > > > $dbh = DBI->connect("dbi:ODBC:$dsn", $user, $pw, > > {PrintError => 1, RaiseError => 1}); > > if (!$dbh) { > > print "error: connection: $DBI::err\n$DBI::errstr\n$DBI::state\n"; > > } > > > > is there any bug in mysqlPP? or am i missing something obvious. > > > > There may be. > > > Please help in resolving this error. > > > > Regards, > > Ganesh > > > Regards, > > Shlomi Fish > > > -- > ----------------------------------------------------------------- > Shlomi Fish http://www.shlomifish.org/ > List of Portability Libraries - http://shlom.in/port-libs > > For every A, Chuck Norris is both A and not-A. > Chuck Norris is freaking everything. > — http://www.shlomifish.org/humour/bits/facts/Chuck-Norris/ > > Please reply to list if it's a mailing list post - http://shlom.in/reply . > > -- > To unsubscribe, e-mail: beginners-unsubscribe@perl.org > For additional commands, e-mail: beginners-help@perl.org > http://learn.perl.org/ > > > http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122897.html Sun, 19 May 2013 17:42:06 +0000 Re: begining by John SJ Anderson On Sun, May 19, 2013 at 9:10 AM, Rahim Fakir <rahim.g.fakir@gmail.com>wrote: > Can someone tell me or give a adress to programs like hello world or > similar, for practice. > Iam beging practice programming, and bought a book of perl, but i need > program to practice can someone give me a hand. > > You haven't really asked much of a clear question there. Perhaps try again? If you've got a book, it should contain some sample programs, ideally in the first chapter. If your book doesn't, you may want to get a better book. Our FAQ has a list of recommended resources: http://www.perl.org/learn/faq/beginners.html#books chrs, john. http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122896.html Sun, 19 May 2013 16:16:44 +0000 begining by Rahim Fakir Can someone tell me or give a adress to programs like hello world or similar, for practice. Iam beging practice programming, and bought a book of perl, but i need program to practice can someone give me a hand. Best Regards Ray http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122895.html Sun, 19 May 2013 16:10:14 +0000 issue with threaded IO::Socket::INET by Chris Knipe Hi All, I have an issue with a small piece of code. I am using IO::Socket::INET to accept client connections from an socket, and then hand the connection off to an newly created thread. As soon as an client disconnects (or interrupts the tcp session), the script will exit completely. No errors, and the application doesn't exist the while loop either (the print after the loop isn't executed). It almost seems that the main thread is killed? my $Queue :shared; # Shared reference to our Queued work my $num_of_threads = 2; # Maximum number of threads to start my @Threads; # An array holding an reference to our threads my $SocketAddress = "198.19.255.11"; my $SocketPort = 2000; # This is the main threads serving the socket connections sub ProcessClient { my ($Client,$Queue) = @_; while ($Client) { my $MessageID = <$Client>; if ($MessageID && length($MessageID) > 8) { $MessageID =~ s/\r?\n$//; my $Result = $Queue->enqueue_and_wait($MessageID); my ($Content) = @$Result; print $Client $Content; } else { print $Client "Invalid Message-ID\n.\n"; } } } # This is the main threads fetching sub ThreadWorking { my ($Queue) = @_; print "Starting Fetcher Thread: " . $$ . "." . threads->tid . "\n"; ... code ommited ... } ### Main Processing Section # Flush buffers after ever write, and setup some other parameters $| = 1; select(STDOUT); setpriority (0,0,20); # Start the main queue and threads $Queue = Thread::Queue::Duplex->new(ListenerRequired => 0, MaxPending => 1024); for my $Count (1 .. $num_of_threads) { my $QueueWorker = threads->create(\&ThreadWorking, $Queue); $QueueWorker->detach(); push (@Threads, $QueueWorker); } print "Waiting for Queue Listeners to become ready...\n"; $Queue->wait_for_listener(); sleep(5); # Start our main listening socket my $Socket = IO::Socket::INET->new(LocalAddress => $SocketAddress, LocalPort => $SocketPort, Proto => "tcp", Type => SOCK_STREAM, Listen => SOMAXCONN, ReuseAddr => 1) or die "Can't create listen socket: $!"; $Socket->autoflush(1); while (1) { my $Client; do { $Client = $Socket->accept(); $Client->autoflush(1); } until (defined($Client)); my $ClientThread = threads->create(\&ProcessClient, $Client, $Queue)->detach; push (@Threads, $ClientThread); print "Connection received from " . $Client->peerhost() . ":" . $Client->peerport() . "\n"; } print "exited while loop\n"; Output: root@netty:/opt/bin# ./threads Starting Fetcher Thread: 17963.1 Waiting for Queue Listeners to become ready... Starting Fetcher Thread: 17963.2 OK: Tread: 17963.001, Time: 1.212, Ready to work OK: Tread: 17963.002, Time: 1.210, Ready to work Connection received from 198.19.255.3:37991 root@NNTPWEB01:/srv/nntp/bin# I've tried various ways to do the while loop, but pretty much everything is showing the same results, which is why I'm thinking more towards that there's an threading issue... I would appreciate any assistance. -- Chris. http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122894.html Sun, 19 May 2013 10:14:21 +0000 Re: DBD::mysqlPP is giving out of memory exception and ODBC isworking fine. by Shlomi Fish Hi Ganesh, On Sat, 18 May 2013 20:11:09 +0530 Ganesh Babu N <nbabuganesh@gmail.com> wrote: > $dbh = DBI->connect("dbi:mysqlPP:$dsn;host=$host", $user, $pw, > {PrintError => 1, RaiseError => 1}); > if (!$dbh) { > print "error: connection: $DBI::err\n$DBI::errstr\n$DBI::state\n"; > } > $drh = DBI->install_driver("mysqlPP"); > $ary_ref = $dbh->selectcol_arrayref("SELECT pui,spuid FROM inven WHERE > dispatchdate=\"0000-00-00\" and dupli is NULL LIMIT 0, 5000", { > Columns=>[1,2] }); > %masterdb = @$ary_ref; # build hash from key-value pairs so $hash{$id} => > name > $sth = $dbh->prepare("SELECT DISTINCT spuid FROM inven WHERE > dispatchdate<>\"0000-00-00\" and dupli is NULL LIMIT 0, 1000"); > $sth->execute(); > while ( @row = $sth->fetchrow_array ) { > push(@dspu, "@row\.dat"); > } This code is really bad: 1. It lacks "use strict;" and "use warnings;". 2. It doesn't throw an exception when "$dbh" is undef. 3. It is not properly indented. 4. It lacks empty lines between code paragraphs. Please fix all those. See the link http://perl-begin.org/tutorials/bad-elements/ on The Perl Beginners Site, which is a site I maintain. > > The above code which uses mysqlPP module is giving our of memory exception > and not getting executed. Why are you using mysqlPP instead of https://metacpan.org/release/DBD-mysql ? > > Where as if it uses ODBC connection it is working without any exception. > > first query will fetch 3000 records and 2nd query fetches 500 records. it > may increase in later stages. > > $dbh = DBI->connect("dbi:ODBC:$dsn", $user, $pw, > {PrintError => 1, RaiseError => 1}); > if (!$dbh) { > print "error: connection: $DBI::err\n$DBI::errstr\n$DBI::state\n"; > } > > is there any bug in mysqlPP? or am i missing something obvious. > There may be. > Please help in resolving this error. > > Regards, > Ganesh Regards, Shlomi Fish -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ List of Portability Libraries - http://shlom.in/port-libs For every A, Chuck Norris is both A and not-A. Chuck Norris is freaking everything. — http://www.shlomifish.org/humour/bits/facts/Chuck-Norris/ Please reply to list if it's a mailing list post - http://shlom.in/reply . http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122893.html Sun, 19 May 2013 08:08:49 +0000 DBD::mysqlPP is giving out of memory exception and ODBC is working fine. by Ganesh Babu N $dbh = DBI->connect("dbi:mysqlPP:$dsn;host=$host", $user, $pw, {PrintError => 1, RaiseError => 1}); if (!$dbh) { print "error: connection: $DBI::err\n$DBI::errstr\n$DBI::state\n"; } $drh = DBI->install_driver("mysqlPP"); $ary_ref = $dbh->selectcol_arrayref("SELECT pui,spuid FROM inven WHERE dispatchdate=\"0000-00-00\" and dupli is NULL LIMIT 0, 5000", { Columns=>[1,2] }); %masterdb = @$ary_ref; # build hash from key-value pairs so $hash{$id} => name $sth = $dbh->prepare("SELECT DISTINCT spuid FROM inven WHERE dispatchdate<>\"0000-00-00\" and dupli is NULL LIMIT 0, 1000"); $sth->execute(); while ( @row = $sth->fetchrow_array ) { push(@dspu, "@row\.dat"); } The above code which uses mysqlPP module is giving our of memory exception and not getting executed. Where as if it uses ODBC connection it is working without any exception. first query will fetch 3000 records and 2nd query fetches 500 records. it may increase in later stages. $dbh = DBI->connect("dbi:ODBC:$dsn", $user, $pw, {PrintError => 1, RaiseError => 1}); if (!$dbh) { print "error: connection: $DBI::err\n$DBI::errstr\n$DBI::state\n"; } is there any bug in mysqlPP? or am i missing something obvious. Please help in resolving this error. Regards, Ganesh http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122892.html Sat, 18 May 2013 14:41:20 +0000 Re: Tell me how to use CGI.pm in table by Masayoshi Fujimoto I really appreciate the advice you gave me. On Sat, 18 May 2013 09:18:52 +0100 timothy adigun <2teezperl@gmail.com> wrote: > Hi Masayoshi, > > On Sat, May 18, 2013 at 12:51 AM, Masayoshi Fujimoto < > m.fujimoto@rocketmail.com> wrote: > > > Hi > > Please help me. > > I can only see Hilary Duff. > > I can not see Taylor Momsen. > > I would like to use table for that. > > How should I do? > > > > ## Here is my script. > > #!/usr/bin/perl > > use Modern::Perl; > > use autodie; > > use CGI; > > > > > > my $q = CGI->new; > > > > my %label = ( > > celeb => 'Who do you fancy? : ', > > ); > > > > my %form = ( > > celeb => $q->radio_group(-name=>'celeb', > > -values=>['Hilary > > Duff','Taylor Momsen'], > > -default=>'Hilary Duff'), > > > > The line above gives a warning message: Odd number of elements in hash > assignment. > > You can re-write that like so: > > my $radio = $q->radio_group( > -name => 'celeb', > -values => [ 'Hilary Duff', 'Taylor Momsen' ], > -default => 'Hilary Duff'); > > my %form = ( > celeb => $radio, > submit => $q->submit, > reset => $q->reset, > ); > > > > say $q->header; > > say $q->start_html; > > say $q->start_form; > > say $q->table( > > $q->Tr([ > > $q->td([$label{celeb},$form{celeb}]), > > $q->td([$form{submit},$form{reset}]), > > ]) > > ); > > say $q->end_form; > > say $q->submit; > > say $q->end_form; > > say $q->end_html; > > > > > > -- > > To unsubscribe, e-mail: beginners-unsubscribe@perl.org > > For additional commands, e-mail: beginners-help@perl.org > > http://learn.perl.org/ > > > > > > > > > -- > Tim http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122891.html Sat, 18 May 2013 12:31:50 +0000 Re: Tell me how to use CGI.pm in table by timothy adigun Hi Masayoshi, On Sat, May 18, 2013 at 12:51 AM, Masayoshi Fujimoto < m.fujimoto@rocketmail.com> wrote: > Hi > Please help me. > I can only see Hilary Duff. > I can not see Taylor Momsen. > I would like to use table for that. > How should I do? > > ## Here is my script. > #!/usr/bin/perl > use Modern::Perl; > use autodie; > use CGI; > > > my $q = CGI->new; > > my %label = ( > celeb => 'Who do you fancy? : ', > ); > > my %form = ( > celeb => $q->radio_group(-name=>'celeb', > -values=>['Hilary > Duff','Taylor Momsen'], > -default=>'Hilary Duff'), > The line above gives a warning message: Odd number of elements in hash assignment. You can re-write that like so: my $radio = $q->radio_group( -name => 'celeb', -values => [ 'Hilary Duff', 'Taylor Momsen' ], -default => 'Hilary Duff'); my %form = ( celeb => $radio, submit => $q->submit, reset => $q->reset, ); > say $q->header; > say $q->start_html; > say $q->start_form; > say $q->table( > $q->Tr([ > $q->td([$label{celeb},$form{celeb}]), > $q->td([$form{submit},$form{reset}]), > ]) > ); > say $q->end_form; > say $q->submit; > say $q->end_form; > say $q->end_html; > > > -- > To unsubscribe, e-mail: beginners-unsubscribe@perl.org > For additional commands, e-mail: beginners-help@perl.org > http://learn.perl.org/ > > > -- Tim http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122890.html Sat, 18 May 2013 08:19:07 +0000 Battling with threaded TCP server by Chris Knipe Hi, I am looking for assistance in programing an TCP Socket server. Effectively, I am looking for a skeleton to do the following: - Server starts up, and starts x amounts of threads (working) - All threads connects to an remote server via TCP and idles, keeping the connections alive (working) - Server starts an listening socket using IO::Socket::INET (working) - Server forks (non-blocking) when an client connects (working) - Client must now give an command, and that command must be passed to the thread queues, to be executed by the thread pool as threads becomes available *whilst the client waits on the socket*. - The thread will respond with content to the client via the socket - Client quits The threads implementation is based on Jerry Hedden's example of thread pooling ( http://cpansearch.perl.org/src/JDHEDDEN/threads-1.86/examples/pool_reuse.pl ). The code via term does -exactly- what I require, and I've had no issues what so ever to amend and change this to work as I require it to do over term. However, I am having significant issues combining this with a socket. I am absolutely sure however that this is something that I am doing wrong, more than likely, the entire application needs to be threaded and therefore re-written from scratch. The basic theory is that there will be x amount of sleeping threads, and the socket will receive more connections than what there is threads. The entire application thus pools connections to retrieve content from remote servers. My IO::Socket::INET has successfully started and is listening, and I fork using print "Server waiting for connections\n"; my $Client; while ($Client = $Socket->accept()) { my $pid; while (not defined ($pid = fork())) { sleep 0.5; } if ($pid) { close($Client); } else { $Client->autoflush(1); close $Socket; &DoClientSocket(); And following Jerry's example code, the threads work by (this is what the client socket would need to execute as far as I can see): # Work loop do { # Indicate that were are ready to do work printf("Idle -> %2d\n", $tid); $IDLE_QUEUE->enqueue($tid); # Wait for work from the queue my $work = $work_q->dequeue(); # If no more work, exit last if ($work < 0); # Do some work while monitoring $TERM printf(" %2d <- Working\n", $tid); while (($work > 0) && ! $TERM) { $work -= sleep($work); } # Loop back to idle state if not told to terminate } while (! $TERM); But I am really at a loss as to how to integrate the two. The sub used by IO::Socket::INET (even if passing the variables and hash refs as parameters, i.e. &ClientSocket(\%work_queues, $tid)) does not successfully pass any work to the thread pool, and the thread pool also seems to be 'idling' rather than checking and processing work given to it. I believe this is because IO::Socket::INET waits for client connections, and does not give the thread pool time to look for and do it's queued work as well. Can anyone please assist a semi newbie? I need this to work relatively urgently and I would prefer to rather take this off list and spend half an hour or an hour with an individual able to assist (just don't want to sit here spamming the lists). At this stage, I'm even willing to pay if that's what it needs to come down to... Many thanks, Chris. http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122889.html Sat, 18 May 2013 07:53:56 +0000 Re: What does $$ mean ? by *Shaji Kalidasan* Dr. Ruud, Thank you very much for your kind explanation. The pointers you suggested is very handy in understanding the complex data structures.   best, Shaji ------------------------------------------------------------------------------- Your talent is God's gift to you. What you do with it is your gift back to God. ------------------------------------------------------------------------------- ________________________________ From: Dr.Ruud <rvtol+usenet@isolution.nl> To: beginners@perl.org Sent: Friday, 17 May 2013 6:17 PM Subject: Re: What does $$ mean ? On 17/05/2013 14:39, *Shaji Kalidasan* wrote: > [CODE1] > keys %{$$disk_type_ref{$pool}}; > [/CODE1] > > Moreover, what does $$ mean here   %{$$disk_type_ref{$pool}}; can also be written as   %{ $disk_type_ref->{ $pool } }; See further perldsc. > ------------------------------------------------------------------------------- > Your talent is God's gift to you. What you do with it is your gift back > to God. > ------------------------------------------------------------------------------- https://www.facebook.com/pages/David-Bowie-is-GOD/133491090062327 -- Ruud -- To unsubscribe, e-mail: beginners-unsubscribe@perl.org For additional commands, e-mail: beginners-help@perl.org http://learn.perl.org/ http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122888.html Sat, 18 May 2013 04:53:04 +0000 Tell me how to use CGI.pm in table by Masayoshi Fujimoto Hi Please help me. I can only see Hilary Duff. I can not see Taylor Momsen. I would like to use table for that. How should I do? ## Here is my script. #!/usr/bin/perl use Modern::Perl; use autodie; use CGI; my $q = CGI->new; my %label = ( celeb => 'Who do you fancy? : ', ); my %form = ( celeb => $q->radio_group(-name=>'celeb', -values=>['Hilary Duff','Taylor Momsen'], -default=>'Hilary Duff'), submit => $q->submit, reset => $q->reset, ); say $q->header; say $q->start_html; say $q->start_form; say $q->table( $q->Tr([ $q->td([$label{celeb},$form{celeb}]), $q->td([$form{submit},$form{reset}]), ]) ); say $q->end_form; say $q->submit; say $q->end_form; say $q->end_html; http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122887.html Fri, 17 May 2013 23:51:40 +0000 RE: What does $$ mean ? by Frank K. Gosh, I always thought "$$" is what you have to pay when you get a divorce <vbg>.. flk k -----Original Message----- From: Dr.Ruud [mailto:rvtol+usenet@isolution.nl] Sent: Friday, May 17, 2013 7:47 AM To: beginners@perl.org Subject: Re: What does $$ mean ? On 17/05/2013 14:39, *Shaji Kalidasan* wrote: > [CODE1] > keys %{$$disk_type_ref{$pool}}; > [/CODE1] > > Moreover, what does $$ mean here %{$$disk_type_ref{$pool}}; can also be written as %{ $disk_type_ref->{ $pool } }; See further perldsc. > ---------------------------------------------------------------------- > --------- Your talent is God's gift to you. What you do with it is > your gift back to God. > ---------------------------------------------------------------------- > --------- https://www.facebook.com/pages/David-Bowie-is-GOD/133491090062327 -- Ruud -- To unsubscribe, e-mail: beginners-unsubscribe@perl.org For additional commands, e-mail: beginners-help@perl.org http://learn.perl.org/ http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122886.html Fri, 17 May 2013 14:03:23 +0000 Re: What does $$ mean ? by Dr.Ruud On 17/05/2013 14:39, *Shaji Kalidasan* wrote: > [CODE1] > keys %{$$disk_type_ref{$pool}}; > [/CODE1] > > Moreover, what does $$ mean here %{$$disk_type_ref{$pool}}; can also be written as %{ $disk_type_ref->{ $pool } }; See further perldsc. > ------------------------------------------------------------------------------- > Your talent is God's gift to you. What you do with it is your gift back > to God. > ------------------------------------------------------------------------------- https://www.facebook.com/pages/David-Bowie-is-GOD/133491090062327 -- Ruud http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122885.html Fri, 17 May 2013 12:47:31 +0000 What does $$ mean ? by *Shaji Kalidasan* Greetings, What does this mean [CODE1] keys %{$$disk_type_ref{$pool}}; [/CODE1] Moreover, what does $$ mean here [CODE2] @{$$disk_type_ref{$pool}{$med_value}} [/CODE2] What data structures does the above things denote? Any pointers will be of great help. Thanking you in advance. best, Shaji ------------------------------------------------------------------------------- Your talent is God's gift to you. What you do with it is your gift back to God. ------------------------------------------------------------------------------- http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122884.html Fri, 17 May 2013 12:39:27 +0000 Re: map problems by Natxo Asenjo On Thu, May 16, 2013 at 11:14 PM, Jim Gibson <jimsgibson@gmail.com> wrote: > The * in (.*) is "greedy", meaning the Perl regular expression engine will > try to match as much as possible in each string after it finds the > substring 'cn='. To make it "non-greedy", put a question mark after the > quantifier: s/^cn=(.*?),/$1/ > > yes, I had forgotten that. Thanks for your kind explanation. -- groet, natxo http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122883.html Thu, 16 May 2013 21:32:13 +0000 Re: map problems by Peter Gordon <HTML><HEAD> <BASEFONT FACE="Arial" SIZE="3" COLOR="#000000"> </HEAD> <BODY> <div>On Thu, 16 May 2013 21:57:55 +0200, Natxo Asenjo wrote: </div> <div>&gt;in a ldap script where I get a list of values of a multivalued &gt;attribute like this: </div> <div>&nbsp;</div> <div>&gt;@memberof = qw( cn=group1,cn=xxx,dc=domain,dc=tld &gt;cn=group2,cn=xxx,d=domain,dc=tld etc etc) ; </div> <div>&nbsp;</div> <div>&gt;I would like to use map to convert the list of elements to </div> <div>&gt;@memberof = qw( group1 group2 group3 etc etc ) </div> <div> I'm not clear on what you are trying to achieve.&nbsp; Your problem is probably in the RE.&nbsp; The comma in your RE is greedy. </div> <div>A &quot;?&quot; within the brackets makes it non greedy.&nbsp; Read </div> <div><a href="http://www.itworld.com/nl/perl/01112001">http://www.itworld.com/nl/perl/01112001</a> </div> <div>for a good explanation of this subject. </div> <div>The code below illustrates the difference. </div> <div>&nbsp;</div> <div>#!/usr/bin/perl -w </div> <div>use 5.14.0; </div> <div>my $str = &quot;cn=group1,cn=xxx,dc=domain,dc=tld cn=group2,cn=xxx,d=domain,dc=tld&quot;; </div> <div>$str =~ /^cn=(.*),.*/; </div> <div>say $1; </div> <div>$str =~ /^cn=(.*?),.*/; </div> <div>say $1; </div> <div>__END__ </div> <div>*** Output *** </div> <div>group1,cn=xxx,dc=domain,dc=tld cn=group2,cn=xxx,d=domain </div> <div>group1 </div> <div>-- </div> <div>Peter Gordon, petergo@netspace.net.au on 05/17/2013 </div> </body></html> http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122882.html Thu, 16 May 2013 21:28:18 +0000 Re: map problems by timothy adigun Hi Natxo, Please see my comment below: On Thu, May 16, 2013 at 8:57 PM, Natxo Asenjo <natxo.asenjo@gmail.com>wrote: > hi, > > in a ldap script where I get a list of values of a multivalued attribute > like this: > > @memberof = qw( cn=group1,cn=xxx,dc=domain,dc=tld > cn=group2,cn=xxx,d=domain,dc=tld etc etc) ; > Since you use "qw", there is no need to still separate the element of your array with comma. > > I would like to use map to convert the list of elements to > @memberof = qw( group1 group2 group3 etc etc ) > Does etc etc here mean words like group...? > > This is the code I have tried to capture the first string after the first > '=' in the $1 variable > > @memberof = map { s/^cn=(.*),.*$/$1/g; $_ } @memberof; > for ( @memberof ) { > print "[$_]" . " " ; > } > > but this snippet strangely cuts the start and the end of every array > element beginning and end so I get this: > > [group1,cn=xxx,dc=domain] [group2,cn=xxxx,dc=domain] > > so it is obviously not working. Is there a way to do this with map or do I > just have to process the array in a for loop and fill a new array with the > values? Just curious > Understanding for/foreach loop could help in a way to understand and use map function. Please see below one of the way of doing what you intended: [CODE] use warnings; use strict; my @memberof = qw( cn=group1 cn=xxx dc=domain dc=tld cn=group2 cn=xxx d=domain dc=tld etc etc); ## using for loop for my $grp (@memberof) { if ( $grp =~ m/(?<=\=)(.+)/ ) { my $matched = $1; print $matched, $/ if $matched =~ /group/; } } ## use map function @memberof = map { if (/(?<=\=)(.+)/) { my $matched = $1; $matched, $/ if $matched =~ /group/; } } @memberof; print @memberof; [/CODE] Hope this helps. > > TIA, > -- > Groeten, > natxo > -- Tim http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122881.html Thu, 16 May 2013 21:27:21 +0000 Re: map problems by Jim Gibson On May 16, 2013, at 12:57 PM, Natxo Asenjo wrote: > hi, > > in a ldap script where I get a list of values of a multivalued attribute like this: > > @memberof = qw( cn=group1,cn=xxx,dc=domain,dc=tld cn=group2,cn=xxx,d=domain,dc=tld etc etc) ; > > I would like to use map to convert the list of elements to > @memberof = qw( group1 group2 group3 etc etc ) > > This is the code I have tried to capture the first string after the first '=' in the $1 variable > > @memberof = map { s/^cn=(.*),.*$/$1/g; $_ } @memberof; > for ( @memberof ) { > print "[$_]" . " " ; > } > > but this snippet strangely cuts the start and the end of every array element beginning and end so I get this: > > [group1,cn=xxx,dc=domain] [group2,cn=xxxx,dc=domain] > > so it is obviously not working. Is there a way to do this with map or do I just have to process the array in a for loop and fill a new array with the values? Just curious The * in (.*) is "greedy", meaning the Perl regular expression engine will try to match as much as possible in each string after it finds the substring 'cn='. To make it "non-greedy", put a question mark after the quantifier: s/^cn=(.*?),/$1/ Note that the '.*$' characters ending your pattern are completely superfluous and will not affect the match or substitution in any way. Another way to achieve the same results is to match all non-comma characters up to the first comma: s/^cn=([^,]*),/$1/ Also note that since $_ inside the map block is an alias to the array members, you are modifying the array members in place, and you do not need to assign the result to the original array. Since using map in void context can be confusing, many Perl programmers would write it this way: s/^cn=([^,]*),/$1/ for @memberof; Since I wouldn't normally want to modify the original array, I might do it this way, taking advantage of the fact that the match operator (m//) in list context returns a list of the captured matches, so no substitution is required: my @newmemberof = map { m/^cn=([^,]*),/g } @memberof; http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122880.html Thu, 16 May 2013 21:14:47 +0000 map problems by Natxo Asenjo hi, in a ldap script where I get a list of values of a multivalued attribute like this: @memberof = qw( cn=group1,cn=xxx,dc=domain,dc=tld cn=group2,cn=xxx,d=domain,dc=tld etc etc) ; I would like to use map to convert the list of elements to @memberof = qw( group1 group2 group3 etc etc ) This is the code I have tried to capture the first string after the first '=' in the $1 variable @memberof = map { s/^cn=(.*),.*$/$1/g; $_ } @memberof; for ( @memberof ) { print "[$_]" . " " ; } but this snippet strangely cuts the start and the end of every array element beginning and end so I get this: [group1,cn=xxx,dc=domain] [group2,cn=xxxx,dc=domain] so it is obviously not working. Is there a way to do this with map or do I just have to process the array in a for loop and fill a new array with the values? Just curious TIA, -- Groeten, natxo http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122879.html Thu, 16 May 2013 19:58:11 +0000 Re: what's the problem with a system call by Manuel Reimer Shlomi Fish wrote: > What system() does (at least on UNIX-like OSes) is fork a child, call exec() > with a new process and wait for the new child to terminate (plus some other > stuff to get rid of misbehaviours). ... and if you call "system" with just one long string, then Perl opens the system default shell between your script and the external application, you wanted to start. So wherever possible you should prefer to use: system('somecommand', '--param1=somevalue', '--anotherparam'); and not: system('somecommand --param1=somevalue --anotherparam'); The first one opens *two* processes (the shell and "somecommand") while the second only opens one process and passes the arguments directly without any shell in between. Yours Manuel http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122878.html Thu, 16 May 2013 15:50:18 +0000 Re: Spreadsheet::WriteExcel - multi-coloured text in cells by Dr.Ruud On 15/05/2013 21:35, David Precious wrote: > On Wed, 15 May 2013 10:34:02 +0100 > Gary Stainburn <gary.stainburn@ringways.co.uk> wrote: >> Is it possible to write text cells where part of the string is >> highlighted in red? If so, how can I do it? > > I'm fairly sure the format of a cell applies to the whole content of > that cell - can you do what you're asking for in Excel or similar > yourself? If not, then I very much doubt you can do it via > Spreadsheet::WriteExcel. There is cell formatting and there is text formatting. Each character can basically have its own background-color, foreground-color, font, font-weight, etc. And beyond that, each cell can contain an object, like a Word-document. But you don't need to go there to achieve what you want. First find out how you would do it in its internal language (VB?), and then port that. -- Ruud http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122877.html Thu, 16 May 2013 11:27:33 +0000 Re: module versions by shawn wilson On Wed, May 15, 2013 at 4:13 PM, Ron Bergin <rkb@i.frys.com> wrote: > shawn wilson wrote: >> I asked this in #perl-help and was told that by the time perl checked >> the version, the module was already loaded - is there a way to check >> the version without completely loading the module so that when one >> failed, I could move on to another module of the same name whose >> version might succeed? >> > > Why not specify the minimum version number that your script requires in > the use statement? If that version is not available, then what's the > point of going forward? > See my test case - I do have a minimum version. The point in going forward is that the minimum version IS met further along the path. > If you don't want to do that, then you could use Module::Load::Conditional > to test if the desired version is loadable. > > http://search.cpan.org/~bingos/Module-Load-Conditional-0.54/lib/Module/Load/Conditional.pm > That module might work if I manually cycle through single paths in @INC and test. Though I'm not sure about the side effects of doing this might be? http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122876.html Wed, 15 May 2013 20:47:50 +0000 Re: module versions by Ron Bergin shawn wilson wrote: > I asked this in #perl-help and was told that by the time perl checked > the version, the module was already loaded - is there a way to check > the version without completely loading the module so that when one > failed, I could move on to another module of the same name whose > version might succeed? > Why not specify the minimum version number that your script requires in the use statement? If that version is not available, then what's the point of going forward? If you don't want to do that, then you could use Module::Load::Conditional to test if the desired version is loadable. http://search.cpan.org/~bingos/Module-Load-Conditional-0.54/lib/Module/Load/Conditional.pm -- Ron Bergin http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122875.html Wed, 15 May 2013 20:13:54 +0000 Re: module versions by Peter Eztta How about using ExtUtils::MakeMaker or Module::Build and checking for the required version at build time? I suppose this doesn't address the desire to use a different version if the one you're looking for isn't present though... Regards, Peter H. Ezetta On Wed, May 15, 2013 at 12:55:25PM -0700, shawn wilson wrote: > On Wed, May 15, 2013 at 3:28 PM, Octavian Rasnita <orasnita@gmail.com> wrote: > > From: "shawn wilson" <ag4ve.us@gmail.com> > > > > > > > >> I asked this in #perl-help and was told that by the time perl checked > >> the version, the module was already loaded - is there a way to check > >> the version without completely loading the module so that when one > >> failed, I could move on to another module of the same name whose > >> version might succeed? > >> > >> I attached a tar file with a test, let me know if nothing is seen. > >> > > > > > > > This check is usually done at development time. > > Is there a reason you can't check which version of the modules you need are > > working with your code when you create the app? > > > > No, I suppose i can just do perl -Ilib for development and the like. > However, not checking that there is a satisfactory module version > anywhere along the namespace seems to make things more brittle than > they nead to be (and it's annoying me :) ). > > -- > To unsubscribe, e-mail: beginners-unsubscribe@perl.org > For additional commands, e-mail: beginners-help@perl.org > http://learn.perl.org/ > > Confidentiality Notice: This e-mail may contain proprietary information some of which may be legally privileged. It is for the intended recipient(s) only. If you believe that it has been sent to you in error, please notify the sender by reply e-mail and delete the message. Any disclosure, copying, distribution or use of this information by someone other than the intended recipient(s) is prohibited and may be unlawful. http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122874.html Wed, 15 May 2013 20:00:44 +0000 Re: module versions by shawn wilson On Wed, May 15, 2013 at 3:28 PM, Octavian Rasnita <orasnita@gmail.com> wrote: > From: "shawn wilson" <ag4ve.us@gmail.com> > > > >> I asked this in #perl-help and was told that by the time perl checked >> the version, the module was already loaded - is there a way to check >> the version without completely loading the module so that when one >> failed, I could move on to another module of the same name whose >> version might succeed? >> >> I attached a tar file with a test, let me know if nothing is seen. >> > > > This check is usually done at development time. > Is there a reason you can't check which version of the modules you need are > working with your code when you create the app? > No, I suppose i can just do perl -Ilib for development and the like. However, not checking that there is a satisfactory module version anywhere along the namespace seems to make things more brittle than they nead to be (and it's annoying me :) ). http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122873.html Wed, 15 May 2013 19:55:59 +0000 Re: Spreadsheet::WriteExcel - multi-coloured text in cells by David Precious On Wed, 15 May 2013 10:34:02 +0100 Gary Stainburn <gary.stainburn@ringways.co.uk> wrote: > Is it possible to write text cells where part of the string is > highlighted in red? If so, how can I do it? I'm fairly sure the format of a cell applies to the whole content of that cell - can you do what you're asking for in Excel or similar yourself? If not, then I very much doubt you can do it via Spreadsheet::WriteExcel. -- David Precious ("bigpresh") <davidp@preshweb.co.uk> http://www.preshweb.co.uk/ www.preshweb.co.uk/twitter www.preshweb.co.uk/linkedin www.preshweb.co.uk/facebook www.preshweb.co.uk/cpan www.preshweb.co.uk/github http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122872.html Wed, 15 May 2013 19:35:33 +0000 Re: module versions by Octavian Rasnita From: "shawn wilson" <ag4ve.us@gmail.com> >I asked this in #perl-help and was told that by the time perl checked > the version, the module was already loaded - is there a way to check > the version without completely loading the module so that when one > failed, I could move on to another module of the same name whose > version might succeed? > > I attached a tar file with a test, let me know if nothing is seen. > -------------------------------------------------------------------------------- > -- This check is usually done at development time. Is there a reason you can't check which version of the modules you need are working with your code when you create the app? Octavian http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122871.html Wed, 15 May 2013 19:29:12 +0000 module versions by shawn wilson I asked this in #perl-help and was told that by the time perl checked the version, the module was already loaded - is there a way to check the version without completely loading the module so that when one failed, I could move on to another module of the same name whose version might succeed? I attached a tar file with a test, let me know if nothing is seen. http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122870.html Wed, 15 May 2013 15:57:30 +0000 Spreadsheet::WriteExcel - multi-coloured text in cells by Gary Stainburn Hi folks Is it possible to write text cells where part of the string is highlighted in red? If so, how can I do it? Gary http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122869.html Wed, 15 May 2013 09:34:24 +0000 Re: How do I update CPAN? by Peter Eztta From within the CPAN shell (i.e. issue the cpan command from the commandline) issue the two commands listed below: install CPAN Once that's done reload CPAN The rest should happen automagically for you. Thanks, Peter H. Ezetta On Tue, May 14, 2013 at 03:05:59PM -0700, Sherman Willden wrote: > I received the below message. Now what? I am not familiar with install. > > Thank you; > > Sherman > > Fetching with HTTP::Tiny: > http://httpupdate35.cpanel.net/CPAN/modules/02packages.details.txt.gz > Reading '/home/sherman/.cpan/sources/modules/02packages.details.txt.gz' > Database was generated on Tue, 14 May 2013 21:41:05 GMT > HTTP::Date not available > .............. > New CPAN.pm version (v2.00) available. > [Currently running version is v1.9800] > You might want to try > install CPAN > reload cpan > to both upgrade CPAN.pm and run the new version without leaving > the current session. Confidentiality Notice: This e-mail may contain proprietary information some of which may be legally privileged. It is for the intended recipient(s) only. If you believe that it has been sent to you in error, please notify the sender by reply e-mail and delete the message. Any disclosure, copying, distribution or use of this information by someone other than the intended recipient(s) is prohibited and may be unlawful. http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122868.html Tue, 14 May 2013 22:13:31 +0000 How do I update CPAN? by Sherman Willden I received the below message. Now what? I am not familiar with install. Thank you; Sherman Fetching with HTTP::Tiny: http://httpupdate35.cpanel.net/CPAN/modules/02packages.details.txt.gz Reading '/home/sherman/.cpan/sources/modules/02packages.details.txt.gz' Database was generated on Tue, 14 May 2013 21:41:05 GMT HTTP::Date not available .............. New CPAN.pm version (v2.00) available. [Currently running version is v1.9800] You might want to try install CPAN reload cpan to both upgrade CPAN.pm and run the new version without leaving the current session. http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122867.html Tue, 14 May 2013 22:06:11 +0000 Re: what's the problem with a system call by Shlomi Fish Hi xiaolan, On Tue, 14 May 2013 18:51:51 +0800 xiaolan <practicalperl@gmail.com> wrote: > Thanks all the answers. > Shlomi long time no see :) Yes. :-) I am available on IM: http://www.shlomifish.org/me/contact-me/ > > Have another question that, what's the difference between the system call > child process and the native forked child process? > Does the child process of system call have the problems of receiving > signals from the parent? What system() does (at least on UNIX-like OSes) is fork a child, call exec() with a new process and wait for the new child to terminate (plus some other stuff to get rid of misbehaviours). A child process can still get a signal from every process of that user or that belongs to the user root (including the parent process, but not exclusively). Regards, Shlomi Fish > > > > > On Tue, May 14, 2013 at 5:16 PM, Shlomi Fish <shlomif@shlomifish.org> wrote: > > > Hi Brian, > > > > thanks for replying well to xiaolan’s question. > > > > Regards, > > > > Shlomi Fish > > > > -- > > ----------------------------------------------------------------- > > Shlomi Fish http://www.shlomifish.org/ > > My Public Domain Photos - http://www.flickr.com/photos/shlomif/ > > > > 95% of Programmers consider 95% of the code they did not write, in the > > bottom > > 5%. > > > > Please reply to list if it's a mailing list post - http://shlom.in/reply . > > > > -- > > To unsubscribe, e-mail: beginners-unsubscribe@perl.org > > For additional commands, e-mail: beginners-help@perl.org > > http://learn.perl.org/ > > > > > > -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ Interview with Ben Collins-Sussman - http://shlom.in/sussman Where they have burned books, they will end in burning human beings. — http://en.wikiquote.org/wiki/Heinrich_Heine Please reply to list if it's a mailing list post - http://shlom.in/reply . http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122866.html Tue, 14 May 2013 13:27:46 +0000 Re: what's the problem with a system call by xiaolan Thanks all the answers. Shlomi long time no see :) Have another question that, what's the difference between the system call child process and the native forked child process? Does the child process of system call have the problems of receiving signals from the parent? On Tue, May 14, 2013 at 5:16 PM, Shlomi Fish <shlomif@shlomifish.org> wrote: > Hi Brian, > > thanks for replying well to xiaolan’s question. > > Regards, > > Shlomi Fish > > -- > ----------------------------------------------------------------- > Shlomi Fish http://www.shlomifish.org/ > My Public Domain Photos - http://www.flickr.com/photos/shlomif/ > > 95% of Programmers consider 95% of the code they did not write, in the > bottom > 5%. > > Please reply to list if it's a mailing list post - http://shlom.in/reply . > > -- > To unsubscribe, e-mail: beginners-unsubscribe@perl.org > For additional commands, e-mail: beginners-help@perl.org > http://learn.perl.org/ > > > http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122865.html Tue, 14 May 2013 10:52:03 +0000 Re: what's the problem with a system call by Shlomi Fish Hi Brian, thanks for replying well to xiaolan’s question. Regards, Shlomi Fish -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ My Public Domain Photos - http://www.flickr.com/photos/shlomif/ 95% of Programmers consider 95% of the code they did not write, in the bottom 5%. Please reply to list if it's a mailing list post - http://shlom.in/reply . http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122864.html Tue, 14 May 2013 09:16:49 +0000 Re: what's the problem with a system call by Brian Fraser On Tue, May 14, 2013 at 12:35 AM, xiaolan <practicalperl@gmail.com> wrote: > Hello, > > what's the disadvantage when calling a system command from Perl? > i.e, system call to "rsync" rather than using the File::Rsync module. > is it hard to control the signals between the caller process and the > called system command? > The only real disadvantage is portability, perhaps speed (e.g. PerlIO::gzip is faster than calling gzip itself, and if you're shelling out multiple times, it'll generally be slower than simply using a module). Additionally, if you're passing user-provided arguments to the outside command and aren't doing things "properly", that is, you aren't using IPC::Cmd, IPC::Run, or multi-arg open, you have a potential security hole in your program. But if what you're doing doesn't gain any advantages from increased portability or security, there's nothing wrong with calling a system command. http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122863.html Tue, 14 May 2013 07:00:10 +0000 Re: what's the problem with a system call by Luca Ferrari On Tue, May 14, 2013 at 5:35 AM, xiaolan <practicalperl@gmail.com> wrote: > Hello, > > what's the disadvantage when calling a system command from Perl? > i.e, system call to "rsync" rather than using the File::Rsync module. > is it hard to control the signals between the caller process and the called > system command? Well, usually using a module you have access to several things in a Perl way, like for instance to the arguments to pass to the command as an hash or an array. instead of a string. Moreover, the perl module could have some workarounds to provide you better portability. Luca http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122862.html Tue, 14 May 2013 06:15:17 +0000 what's the problem with a system call by xiaolan Hello, what's the disadvantage when calling a system command from Perl? i.e, system call to "rsync" rather than using the File::Rsync module. is it hard to control the signals between the caller process and the called system command? Thanks. http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122861.html Tue, 14 May 2013 03:35:57 +0000 Re: script dies when Net::DNS resolve fails by Dr.Ruud On 13/05/2013 18:08, David Precious wrote: > The usual way to catch exceptions is with an eval block or Try::Tiny > etc. > > Basic example: > > my $source_address = eval { $res->query(....); }; > > if ($@) { > # an error occurred - $@ will contain the message > # do something appropriate here > } Testing $@ is basically always wrong, because it is a global variable that can have changed value. A rewrite: my $source_address; eval { $source_address = $res->query(....); 1; # success } or do { my $eval_error = $@ || 'Zombie Error'; ...; }; -- Ruud http://www.nntp.perl.org/group/perl.beginners/2013/05/msg122860.html Mon, 13 May 2013 19:02:32 +0000