From joe at unimelb.edu.au Sun Nov 4 15:23:08 2001 From: joe at unimelb.edu.au (Joe H) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: test - subscribed but not receiving list email Message-ID: test -------------------------------------- NOTE: The information contained in this message may be privileged and confidential and protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient,you are hereby notified that any dissemination, distribution or copying of this communication is STRICTLY PROHIBITED. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you. -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From wilcoxon at bridge.com Tue Nov 6 13:10:41 2001 From: wilcoxon at bridge.com (Stephen R. Wilcoxon) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: test - subscribed but not receiving list email In-Reply-To: Your message of "Mon, 05 Nov 2001 08:23:08 +1100." References: Message-ID: <200111061910.OAA26410@mnmailhost> On Mon 2001/11/05 08:23:08 +1100, Joe H writes: > test I received this test message but haven't gotten anything else in a week or two. Is the list traffic currently dead or do I have a problem somewhere? -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From gypsy at FreeQ.com Tue Nov 6 13:22:50 2001 From: gypsy at FreeQ.com (Gypsy Rogers) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: test - subscribed but not receiving list email In-Reply-To: <200111061910.OAA26410@mnmailhost> Message-ID: I believe there just hasn't been any traffic ----------------------------- | Gypsy Rogers | http://www.GypsyRogers.com | What do you want? When do you want it? | What are you willing to Sacrifice for it? | Are you willing to fail? ----------------------------- On Tue, 6 Nov 2001, Stephen R. Wilcoxon wrote: > Date: Tue, 06 Nov 2001 13:10:41 -0600 > From: "Stephen R. Wilcoxon" > Reply-To: mpls@pm.org > To: Joe H , mpls@pm.org > Subject: Re: [mplspm]: test - subscribed but not receiving list email > > On Mon 2001/11/05 08:23:08 +1100, Joe H writes: > > test > > I received this test message but haven't gotten anything else in a week or > two. Is the list traffic currently dead or do I have a problem somewhere? > > > > > -------------------------------------------------- > Minneapolis Perl Mongers mailing list > > To unsubscribe, send mail to majordomo@pm.org > with "unsubscribe mpls" in the body of the message. > -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From autarch at urth.org Tue Nov 6 13:30:21 2001 From: autarch at urth.org (Dave Rolsky) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: next meeting Message-ID: The schedule says that the next meeting will be Wednesday Nobember (that's what it says!) 28th. Ken MacLeod is tentaviely scheduled to present on Orchard. Ken, are you ok with that? If not, does someone else have something exciting to talk about? We could also do the thing we talked about last time of actually coding something. We also talked about a code review session (I am Ming the Merciless). -dave /*================== www.urth.org We await the New Sun ==================*/ -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From jpschewe at mtu.net Thu Nov 8 21:31:41 2001 From: jpschewe at mtu.net (Jon Schewe) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Perl and Palm? Message-ID: What's the best module to use for Perl and Palm, actually Visor, development. I use PilotManager to sync things up and do backups, but the API isn't very well documented, at least the part used to talk to the Palm. I just want to write some small scripts to add datebook entries and mess around with my addressbook. At some point I might actually write conduits, but for now I just want a well documented API. Any suggestions? -- Jon Schewe | http://mtu.net/~jpschewe | jpschewe@mtu.net For I am convinced that neither death nor life, neither angels nor demons, neither the present nor the future, nor any powers, neither height nor depth, nor anything else in all creation, will be able to separate us from the love of God that is in Christ Jesus our Lord. - Romans 8:38-39 -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From ken at mathforum.org Mon Nov 12 12:58:55 2001 From: ken at mathforum.org (Ken Williams) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Beta testers for Module::Build? Message-ID: <6404246.1005569935@[0.0.0.0]> Hi all, I've put some work into Module::Build (a replacement for ExtUtils::MakeMaker) lately, and I'm looking for some testers to tell me whether it works on other platforms. I've tested it on Mac OS X and Linux, so I'm especially looking for testers on other Unixes and Windows. In order to complete the full test, you'd have to have a C compiler, i.e. you should be able to install .xs-based modules in the normal way (Makefile.PL). If you don't have a C compiler, it would still be helpful to test, but you'll fail the XS test. The module is at http://www.mathforum.org/~ken/perl/Module-Build-0.03_1.tar.gz Thanks. -Ken -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From autarch at urth.org Mon Nov 12 13:12:29 2001 From: autarch at urth.org (Dave Rolsky) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Beta testers for Module::Build? In-Reply-To: <6404246.1005569935@[0.0.0.0]> Message-ID: On Mon, 12 Nov 2001, Ken Williams wrote: > In order to complete the full test, you'd have to have a C compiler, i.e. > you should be able to install .xs-based modules in the normal way > (Makefile.PL). If you don't have a C compiler, it would still be helpful > to test, but you'll fail the XS test. > > The module is at > http://www.mathforum.org/~ken/perl/Module-Build-0.03_1.tar.gz Is something missing from the tarball? The xs.t test tries to chdir to t/XSTest and I don't see one. -dave /*================== www.urth.org We await the New Sun ==================*/ -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From ken at mathforum.org Mon Nov 12 14:02:04 2001 From: ken at mathforum.org (Ken Williams) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Beta testers for Module::Build? In-Reply-To: References: Message-ID: <6631576.1005573723@[0.0.0.0]> Dave Rolsky wrote: > Is something missing from the tarball? > > The xs.t test tries to chdir to t/XSTest and I don't see one. Oops - yeah, that's missing. Here's one that contains the XSTest directory: http://www.mathforum.org/~ken/perl/Module-Build-0.03_2.tar.gz Next on my list: implement a 'manifest' action so I don't have to add these things manually... -Ken -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From autarch at urth.org Mon Nov 12 14:12:17 2001 From: autarch at urth.org (Dave Rolsky) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Beta testers for Module::Build? In-Reply-To: <6631576.1005573723@[0.0.0.0]> Message-ID: On Mon, 12 Nov 2001, Ken Williams wrote: > Oops - yeah, that's missing. Here's one that contains the XSTest directory: > > http://www.mathforum.org/~ken/perl/Module-Build-0.03_2.tar.gz > > Next on my list: implement a 'manifest' action so I don't have to add these > things manually... Ok, all the tests passed for me now. -dave /*================== www.urth.org We await the New Sun ==================*/ -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From ken at mathforum.org Mon Nov 12 14:16:34 2001 From: ken at mathforum.org (Ken Williams) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Beta testers for Module::Build? In-Reply-To: References: Message-ID: <6683864.1005574594@[0.0.0.0]> Dave Rolsky wrote: > > Ok, all the tests passed for me now. > Cool. What platform? I'm pleasantly surprised that it doesn't seem very hard to re-implement the building of XS modules. I haven't yet done anything about compiling .c files that the .xs files might depend on, though. I think I'll try taking a bunch of existing modules from CPAN and converting them to use Module::Build, and see what kinds of things they need. -Ken -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From thomas at stderr.net Mon Nov 12 14:25:49 2001 From: thomas at stderr.net (Thomas Eibner) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Beta testers for Module::Build? In-Reply-To: <6683864.1005574594@[0.0.0.0]>; from ken@mathforum.org on Mon, Nov 12, 2001 at 02:16:34PM -0600 References: <6683864.1005574594@[0.0.0.0]> Message-ID: <20011112212549.A69360@io.stderr.net> On Mon, Nov 12, 2001 at 02:16:34PM -0600, Ken Williams wrote: > > > Dave Rolsky wrote: > > > > Ok, all the tests passed for me now. > > > > Cool. What platform? Debian testing/unstable OK FreeBSD 4.2-release OK -- Thomas Eibner DnsZone mod_pointer -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From autarch at urth.org Fri Nov 16 17:55:18 2001 From: autarch at urth.org (Dave Rolsky) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Next meeting presentation Message-ID: Well, it was supposed to be Ken Macleod but given that he hasn't confirmed it'd be nice to have a backup. Any volunteers? Or we could do a code review session or just a get together at a pub or something. -dave /*================== www.urth.org We await the New Sun ==================*/ -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From ken at mathforum.org Fri Nov 16 23:26:58 2001 From: ken at mathforum.org (Ken Williams) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Next meeting presentation In-Reply-To: References: Message-ID: <23028258.1005953218@[0.0.0.0]> Dave Rolsky wrote: > Well, it was supposed to be Ken Macleod but given that he hasn't confirmed > it'd be nice to have a backup. Any volunteers? > > Or we could do a code review session or just a get together at a pub or > something. My offer to do a presentation on Module::Build still stands. I've been doing a crapload of work on it lately. -Ken -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From thomas at stderr.net Sat Nov 17 00:26:17 2001 From: thomas at stderr.net (Thomas Eibner) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Next meeting presentation In-Reply-To: <23028258.1005953218@[0.0.0.0]>; from ken@mathforum.org on Fri, Nov 16, 2001 at 11:26:58PM -0600 References: <23028258.1005953218@[0.0.0.0]> Message-ID: <20011117072617.E22504@io.stderr.net> On Fri, Nov 16, 2001 at 11:26:58PM -0600, Ken Williams wrote: > > > Dave Rolsky wrote: > > Well, it was supposed to be Ken Macleod but given that he hasn't confirmed > > it'd be nice to have a backup. Any volunteers? > > > > Or we could do a code review session or just a get together at a pub or > > something. > > My offer to do a presentation on Module::Build still stands. I've been > doing a crapload of work on it lately. I still say: EBAY PRESENTATION! -- Thomas Eibner DnsZone mod_pointer -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From tim.burlowski at veritas.com Mon Nov 19 10:29:55 2001 From: tim.burlowski at veritas.com (Tim Burlowski) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: Next meeting presentation In-Reply-To: ; from autarch@urth.org on Fri, Nov 16, 2001 at 05:55:18PM -0600 References: Message-ID: <20011119102955.A2381@maple.min.ov.com> I can do "Perl embedded in C", which is of no interest to Dave. tim Previously Dave Rolsky(autarch@urth.org) wrote: > Well, it was supposed to be Ken Macleod but given that he hasn't confirmed > it'd be nice to have a backup. Any volunteers? > > Or we could do a code review session or just a get together at a pub or > something. > > > -dave > > /*================== > www.urth.org > We await the New Sun > ==================*/ > > > > > -------------------------------------------------- > Minneapolis Perl Mongers mailing list > > To unsubscribe, send mail to majordomo@pm.org > with "unsubscribe mpls" in the body of the message. -- tim burlowski ======================================== At 9:00 AM, Roseville, MN conditions were sunny skies at 33 deg F, wind was west at 17 mph. The relative humidity was 66%, and barometric pressure was steady from 30.21 in. -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From tim.burlowski at veritas.com Wed Nov 28 17:25:06 2001 From: tim.burlowski at veritas.com (Tim Burlowski) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: meeting tonight ? Message-ID: <20011128172506.A5906@maple.min.ov.com> All: Is there a meeting tonight? Is any one planning on attending? Is someone planning on speaking? -- tim burlowski ======================================== At 3:00 PM, Roseville, MN conditions were light snow at 32 deg F, wind was east at 9 mph. The relative humidity was 88%, and barometric pressure was falling from 30.24 in. -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From jim at acadcam.com Wed Nov 28 15:52:20 2001 From: jim at acadcam.com (Jim Anderson) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: meeting tonight ? In-Reply-To: <20011128172506.A5906@maple.min.ov.com>; from tim.burlowski@veritas.com on Wed, Nov 28, 2001 at 05:25:06PM -0600 References: <20011128172506.A5906@maple.min.ov.com> Message-ID: <20011128155219.A26079@acadcam.com> On Wed, Nov 28, 2001 at 05:25:06PM -0600, Tim Burlowski wrote: > Is there a meeting tonight? It's on my calendar. > Is any one planning on attending? I was planning to be there. Besides, it's about 1 block off my drive home. If anybody's interested, I'll be at Barley John's from about 5:30 until time to leave for the meeting. > Is someone planning on speaking? I don't have anything prepared to talk about. -- Jim Anderson (612) 782-0456 jim@acadcam.com Anderson CAD/CAM, Inc Lucifer designed MS-DOS to try 3800 Apache Lane NE men's souls. St Anthony, MN 55421 Then he had a better idea... -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From ken at mathforum.org Wed Nov 28 16:47:22 2001 From: ken at mathforum.org (Ken Williams) Date: Thu Aug 5 00:29:28 2004 Subject: [mplspm]: meeting tonight ? In-Reply-To: <20011128172506.A5906@maple.min.ov.com> References: <20011128172506.A5906@maple.min.ov.com> Message-ID: <34618811.1006966040@[10.0.0.2]> Tim Burlowski wrote: > Is there a meeting tonight? > > Is any one planning on attending? > > Is someone planning on speaking? Well, *I'm* prepared to meet. I can still do the Module::Build presentation, though I won't have any slides prepared, it'll be more of a fireside chat. Module::Build is at http://search.cpan.org/search?dist=Module-Build . We could also do a code review session - I love criticizing code. Actually, I have in mind something more like MJD's code workshop, or whatever he calls it. So anyone could bring code they've written, and we could all sit around improving it. How about we all write messages to the list saying "I'm coming", and we show up and decide what to do? -Ken -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From autarch at urth.org Wed Nov 28 16:59:48 2001 From: autarch at urth.org (Dave Rolsky) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: meeting tonight ? In-Reply-To: <20011128172506.A5906@maple.min.ov.com> Message-ID: On Wed, 28 Nov 2001, Tim Burlowski wrote: > Is any one planning on attending? Oops, I forgot and made other plans cause it didn't seem like we had a speaker or anything. -dave /*================== www.urth.org We await the New Sun ==================*/ -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From ken at mathforum.org Wed Nov 28 18:34:28 2001 From: ken at mathforum.org (Ken Williams) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: meeting tonight ? In-Reply-To: References: Message-ID: <35004484.1006972467@[10.0.0.2]> Dave Rolsky wrote: > On Wed, 28 Nov 2001, Tim Burlowski wrote: > >> Is any one planning on attending? > > Oops, I forgot and made other plans cause it didn't seem like we had a > speaker or anything. Let's still meet, at 7:30. Tim, I'm guessing we don't have a room at Veritas, so we should meet at Barley John's? -Ken -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From tim.burlowski at veritas.com Wed Nov 28 21:28:31 2001 From: tim.burlowski at veritas.com (Tim Burlowski) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: meeting tonight ? In-Reply-To: <35004484.1006972467@[10.0.0.2]>; from ken@mathforum.org on Wed, Nov 28, 2001 at 06:34:28PM -0600 References: <35004484.1006972467@[10.0.0.2]> Message-ID: <20011128212831.A6630@maple.min.ov.com> Right. tim Previously Ken Williams(ken@mathforum.org) wrote: > > > Dave Rolsky wrote: > > On Wed, 28 Nov 2001, Tim Burlowski wrote: > > > >> Is any one planning on attending? > > > > Oops, I forgot and made other plans cause it didn't seem like we had a > > speaker or anything. > > Let's still meet, at 7:30. Tim, I'm guessing we don't have a room at > Veritas, so we should meet at Barley John's? > > -Ken > > > > -------------------------------------------------- > Minneapolis Perl Mongers mailing list > > To unsubscribe, send mail to majordomo@pm.org > with "unsubscribe mpls" in the body of the message. -- tim burlowski ======================================== At 7:00 PM, Roseville, MN conditions were light snow at 32 deg F, wind was calm. The relative humidity was 96%, and barometric pressure was falling from 30.22 in. -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From thomas at stderr.net Wed Nov 28 20:58:06 2001 From: thomas at stderr.net (Thomas Eibner) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: meeting tonight ? In-Reply-To: <35004484.1006972467@[10.0.0.2]>; from ken@mathforum.org on Wed, Nov 28, 2001 at 06:34:28PM -0600 References: <35004484.1006972467@[10.0.0.2]> Message-ID: <20011129035806.D67769@io.stderr.net> On Wed, Nov 28, 2001 at 06:34:28PM -0600, Ken Williams wrote: > Let's still meet, at 7:30. Tim, I'm guessing we don't have a room at > Veritas, so we should meet at Barley John's? Dammit! got home and saw the messages about the meeting and was there at 8:35 and people had left :( -- Thomas Eibner DnsZone mod_pointer -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From troy.johnson at myrealbox.com Thu Nov 29 14:37:54 2001 From: troy.johnson at myrealbox.com (Troy Johnson) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: Variable Length Tables using CGI.pm Message-ID: <3C069CA2.9320207F@myrealbox.com> Silly Question: What is the best way to make variable length tables using CGI.pm? What comes to mind: loading a variable with CGI table code and eval-ing it when the table is complete. Is there another way? I am converting a PHP link database interface to CGI.pm (for fun) and I'd like to take advantage of CGI functions for tables. TIA, Troy -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From aaron.m.nielsen at intel.com Thu Nov 29 15:10:48 2001 From: aaron.m.nielsen at intel.com (Nielsen, Aaron M) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: RE: Help with a transpose script (included) Message-ID: > I'm working on large pattern data in column format and am using the > following sub to transpose the file so I cant do pattern matching on > columns. I then call the transpose sub again to return the file to column > format. The problem I'm running into is that the code is very slow and > thought it will finish on small patterns it dies on large ones (around > 10Meg). Any ideas on more efficient transpose scripts or a more efficient > way to match patterns on column data? > > ------------------------------------------------ > transpose($file,$file_transposed); > > sub transpose { > > package transpose; > my (@ops) = @_; > my $linesm1 = undef; > my @line = undef; > my $j = undef; > my $i = undef; > open (IN, $ops[0]) || die "1 $!\n"; > open (OUT,"> $ops[1]") || die "2 $!\n"; > while ( ) { > $j = 0; > chomp; > @_ = split //; > for ( @_ ) { > if ( $j > $linesm1 ) { > $line[$j] = " " x $i; > $linesm1++; > } > $line[$j] .= $_; > $j++; > } > for ( $j .. $linesm1 ) { > $line[$_] .= ' '; > } > $i++; > } > for ( 0 .. $linesm1 ){ > $line[$_] =~ s/(.)/$1/g; > print OUT "$line[$_]\n"; > } > close OUT; > close IN; > } > > ------------------------------------------------ > > Thanks > > > Aaron Nielsen PNG/CMO/PE&TE > 503-712-1822 > > -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From ken at mathforum.org Thu Nov 29 22:06:51 2001 From: ken at mathforum.org (Ken Williams) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: RE: Help with a transpose script (included) In-Reply-To: References: Message-ID: <40954108.1007071611@[10.0.0.2]> Aaron, Can you explain, specifically, what the code is supposed to do? Perhaps an example? What's the format of the file, i.e. what do you mean by "column format"? By the way, the line "$line[$_] =~ s/(.)/$1/g;" is a very slow way to not do anything. What's its intention? -Ken "Nielsen, Aaron M" wrote: > >> I'm working on large pattern data in column format and am using the >> following sub to transpose the file so I cant do pattern matching on >> columns. I then call the transpose sub again to return the file to >> column format. The problem I'm running into is that the code is very >> slow and thought it will finish on small patterns it dies on large >> ones (around 10Meg). Any ideas on more efficient transpose scripts or >> a more efficient way to match patterns on column data? >> >> ------------------------------------------------ >> transpose($file,$file_transposed); >> >> sub transpose { >> >> package transpose; >> my (@ops) = @_; >> my $linesm1 = undef; >> my @line = undef; >> my $j = undef; >> my $i = undef; >> open (IN, $ops[0]) || die "1 $!\n"; >> open (OUT,"> $ops[1]") || die "2 $!\n"; >> while ( ) { >> $j = 0; >> chomp; >> @_ = split //; >> for ( @_ ) { >> if ( $j > $linesm1 ) { >> $line[$j] = " " x $i; >> $linesm1++; >> } >> $line[$j] .= $_; >> $j++; >> } >> for ( $j .. $linesm1 ) { >> $line[$_] .= ' '; >> } >> $i++; >> } >> for ( 0 .. $linesm1 ){ >> $line[$_] =~ s/(.)/$1/g; >> print OUT "$line[$_]\n"; >> } >> close OUT; >> close IN; >> } >> >> ------------------------------------------------ >> >> Thanks >> >> >> Aaron Nielsen PNG/CMO/PE&TE >> 503-712-1822 >> >> > > > -------------------------------------------------- > Minneapolis Perl Mongers mailing list > > To unsubscribe, send mail to majordomo@pm.org > with "unsubscribe mpls" in the body of the message. -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From aaron.m.nielsen at intel.com Fri Nov 30 12:07:18 2001 From: aaron.m.nielsen at intel.com (Nielsen, Aaron M) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: RE: Help with a transpose script (included) Message-ID: What the code does is the following. It takes large pattern files of the following format and transposes them. cccccc ccccc cc oooooo ooooo oo llllll lllll ll ______ _____ __ 123456 78911 11 12 34 xxxxxx xxxxx xx xxxxxx 00000 00 000000 00000 00 000000 11111 11 111111 11111 11 111111 11111 11 111111 11111 11 000000 00000 00 000000 00000 00 000000 00000 00 xxxxxx xxxxx xx xxxxxx xxxxx xx xxxxxx xxxxx xx to this col_1 xx00111000xxx col_2 xx00111000xxx col_3 xx00111000xxx col_4 xx00111000xxx col_5 xx00111000xxx col_6 xx00111000xxx col_7 x001111000xxx col_8 x001111000xxx col_9 x001111000xxx col_10x001111000xxx col_11x001111000xxx col_12x001111000xxx col_13x001111000xxx col_14x001111000xxx what I do is transpose a large file as mentioned then do some pattern matching to mask transitions i.e. 1100 -> 1x00 or 11x00 then I transpose it back. I'm new to perl and took this transpose code and modified it to do what I wanted but don't fully understand it. Any help would be appreciated. Aaron -----Original Message----- From: Ken Williams [mailto:ken@mathforum.org] Sent: Thursday, November 29, 2001 8:07 PM To: mpls@pm.org Subject: Re: [mplspm]: RE: Help with a transpose script (included) Aaron, Can you explain, specifically, what the code is supposed to do? Perhaps an example? What's the format of the file, i.e. what do you mean by "column format"? By the way, the line "$line[$_] =~ s/(.)/$1/g;" is a very slow way to not do anything. What's its intention? -Ken "Nielsen, Aaron M" wrote: > >> I'm working on large pattern data in column format and am using the >> following sub to transpose the file so I cant do pattern matching on >> columns. I then call the transpose sub again to return the file to >> column format. The problem I'm running into is that the code is very >> slow and thought it will finish on small patterns it dies on large >> ones (around 10Meg). Any ideas on more efficient transpose scripts or >> a more efficient way to match patterns on column data? >> >> ------------------------------------------------ >> transpose($file,$file_transposed); >> >> sub transpose { >> >> package transpose; >> my (@ops) = @_; >> my $linesm1 = undef; >> my @line = undef; >> my $j = undef; >> my $i = undef; >> open (IN, $ops[0]) || die "1 $!\n"; >> open (OUT,"> $ops[1]") || die "2 $!\n"; >> while ( ) { >> $j = 0; >> chomp; >> @_ = split //; >> for ( @_ ) { >> if ( $j > $linesm1 ) { >> $line[$j] = " " x $i; >> $linesm1++; >> } >> $line[$j] .= $_; >> $j++; >> } >> for ( $j .. $linesm1 ) { >> $line[$_] .= ' '; >> } >> $i++; >> } >> for ( 0 .. $linesm1 ){ >> $line[$_] =~ s/(.)/$1/g; >> print OUT "$line[$_]\n"; >> } >> close OUT; >> close IN; >> } >> >> ------------------------------------------------ >> >> Thanks >> >> >> Aaron Nielsen PNG/CMO/PE&TE >> 503-712-1822 >> >> > > > -------------------------------------------------- > Minneapolis Perl Mongers mailing list > > To unsubscribe, send mail to majordomo@pm.org > with "unsubscribe mpls" in the body of the message. -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From shaun at qwest.net Fri Nov 30 14:22:50 2001 From: shaun at qwest.net (Shaun Hawkinson) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: RE: Help with a transpose script (included) In-Reply-To: ; from aaron.m.nielsen@intel.com on Fri, Nov 30, 2001 at 10:07:18AM -0800 References: Message-ID: <20011130142249.B70540@rossi.oss.uswest.net> It's hard for me to follow the transpose code because I'm not sure what was originally intended. Along with the useless 's/(.)/$1/g', it seems like there may be a number of loops that aren't really necessary: for ( $j .. $linesm1 ) { $line[$_] .= ' '; } where $_ contains data character(s). At first I was thinking that the author wrote it to use little memory and therefore compromised speed, but I don't think that's the case either. If you're not worried about memory usage with really large files, a quick and simple solution is attached... It just steps through every line and appends each character onto an array. Anyone see any problems with this besides reading the entire data file in before printing anything out? -Shaun ------------------------------------------------------------ Shaun Hawkinson, | Qwest | w:612-664-3062 Staff Software | | Development Engineer | shaun@hawkinson.net | p:612-613-5623 ------------------------------------------------------------ OHNOSECOND - that miniscule fraction of time in which you realize you've just made a big mistake. On Fri, Nov 30, 2001 at 10:07:18AM -0800, Nielsen, Aaron M wrote: > What the code does is the following. It takes large pattern files of the > following format and transposes them. > > cccccc ccccc cc > oooooo ooooo oo > llllll lllll ll > ______ _____ __ > 123456 78911 11 > 12 34 > xxxxxx xxxxx xx > xxxxxx 00000 00 > 000000 00000 00 > 000000 11111 11 > 111111 11111 11 > 111111 11111 11 > 111111 11111 11 > 000000 00000 00 > 000000 00000 00 > 000000 00000 00 > xxxxxx xxxxx xx > xxxxxx xxxxx xx > xxxxxx xxxxx xx > > to this > > col_1 xx00111000xxx > col_2 xx00111000xxx > col_3 xx00111000xxx > col_4 xx00111000xxx > col_5 xx00111000xxx > col_6 xx00111000xxx > > col_7 x001111000xxx > col_8 x001111000xxx > col_9 x001111000xxx > col_10x001111000xxx > col_11x001111000xxx > col_12x001111000xxx > > col_13x001111000xxx > col_14x001111000xxx > > what I do is transpose a large file as mentioned then do some pattern > matching to mask transitions i.e. 1100 -> 1x00 or 11x00 > > then I transpose it back. > > I'm new to perl and took this transpose code and modified it to do what I > wanted but don't fully understand it. > Any help would be appreciated. > > Aaron > > -----Original Message----- > From: Ken Williams [mailto:ken@mathforum.org] > Sent: Thursday, November 29, 2001 8:07 PM > To: mpls@pm.org > Subject: Re: [mplspm]: RE: Help with a transpose script (included) > > > Aaron, > > Can you explain, specifically, what the code is supposed to do? Perhaps > an example? What's the format of the file, i.e. what do you mean by > "column format"? > > By the way, the line "$line[$_] =~ s/(.)/$1/g;" is a very slow way to not > do anything. What's its intention? > > -Ken > > > > "Nielsen, Aaron M" wrote: > > > > >> I'm working on large pattern data in column format and am using the > >> following sub to transpose the file so I cant do pattern matching on > >> columns. I then call the transpose sub again to return the file to > >> column format. The problem I'm running into is that the code is very > >> slow and thought it will finish on small patterns it dies on large > >> ones (around 10Meg). Any ideas on more efficient transpose scripts or > >> a more efficient way to match patterns on column data? > >> > >> ------------------------------------------------ > >> transpose($file,$file_transposed); > >> > >> sub transpose { > >> > >> package transpose; > >> my (@ops) = @_; > >> my $linesm1 = undef; > >> my @line = undef; > >> my $j = undef; > >> my $i = undef; > >> open (IN, $ops[0]) || die "1 $!\n"; > >> open (OUT,"> $ops[1]") || die "2 $!\n"; > >> while ( ) { > >> $j = 0; > >> chomp; > >> @_ = split //; > >> for ( @_ ) { > >> if ( $j > $linesm1 ) { > >> $line[$j] = " " x $i; > >> $linesm1++; > >> } > >> $line[$j] .= $_; > >> $j++; > >> } > >> for ( $j .. $linesm1 ) { > >> $line[$_] .= ' '; > >> } > >> $i++; > >> } > >> for ( 0 .. $linesm1 ){ > >> $line[$_] =~ s/(.)/$1/g; > >> print OUT "$line[$_]\n"; > >> } > >> close OUT; > >> close IN; > >> } > >> > >> ------------------------------------------------ > >> > >> Thanks > >> > >> > >> Aaron Nielsen PNG/CMO/PE&TE > >> 503-712-1822 > >> > >> > > > > > > -------------------------------------------------- > > Minneapolis Perl Mongers mailing list > > > > To unsubscribe, send mail to majordomo@pm.org > > with "unsubscribe mpls" in the body of the message. > > > > > -------------------------------------------------- > Minneapolis Perl Mongers mailing list > > To unsubscribe, send mail to majordomo@pm.org > with "unsubscribe mpls" in the body of the message. > > > -------------------------------------------------- > Minneapolis Perl Mongers mailing list > > To unsubscribe, send mail to majordomo@pm.org > with "unsubscribe mpls" in the body of the message. -------------- next part -------------- #!/usr/bin/perl -w # transpose('infile', 'outfile'); sub transpose { my @files = @_; my @col; ## open inbound and outbound files and ## replace "DATA" and "STDOUT" below accordingly ## read it all in while (my $row = ) { chomp $row; $num_cols = length($row) if !$num_cols; for my $i (0 .. $num_cols-1) { $col[$i] .= substr($row,$i,1); } } ## print it all out for my $i (0 .. $num_cols-1) { print STDOUT "$col[$i]\n" if $col[$i]; } } __DATA__ cccccc ccccc cc oooooo ooooo oo llllll lllll ll ______ _____ __ 123456 78911 11 12 34 xxxxxx xxxxx xx xxxxxx 00000 00 000000 00000 00 000000 11111 11 111111 11111 11 111111 11111 11 111111 11111 11 000000 00000 00 000000 00000 00 000000 00000 00 xxxxxx xxxxx xx xxxxxx xxxxx xx xxxxxx xxxxx xx From shaun at qwest.net Fri Nov 30 14:46:09 2001 From: shaun at qwest.net (Shaun Hawkinson) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: RE: Help with a transpose script (included) In-Reply-To: <20011130142249.B70540@rossi.oss.uswest.net>; from shaun@qwest.net on Fri, Nov 30, 2001 at 02:22:50PM -0600 References: <20011130142249.B70540@rossi.oss.uswest.net> Message-ID: <20011130144609.C70540@rossi.oss.uswest.net> On Fri, Nov 30, 2001 at 02:22:50PM -0600, Shaun Hawkinson wrote: > for ( $j .. $linesm1 ) { > $line[$_] .= ' '; > } > > where $_ contains data character(s). Oh. My bad. $_ will be integers from $j to $linesm1 in the for() loop, but I'm still not quite sure what this part was for in the scheme of things. That may be just me missing something though... -Shaun > On Fri, Nov 30, 2001 at 10:07:18AM -0800, Nielsen, Aaron M wrote: > > What the code does is the following. It takes large pattern files of the > > following format and transposes them. > > > > cccccc ccccc cc > > oooooo ooooo oo > > llllll lllll ll > > ______ _____ __ > > 123456 78911 11 > > 12 34 > > xxxxxx xxxxx xx > > xxxxxx 00000 00 > > 000000 00000 00 > > 000000 11111 11 > > 111111 11111 11 > > 111111 11111 11 > > 111111 11111 11 > > 000000 00000 00 > > 000000 00000 00 > > 000000 00000 00 > > xxxxxx xxxxx xx > > xxxxxx xxxxx xx > > xxxxxx xxxxx xx > > > > to this > > > > col_1 xx00111000xxx > > col_2 xx00111000xxx > > col_3 xx00111000xxx > > col_4 xx00111000xxx > > col_5 xx00111000xxx > > col_6 xx00111000xxx > > > > col_7 x001111000xxx > > col_8 x001111000xxx > > col_9 x001111000xxx > > col_10x001111000xxx > > col_11x001111000xxx > > col_12x001111000xxx > > > > col_13x001111000xxx > > col_14x001111000xxx > > > > what I do is transpose a large file as mentioned then do some pattern > > matching to mask transitions i.e. 1100 -> 1x00 or 11x00 > > > > then I transpose it back. > > > > I'm new to perl and took this transpose code and modified it to do what I > > wanted but don't fully understand it. > > Any help would be appreciated. > > > > Aaron > > > > -----Original Message----- > > From: Ken Williams [mailto:ken@mathforum.org] > > Sent: Thursday, November 29, 2001 8:07 PM > > To: mpls@pm.org > > Subject: Re: [mplspm]: RE: Help with a transpose script (included) > > > > > > Aaron, > > > > Can you explain, specifically, what the code is supposed to do? Perhaps > > an example? What's the format of the file, i.e. what do you mean by > > "column format"? > > > > By the way, the line "$line[$_] =~ s/(.)/$1/g;" is a very slow way to not > > do anything. What's its intention? > > > > -Ken > > > > > > > > "Nielsen, Aaron M" wrote: > > > > > > > >> I'm working on large pattern data in column format and am using the > > >> following sub to transpose the file so I cant do pattern matching on > > >> columns. I then call the transpose sub again to return the file to > > >> column format. The problem I'm running into is that the code is very > > >> slow and thought it will finish on small patterns it dies on large > > >> ones (around 10Meg). Any ideas on more efficient transpose scripts or > > >> a more efficient way to match patterns on column data? > > >> > > >> ------------------------------------------------ > > >> transpose($file,$file_transposed); > > >> > > >> sub transpose { > > >> > > >> package transpose; > > >> my (@ops) = @_; > > >> my $linesm1 = undef; > > >> my @line = undef; > > >> my $j = undef; > > >> my $i = undef; > > >> open (IN, $ops[0]) || die "1 $!\n"; > > >> open (OUT,"> $ops[1]") || die "2 $!\n"; > > >> while ( ) { > > >> $j = 0; > > >> chomp; > > >> @_ = split //; > > >> for ( @_ ) { > > >> if ( $j > $linesm1 ) { > > >> $line[$j] = " " x $i; > > >> $linesm1++; > > >> } > > >> $line[$j] .= $_; > > >> $j++; > > >> } > > >> for ( $j .. $linesm1 ) { > > >> $line[$_] .= ' '; > > >> } > > >> $i++; > > >> } > > >> for ( 0 .. $linesm1 ){ > > >> $line[$_] =~ s/(.)/$1/g; > > >> print OUT "$line[$_]\n"; > > >> } > > >> close OUT; > > >> close IN; > > >> } > > >> > > >> ------------------------------------------------ > > >> > > >> Thanks > > >> > > >> > > >> Aaron Nielsen PNG/CMO/PE&TE > > >> 503-712-1822 > > >> > > >> > > > > > > > > > -------------------------------------------------- > > > Minneapolis Perl Mongers mailing list > > > > > > To unsubscribe, send mail to majordomo@pm.org > > > with "unsubscribe mpls" in the body of the message. > > > > > > > > > > -------------------------------------------------- > > Minneapolis Perl Mongers mailing list > > > > To unsubscribe, send mail to majordomo@pm.org > > with "unsubscribe mpls" in the body of the message. > > > > > > -------------------------------------------------- > > Minneapolis Perl Mongers mailing list > > > > To unsubscribe, send mail to majordomo@pm.org > > with "unsubscribe mpls" in the body of the message. > #!/usr/bin/perl -w > # > > transpose('infile', 'outfile'); > > sub transpose { > my @files = @_; > my @col; > > ## open inbound and outbound files and > ## replace "DATA" and "STDOUT" below accordingly > > ## read it all in > while (my $row = ) { > chomp $row; > $num_cols = length($row) if !$num_cols; > for my $i (0 .. $num_cols-1) { > $col[$i] .= substr($row,$i,1); > } > } > > ## print it all out > for my $i (0 .. $num_cols-1) { > print STDOUT "$col[$i]\n" if $col[$i]; > } > } > > __DATA__ > cccccc ccccc cc > oooooo ooooo oo > llllll lllll ll > ______ _____ __ > 123456 78911 11 > 12 34 > xxxxxx xxxxx xx > xxxxxx 00000 00 > 000000 00000 00 > 000000 11111 11 > 111111 11111 11 > 111111 11111 11 > 111111 11111 11 > 000000 00000 00 > 000000 00000 00 > 000000 00000 00 > xxxxxx xxxxx xx > xxxxxx xxxxx xx > xxxxxx xxxxx xx -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message. From ken at mathforum.org Fri Nov 30 18:39:45 2001 From: ken at mathforum.org (Ken Williams) Date: Thu Aug 5 00:29:29 2004 Subject: [mplspm]: RE: Help with a transpose script (included) In-Reply-To: References: Message-ID: <45393283.1007145585@[10.0.0.2]> Hi Aaron, This "transpose" operation is a rather heavy one. If the files are big, it's not going to be very fast, and you're probably going to have to hold the whole file in memory at once. If you can't do that, it's going to be /extra/ slow. So if it's possible, it would be best to avoid the transposition altogether. Shaun's solution is decent, I don't think you'll find a significantly better algorithm. "Nielsen, Aaron M" wrote: > What the code does is the following. It takes large pattern files of > the following format and transposes them. > > cccccc ccccc cc > oooooo ooooo oo > llllll lllll ll [...] -Ken -------------------------------------------------- Minneapolis Perl Mongers mailing list To unsubscribe, send mail to majordomo@pm.org with "unsubscribe mpls" in the body of the message.