From NetArtTodd at gmail.com Mon Apr 2 14:47:49 2012 From: NetArtTodd at gmail.com (Todd Hamilton) Date: Mon, 2 Apr 2012 21:47:49 +0000 (UTC) Subject: [Omaha.pm] Invitation to connect on LinkedIn Message-ID: <944267283.18021872.1333403269945.JavaMail.app@ela4-app0131.prod> LinkedIn ------------ Perl, I'd like to add you to my professional network on LinkedIn. - Todd Todd Hamilton Business Intelligence Analyst at Children's Hospital & Medical Center Greater Omaha Area Confirm that you know Todd Hamilton: https://www.linkedin.com/e/5p2yo5-h0k1vnsm-1a/isd/6528847453/W-k8hMb_/?hs=false&tok=35d_6lpQQr6Bc1 -- You are receiving Invitation to Connect emails. Click to unsubscribe: http://www.linkedin.com/e/5p2yo5-h0k1vnsm-1a/Xq66t4mzLWYwO14hoItY20Bi6E/goo/omaha-pm%40pm%2Eorg/20061/I2264505960_1/?hs=false&tok=3hxhnVqZ0r6Bc1 (c) 2012 LinkedIn Corporation. 2029 Stierlin Ct, Mountain View, CA 94043, USA. -------------- next part -------------- An HTML attachment was scrubbed... URL: From jay.hannah at iinteractive.com Mon Apr 9 14:29:43 2012 From: jay.hannah at iinteractive.com (Jay Hannah) Date: Mon, 9 Apr 2012 16:29:43 -0500 Subject: [Omaha.pm] TIOBE : C overtakes Java as the No.1 programming language Message-ID: <32E73FF3-02F3-49EA-B3C8-B6047ED39EB7@iinteractive.com> http://pixelstech.net/article/index.php?id=1333969280 "Other interesting moves this month are the entrances of Visual FoxPro (#42), Scala (#45) and Alice (#48) in the top 50. Out are good old programming languages Eiffel, PL/I and Tcl." Perl lost its single-digit status! Bummer! :) Jay Hannah Project Lead / Programmer http://www.iinteractive.com Email: jay.hannah at iinteractive.com AOL IM: deafferret Mobile: 1.402.598.7782 Fax: 1.402.691.9496 From andy at petdance.com Mon Apr 9 14:35:36 2012 From: andy at petdance.com (Andy Lester) Date: Mon, 9 Apr 2012 16:35:36 -0500 Subject: [Omaha.pm] [odynug] TIOBE : C overtakes Java as the No.1 programming language In-Reply-To: <32E73FF3-02F3-49EA-B3C8-B6047ED39EB7@iinteractive.com> References: <32E73FF3-02F3-49EA-B3C8-B6047ED39EB7@iinteractive.com> Message-ID: <49042FC4-0207-4C04-916D-ED3F76751E18@petdance.com> On Apr 9, 2012, at 4:29 PM, Jay Hannah wrote: > Perl lost its single-digit status! Bummer! :) But TIOBE doesn't mean anything. C is not the "No. 1 programming language." All that TIOBE measures is how many times different languages appear in documents on the web. That's it. You can't reasonably conclude that TIOBE has any sort of indication to a language's popularity in the world. xoa -- Andy Lester => andy at petdance.com => www.petdance.com => AIM:petdance -------------- next part -------------- An HTML attachment was scrubbed... URL: From dan at linder.org Mon Apr 9 18:34:56 2012 From: dan at linder.org (Dan Linder) Date: Mon, 9 Apr 2012 20:34:56 -0500 Subject: [Omaha.pm] [OMG] where do i join In-Reply-To: References: <7999919.2340.1333836635443.JavaMail.geo-discussion-forums@ynee1> <5292341.13.1333889505575.JavaMail.geo-discussion-forums@ynee1> Message-ID: Sam, Sam Flint wrote: > and i use what some people > might consider way too much perl, > I too am a Perl junkie - to satisfy your perl programming discussion needs, join the Omaha Perl Mongers mailinglist: omaha-pm at pm.org Dan -- ***************** ************* *********** ******* ***** *** ** "Quis custodiet ipsos custodes?" (Who can watch the watchmen?) -- from the Satires of Juvenal "I do not fear computers, I fear the lack of them." -- Isaac Asimov (Author) ** *** ***** ******* *********** ************* ***************** -------------- next part -------------- An HTML attachment was scrubbed... URL: From david.loyall at the-good-guys.net Mon Apr 9 13:47:49 2012 From: david.loyall at the-good-guys.net (David Loyall) Date: Mon, 9 Apr 2012 15:47:49 -0500 Subject: [Omaha.pm] [odynug] Meeting cancelled - See you Apr 10! In-Reply-To: <8D9441D8-662D-45A7-97FF-99165CD70235@iinteractive.com> References: <8D9441D8-662D-45A7-97FF-99165CD70235@iinteractive.com> Message-ID: Update: as things turned out, I ended up working with Common Lisp on the App Engine, instead of Clojure. So, the title of the presentation will be "First Experiences with Common Lisp on the Google App Engine" instead. I hope that this is acceptable! Cheers, thanks, --Dave Loyall On Tue, Mar 13, 2012 at 11:36 AM, Jay Hannah wrote: > This month's meeting (tonight) has been cancelled. > > On Mar 10, 2012, at 10:46 PM, David Loyall wrote: >> You can put me down for the April meeting, though. >> Presentation title: "Some guy's first experiences with Clojure on Google App Engine". > > Fantastic! I put you down for April 10th! Thanks! See you then! ?:) > > ? http://odlug.org > > Thanks, > > Jay Hannah > Project Lead / Programmer > http://www.iinteractive.com > Email: jay.hannah at iinteractive.com > AOL IM: deafferret > Mobile: 1.402.598.7782 > Fax: 1.402.691.9496 > > > > > > -- > You received this message because you are subscribed to the Google Groups "Omaha Dynamic Language User Group" group. > To post to this group, send email to odynug at googlegroups.com. > To unsubscribe from this group, send email to odynug+unsubscribe at googlegroups.com. > For more options, visit this group at http://groups.google.com/group/odynug?hl=en. > From harmonicnm7h at gmail.com Mon Apr 9 18:37:06 2012 From: harmonicnm7h at gmail.com (Sam Flint) Date: Mon, 9 Apr 2012 20:37:06 -0500 Subject: [Omaha.pm] [OMG] where do i join In-Reply-To: References: <7999919.2340.1333836635443.JavaMail.geo-discussion-forums@ynee1> <5292341.13.1333889505575.JavaMail.geo-discussion-forums@ynee1> Message-ID: i'm already part of that, along with the oluglist if anyone cares to mention that 2012/4/9 Dan Linder : > Sam, > > Sam Flint wrote: >> >> and i use what some people >> might consider way too much perl, > > > I too am a Perl junkie - to satisfy your perl programming discussion needs, > join the Omaha Perl Mongers mailinglist: ?omaha-pm at pm.org > > Dan > > -- > ***************** ************* *********** ******* ***** *** ** > "Quis custodiet ipsos custodes?" > ? ? (Who can watch the watchmen?) > ? ? -- from the Satires of Juvenal > "I do not fear computers, I fear the lack of them." > ? ? -- Isaac Asimov (Author) > ** *** ***** ******* *********** ************* ***************** > > _______________________________________________ > Omaha-pm mailing list > Omaha-pm at pm.org > http://mail.pm.org/mailman/listinfo/omaha-pm -- Sam Flint flintfam.org/~swflint From jay at jays.net Mon Apr 9 19:58:41 2012 From: jay at jays.net (Jay Hannah) Date: Mon, 9 Apr 2012 21:58:41 -0500 Subject: [Omaha.pm] Meeting tomorrow night, 7pm In-Reply-To: References: <8D9441D8-662D-45A7-97FF-99165CD70235@iinteractive.com> Message-ID: <4A02D563-A2A6-42AA-B0BD-C1465495CD19@jays.net> On Apr 9, 2012, at 3:47 PM, David Loyall wrote: > Update: as things turned out, I ended up working with Common Lisp on > the App Engine, instead of Clojure. > > So, the title of the presentation will be "First Experiences with > Common Lisp on the Google App Engine" instead. > > I hope that this is acceptable! Very! Thanks! See everyone tomorrow night! http://odlug.org/ j From jay at jays.net Mon Apr 9 20:44:24 2012 From: jay at jays.net (Jay Hannah) Date: Mon, 9 Apr 2012 22:44:24 -0500 Subject: [Omaha.pm] Fwd: April- parking permit passes References: Message-ID: <9757022E-4703-4F33-B12C-BE8E58054E6D@jays.net> Please print and leave on your dashboard. I'll bring a few extra in case you forget. :) j -------------- next part -------------- An HTML attachment was scrubbed... URL: -------------- next part -------------- A non-text attachment was scrubbed... Name: April ePermit PKI UDLUG 3-13-12.pdf Type: application/pdf Size: 27581 bytes Desc: not available URL: -------------- next part -------------- An HTML attachment was scrubbed... URL: From jay at jays.net Tue Apr 10 15:34:27 2012 From: jay at jays.net (Jay Hannah) Date: Tue, 10 Apr 2012 17:34:27 -0500 Subject: [Omaha.pm] Pizza pickup at 6:40 - See you at 7! Message-ID: <0B698708-4AEB-4A8C-AEC2-4554AFB32716@jays.net> See you at 7pm! http://tracker.dominos.com/tracker/surfwithtracker/index.html?store=6112&id=611283406673 http://odlug.org j From dan at linder.org Wed Apr 11 14:15:57 2012 From: dan at linder.org (Dan Linder) Date: Wed, 11 Apr 2012 16:15:57 -0500 Subject: [Omaha.pm] Making a PDF with Perl... Message-ID: I'd like to see if anyone has ever worked with the PDF modules for Perl? Specifically, I'm looking to print a ruler (something like here: http://www.vendian.org/mncharity/dir3/paper_rulers/ ), but I need to adjust the spacing between ticks and put in my own numbers for the new marks. Most (all?) of the examples I've found are concentrating on placing blocks of text and a couple images on the page. What I need is a way to precisely place tic marks and text next to them every so often. Any hints or code snippets? I had hoped someone would have made a generic ruler printing page, but haven't found that yet. Dan My use? I'm printing a custom timing tape for my 350 V8 - as luck would have it, each degree is 2mm on this flywheel. My first attempt was to print a blank cm/mm ruler, then hand print the degree numbers. I'd like something a bit more professional looking - possibly have it printed onto a brass/aluminum tape that could be affixed to the engine. -- ***************** ************* *********** ******* ***** *** ** "Quis custodiet ipsos custodes?" (Who can watch the watchmen?) -- from the Satires of Juvenal "I do not fear computers, I fear the lack of them." -- Isaac Asimov (Author) ** *** ***** ******* *********** ************* ***************** -------------- next part -------------- An HTML attachment was scrubbed... URL: From iceburn at dangerzone.com Wed Apr 11 16:19:53 2012 From: iceburn at dangerzone.com (Tim) Date: Wed, 11 Apr 2012 19:19:53 -0400 Subject: [Omaha.pm] Making a PDF with Perl... In-Reply-To: References: Message-ID: not 100% sure this meets your precision requirements... -tim #for Dan, 2012 use PDF::API2 qw(); #perhaps the best documentation for PDF::API2 is #http://pdfapi2.sourceforge.net/pdfapi2_for_fun_and_profit_APW2005.pdf $pdf=PDF::API2->new; $pdf->mediabox('A4'); $page=$pdf->page; $gfx=$page->gfx; $gfx->linewidth(1); $gfx->strokecolor('black'); my $x = 100; my $tick = 10; my $spacing = 20; $gfx->move($x,50); $gfx->line($x,800); $gfx->stroke; for(my $y=50; $y<=800; $y+=$spacing){ $gfx->move($x,$y); $gfx->line($x+$tick,$y); $gfx->stroke; } $pdf->saveas('DansRuler.pdf'); On Wed, Apr 11, 2012 at 5:15 PM, Dan Linder wrote: > I'd like to see if anyone has ever worked with the PDF modules for Perl? > ?Specifically, I'm looking to print a ruler (something like here: > http://www.vendian.org/mncharity/dir3/paper_rulers/?), but I need to adjust > the spacing between ticks and put in my own numbers for the new marks. > > Most (all?) of the examples I've found are concentrating on placing blocks > of text and a couple images on the page. ?What I need is a way to precisely > place tic marks and text next to them every so often. > > Any hints or code snippets? ? I had hoped someone would have made a generic > ruler printing page, but haven't found that yet. > > Dan > > My use? I'm printing a custom timing tape for my 350 V8 - as luck would have > it, each degree is 2mm on this flywheel. ?My first attempt was to print a > blank cm/mm ruler, then hand print the degree numbers. ?I'd like something a > bit more professional looking - possibly have it printed onto a > brass/aluminum?tape that could be?affixed?to the engine. > > -- > ***************** ************* *********** ******* ***** *** ** > "Quis custodiet ipsos custodes?" > ? ? (Who can watch the watchmen?) > ? ? -- from the Satires of Juvenal > "I do not fear computers, I fear the lack of them." > ? ? -- Isaac Asimov (Author) > ** *** ***** ******* *********** ************* ***************** > > _______________________________________________ > Omaha-pm mailing list > Omaha-pm at pm.org > http://mail.pm.org/mailman/listinfo/omaha-pm From jay.hannah at iinteractive.com Fri Apr 13 10:27:46 2012 From: jay.hannah at iinteractive.com (Jay Hannah) Date: Fri, 13 Apr 2012 12:27:46 -0500 Subject: [Omaha.pm] Explaining Web Programming via Plack Message-ID: <52A024D6-F183-4D15-8602-B8913B8BECF9@iinteractive.com> http://blogs.perl.org/users/ovid/2012/04/explaining-web-programming-via-plack.html :) j ----- Plack 'Hello World': my $app = sub { return [ 200, [ 'Content-Type' => 'text/plain' ], [ 'Hello World' ] ]; }; From dan at linder.org Fri Apr 13 18:08:38 2012 From: dan at linder.org (Dan Linder) Date: Fri, 13 Apr 2012 20:08:38 -0500 Subject: [Omaha.pm] Making a PDF with Perl... In-Reply-To: References: Message-ID: Thanks Tim, looks like a start. Question: * Is the 20 value in $spacing a mm or cm? Is there a way to change the PDF x/y coordinates into another unit (mm, picas, inches, nanometers, etc) (I didn't print the resulting PDF yet, so I could measure...) Dan On Wed, Apr 11, 2012 at 18:19, Tim wrote: > not 100% sure this meets your precision requirements... > > -tim > > #for Dan, 2012 > > use PDF::API2 qw(); > #perhaps the best documentation for PDF::API2 is > #http://pdfapi2.sourceforge.net/pdfapi2_for_fun_and_profit_APW2005.pdf > > $pdf=PDF::API2->new; > > $pdf->mediabox('A4'); > $page=$pdf->page; > $gfx=$page->gfx; > $gfx->linewidth(1); > $gfx->strokecolor('black'); > > my $x = 100; > my $tick = 10; > my $spacing = 20; > > $gfx->move($x,50); > $gfx->line($x,800); > $gfx->stroke; > > for(my $y=50; $y<=800; $y+=$spacing){ > $gfx->move($x,$y); > $gfx->line($x+$tick,$y); > $gfx->stroke; > } > > $pdf->saveas('DansRuler.pdf'); > > On Wed, Apr 11, 2012 at 5:15 PM, Dan Linder wrote: > > I'd like to see if anyone has ever worked with the PDF modules for Perl? > > Specifically, I'm looking to print a ruler (something like here: > > http://www.vendian.org/mncharity/dir3/paper_rulers/ ), but I need to > adjust > > the spacing between ticks and put in my own numbers for the new marks. > > > > Most (all?) of the examples I've found are concentrating on placing > blocks > > of text and a couple images on the page. What I need is a way to > precisely > > place tic marks and text next to them every so often. > > > > Any hints or code snippets? I had hoped someone would have made a > generic > > ruler printing page, but haven't found that yet. > > > > Dan > > > > My use? I'm printing a custom timing tape for my 350 V8 - as luck would > have > > it, each degree is 2mm on this flywheel. My first attempt was to print a > > blank cm/mm ruler, then hand print the degree numbers. I'd like > something a > > bit more professional looking - possibly have it printed onto a > > brass/aluminum tape that could be affixed to the engine. > > > > -- > > ***************** ************* *********** ******* ***** *** ** > > "Quis custodiet ipsos custodes?" > > (Who can watch the watchmen?) > > -- from the Satires of Juvenal > > "I do not fear computers, I fear the lack of them." > > -- Isaac Asimov (Author) > > ** *** ***** ******* *********** ************* ***************** > > > > _______________________________________________ > > Omaha-pm mailing list > > Omaha-pm at pm.org > > http://mail.pm.org/mailman/listinfo/omaha-pm > _______________________________________________ > Omaha-pm mailing list > Omaha-pm at pm.org > http://mail.pm.org/mailman/listinfo/omaha-pm -- ***************** ************* *********** ******* ***** *** ** "Quis custodiet ipsos custodes?" (Who can watch the watchmen?) -- from the Satires of Juvenal "I do not fear computers, I fear the lack of them." -- Isaac Asimov (Author) ** *** ***** ******* *********** ************* ***************** -------------- next part -------------- An HTML attachment was scrubbed... URL: From jay.hannah at iinteractive.com Tue Apr 17 10:04:36 2012 From: jay.hannah at iinteractive.com (Jay Hannah) Date: Tue, 17 Apr 2012 12:04:36 -0500 Subject: [Omaha.pm] Unity game engine at upcoming meeting? Message-ID: <4BB77D71-7C8C-4092-93C8-3BC5996A71AE@iinteractive.com> If you'd like to see the Unity game engine at an upcoming meeting http://unity3d.com/ And you're hep to Twitter, help me harass Lucas into presenting at an upcoming meeting! :) https://twitter.com/#!/deafferret/status/192292936577331200 Thanks, Jay Hannah Project Lead / Programmer http://www.iinteractive.com Email: jay.hannah at iinteractive.com AOL IM: deafferret Mobile: 1.402.598.7782 Fax: 1.402.691.9496 From jay.hannah at iinteractive.com Tue Apr 17 10:58:36 2012 From: jay.hannah at iinteractive.com (Jay Hannah) Date: Tue, 17 Apr 2012 12:58:36 -0500 Subject: [Omaha.pm] perl instead of cut -f 2,3,1 Message-ID: <40C613E0-E1D5-4C61-874E-A781F9BD4D78@iinteractive.com> Hi David, As you discovered, cut -f 2,3,1 inputfile.txt Actually gives you columns 1,2,3. cut ignores resorting requests. (boo!) Perl field numbering starts at zero instead of one. This should give you want you wanted: perl -anE 'say join "\t", @F[1,2,0]' inputfile.txt Cheers, Jay Hannah Project Lead / Programmer http://www.iinteractive.com Email: jay.hannah at iinteractive.com AOL IM: deafferret Mobile: 1.402.598.7782 Fax: 1.402.691.9496 From andy at petdance.com Tue Apr 17 15:10:38 2012 From: andy at petdance.com (Andy Lester) Date: Tue, 17 Apr 2012 17:10:38 -0500 Subject: [Omaha.pm] perl instead of cut -f 2,3,1 In-Reply-To: <40C613E0-E1D5-4C61-874E-A781F9BD4D78@iinteractive.com> References: <40C613E0-E1D5-4C61-874E-A781F9BD4D78@iinteractive.com> Message-ID: On Apr 17, 2012, at 12:58 PM, Jay Hannah wrote: > Perl field numbering starts at zero instead of one. This should give you want you wanted: > > perl -anE 'say join "\t", @F[1,2,0]' inputfile.txt And you can use the -F option to specify what the field separator should be. xoa -- Andy Lester => andy at petdance.com => www.petdance.com => AIM:petdance -------------- next part -------------- An HTML attachment was scrubbed... URL: From jay at jays.net Thu Apr 19 11:37:36 2012 From: jay at jays.net (Jay Hannah) Date: Thu, 19 Apr 2012 13:37:36 -0500 Subject: [Omaha.pm] perl In-Reply-To: <607D2C540290E145B8954496E57431FD73D1F0@UNMCEX1.unmcresforest.org> References: <40C613E0-E1D5-4C61-874E-A781F9BD4D78@iinteractive.com> <607D2C540290E145B8954496E57431FD73D1F0@UNMCEX1.unmcresforest.org> Message-ID: <27A32930-71D1-47D5-8D6A-6A1111421AB1@jays.net> On Apr 18, 2012, at 12:30 PM, Klinkebiel, David L wrote: > I have files that are in this tab delimited format: > Chromosome Position Strand > chr1 1202020 R > chr2 27263453 F > etc. > I need a perl that will convert them to the following format: > chr Start End > chr1 1202020 End would be Start+50 bases so =1202070 > chr2 27263453 27263503 Except for the headers, this program does that: perl -anE 'say join "\t", @F[0,1], $F[1] + 50' inputfile.txt But is it safe to ignore the strand here? Isn't your start and end different depending on Strand being F or R? I hope that helps, j From jay at jays.net Thu Apr 19 14:24:23 2012 From: jay at jays.net (Jay Hannah) Date: Thu, 19 Apr 2012 16:24:23 -0500 Subject: [Omaha.pm] perl In-Reply-To: <607D2C540290E145B8954496E57431FD73D47F@UNMCEX1.unmcresforest.org> References: <40C613E0-E1D5-4C61-874E-A781F9BD4D78@iinteractive.com> <607D2C540290E145B8954496E57431FD73D1F0@UNMCEX1.unmcresforest.org> <27A32930-71D1-47D5-8D6A-6A1111421AB1@jays.net> <607D2C540290E145B8954496E57431FD73D47F@UNMCEX1.unmcresforest.org> Message-ID: <39C0C09D-51A5-4BC3-B56E-E451684087C1@jays.net> On Apr 19, 2012, at 1:59 PM, Klinkebiel, David L wrote: > In this instance the strand does not make a difference. If you wanted to make the change based on a F (forward) or R (reverse) what would the perl look like. Thanks At that point the command-line version is a little confusing in my opinion. It looks like this: perl -anE 'say join "\t", @F[0,1], ($F[2] eq 'F' ? $F[1] + 50 : $F[1] - 50)' inputfile.txt So I'd probably write a little program instead: use strict; use 5.10.0; while (<>) { chomp; my ($chr, $pos, $strand) = split /\t/; if ($strand eq 'F') { say join "\t", $chr, $pos, $pos + 50; } else { say join "\t", $chr, $pos, $pos - 50; } } So I could comment it, add more logic, whatever. HTH, j From kiranbina at gmail.com Thu Apr 19 14:41:03 2012 From: kiranbina at gmail.com (Dhundy Bastola) Date: Thu, 19 Apr 2012 16:41:03 -0500 Subject: [Omaha.pm] perl In-Reply-To: <39C0C09D-51A5-4BC3-B56E-E451684087C1@jays.net> Message-ID: The little program is so much better :) On 4/19/12 4:24 PM, "Jay Hannah" wrote: >On Apr 19, 2012, at 1:59 PM, Klinkebiel, David L wrote: >> In this instance the strand does not make a difference. If you wanted >>to make the change based on a F (forward) or R (reverse) what would the >>perl look like. Thanks > >At that point the command-line version is a little confusing in my >opinion. It looks like this: > > perl -anE 'say join "\t", @F[0,1], ($F[2] eq 'F' ? $F[1] + 50 : $F[1] >- 50)' inputfile.txt > >So I'd probably write a little program instead: > > use strict; > use 5.10.0; > while (<>) { > chomp; > my ($chr, $pos, $strand) = split /\t/; > if ($strand eq 'F') { > say join "\t", $chr, $pos, $pos + 50; > } else { > say join "\t", $chr, $pos, $pos - 50; > } > } > >So I could comment it, add more logic, whatever. > >HTH, > >j > > > > >_______________________________________________ >Omaha-pm mailing list >Omaha-pm at pm.org >http://mail.pm.org/mailman/listinfo/omaha-pm From jay at jays.net Fri Apr 20 08:41:20 2012 From: jay at jays.net (Jay Hannah) Date: Fri, 20 Apr 2012 10:41:20 -0500 Subject: [Omaha.pm] Fwd: Bulk Orders (of Modern Perl) for User Groups References: Message-ID: <591B74E3-5409-4305-BD12-AD58F993D4DD@jays.net> Begin forwarded message: > This might be interesting for your groups: > > http://www.modernperlbooks.com/mt/2012/03/bulk-orders-for-user-groups.html Modern Perl for $23. I'm in if several other people want a hard-copy. I could collect the funds via PayPal and place a single order. Anyone else interested? j From jay at jays.net Fri Apr 20 11:10:52 2012 From: jay at jays.net (Jay Hannah) Date: Fri, 20 Apr 2012 13:10:52 -0500 Subject: [Omaha.pm] perl In-Reply-To: <607D2C540290E145B8954496E57431FD73D59C@UNMCEX1.unmcresforest.org> References: <40C613E0-E1D5-4C61-874E-A781F9BD4D78@iinteractive.com> <607D2C540290E145B8954496E57431FD73D1F0@UNMCEX1.unmcresforest.org> <27A32930-71D1-47D5-8D6A-6A1111421AB1@jays.net> <607D2C540290E145B8954496E57431FD73D47F@UNMCEX1.unmcresforest.org> <39C0C09D-51A5-4BC3-B56E-E451684087C1@jays.net> <607D2C540290E145B8954496E57431FD73D59C@UNMCEX1.unmcresforest.org> Message-ID: On Apr 20, 2012, at 8:36 AM, Klinkebiel, David L wrote: > I know you are getting tired of me and I apologize. I need a perl that can sort the file by first chromosome then the start location if you have time. Ha! Not at all. So, sometimes you can get away with sort -n --key 1,2 inputfile.txt But in this case you have a mix of non-numeric and numeric keys you want to sort on so sort is being dumb. So here's a little Perl program: ----------- use strict; use 5.10.0; my @lines; print scalar(<>); # header while (<>) { chomp; push @lines, [ split /\t/ ]; } foreach my $arrayref (sort by_chr_then_pos @lines) { say join "\t", @$arrayref; } sub by_chr_then_pos { $a->[0] cmp $b->[0] || $a->[1] <=> $b->[1] } ----------- If that's sort.pl then you can run perl sort.pl inputfile.txt and should get what you expect out. HTH, j From jay at jays.net Mon Apr 23 16:03:46 2012 From: jay at jays.net (Jay Hannah) Date: Mon, 23 Apr 2012 18:03:46 -0500 Subject: [Omaha.pm] perl In-Reply-To: <607D2C540290E145B8954496E57431FD73D84D@UNMCEX1.unmcresforest.org> References: <40C613E0-E1D5-4C61-874E-A781F9BD4D78@iinteractive.com> <607D2C540290E145B8954496E57431FD73D1F0@UNMCEX1.unmcresforest.org> <27A32930-71D1-47D5-8D6A-6A1111421AB1@jays.net> <607D2C540290E145B8954496E57431FD73D47F@UNMCEX1.unmcresforest.org> <39C0C09D-51A5-4BC3-B56E-E451684087C1@jays.net> <607D2C540290E145B8954496E57431FD73D59C@UNMCEX1.unmcresforest.org> <607D2C540290E145B8954496E57431FD73D84D@UNMCEX1.unmcresforest.org> Message-ID: At a glance it looks like that program puts chr1 and chr2 into a file, chr3 and chr4 into another file, etc. Is that how you want it done this time? Or did you want a separate file for EACH chromosome this time? j On Apr 23, 2012, at 4:33 PM, Klinkebiel, David L wrote: > I need to separate out one lager file into separate files based on the chromosome. > The original file is in this format. > > Chr start End > Chr1 1273635354 127363570 > Etc. > > I found this perl you developed for me awhile back, would this work? > > #!/usr/bin/perl > > use strict; > > my $infile = shift; > usage() unless (-r $infile); > > my %parts = ( > 1 => qr/^chr[1-2]$/, > 2 => qr/^chr[3-4]$/, > 3 => qr/^chr[5-6]$/, > 4 => qr/^chr[7-8]$/, > 5 => qr/^chr(9|10)$/, > 6 => qr/^chr1[1-2]$/, > 7 => qr/^chr1[3-4]$/, > 8 => qr/^chr1[5-6]$/, > 9 => qr/^chr1[7-8]$/, > ); > my $outfile = $infile; > $outfile =~ s/\./_part10./; > open my $everything_else, ">$outfile" or die "Can't open $outfile for write"; > > my %fhs = (); > > foreach my $part (keys %parts) { > my $outfile = $infile; > $outfile =~ s/\./_part$part./; > if ($outfile eq $infile) { > die "Can't figure out what my output filename should be"; > } > open my $out, ">$outfile" or die "Can't open $outfile for write"; > $fhs{$part} = $out; > } > > open my $in, $infile or die "Can't read $infile"; > while (<$in>) { > my @l = split /\t/; > my $out; > foreach my $part (keys %parts) { > if ($l[1] =~ $parts{$part}) { > $out = $fhs{$part}; > last; > } > } > unless ($out) { > $out = $everything_else; > } > print $out $_; > } > > exit; > > > sub usage { > print < > split.pl OPV12345_Annot.txt > > Splits up the input file based on chromosome. > > EOT > exit; > } From jay at jays.net Tue Apr 24 12:20:45 2012 From: jay at jays.net (Jay Hannah) Date: Tue, 24 Apr 2012 14:20:45 -0500 Subject: [Omaha.pm] perl In-Reply-To: <607D2C540290E145B8954496E57431FD74229B@UNMCEX2.unmcresforest.org> References: <40C613E0-E1D5-4C61-874E-A781F9BD4D78@iinteractive.com> <607D2C540290E145B8954496E57431FD73D1F0@UNMCEX1.unmcresforest.org> <27A32930-71D1-47D5-8D6A-6A1111421AB1@jays.net> <607D2C540290E145B8954496E57431FD73D47F@UNMCEX1.unmcresforest.org> <39C0C09D-51A5-4BC3-B56E-E451684087C1@jays.net> <607D2C540290E145B8954496E57431FD73D59C@UNMCEX1.unmcresforest.org> <607D2C540290E145B8954496E57431FD73D84D@UNMCEX1.unmcresforest.org> <607D2C540290E145B8954496E57431FD74229B@UNMCEX2.unmcresforest.org> Message-ID: <4AB57BAB-0B41-403D-86D6-1782AE08FEC4@jays.net> On Apr 24, 2012, at 8:46 AM, Klinkebiel, David L wrote: > Jay, I got this perl to work last night for my files. If you wanted to separate out the files into individual chr would this section look like this. Thanks > >> my %parts = ( >> 1 => qr/^chr[1]$/, >> 2 => qr/^chr[2]$/, >> 3 => qr/^chr[3]$/, >> 4 => qr/^chr[4]$/, >> 5 => qr/^chr(5)$/, >> 6 => qr/^chr[6]$/, >> 7 => qr/^chr[7]$/, >> 8 => qr/^chr[8]$/, >> 9 => qr/^chr[9]$/, >> 9 => qr/^chr[10]$/, >> 9 => qr/^chr[11]$/, > etc OK. Glad you got it working. :) We could write a much more elegant version of the program now that all you want is a new file for each value of the first field. But if it's working for you I won't "fix" it. :) j From choman at gmail.com Wed Apr 25 13:01:41 2012 From: choman at gmail.com (Chad Homan) Date: Wed, 25 Apr 2012 15:01:41 -0500 Subject: [Omaha.pm] web conference assistance Message-ID: Hey all I have found myself attending quite a few gotomeetings and gotowebinars lately (among 2 others). Currently I have been running a VM to attend these. But this is becoming cumbersome. has anyone found a FLOSS client that supports these. BTW the others are iVocalize and Adobe Connect. A quick note on one of the others iVocalize), this is a java web app. I think my configuration is incorrect. Together We Win! -- Chad Creating A More Meaningful Life -------------- next part -------------- An HTML attachment was scrubbed... URL: From jay at jays.net Wed Apr 25 19:55:49 2012 From: jay at jays.net (Jay Hannah) Date: Wed, 25 Apr 2012 21:55:49 -0500 Subject: [Omaha.pm] perl In-Reply-To: <607D2C540290E145B8954496E57431FD7428D7@UNMCEX2.unmcresforest.org> References: <40C613E0-E1D5-4C61-874E-A781F9BD4D78@iinteractive.com> <607D2C540290E145B8954496E57431FD73D1F0@UNMCEX1.unmcresforest.org> <27A32930-71D1-47D5-8D6A-6A1111421AB1@jays.net> <607D2C540290E145B8954496E57431FD73D47F@UNMCEX1.unmcresforest.org> <39C0C09D-51A5-4BC3-B56E-E451684087C1@jays.net> <607D2C540290E145B8954496E57431FD73D59C@UNMCEX1.unmcresforest.org> <607D2C540290E145B8954496E57431FD73D84D@UNMCEX1.unmcresforest.org> <607D2C540290E145B8954496E57431FD74229B@UNMCEX2.unmcresforest.org> <4AB57BAB-0B41-403D-86D6-1782AE08FEC4@jays.net> <607D2C540290E145B8954496E57431FD7428D7@UNMCEX2.unmcresforest.org> Message-ID: <523F01AA-D37D-44C7-B9BC-275D5F03DEF5@jays.net> On Apr 25, 2012, at 9:11 PM, Klinkebiel, David L wrote: > Jay, Why do you have the | separator for chr9-10 in your perl? > > my %parts = ( > 1 => qr/^chr[1-2]$/, > 2 => qr/^chr[3-4]$/, > 3 => qr/^chr[5-6]$/, > 4 => qr/^chr[7-8]$/, > 5 => qr/^chr(9|10)$/, > 6 => qr/^chr1[1-2]$/, > 7 => qr/^chr1[3-4]$/, > 8 => qr/^chr1[5-6]$/, > 9 => qr/^chr1[7-8]$/, The code above doesn't make much sense. (I should know since apparently I wrote it :) Here's some info about Perl regular expressions: Square brackets are sets of characters. Like [aeiouy] for "any vowel." Dashes let you specify a range. So [1-2] says "any single character in the ASCII chart between 1 and 2, inclusive." [12] says "any single character, either 1 or 2." [21] says "any single character, either 2 or 1." So those 3 all do the exact same thing. Only "1" or "2" match. Usually ranges (dashes) are used for larger ranges. e.g.: [a-y] means "any lower case letter except "z". Parens and pipes let you have give options of varying lengths. Like (apple|pear|dog). So (9|10) means "9" or "10". Does that help? Cheers, j From jay.hannah at iinteractive.com Fri Apr 27 14:23:31 2012 From: jay.hannah at iinteractive.com (Jay Hannah) Date: Fri, 27 Apr 2012 16:23:31 -0500 Subject: [Omaha.pm] New(?) Catalyst website Message-ID: Just noticed the website got a re-skin: http://www.catalystframework.org/ Thanks, Jay Hannah Project Lead / Programmer http://www.iinteractive.com Email: jay.hannah at iinteractive.com AOL IM: deafferret Mobile: 1.402.598.7782 Fax: 1.402.691.9496 From jay.hannah at iinteractive.com Sat Apr 28 11:00:39 2012 From: jay.hannah at iinteractive.com (Jay Hannah) Date: Sat, 28 Apr 2012 13:00:39 -0500 Subject: [Omaha.pm] Kansas City May 25, 26 - Hack the Midwest Message-ID: <779C5AA4-72D5-4598-A91E-686285A72147@iinteractive.com> Anyone going to this? http://hackthemidwest.com/ Jay Hannah Project Lead / Programmer http://www.iinteractive.com Email: jay.hannah at iinteractive.com AOL IM: deafferret Mobile: 1.402.598.7782 Fax: 1.402.691.9496 From krisguy at krisguy.com Sat Apr 28 12:21:17 2012 From: krisguy at krisguy.com (Kris Gainsforth) Date: Sat, 28 Apr 2012 14:21:17 -0500 Subject: [Omaha.pm] Kansas City May 25, 26 - Hack the Midwest In-Reply-To: <779C5AA4-72D5-4598-A91E-686285A72147@iinteractive.com> References: <779C5AA4-72D5-4598-A91E-686285A72147@iinteractive.com> Message-ID: I wish, but I'll be stuck at the day job. Kris Gainsforth krisguy.com On Sat, Apr 28, 2012 at 1:00 PM, Jay Hannah wrote: > Anyone going to this? > > http://hackthemidwest.com/ > > Jay Hannah > Project Lead / Programmer > http://www.iinteractive.com > Email: jay.hannah at iinteractive.com > AOL IM: deafferret > Mobile: 1.402.598.7782 > Fax: 1.402.691.9496 > > > > > > _______________________________________________ > Omaha-pm mailing list > Omaha-pm at pm.org > http://mail.pm.org/mailman/listinfo/omaha-pm > -- ================ Kris Gainsforth krisguy at krisguy.com -------------- next part -------------- An HTML attachment was scrubbed... URL: From choman at gmail.com Sat Apr 28 12:43:53 2012 From: choman at gmail.com (Chad Homan) Date: Sat, 28 Apr 2012 14:43:53 -0500 Subject: [Omaha.pm] Kansas City May 25, 26 - Hack the Midwest In-Reply-To: References: <779C5AA4-72D5-4598-A91E-686285A72147@iinteractive.com> Message-ID: Sounds fun, I will have to check my schedule Join The RVLution - Together We Win! -- Chad - I AM MONAVIE Creating A More Meaningful Life On Sat, Apr 28, 2012 at 2:21 PM, Kris Gainsforth wrote: > I wish, but I'll be stuck at the day job. > > Kris Gainsforth > krisguy.com > > > On Sat, Apr 28, 2012 at 1:00 PM, Jay Hannah wrote: > >> Anyone going to this? >> >> http://hackthemidwest.com/ >> >> Jay Hannah >> Project Lead / Programmer >> http://www.iinteractive.com >> Email: jay.hannah at iinteractive.com >> AOL IM: deafferret >> Mobile: 1.402.598.7782 >> Fax: 1.402.691.9496 >> >> >> >> >> >> _______________________________________________ >> Omaha-pm mailing list >> Omaha-pm at pm.org >> http://mail.pm.org/mailman/listinfo/omaha-pm >> > > > > -- > ================ > Kris Gainsforth > krisguy at krisguy.com > > > _______________________________________________ > Omaha-pm mailing list > Omaha-pm at pm.org > http://mail.pm.org/mailman/listinfo/omaha-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: From jay.hannah at iinteractive.com Mon Apr 30 12:33:53 2012 From: jay.hannah at iinteractive.com (Jay Hannah) Date: Mon, 30 Apr 2012 14:33:53 -0500 Subject: [Omaha.pm] YAPC::NA sold out Message-ID: <2CBBEDF8-CF84-4906-9A26-FE28D4353CE8@iinteractive.com> http://blog.yapcna.org/post/22122208465/yapc-na-sold-out We?ve just sold more tickets to YAPC::NA than any other year of the conference thus far. Go Perl!! :) j From topher-pm at zyp.org Mon Apr 30 13:13:09 2012 From: topher-pm at zyp.org (Christopher Cashell) Date: Mon, 30 Apr 2012 15:13:09 -0500 Subject: [Omaha.pm] YAPC::NA sold out In-Reply-To: <2CBBEDF8-CF84-4906-9A26-FE28D4353CE8@iinteractive.com> References: <2CBBEDF8-CF84-4906-9A26-FE28D4353CE8@iinteractive.com> Message-ID: On Mon, Apr 30, 2012 at 2:33 PM, Jay Hannah wrote: > http://blog.yapcna.org/post/22122208465/yapc-na-sold-out > > We?ve just sold more tickets to YAPC::NA than any other year of the conference thus far. Darn! With Perl dying and all, I thought it'd be easier to get tickets. ;-) > j -- Christopher From jay at jays.net Mon Apr 30 13:26:23 2012 From: jay at jays.net (Jay Hannah) Date: Mon, 30 Apr 2012 15:26:23 -0500 Subject: [Omaha.pm] YAPC::NA sold out In-Reply-To: References: <2CBBEDF8-CF84-4906-9A26-FE28D4353CE8@iinteractive.com> Message-ID: <81DCCD5F-B55D-4EBD-AA43-C75286D5C44B@jays.net> On Apr 30, 2012, at 3:13 PM, Christopher Cashell wrote: > Darn! With Perl dying and all, I thought it'd be easier to get tickets. ;-) Indeed. Some of my earliest in-person memories of coworkers telling me how dead Perl is are 12 years old now. :) http://video.google.com/videoplay?docid=-5248422316660075262 Michael Schwern - Perl is unDead (horrible audio) j