60 PerlMonks - Newest Nodes New nodes appearing on PerlMonks http://perlmonks.org/index.pl?node_id=30175 http://blogs.law.harvard.edu/tech/rss PerlMonks Newest Nodes XML Generator 961 PerlMonks 2016-02-10 03:38:16 rss,clean Tue Feb 9 16:38:16 2016 30 20160209163816 Tue Feb 9 16:38:16 2016 http://perlmonks.org/ Anonymous Monk How to find all the elements in a circular linked list punitpawar http://perlmonks.org/index.pl?node_id=1154785 Hello , I wanted to know if there is a way in perl to iterate a circular linked list and capture all the elements in it . so if I have a list like 2->4->5->4->6->2->7->8-><a href="?node=2">2</a> , where afte... perlquestion Tue, 09 Feb 2016 23:55:39 +0000 http://perlmonks.org/index.pl?node_id=1154785 1154785 982694 2016-02-09 18:55:39 punitpawar Accumulate values for each data field JobC http://perlmonks.org/index.pl?node_id=1154777 I have some CSV data like this: textbox84,textbox95,textbox94,textbox85,textbox86,textbox92,Textbox17,Textbox18 1,1,ea,"456.321.07","TRAY, BOTTOM, 66#47L-20503",2/9/2... perlquestion Tue, 09 Feb 2016 22:03:44 +0000 http://perlmonks.org/index.pl?node_id=1154777 1154777 1149702 2016-02-09 17:03:44 JobC Re: How to find all the elements in a circular linked list Athanasius http://perlmonks.org/index.pl?node_id=1154793 Hello <a href="?node=punitpawar">punitpawar</a>, The problem is with this line: last unless ($curr->{next} == $head); First, the logic is back-to-front: you want to break out of the loop... note Wed, 10 Feb 2016 03:32:42 +0000 http://perlmonks.org/index.pl?node_id=1154793 1154793 968231 2016-02-09 22:32:42 Athanasius Re^7: Find your own monastery: "Perl 6" is not Perl, and Perl is not a Dinosaur Anonymous Monk http://perlmonks.org/index.pl?node_id=1154792 ... YOUR logo is an extinct animal ... you can keep repeating it, that isn't the logo... note Wed, 10 Feb 2016 02:39:07 +0000 http://perlmonks.org/index.pl?node_id=1154792 1154792 961 2016-02-09 21:39:07 Anonymous Monk Re^3: Accumulate values for each data field Cristoforo http://perlmonks.org/index.pl?node_id=1154791 Is this output what you need? 1,6,ea,456.321.07,"TRAY, BOTTOM, 66#47L-20503",2/9/2016 2,6,ea,456.321.12,"TRAY, TOP, 66#51R-20507",2/9/2016 3,1,ea,456.321.15,"TUBE, TALL, 66#15CR-21862",2/9/2... note Wed, 10 Feb 2016 02:24:16 +0000 http://perlmonks.org/index.pl?node_id=1154791 1154791 421781 2016-02-09 21:24:16 Cristoforo Re: How to find all the elements in a circular linked list GrandFather http://perlmonks.org/index.pl?node_id=1154790 Show us the real data structure that would contain the sample data you provided. Also (and maybe more importantly), tell us why you need a circular linked list. Perl's arrays and array handling mea... note Wed, 10 Feb 2016 01:05:51 +0000 http://perlmonks.org/index.pl?node_id=1154790 1154790 461912 2016-02-09 20:05:51 GrandFather Re: Automate multi-perl unit testing with Perlbrew/Berrybrew stevieb http://perlmonks.org/index.pl?node_id=1154789 Input regarding how the module would function, and what it would do is greatly appreciated. I'm already thinking commanding remote systems, hooks to various VCS for automation etc.... note Wed, 10 Feb 2016 01:00:06 +0000 http://perlmonks.org/index.pl?node_id=1154789 1154789 789891 2016-02-09 20:00:06 stevieb Re^3: Accumulate values for each data field GrandFather http://perlmonks.org/index.pl?node_id=1154788 Read <a href="?node=I%20know%20what%20I%20mean.%20Why%20don%27t%20you%3F">I know what I mean. Why don&#39;t you?</a>. We don't want the whole thing, just like we don't want all the data. We want to see just the code you are having trouble with wrapped up in to tiny test f... note Wed, 10 Feb 2016 00:59:52 +0000 http://perlmonks.org/index.pl?node_id=1154788 1154788 461912 2016-02-09 19:59:52 GrandFather Re^2: Accumulate values for each data field JobC http://perlmonks.org/index.pl?node_id=1154787 Very Nice! Actually, I need to output the entire data line, but that would be a start. I will try to make a better example. There are 400 lines of code that need to be paired down, and I thought I ... note Wed, 10 Feb 2016 00:37:17 +0000 http://perlmonks.org/index.pl?node_id=1154787 1154787 1149702 2016-02-09 19:37:17 JobC Re^2: Accumulate values for each data field JobC http://perlmonks.org/index.pl?node_id=1154786 Hmmm, I did it this way because much of what I am doing to the data it not pertinent to this problem. I can see what you mean about showing and not telling. I'll see what I can come up with, thanks... note Wed, 10 Feb 2016 00:07:23 +0000 http://perlmonks.org/index.pl?node_id=1154786 1154786 1149702 2016-02-09 19:07:23 JobC Re^2: Tiobe language index RonW http://perlmonks.org/index.pl?node_id=1154784 While I agree that Perl6 is a different language from Perl5, Perl5's version id* reinforces the idea that it is the 5th major version of Perl. That then encourages the idea that Perl6 is the 6th ma... note Tue, 09 Feb 2016 23:29:01 +0000 http://perlmonks.org/index.pl?node_id=1154784 1154784 1080444 2016-02-09 18:29:01 RonW Re: How to encode apostrophe and quote using XML::Writer? LonelyPilgrim http://perlmonks.org/index.pl?node_id=1154783 It seems to work for me -- as far as I understand what you're asking. I took your code, commented out your placeholder substitutions, and ran it, and it outputs an XML file with the apostrophes and qu... note Tue, 09 Feb 2016 23:28:14 +0000 http://perlmonks.org/index.pl?node_id=1154783 1154783 953595 2016-02-09 18:28:14 LonelyPilgrim Re: Accumulate values for each data field NetWallah http://perlmonks.org/index.pl?node_id=1154782 Something like this ? (The code is as clear as your specifications) >perl -anF, -e "$x{$F<a href="?node=3">3</a>}+=$F<a href="?node=1">1</a> if $F<a href="?node=1">1</a>=~/^\d+/}{print qq|$x{$_}\t$_\n| for sort keys %x" data1.txt 2 "456.123.... note Tue, 09 Feb 2016 23:28:06 +0000 http://perlmonks.org/index.pl?node_id=1154782 1154782 159887 2016-02-09 18:28:06 NetWallah Re^4: OpenSSL and Crypt::CBC don't give the same ciphertext (binmode always) LonelyPilgrim http://perlmonks.org/index.pl?node_id=1154781 The binmode can't hurt, and makes the code more portable. It makes explicit that this is binary data we are dealing with and we don't want anybody monkeying with our bytes. I do run Perl on Windows ma... note Tue, 09 Feb 2016 23:01:07 +0000 http://perlmonks.org/index.pl?node_id=1154781 1154781 953595 2016-02-09 18:01:07 LonelyPilgrim Re: Accumulate values for each data field GrandFather http://perlmonks.org/index.pl?node_id=1154780 So take 1/10th of your sample data, append it to a test script in the __DATA__ section and show us what you are currently doing. Show us (not tell us) what output you get and what output you want.... note Tue, 09 Feb 2016 22:37:34 +0000 http://perlmonks.org/index.pl?node_id=1154780 1154780 461912 2016-02-09 17:37:34 GrandFather Re: Can't install PDF::API2 on Windows 10 syphilis http://perlmonks.org/index.pl?node_id=1154779 I use the command cpan PDF::API2 in a DOS window running as administrator Does it make any difference if you run as user ? Cheers,Rob... note Tue, 09 Feb 2016 22:09:05 +0000 http://perlmonks.org/index.pl?node_id=1154779 1154779 524150 2016-02-09 17:09:05 syphilis Re^3: poll ideas quest 2016 chacham http://perlmonks.org/index.pl?node_id=1154778 At first i thought you meant it depends. Then the obvious hit me. :) I added both.... note Tue, 09 Feb 2016 22:05:17 +0000 http://perlmonks.org/index.pl?node_id=1154778 1154778 934209 2016-02-09 17:05:17 chacham Re^2: Populating a html template problem mavericknik http://perlmonks.org/index.pl?node_id=1154776 That works perfectly, thank you very much! Cant believe I didnt think of using 2 variables in the template.... note Tue, 09 Feb 2016 21:42:54 +0000 http://perlmonks.org/index.pl?node_id=1154776 1154776 1122943 2016-02-09 16:42:54 mavericknik