Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
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
Ignore a range of numbers ina List
2 direct replies — Read more / Contribute
by pr33
on Jun 24, 2017 at 23:05

    Hello Monks,

    Within a list , I want to ignore a section of numbers that start with 6 and extending to the 7 My code below does that only for the first set of numbers . I am trying to splice the array on the copy and not original array But looks like the loop ends before it can read the next 6 in the list . Not looking for any grep or regex solution for this task .

    #!/usr/bin/perl use warnings; use strict; use Data::Dumper; ######## my $aref = [1, 6, 2, 2, 7, 1, 6, 99, 99, 7]; my $flag = 0; my $i = 1; my $sixindex = 0; my @copy = @$aref; if (scalar(@$aref) >= 2) { foreach my $x (0..$#{$aref}) { if (defined($aref->[$x])) { if ($aref->[$x] == 6) { $flag = 1; $sixindex = $x; next; } if ($flag) { unless ($aref->[$x] == 7) { $i++; next; } elsif ($aref->[$x] == 7 ) { splice(@copy, $sixindex, $i + 1); $flag = 0; $i = 1; $sixindex = 0; next; } } } } } print Dumper \@copy;
    ./ignore_6_to_7.pl $VAR1 = [ 1, 1, 6, 99, 99, 7 ];
    Result Expected [1, 1] by deleting all the numbers in the list starting with 6 and unt +il it finds the first available 7 .
Problem install Tk on CentOs using Perl 5.26
1 direct reply — Read more / Contribute
by dabella12
on Jun 24, 2017 at 09:34
    Hello monks i'm having a problem install Tk , my system is CentOs 6.4 32bit and I am running perl 5.26 this ist the message i'm getting

    Running make test "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Tk.bs blib/arch/auto/Tk/Tk.bs 644 cd pTk && make DEFINE="" LIBPERL_A="libperl.a" LINKTYPE="dynamic" OPTIMIZE="-O2" PREFIX="/usr/local" PASTHRU_DEFINE=' ' PASTHRU_INC=' ' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/pTk' make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/pTk' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/pTk' make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/pTk' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/pod' Manifying 50 pod documents Manifying 52 pod documents make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/pod' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/demos' Manifying 1 pod document Manifying 2 pod documents make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/demos' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Xlib' make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Xlib/X' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- X.bs ../../blib/arch/auto/Tk/X/X.bs 644 make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Xlib/X' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Xlib.bs ../blib/arch/auto/Tk/Xlib/Xlib.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Xlib' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/WinPhoto' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- WinPhoto.bs ../blib/arch/auto/Tk/WinPhoto/WinPhoto.bs 644 Manifying 1 pod document make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/WinPhoto' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Tixish' make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Tixish' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/TixPixmap' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Pixmap.bs ../blib/arch/auto/Tk/Pixmap/Pixmap.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/TixPixmap' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/TixGrid' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- TixGrid.bs ../blib/arch/auto/Tk/TixGrid/TixGrid.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/TixGrid' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/TextList' Manifying 1 pod document make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/TextList' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Text' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Text.bs ../blib/arch/auto/Tk/Text/Text.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Text' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/TList' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- TList.bs ../blib/arch/auto/Tk/TList/TList.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/TList' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Scrollbar' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Scrollbar.bs ../blib/arch/auto/Tk/Scrollbar/Scrollbar.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Scrollbar' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Scale' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Scale.bs ../blib/arch/auto/Tk/Scale/Scale.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Scale' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG' cd zlib && make libz.a "CC=cc -fPIC" RANLIB=":" make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/zlib' make2: `libz.a' is up to date. make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/zlib' make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/libpng' make2: Nothing to be done for `all'. make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/libpng' make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/zlib' make2: Nothing to be done for `all'. make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/zlib' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- PNG.bs ../blib/arch/auto/Tk/PNG/PNG.bs 644 Manifying 1 pod document make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/NBFrame' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- NBFrame.bs ../blib/arch/auto/Tk/NBFrame/NBFrame.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/NBFrame' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Mwm' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Mwm.bs ../blib/arch/auto/Tk/Mwm/Mwm.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Mwm' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Menubutton' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Menubutton.bs ../blib/arch/auto/Tk/Menubutton/Menubutton.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Menubutton' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Listbox' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Listbox.bs ../blib/arch/auto/Tk/Listbox/Listbox.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Listbox' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/JPEG' cd jpeg && make libjpeg.a make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/JPEG/jpeg' make2: `libjpeg.a' is up to date. make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/JPEG/jpeg' make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/JPEG/jpeg' make2: Nothing to be done for `all'. make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/JPEG/jpeg' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- JPEG.bs ../blib/arch/auto/Tk/JPEG/JPEG.bs 644 Manifying 1 pod document Manifying 1 pod document make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/JPEG' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/InputO' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- InputO.bs ../blib/arch/auto/Tk/InputO/InputO.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/InputO' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/IO' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- IO.bs ../blib/arch/auto/Tk/IO/IO.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/IO' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/HList' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- HList.bs ../blib/arch/auto/Tk/HList/HList.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/HList' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Event' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Event.bs ../blib/arch/auto/Tk/Event/Event.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Event' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Entry' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Entry.bs ../blib/arch/auto/Tk/Entry/Entry.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Entry' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/DragDrop' Manifying 3 pod documents make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/DragDrop' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Compound' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Compound.bs ../blib/arch/auto/Tk/Compound/Compound.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Compound' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/Canvas' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Canvas.bs ../blib/arch/auto/Tk/Canvas/Canvas.bs 644 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/Canvas' make1: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG' "/usr/local/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- PNG.bs ../blib/arch/auto/Tk/PNG/PNG.bs 644 cd zlib && make libz.a "CC=cc -fPIC" RANLIB=":" make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/zlib' make2: `libz.a' is up to date. make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/zlib' make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/libpng' make2: Nothing to be done for `all'. make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/libpng' make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/zlib' make2: Nothing to be done for `all'. make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/zlib' make2: Entering directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/libpng' make2: *** No rule to make target `test_dynamic'. Stop. make2: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG/libpng' make1: *** subdirs-test_dynamic Error 2 make1: Leaving directory `/home/dabella/.cpan/build/Tk-804.033-1/PNG' make: *** subdirs-test_dynamic Error 2 SREZIC/Tk-804.033.tar.gz /usr/bin/make test -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports SREZIC/Tk-804.033.tar.gz Failed during this command: SREZIC/Tk-804.033.tar.gz : make_test NO

    ny help will be appreciated
Match all Non-0 and Letters
5 direct replies — Read more / Contribute
by arblargan
on Jun 24, 2017 at 03:05

    I'm relatively new to Perl and am having a terribly difficult time figuring this one out. I'm expecting a string in the following format:

     00000001

    Essentially, a normal word will be 7 0's followed by a number between 0-9 (8-digits total). However, occasionally there is corruption in the file being processed, causing the format to have something like the following:

     FFFFFFFF or  6C163512

    I want to skip these lines of corruption and loop until the corruption has been passed. This is where the tricky part comes in (at least for me). I have tried every combination of matching I can think of, but can't seem to get this one squared away. Below are the lines of code I have tried:

    $Disc = get_word(); $D1 = substr($Disc,0,7); $D2 = substr($Disc,7,1); if ($D1 !~ /0+/ and $D2 !~ /([0-9]+)/) ##Catches FFFFFFFF just fine, b +ut not 6C163512 #### $D1 = 6C16351 and $D2 = 2 ###Get words until corruption is cleared. Works great with FFFFFFF +F, but will not catch 6C163512 if ($D1 !~ /0000000/ and $D2 !~ /\D/) ## Same as above ###Get words until corruption is cleared. Works great with FFFFFFF +F, but will not catch 6C163512 if ($Disc =~ /[1-9a-ZA-Z]{7}\D/ ## Same as above ###Get words until corruption is cleared. Works great with FFFFFFF +F, but will not catch 6C163512

    I've been working on this forever and can't seem to figure out how to dynamically catch this corruption in the event that all F's have migrated from the string word. I created the $D1 and $D2 variables to try and see why the regex patterns weren't matching, but I still can't figure it out.

    Lastly, it should be noted that occasionally, the line of corruption will show as 01020102. The corruption value will be dynamic. This is why I simply can't use /\D+/ for the majority of the string as the first 7 digits must be 0 for a valid word.

Splice an array into another array
4 direct replies — Read more / Contribute
by Smeb
on Jun 23, 2017 at 18:30

    Hi guys,

    As the title says, what I wanted to do is take one DNA file and put it into an array, do the same to a second DNA file and then insert one of the files somewhere in the other.

    I have 2 files, DNA3 and DNA4

    The content within the DNA3 file is: ATCGC

    The content within the DNA4 file is: AAATTGC

    What I want to do is to insert DNA4 into position #1 in DNA3, so the result would look like this: AAAATTGCTCGC

    Currently my code looks like this:

    #!/usr/bin/perl -w $DNA3file = 'testDNA3'; open(DNA3handle, $DNA3file); @DNA3 = <DNA3handle>; $DNA4file = 'testDNA4'; open(DNA4handle, $DNA4file); @DNA4 = <DNA4handle>; splice (@DNA3, 1, 0, @DNA4); print @DNA3, "\n"; exit;

    However, what is displayed really puzzled me:

    ATCGC

    AAATTGC

    *Note, in my complier there isn't the space in between the output*

    For the life of me I can't figure out what is wrong, I can run the above operation fine if I manually insert the DNA sequences into an array, but for large DNA set that is simply not possible. Really appreciate any help here, thanks for your time!

Generate a report for every month for a year
2 direct replies — Read more / Contribute
by younggrasshopper13
on Jun 23, 2017 at 16:10
    Hey guys! I have a perl script that I use generate billing reports that gets ran and emailed every month via cronjob to report on some metrics. The perl script runs fine (I originally got this working because of some help from the wonderful monks!) For security reasons I cannot post the script itself but I can post how the current date filter works:
    y $START_DATE = `date '+%Y-%m-%d' -d "-1 month"`; my $END_DATE = `date '+%Y-%m-%d'`; chomp $START_DATE; chomp $END_DATE; my $URL = "http://url/url/url/dump?end_date=$END_DATE&start_date=$STAR +T_DATE&type=csv";
    What I need to do is setup this script to generate a monthly report every month for past 2 years. Is there any easy way to do this with the $START_DATE and $END_DATE? Can anyone help me do this?
Wide character in subroutine entry using encode_qp
1 direct reply — Read more / Contribute
by rumburak
on Jun 23, 2017 at 13:21
    use strict; use warnings; use utf8; use MIME::QuotedPrint; binmode STDOUT, ":encoding(UTF-8)"; my $str = "a\x{201E}z"; #my $str = "az"; #my $str = "a\x{201C}z"; #my $str = "a\x{03C9}z"; #my $str = "az"; #works print $str, "\n"; my $str_q = encode_qp($str); print $str_q, "\n";

    gives me this error message / faulty output:

    az Wide character in subroutine entry at ./x.pl line 18.

    Only the fifth version of $str is working.... Can anyone tell me what is going here? (It is perl 5.24.1.)

Issue with regex
2 direct replies — Read more / Contribute
by shounak mukherjee
on Jun 23, 2017 at 11:47
    Hello Experts, I am new to perl programming and facing a few issues related to perl regular expressions. I need to apply a condition logic only if my $filename is something like: $filename =._foo.xml #Any file that starts with ._" For such files,I need to overlook the content of the file. while( ($fileName = readdir(DIR))) { next if ($fileName eq "^\._.*"); However I think this regular expresion is not able to filter the filenames based on the criteria. I shall be highly obliged if anyone can please help.
Architecture design for full stack development.
4 direct replies — Read more / Contribute
by SimonClinch
on Jun 23, 2017 at 10:42
    Hi Monks, I am developing a website from scratch which will hopefully have plenty of activity some time in the future after it goes live. Although I am still developing it on Windows, I will migrate it to Linux/Apache, with Perl and Postgres completing the rest of the picture before and after migration. I am inclined to avoid PHP for performance reasons.

    While loading the database with some initial reference data (about 1GB), using one-off code that got fixed as I went along, I somehow managed to "lose" some PK values, because sequences do not roll back if accessed with nextval.

    But it occurred to me that when the system goes live, it will need to manage deleted values. Although I was careful to use bigint for PK values where necessary, I don't want to have the situation where the PK values stay fragmented and increase fragmentation over time.

    It was at this point that I realised I needed DBIx::Class, otherwise I would have layers of raw SQL hiding in any homegrown DBMS/Perl framework and that had to be avoided at all costs.

    So I am at the point where I have installed DBIx class and feel obliged to determine the rest of the architecture (MVC perhaps) and at the same level of detail, before writing any methods to dynamically defrag my keys (probably through use of an idpool table/class where inserters will look before calling nextval if nothing is in the pool for the table).

    It becomes clear that the defrag code belongs in the "Controller" part of the framework. But having never built a Controller before, I am hoping for advice on what the classes should look like in there, e.g. should I have a dbController class that uses methods in DBIx. Should it inherit from the Schema and/or should I have some kind of parent-of-all utility class? I am keen to make a good choice now rather than have to make fundamental architecture mods later. Many thanks in advance,

    Simon

    One world, one people

strings to json
5 direct replies — Read more / Contribute
by bigup401
on Jun 23, 2017 at 09:26

    how can i read string into json output

    $name = 'mike'; $age = "20"; $email = "johndeo@/test.com"; $pass = "test"; $resp = '{ "$name": $age, "$email": $pass }'; print $resp;
get specific value of element using xpath in perl
1 direct reply — Read more / Contribute
by snehit.ar
on Jun 23, 2017 at 08:48
    <?xml version="1.0"?> <playlist> <movie id="tt0112384"> <title>Apollo 13</title> <director>Ron Howard</director> <release-date>1995-06-30</release-date> </movie> <movie id="tt0307479"> <title>Solaris</title> <director>Steven Soderbergh</director> <release-date>2002-11-27</release-date> </movie> <movie id="tt1731141"> <title>Ender's Game</title> <director>Gavin Hood</director> <release-date>2013-11-01</release-date> </movie> </playlist>
    I want to retrieve value of <release-date> element where <title> having value 'Solaris' and not other title elements.
    use warnings; use strict; use XML::XPath; use Data::Dumper; my $xml = '../events.xml'; my $xp = XML::XPath->new(filename => $xml); my $nodeset = $xp->findnodes('//playlist'); my $records = []; foreach my $node ($nodeset->get_nodelist) { my $title = $xp->find('./title', $node); push @$records, { title => $title->string_value, }; } print Dumper($records);
    I tired XPath something like  my $title= $xp->find("/playlist/movie[title='Solaris']/release-date", $node); But result is not as expected OutPut ::2002-11-27 Please do help !

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!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • 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
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            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 all is quiet...

    How do I use this? | Other CB clients
    Other Users?
    Others lurking in the Monastery: (4)
    As of 2017-06-25 04:00 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?
      How many monitors do you use while coding?















      Results (564 votes). Check out past polls.