From dan at linder.org  Mon Feb  1 20:30:21 2010
From: dan at linder.org (Dan Linder)
Date: Mon, 1 Feb 2010 22:30:21 -0600
Subject: [Omaha.pm] [OT] Parsing XML with command line XSLT xsltproc...
Message-ID: <3e2be51002012030x78931cd7ne7e50ed2b28b29c5@mail.gmail.com>

I listen to quit a few podcasts, but some of their internal MP3
title/album/etc fields messed up.  My podcatcher (bashpodder -
http://lincgeek.org/bashpodder/) uses the xsltproc command line tool
to parse the RSS feed for the URLs for the MP3s.

When I try to parse an RSS feed with my XSL file (see below), I get
only the first RSS entry field:
    xsltproc parse.xsl http://leoville.tv/podcasts/sn.xml

Any idea how to modify the XSL file to work on all RSS entries?

Once I get that, it's fairly easy to use mp3info2 to fix the internal
MP3 fields so my player shows usable information.

On a side note, this site was a good primer on XSL:
    * http://accu.org/index.php/journals/311
Any others that people have found helpful?

Thanks,

Dan

=== begin parse.xsl ===
<?xml version="1.0"?>
<!--  -->
<stylesheet version="1.0"
        xmlns="http://www.w3.org/1999/XSL/Transform">
  <output method="text"/>
  <template match="/" >
###########################
ALBUM="<value-of select="/rss/channel/title"/>"
TITLE="<value-of select="/rss/channel/item/title"/>"
FILE="<value-of select="/rss/channel/item/enclosure/@url"/>"
###########################
  </template>
</stylesheet>
=== end parse.xsl ===

-- 
***************** ************* *********** ******* ***** *** **
"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)
** *** ***** ******* *********** ************* *****************

From sterling at hanenkamp.com  Mon Feb  1 21:33:49 2010
From: sterling at hanenkamp.com (Sterling Hanenkamp)
Date: Mon, 1 Feb 2010 23:33:49 -0600
Subject: [Omaha.pm] [OT] Parsing XML with command line XSLT xsltproc...
In-Reply-To: <3e2be51002012030x78931cd7ne7e50ed2b28b29c5@mail.gmail.com>
References: <3e2be51002012030x78931cd7ne7e50ed2b28b29c5@mail.gmail.com>
Message-ID: <c185b40e1002012133t1607fe79i956cac7f0ef40629@mail.gmail.com>

On Mon, Feb 1, 2010 at 10:30 PM, Dan Linder <dan at linder.org> wrote:

> I listen to quit a few podcasts, but some of their internal MP3
> title/album/etc fields messed up.  My podcatcher (bashpodder -
> http://lincgeek.org/bashpodder/) uses the xsltproc command line tool
> to parse the RSS feed for the URLs for the MP3s.
>
> When I try to parse an RSS feed with my XSL file (see below), I get
> only the first RSS entry field:
>    xsltproc parse.xsl http://leoville.tv/podcasts/sn.xml
>
> Any idea how to modify the XSL file to work on all RSS entries?
>

I hope you'll forgive me, but I'm going to be annoying and not answer your
question in the way that you asked. I dislike XSLT, so I'd use:

XML::RSS
XML::Twig
Or something else on CPAN

I used to do XSLT, particularly when I was mostly stuck working with Java.
Then, (after cutting off my Java) I realized that if I wanted a
Turing-complete template language, I already have Perl. Performance is about
the same, Perl has more features, and I don't have to use XML to write code.

-- 
Andrew Sterling Hanenkamp
sterling at hanenkamp.com
785.370.4454
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20100201/008e9542/attachment.html>

From evaddnomaid at gmail.com  Tue Feb  2 06:14:19 2010
From: evaddnomaid at gmail.com (Dave Burchell)
Date: Tue, 2 Feb 2010 08:14:19 -0600
Subject: [Omaha.pm] [OT] Parsing XML with command line XSLT xsltproc...
In-Reply-To: <3e2be51002012030x78931cd7ne7e50ed2b28b29c5@mail.gmail.com>
References: <3e2be51002012030x78931cd7ne7e50ed2b28b29c5@mail.gmail.com>
Message-ID: <6e25cf311002020614t2a125642kd8447323cdcc3dcf@mail.gmail.com>

Maybe try changing

<template match="/" >

to

<template match="//item" >

and change

TITLE="<value-of select="/rss/channel/item/title"/>"
FILE="<value-of select="/rss/channel/item/enclosure/@url"/>"

to

TITLE="<value-of select="title"/>"
FILE="<value-of select="enclosure/@url"/>"

(not tested)

- Dave


On Mon, Feb 1, 2010 at 10:30 PM, Dan Linder <dan at linder.org> wrote:

> I listen to quit a few podcasts, but some of their internal MP3
> title/album/etc fields messed up.  My podcatcher (bashpodder -
> http://lincgeek.org/bashpodder/) uses the xsltproc command line tool
> to parse the RSS feed for the URLs for the MP3s.
>
> When I try to parse an RSS feed with my XSL file (see below), I get
> only the first RSS entry field:
>    xsltproc parse.xsl http://leoville.tv/podcasts/sn.xml
>
> Any idea how to modify the XSL file to work on all RSS entries?
>
> Once I get that, it's fairly easy to use mp3info2 to fix the internal
> MP3 fields so my player shows usable information.
>
> On a side note, this site was a good primer on XSL:
>    * http://accu.org/index.php/journals/311
> Any others that people have found helpful?
>
> Thanks,
>
> Dan
>
> === begin parse.xsl ===
> <?xml version="1.0"?>
> <!--  -->
> <stylesheet version="1.0"
>        xmlns="http://www.w3.org/1999/XSL/Transform">
>  <output method="text"/>
>  <template match="/" >
> ###########################
> ALBUM="<value-of select="/rss/channel/title"/>"
> TITLE="<value-of select="/rss/channel/item/title"/>"
> FILE="<value-of select="/rss/channel/item/enclosure/@url"/>"
> ###########################
>  </template>
> </stylesheet>
> === end parse.xsl ===
>
> --
> ***************** ************* *********** ******* ***** *** **
> "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
>



-- 
Dave Burchell
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20100202/e33c5c67/attachment.html>

From dan at linder.org  Tue Feb  2 15:01:06 2010
From: dan at linder.org (Dan Linder)
Date: Tue, 2 Feb 2010 17:01:06 -0600
Subject: [Omaha.pm] [OT] Parsing XML with command line XSLT xsltproc...
In-Reply-To: <c185b40e1002012133t1607fe79i956cac7f0ef40629@mail.gmail.com>
References: <3e2be51002012030x78931cd7ne7e50ed2b28b29c5@mail.gmail.com> 
	<c185b40e1002012133t1607fe79i956cac7f0ef40629@mail.gmail.com>
Message-ID: <3e2be51002021501r13a8cc5ate4659da9996b19b9@mail.gmail.com>

2010/2/1 Sterling Hanenkamp <sterling at hanenkamp.com>:
> I hope you'll forgive me, but I'm going to be annoying and not answer your
> question in the way that you asked. I dislike XSLT, so I'd use:
> XML::RSS
> XML::Twig
> Or something else on CPAN

Completely understood - my only reason for using it is because
"bashpodder" used it in it's main script and I had a small bit of
sample XSL code to look at. :-)

I'm always up for trying to solve a problem with a new tool, and in
this case you're probably right that Perl and/or a CPAN module might
be the best solution.  I'll look into these.

> I used to do XSLT, particularly when I was mostly stuck working with Java.
> Then, (after cutting off my Java) I realized that if I wanted a
> Turing-complete template language, I already have Perl. Performance is about
> the same, Perl has more features, and I don't have to use XML to write code.

This is actually my first foray into XSLT.  Any XML I've ever
generated or parsed were from my own home-grown Perl scripts that
didn't use any CPAN modules...  (Thankfully I could control the format
of the data I was reading so nesting and other text formatting didn't
affect these tests..)

Thanks,

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)
** *** ***** ******* *********** ************* *****************

From jhannah at omnihotels.com  Tue Feb  2 19:25:09 2010
From: jhannah at omnihotels.com (Jay Hannah)
Date: Tue, 2 Feb 2010 21:25:09 -0600
Subject: [Omaha.pm] MooseX::StrictConstructor
Message-ID: <396CEDAA86B38646ACE2FEAA22C3FBF102EAB407@l3exchange.omnihotels.net>

http://search.cpan.org/~drolsky/MooseX-StrictConstructor-0.08/lib/MooseX
/StrictConstructor.pm

 

Ooo, that's cool. By default Moose silently ignores when you construct
with non-existent attributes. Unless you use this.  :)

 

j

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20100202/de754010/attachment.html>

From jhannah at omnihotels.com  Wed Feb  3 14:22:00 2010
From: jhannah at omnihotels.com (Jay Hannah)
Date: Wed, 3 Feb 2010 16:22:00 -0600
Subject: [Omaha.pm] q{} is your friend. shell escaping is not  :)
Message-ID: <396CEDAA86B38646ACE2FEAA22C3FBF102EAB59A@l3exchange.omnihotels.net>

These do the same thing. But the bottom is more readable, I think.
Thanks q{}!  

 

my $cmd = "ssh -l bkgndrun $server " . 'perl -e \\\'print join \" \",
@INC\\\'';

 

my $cmd = "ssh -l bkgndrun $server " . q{perl -e \'print join \" \",
@INC\'};

 

perldoc perlop   

   Quote and Quote-like Operators

 

j

 

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20100203/00104aa7/attachment.html>

From netarttodd at gmail.com  Wed Feb  3 14:38:44 2010
From: netarttodd at gmail.com (Todd Christopher Hamilton)
Date: Wed, 03 Feb 2010 16:38:44 -0600
Subject: [Omaha.pm] q{} is your friend. shell escaping is not  :)
In-Reply-To: <396CEDAA86B38646ACE2FEAA22C3FBF102EAB59A@l3exchange.omnihotels.net>
References: <396CEDAA86B38646ACE2FEAA22C3FBF102EAB59A@l3exchange.omnihotels.net>
Message-ID: <4B69FAF4.5010503@Gmail.com>

I agree. I use q{} often.  qq{} will do interpolation

On 2/3/2010 4:22 PM, Jay Hannah wrote:
> These do the same thing. But the bottom is more readable, I think.
> Thanks q{}!
>
> my $cmd = "ssh -l bkgndrun $server " . 'perl -e \\\'print join \" \",
> @INC\\\'';
>
> my $cmd = "ssh -l bkgndrun $server " . q{perl -e \'print join \" \",
> @INC\'};
>
> perldoc perlop
>
> Quote and Quote-like Operators
>
> j
>
>
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm

-- 
Todd Hamilton
(402) 881-0438

From netarttodd at gmail.com  Thu Feb  4 07:58:21 2010
From: netarttodd at gmail.com (Todd Christopher Hamilton)
Date: Thu, 04 Feb 2010 09:58:21 -0600
Subject: [Omaha.pm] q{} is your friend. shell escaping is not  :)
In-Reply-To: <396CEDAA86B38646ACE2FEAA22C3FBF102EAB59A@l3exchange.omnihotels.net>
References: <396CEDAA86B38646ACE2FEAA22C3FBF102EAB59A@l3exchange.omnihotels.net>
Message-ID: <4B6AEE9D.4080400@Gmail.com>

I was wondering something though.  Which one would you do?:

sub goofy_a {
     my $sql = <<'EOF';
         SELECT Foo
         FROM Bar
         WHERE Foo IS NOT NULL
EOF
     return $sql;
}

or

sub goofy_b {
     my $sql = q{
         SELECT Foo
         FROM Bar
         WHERE Foo IS NOT NULL
     };
     return $sql;
}

I like goffy_b because I don't have to have the EOF terminator in column 
1 but I think PerCritic complains about using q{} over multiple lines.

On 2/3/2010 4:22 PM, Jay Hannah wrote:
> These do the same thing. But the bottom is more readable, I think.
> Thanks q{}!
>
> my $cmd = "ssh -l bkgndrun $server " . 'perl -e \\\'print join \" \",
> @INC\\\'';
>
> my $cmd = "ssh -l bkgndrun $server " . q{perl -e \'print join \" \",
> @INC\'};
>
> perldoc perlop
>
> Quote and Quote-like Operators
>
> j
>
>
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm

-- 
Todd Hamilton
(402) 881-0438

From andy at petdance.com  Thu Feb  4 08:20:51 2010
From: andy at petdance.com (Andy Lester)
Date: Thu, 4 Feb 2010 10:20:51 -0600
Subject: [Omaha.pm] q{} is your friend. shell escaping is not  :)
In-Reply-To: <4B6AEE9D.4080400@Gmail.com>
References: <396CEDAA86B38646ACE2FEAA22C3FBF102EAB59A@l3exchange.omnihotels.net>
	<4B6AEE9D.4080400@Gmail.com>
Message-ID: <AE63F8B4-9576-47D5-B44F-6B588F2A1232@petdance.com>


On Feb 4, 2010, at 9:58 AM, Todd Christopher Hamilton wrote:

> I like goffy_b because I don't have to have the EOF terminator in  
> column 1 but I think PerCritic complains about using q{} over  
> multiple lines.


Heredocs have the benefit of being much easier to cut & paste into  
other places, whether from the editor or from the terminal.  I used it  
always for all SQL, certainly.

Also, with $x = q{\n....\n}, you get the leading \n, whereas with  
heredocs you don't.

xoxo,
Andy

--
Andy Lester => andy at petdance.com => www.theworkinggeek.com => AIM:petdance





From jay at jays.net  Thu Feb  4 08:57:21 2010
From: jay at jays.net (Jay Hannah)
Date: Thu, 4 Feb 2010 10:57:21 -0600
Subject: [Omaha.pm] q{} is your friend. shell escaping is not  :)
In-Reply-To: <4B6AEE9D.4080400@Gmail.com>
References: <396CEDAA86B38646ACE2FEAA22C3FBF102EAB59A@l3exchange.omnihotels.net>
	<4B6AEE9D.4080400@Gmail.com>
Message-ID: <000ABE9D-FA83-4D74-AF3F-72736E4CB371@jays.net>

On Feb 4, 2010, at 9:58 AM, Todd Christopher Hamilton wrote:
> I was wondering something though.  Which one would you do?:

I do this:

sub goofy_j {
   my $sql = <<EOT;
SELECT Foo
FROM Bar
WHERE Foo IS NOT NULL
EOT
   return $sql;
}

I guess I like having blocks of stuff that's not Perl in column 1. I think my eye sees "not Perl" faster that way.

EOT instead of EOF cause it's always the end of some Text, not the end of the File.  :)

$0.02, 

j


From sterling at hanenkamp.com  Thu Feb  4 11:18:33 2010
From: sterling at hanenkamp.com (Sterling Hanenkamp)
Date: Thu, 4 Feb 2010 13:18:33 -0600
Subject: [Omaha.pm] q{} is your friend. shell escaping is not :)
In-Reply-To: <000ABE9D-FA83-4D74-AF3F-72736E4CB371@jays.net>
References: <396CEDAA86B38646ACE2FEAA22C3FBF102EAB59A@l3exchange.omnihotels.net>
	<4B6AEE9D.4080400@Gmail.com>
	<000ABE9D-FA83-4D74-AF3F-72736E4CB371@jays.net>
Message-ID: <c185b40e1002041118t2f36b3f9m7b6cd9ca5aa2efd9@mail.gmail.com>

On Thu, Feb 4, 2010 at 10:57 AM, Jay Hannah <jay at jays.net> wrote:

> On Feb 4, 2010, at 9:58 AM, Todd Christopher Hamilton wrote:
> > I was wondering something though.  Which one would you do?:
>
>
I don't like heredocs. That's mostly simple prejudice. I just don't like
them. However, when I rarely use them,

1) I always specify the quoting. That is, always <<"EOF" or <<'EOF' rather
than <<EOF. It makes what I'm doing more explicit.

2) I never use a generic short "EOF" that's too likely to appear somewhere
in any given text. Instead, I use something like "END_OF_BAR_SQL"

In general, though. I almost always use multi-line q[] or qq[] or q() or
qq() or q{} or qq{} etc.

-- 
Andrew Sterling Hanenkamp
sterling at hanenkamp.com
785.370.4454
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20100204/8930d3eb/attachment.html>

From ptimmins at cox.net  Fri Feb  5 23:33:00 2010
From: ptimmins at cox.net (Patrick Timmins)
Date: Sat, 06 Feb 2010 01:33:00 -0600
Subject: [Omaha.pm] [OT] Parsing XML with command line XSLT xsltproc...
In-Reply-To: <3e2be51002021501r13a8cc5ate4659da9996b19b9@mail.gmail.com>
References: <3e2be51002012030x78931cd7ne7e50ed2b28b29c5@mail.gmail.com>
	<c185b40e1002012133t1607fe79i956cac7f0ef40629@mail.gmail.com>
	<3e2be51002021501r13a8cc5ate4659da9996b19b9@mail.gmail.com>
Message-ID: <4B6D1B2C.8010009@cox.net>

Tools that understand XSL are ubiquitous ... I sure wouldn't recommend 
down-loading or writing some code (Perl or otherwise), and then manually 
going through the process of running the RSS through your code, and then 
re-loading the output into your player.  Foist the work off on the 
machines/devices, I say :



<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet version="1.0" 
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

 <xsl:output method="html"/>

 <xsl:template match="/" >
  <html>
   <body>
    <xsl:for-each select="//channel">
     <table>
      <tr>
       <th style="text-align: center;">
        <a>
         <xsl:attribute name="href">
          <xsl:value-of select="link" />
         </xsl:attribute>
         <xsl:value-of select="title" />
        </a>
       </th>
      </tr>
       <tr>
        <td style="text-align: center; font-size: smaller;">
         Last Updated on <xsl:value-of select="pubDate" />
        </td>
       </tr>
       <tr>
        <td>
         <hr />
        </td>
       </tr>
      <xsl:for-each select="item">
       <tr>
        <td style="text-align: left;">
         <a>
          <xsl:attribute name="href">
           <xsl:value-of select="link" />
          </xsl:attribute>
          <xsl:value-of select="title" />
         </a>
        </td>
       </tr>
       <tr>
        <td>
         <xsl:value-of select="description" disable-output-escaping="yes" />
        </td>
       </tr>
       <tr>
        <td>
         <hr />
        </td>
       </tr>
      </xsl:for-each>
     </table>
    </xsl:for-each>
   </body>
  </html>
 </xsl:template>

</xsl:stylesheet>



XSL is your friend.  Resistance is futile.  You will be assimilated.

:)

Pat
-- 
Patrick Timmins
ptimmins at cox.net



Dan Linder wrote:
> 2010/2/1 Sterling Hanenkamp <sterling at hanenkamp.com>:
>   
>> I hope you'll forgive me, but I'm going to be annoying and not answer your
>> question in the way that you asked. I dislike XSLT, so I'd use:
>> XML::RSS
>> XML::Twig
>> Or something else on CPAN
>>     
>
> Completely understood - my only reason for using it is because
> "bashpodder" used it in it's main script and I had a small bit of
> sample XSL code to look at. :-)
>
> I'm always up for trying to solve a problem with a new tool, and in
> this case you're probably right that Perl and/or a CPAN module might
> be the best solution.  I'll look into these.
>
>   
>> I used to do XSLT, particularly when I was mostly stuck working with Java.
>> Then, (after cutting off my Java) I realized that if I wanted a
>> Turing-complete template language, I already have Perl. Performance is about
>> the same, Perl has more features, and I don't have to use XML to write code.
>>     
>
> This is actually my first foray into XSLT.  Any XML I've ever
> generated or parsed were from my own home-grown Perl scripts that
> didn't use any CPAN modules...  (Thankfully I could control the format
> of the data I was reading so nesting and other text formatting didn't
> affect these tests..)
>
> Thanks,
>
> Dan
>   



From jay at jays.net  Sat Feb  6 06:13:48 2010
From: jay at jays.net (Jay Hannah)
Date: Sat, 6 Feb 2010 08:13:48 -0600
Subject: [Omaha.pm] Eliminating Inheritance via Smalltalk-Style Traits (all
	examples in Perl)
Message-ID: <CB13770A-F96B-40E3-9941-9205BE4741DB@jays.net>

Ovid is a Perl programmer for the BBC. Excellent read.

j



http://www.slideshare.net/Ovid/inheritance-versus-roles-1799996
Eliminating Inheritance Via Smalltalk-Style Traits

Some of my favorite excerpts:

What?s important here is that these aren?t debates about a piece of code you implemented last week. These are serious debates about the implementation of the languages themselves. While most people are generally on board about things such as polymorphism and encapsulation, arguments about appropriate use of inheritance have been going on for over four decades.

Anyone forced to use "vi" (not even "vim") while trying to create an emergency patch of broken code over a slow telnet connection at 2:30 in the morning is going to get very irritated if your codebase is so complex that you need a large IDE to comprehend it.

The Moose class hierarchy:
http://www.flickr.com/photos/publius_ovidius/3549146507/sizes/o/



From trey-b at cox.net  Sat Feb  6 06:54:14 2010
From: trey-b at cox.net (trey-b at cox.net)
Date: Sat, 6 Feb 2010 08:54:14 -0600
Subject: [Omaha.pm] Eliminating Inheritance via Smalltalk-Style Traits
	(allexamples in Perl)
In-Reply-To: <CB13770A-F96B-40E3-9941-9205BE4741DB@jays.net>
References: <CB13770A-F96B-40E3-9941-9205BE4741DB@jays.net>
Message-ID: <9CA95923F9624D5D9CF457E7FD4911ED@bloodblister>

> Anyone forced to use "vi" (not even "vim") while trying to create an 
> emergency patch of broken code over a slow telnet connection at 2:30 in 
> the morning is going to get very irritated if your codebase is so complex 
> that you need a large IDE to comprehend it.

That is kind of silly.  If you're shop is using IDE and developing under 
that sort of framework, your support people should be familiar with the code 
and the methods used to program it/maintain it.

That's sort of like saying that somebody is going to be irritated because 
they can't stoke up a hydroelectric plant with bellows...So what??



From jay at jays.net  Sat Feb  6 09:14:46 2010
From: jay at jays.net (Jay Hannah)
Date: Sat, 6 Feb 2010 11:14:46 -0600
Subject: [Omaha.pm] Eliminating Inheritance via Smalltalk-Style Traits
	(allexamples in Perl)
In-Reply-To: <9CA95923F9624D5D9CF457E7FD4911ED@bloodblister>
References: <CB13770A-F96B-40E3-9941-9205BE4741DB@jays.net>
	<9CA95923F9624D5D9CF457E7FD4911ED@bloodblister>
Message-ID: <2017EF80-C7E4-4E59-8E60-6EE91049877F@jays.net>

On Feb 6, 2010, at 8:54 AM, <trey-b at cox.net> wrote:
>> Anyone forced to use "vi" (not even "vim") while trying to create an emergency patch of broken code over a slow telnet connection at 2:30 in the morning is going to get very irritated if your codebase is so complex that you need a large IDE to comprehend it.
> 
> That is kind of silly.  If you're shop is using IDE and developing under that sort of framework, your support people should be familiar with the code and the methods used to program it/maintain it.

Agreed. And have the capacity to perform emergency maintenance remotely via whatever means are necessary to do so.

I don't think he's arguing that slow Internet connections are a good idea. I think he's saying they happen.

> That's sort of like saying that somebody is going to be irritated because they can't stoke up a hydroelectric plant with bellows...So what??

I love your analogy.  :)   So what? So your business is losing money in the scenario he describes.

I see this an indictment of relying too heavily on fancy developer tools to gloss over crappy code. If my code sucks in text form, but when I right-click on it a million lines of code in my IDE jumps to my rescue and explains it to me in pretty colors, then I'm helpless without that IDE. That sounds like a bad idea.

In the stack of technology ignorance and dependency I've planted my flag here:

- I don't really know or care about sub-atomic particles.
- I don't really know or care how electrons flow through conductors.
- I don't really know or care about chip design.
- I don't really know or care how hard drives, memory, and monitors actually work.
- I don't really know or care how the Linux kernel works.
- I don't really know or care how perl is written (in C).
- I don't really know or care how most of perl's core packages work (in Perl/XS/C).
- I don't really know deeply or care how most of the CPAN modules I use work (in Perl/XS/C).
- I know EXACTLY how the text of the Perl I wrote works. I do recursive grep's through text files to find out anything I need to know.
- Syntax highlighting is a crutch for the weak.
- Method auto-discovery is a crutch for the weak.
- Per-keystroke debugging is a crutch for the weak.
- Re-runnable images of crashes are a crutch for the weak.
- All that other fancy crap in your IDE is fancy crap I don't need. For the weak.  :)

Objectively, my gut-opinions about exactly where that line is are silly. Aren't they?

If you take me and my Apple laptop running Terminal.app to ssh into a server and run vi, and next to me you sit a .NET guy running the latest Visual Studio on a mapped drive; is the total complexity of my dependency stack much smaller than his? (OS X is how many millions of lines of code?)

I don't know. I've now spent an hour arguing with myself about it.  :)

In any event, I don't thing it's the use or avoidance of an IDE that makes good or poor code. You can create beautiful or ugly code with the simplest or fanciest of tools. 

I do think he has a point. If your "...codebase is so complex that you need a large IDE to comprehend it." Then you're doing something wrong. Use an IDE because you want to, not because it's impossible to survive your mess without it.

/me shakes his fist at XML Spy addicts

Ponder,

j


From trey-b at cox.net  Sat Feb  6 09:59:35 2010
From: trey-b at cox.net (trey-b at cox.net)
Date: Sat, 6 Feb 2010 11:59:35 -0600
Subject: [Omaha.pm] Eliminating Inheritance via Smalltalk-Style
	Traits(allexamples in Perl)
In-Reply-To: <2017EF80-C7E4-4E59-8E60-6EE91049877F@jays.net>
References: <CB13770A-F96B-40E3-9941-9205BE4741DB@jays.net><9CA95923F9624D5D9CF457E7FD4911ED@bloodblister>
	<2017EF80-C7E4-4E59-8E60-6EE91049877F@jays.net>
Message-ID: <6B43CBB2D27747A197BA1D7FB8E60D0F@bloodblister>



> I do think he has a point. If your "...codebase is so complex that you 
> need a large IDE to comprehend it." Then you're doing something wrong. Use 
> an IDE because you want to, not because it's impossible to survive your 
> mess without it.

I think the point that I was trying to make is that we use techonology to 
allow us to do things we couldn't do without it.  Once a given technology is 
embraced it's usually "impossible to survive your mess without it".  Try to 
fly w/o your airplane.  To punctuate the point consider that modern fighter 
airplanes can't even stay in the air w/o a computer, people can't react that 
quickly.

In the case of computer code base and development tools it's all pretty 
arbitrary where you draw your line in the sand and I don't think it really 
matters how "deep your dependency stack is" as long as it works properly, 
and what you happen to be using either helps you or gets in your way.  I'm 
sure that many "good" codebases could not be maintained w/o the proper 
tools.  Maintain your perl codebase with punchcards.

As long as your technology/toolset is helping and not hurting you who cares 
what it is.  To utilize any sort of technology takes a certain skill set, 
infrastructure and box of tools.  Preaching vi vs IDE, or biclycle vs 
airplane, or wood fire vs hydroelectric plant, or earth is flat vs earth is 
round, or black vs white or whatever..is only clinging to the familiar and 
trying to avoid change and is ultimately self limiting, lets face it vi is 
technology from the 60's lol.  Just because it is still useful doesn't mean 
it's the right tool for everything.  If you don't get what I mean me just 
try to fly your bicycle from New Mexico to hawaii and let me know how it 
goes.  Sorry if my spelling is bad but my spell checker isn't working and 
I'm not willing to get out my Dictionary....


>
> /me shakes his fist at XML Spy addicts
>
> Ponder,
>
> j
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm 


From rob.townley at gmail.com  Sat Feb  6 13:34:02 2010
From: rob.townley at gmail.com (Rob Townley)
Date: Sat, 6 Feb 2010 15:34:02 -0600
Subject: [Omaha.pm] [OT] Parsing XML with command line XSLT xsltproc...
In-Reply-To: <4B6D1B2C.8010009@cox.net>
References: <3e2be51002012030x78931cd7ne7e50ed2b28b29c5@mail.gmail.com>
	<c185b40e1002012133t1607fe79i956cac7f0ef40629@mail.gmail.com>
	<3e2be51002021501r13a8cc5ate4659da9996b19b9@mail.gmail.com>
	<4B6D1B2C.8010009@cox.net>
Message-ID: <7e84ed61002061334g7fc4ca3dj1ad427f4899b0d32@mail.gmail.com>

On Sat, Feb 6, 2010 at 1:33 AM, Patrick Timmins <ptimmins at cox.net> wrote:
> Tools that understand XSL are ubiquitous ... I sure wouldn't recommend
> down-loading or writing some code (Perl or otherwise), and then manually
> going through the process of running the RSS through your code, and then
> re-loading the output into your player. ?Foist the work off on the
> machines/devices, I say :
>
>
>
> <?xml version="1.0" encoding="utf-8"?>
> <xsl:stylesheet version="1.0"
> xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
>
> <xsl:output method="html"/>
>
> <xsl:template match="/" >
> ?<html>
> ?<body>
> ? <xsl:for-each select="//channel">
> ? ?<table>
> ? ? <tr>
> ? ? ?<th style="text-align: center;">
> ? ? ? <a>
> ? ? ? ?<xsl:attribute name="href">
> ? ? ? ? <xsl:value-of select="link" />
> ? ? ? ?</xsl:attribute>
> ? ? ? ?<xsl:value-of select="title" />
> ? ? ? </a>
> ? ? ?</th>
> ? ? </tr>
> ? ? ?<tr>
> ? ? ? <td style="text-align: center; font-size: smaller;">
> ? ? ? ?Last Updated on <xsl:value-of select="pubDate" />
> ? ? ? </td>
> ? ? ?</tr>
> ? ? ?<tr>
> ? ? ? <td>
> ? ? ? ?<hr />
> ? ? ? </td>
> ? ? ?</tr>
> ? ? <xsl:for-each select="item">
> ? ? ?<tr>
> ? ? ? <td style="text-align: left;">
> ? ? ? ?<a>
> ? ? ? ? <xsl:attribute name="href">
> ? ? ? ? ?<xsl:value-of select="link" />
> ? ? ? ? </xsl:attribute>
> ? ? ? ? <xsl:value-of select="title" />
> ? ? ? ?</a>
> ? ? ? </td>
> ? ? ?</tr>
> ? ? ?<tr>
> ? ? ? <td>
> ? ? ? ?<xsl:value-of select="description" disable-output-escaping="yes" />
> ? ? ? </td>
> ? ? ?</tr>
> ? ? ?<tr>
> ? ? ? <td>
> ? ? ? ?<hr />
> ? ? ? </td>
> ? ? ?</tr>
> ? ? </xsl:for-each>
> ? ?</table>
> ? </xsl:for-each>
> ?</body>
> ?</html>
> </xsl:template>
>
> </xsl:stylesheet>
>
>
>
> XSL is your friend. ?Resistance is futile. ?You will be assimilated.
>
> :)
>
> Pat
> --
> Patrick Timmins
> ptimmins at cox.net
>
>
>
> Dan Linder wrote:
>>
>> 2010/2/1 Sterling Hanenkamp <sterling at hanenkamp.com>:
>>
>>>
>>> I hope you'll forgive me, but I'm going to be annoying and not answer
>>> your
>>> question in the way that you asked. I dislike XSLT, so I'd use:
>>> XML::RSS
>>> XML::Twig
>>> Or something else on CPAN
>>>
>>
>> Completely understood - my only reason for using it is because
>> "bashpodder" used it in it's main script and I had a small bit of
>> sample XSL code to look at. :-)
>>
>> I'm always up for trying to solve a problem with a new tool, and in
>> this case you're probably right that Perl and/or a CPAN module might
>> be the best solution. ?I'll look into these.
>>
>>
>>>
>>> I used to do XSLT, particularly when I was mostly stuck working with
>>> Java.
>>> Then, (after cutting off my Java) I realized that if I wanted a
>>> Turing-complete template language, I already have Perl. Performance is
>>> about
>>> the same, Perl has more features, and I don't have to use XML to write
>>> code.
>>>
>>
>> This is actually my first foray into XSLT. ?Any XML I've ever
>> generated or parsed were from my own home-grown Perl scripts that
>> didn't use any CPAN modules... ?(Thankfully I could control the format
>> of the data I was reading so nesting and other text formatting didn't
>> affect these tests..)
>>
>> Thanks,
>>
>> Dan
>>
>
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm
>
If you have to work with someone averse to the command line.
i used the following Firefox addon to show a edi vendor was sending
syntactically correct XML but it didn't meet the DTD.

Firefox addon for xslt.
Load the XML file.
Load the XSLT file and apply.

https://addons.mozilla.org/en-US/firefox/addon/5023

From evaddnomaid at gmail.com  Sat Feb  6 13:59:58 2010
From: evaddnomaid at gmail.com (Dave Burchell)
Date: Sat, 6 Feb 2010 15:59:58 -0600
Subject: [Omaha.pm] Eliminating Inheritance via Smalltalk-Style
	Traits(allexamples in Perl)
In-Reply-To: <6B43CBB2D27747A197BA1D7FB8E60D0F@bloodblister>
References: <CB13770A-F96B-40E3-9941-9205BE4741DB@jays.net> 
	<9CA95923F9624D5D9CF457E7FD4911ED@bloodblister>
	<2017EF80-C7E4-4E59-8E60-6EE91049877F@jays.net> 
	<6B43CBB2D27747A197BA1D7FB8E60D0F@bloodblister>
Message-ID: <6e25cf311002061359r13e2a6favbc7936bef878183f@mail.gmail.com>

On Sat, Feb 6, 2010 at 11:59 AM, <trey-b at cox.net> wrote:

>  Sorry if my spelling is bad but my spell checker isn't working and I'm not
> willing to get out my Dictionary....
>
>
Vim has spell check.


-- 
Dave Burchell
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20100206/23fb7bad/attachment.html>

From jay at jays.net  Tue Feb  9 11:06:13 2010
From: jay at jays.net (Jay Hannah)
Date: Tue, 9 Feb 2010 13:06:13 -0600
Subject: [Omaha.pm] Meeting tonight, 7pm! Challenge hack-a-thon
In-Reply-To: <ca797bfd-f424-4ef2-914d-5197db175a0b@v25g2000yqk.googlegroups.com>
References: <ca797bfd-f424-4ef2-914d-5197db175a0b@v25g2000yqk.googlegroups.com>
Message-ID: <538BAE1E-844D-439C-B4E8-F8A81425339F@jays.net>

On Feb 9, 2010, at 10:26 AM, Ryan Stille wrote:
> Is there a meeting tonight?  Whats the topic?

Oops! Yup! It snuck up on me.  :)

   http://jays.net/wiki/Odlug

We'll be covering whatever anyone brings, and/or hacking on our 2 most recent challenges:

   http://github.com/jhannah/odynug

      pet_paradise - Juan is currently winning w/ Ruby. Brace for a Perl comeback!

      check_the_check - let's get a Board object parsing, and rough out the piece movements

And hopefully retiring to SIG-BEER sooner rather than later.  :)

See you there!

j


From jay at jays.net  Thu Feb 11 04:28:23 2010
From: jay at jays.net (Jay Hannah)
Date: Thu, 11 Feb 2010 06:28:23 -0600
Subject: [Omaha.pm] Startup Weekend Omaha: Mar 19-21
References: <6326e7db1002090918y4f02eb6dh236e8e2ab63fbe63@mail.gmail.com>
Message-ID: <B2FA98AD-30CA-4A05-B82A-B37998C66537@jays.net>


Begin forwarded message:
> From: Corey Spitzer <techmonkey4u at gmail.com>
> Date: February 9, 2010 11:18:10 AM CST
> 
> Hey, I'm not trying to spam here, but I just wanted to let you all
> know about an event that's coming up that I'm sure a lot of people on
> this list would be interested in.  Startup Weekend Omaha is a
> non-profit, community building event that brings together
> entrepreneurs of all backgrounds including software developers,
> marketers, designers, and other enthusiasts to start companies in just
> 54 hours.  The participants that attend a Startup Weekend decide what
> they want to tackle over the weekend and come out at the end with
> several developed companies or projects.
> 
> This is Omaha's first Startup Weekend, but the event occurs all over
> the country throughout the year and they have been very successful.
> The event will be held the weekend of March 19 and more info is at
> http://omaha.startupweekend.org .
> 
> Hope to see you there.  Thanks.

From jay at jays.net  Thu Feb 11 11:56:54 2010
From: jay at jays.net (Jay Hannah)
Date: Thu, 11 Feb 2010 13:56:54 -0600
Subject: [Omaha.pm] map {} instead of $i
Message-ID: <14D82DAD-06B0-47AC-A9B1-D24E1630D5D2@jays.net>

BEFORE:

foreach (my $i=0; $i < scalar(@a); $i++) {
   $a[$i] = -1 unless (defined $a[$i]);
}


AFTER:

@a = map { defined $_ ? $_ : -1 } @a;


Your thoughts?

j



From andy at petdance.com  Thu Feb 11 12:02:59 2010
From: andy at petdance.com (Andy Lester)
Date: Thu, 11 Feb 2010 14:02:59 -0600
Subject: [Omaha.pm] map {} instead of $i
In-Reply-To: <14D82DAD-06B0-47AC-A9B1-D24E1630D5D2@jays.net>
References: <14D82DAD-06B0-47AC-A9B1-D24E1630D5D2@jays.net>
Message-ID: <129B6ECA-B5EA-41E0-84B4-0F317E4C9BA2@petdance.com>


On Feb 11, 2010, at 1:56 PM, Jay Hannah wrote:

> foreach (my $i=0; $i < scalar(@a); $i++) {
>   $a[$i] = -1 unless (defined $a[$i]);
> }
>
>
> AFTER:
>
> @a = map { defined $_ ? $_ : -1 } @a;


Yes, that's what map is for.  But you're using indexing you don't  
need.  In for() loops, $_ is an alias to the real element.

for ( @a ) {
     $_ = -1 unless defined($_);
}

That way you're doing it in place, instead of creating a new array and  
then replacing the original.

http://perl101.org/flow-control.html

xoxo,
Andy


--
Andy Lester => andy at petdance.com => www.theworkinggeek.com => AIM:petdance





From trey-b at cox.net  Thu Feb 11 18:04:40 2010
From: trey-b at cox.net (trey-b at cox.net)
Date: Thu, 11 Feb 2010 20:04:40 -0600
Subject: [Omaha.pm] map {} instead of $i
In-Reply-To: <14D82DAD-06B0-47AC-A9B1-D24E1630D5D2@jays.net>
References: <14D82DAD-06B0-47AC-A9B1-D24E1630D5D2@jays.net>
Message-ID: <90ED05ABCE864F74B4DF20AA87290607@bloodblister>

1. oh I get it.
2. perdoc -f map...damn you Jay!
----- Original Message ----- 
From: "Jay Hannah" <jay at jays.net>
To: "Nebraska USA Perl Mongers of Omaha" <omaha-pm at pm.org>
Sent: Thursday, February 11, 2010 1:56 PM
Subject: [Omaha.pm] map {} instead of $i


> BEFORE:
> 
> foreach (my $i=0; $i < scalar(@a); $i++) {
>   $a[$i] = -1 unless (defined $a[$i]);
> }
> 
> 
> AFTER:
> 
> @a = map { defined $_ ? $_ : -1 } @a;
> 
> 
> Your thoughts?
> 
> j
> 
> 
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm

From Jay at RebootTheUser.com  Fri Feb 12 05:12:34 2010
From: Jay at RebootTheUser.com (Jay Swackhamer)
Date: Fri, 12 Feb 2010 07:12:34 -0600
Subject: [Omaha.pm] Zoned Decimal/Packed Data
Message-ID: <20100212071234.zh57wsh1k40kc80o@webmail.hotr.com>

Does anyone have any pointers/snippets/links for working summing zoned  
decimal data?

I am working on a perl program to replace the functionality of  
'syncsort' and have gotten to an option that summarizes fields in the  
datafiles, and it's in a 'zoned decimal' format.

This portion of code will take the sorted file, and based on key  
fields, summarize other fields, and put back one record into the output.

-- 
Jay Swackhamer
Reboot The User
402-933-6449
http://www.reboottheuser.com
http://www.cafepress.com/rtu
http://stores.ebay.com/RebootTheUser
http://www.hotr.com






From jay at jays.net  Fri Feb 12 10:32:54 2010
From: jay at jays.net (Jay Hannah)
Date: Fri, 12 Feb 2010 12:32:54 -0600
Subject: [Omaha.pm] Zoned Decimal/Packed Data
In-Reply-To: <20100212071234.zh57wsh1k40kc80o@webmail.hotr.com>
References: <20100212071234.zh57wsh1k40kc80o@webmail.hotr.com>
Message-ID: <4B759ED6.3060302@jays.net>

On 2/12/2010 7:12 AM, Jay Swackhamer wrote:
> Does anyone have any pointers/snippets/links for working summing zoned
> decimal data?
>
> I am working on a perl program to replace the functionality of
> 'syncsort' and have gotten to an option that summarizes fields in the
> datafiles, and it's in a 'zoned decimal' format.
>
> This portion of code will take the sorted file, and based on key fields,
> summarize other fields, and put back one record into the output.

I haven't done anything like that. Do these help at all?

    http://search.cpan.org/search/?query=zoned+decimal&mode=all

    http://perldoc.perl.org/functions/pack.html

    http://www.google.com/search?q=perl+"zoned+decimal"

I'm sure we could help with general Perl questions.  :)

j


From Jay at RebootTheUser.com  Fri Feb 12 11:05:32 2010
From: Jay at RebootTheUser.com (Jay Swackhamer)
Date: Fri, 12 Feb 2010 13:05:32 -0600
Subject: [Omaha.pm] Zoned Decimal/Packed Data
In-Reply-To: <4B759ED6.3060302@jays.net>
References: <20100212071234.zh57wsh1k40kc80o@webmail.hotr.com>
	<4B759ED6.3060302@jays.net>
Message-ID: <20100212130532.pt4zban5q8oscok8@webmail.hotr.com>

yes, thanks, I've been looking at that Convert::IBM390, and it looks  
like it should work for what I need to do, just was hoping someone  
else had experience.

-- 
Jay Swackhamer
Reboot The User
402-933-6449
http://www.reboottheuser.com
http://www.cafepress.com/rtu
http://stores.ebay.com/RebootTheUser
http://www.hotr.com


Quoting Jay Hannah <jay at jays.net>:

> On 2/12/2010 7:12 AM, Jay Swackhamer wrote:
>> Does anyone have any pointers/snippets/links for working summing zoned
>> decimal data?
>>
>> I am working on a perl program to replace the functionality of
>> 'syncsort' and have gotten to an option that summarizes fields in the
>> datafiles, and it's in a 'zoned decimal' format.
>>
>> This portion of code will take the sorted file, and based on key fields,
>> summarize other fields, and put back one record into the output.
>
> I haven't done anything like that. Do these help at all?
>
>    http://search.cpan.org/search/?query=zoned+decimal&mode=all
>
>    http://perldoc.perl.org/functions/pack.html
>
>    http://www.google.com/search?q=perl+"zoned+decimal"
>
> I'm sure we could help with general Perl questions.  :)
>
> j
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm




From jay at jays.net  Fri Feb 12 11:03:59 2010
From: jay at jays.net (Jay Hannah)
Date: Fri, 12 Feb 2010 13:03:59 -0600
Subject: [Omaha.pm] Zoned Decimal/Packed Data
In-Reply-To: <20100212130532.pt4zban5q8oscok8@webmail.hotr.com>
References: <20100212071234.zh57wsh1k40kc80o@webmail.hotr.com>	<4B759ED6.3060302@jays.net>
	<20100212130532.pt4zban5q8oscok8@webmail.hotr.com>
Message-ID: <4B75A61F.2050508@jays.net>

On 2/12/2010 1:05 PM, Jay Swackhamer wrote:
> yes, thanks, I've been looking at that Convert::IBM390, and it looks
> like it should work for what I need to do, just was hoping someone else
> had experience.

Gotta love CPAN. Like no other resource.

What's Perl? Perl is that thing you learn so you can use CPAN to avoid 
having to solve problems yourself.   :)

j


From dan at linder.org  Wed Feb 17 18:49:04 2010
From: dan at linder.org (Dan Linder)
Date: Wed, 17 Feb 2010 20:49:04 -0600
Subject: [Omaha.pm] Google Fiber home Internet sevice RFI
Message-ID: <3e2be51002171849n7fbc483dk2bbef8d1cb176da0@mail.gmail.com>

I'd push for everyone to look at the RFI (Request For Information)
page Google has put up:

http://www.google.com/appserve/fiberrfi

>From their page:
     We plan to test ultra-high speed broadband networks in one or more
     trial locations across the country. Our networks will deliver Internet
     speeds more than 100 times faster than what most Americans have
     access to today, over 1 gigabit per second, fiber-to-the-home connections.
     We'll offer service at a competitive price to at least 50,000 and
potentially
     up to 500,000 people.

If this interests you, I'd like to ask everyone to register your
support for this.  I think having a true competitor to the TeleCom and
Cable companies would be a good thing.  Maybe we'd get our Internet
access up to what other parts of the world already have.

Some of their goals intrigue me, especially this one:
     We'll operate an "open access" network, giving users the choice of multiple
     service providers. And consistent with our past advocacy, we'll manage our
     network in an open, non-discriminatory, and transparent way.

To me that implies that you won't get shut down for sharing your WiFi
with friends and neighbors, or hosting a web/mail server in your home.
 Imagine if the radio companies of the 20's had clamped down on
homebrew experimentation?  Imagine what a smart high-school kid with a
bit of electrical and programming prowess could do if he wanted to
setup a wireless network with his friend a few blocks away.  Today his
parents would be afraid he'd get them black-listed from their ISP.
With a truly open access network, not only could he experiment like
this, but he might just invent something useful.

And with Gigabit speeds, we'd finally start to realize true InternetTV
and services such as NetFlix could offer very high-quality on-demand
shows.  It would also open up the TeleCo promise (made 50+ years ago)
of a true VideoPhone technology.  No more pixelated and jerky video
when the neighbors kid starts viewing a video from YouTube.

A side-effect I'm hoping to see out of this is that Google will apply
the same level of thought into managing their network and publish some
true, real-world numbers and how they cope with consumers using these
speeds.  If they could work out a non-Carnivore way of traffic shaping
without the knee-jerk "rate-limit BitTorrent and block e-mail", then
the rest of the TeleCo providers would loose their rate-limiting
defense.

Just my two cents.  Anyone else?

DanL

-- 
***************** ************* *********** ******* ***** *** **
"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)
** *** ***** ******* *********** ************* *****************

From jay at jays.net  Thu Feb 18 05:37:28 2010
From: jay at jays.net (Jay Hannah)
Date: Thu, 18 Feb 2010 07:37:28 -0600
Subject: [Omaha.pm] Perl myths 200909
Message-ID: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>

I hadn't seen this update to this slideshow. perl6.0.0 soon?

http://www.slideshare.net/Tim.Bunce/perl-myths-200909

j



From Jay at RebootTheUser.com  Thu Feb 18 08:18:50 2010
From: Jay at RebootTheUser.com (Jay Swackhamer)
Date: Thu, 18 Feb 2010 10:18:50 -0600
Subject: [Omaha.pm] More data code pointers.
In-Reply-To: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>
Message-ID: <20100218101850.m2t7hpaqxw4gg8sk@webmail.hotr.com>

Hello,

I've been trying different ways to read files that have been outputted  
by a cobol program to process with perl to replace this 'syncsort'  
program that is expensive.

If anyone has any insight/pointers to get this done, please share.

The file contains a variable line-length,
I get out of the paramter/config file for syncosort the fieldstart/end  
for the ones that we care about.
The lines also can contain packed data.

So what I need some insight on, is the correct way to
1. read in a line, where you dont know the length.
2. Pull specific fields out of the line that may need to be unpacked  
or convert
3. add the fields and put them back into the line, packed
4. write the line back to the file.

I have the routines written to do all of this if it were an actual  
flat file, I've tried using binary mode, and using substr/etc, I just  
need some insight on doing this with the packed data, where I dont  
know the line length, or the rest of the field definitions.

Do I need to calculate the rest of the fields and use unpack, or is  
there another way?

-- 
Jay Swackhamer
Reboot The User
402-933-6449
http://www.reboottheuser.com
http://www.cafepress.com/rtu
http://stores.ebay.com/RebootTheUser
http://www.hotr.com


From jay at jays.net  Thu Feb 18 09:35:44 2010
From: jay at jays.net (Jay Hannah)
Date: Thu, 18 Feb 2010 11:35:44 -0600
Subject: [Omaha.pm] More data code pointers.
In-Reply-To: <20100218101850.m2t7hpaqxw4gg8sk@webmail.hotr.com>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>
	<20100218101850.m2t7hpaqxw4gg8sk@webmail.hotr.com>
Message-ID: <04B62341-D03A-454A-9675-0A7DE53F2C5D@jays.net>

On Feb 18, 2010, at 10:18 AM, Jay Swackhamer wrote:
> So what I need some insight on, is the correct way to
> 1. read in a line, where you dont know the length.
> 2. Pull specific fields out of the line that may need to be unpacked or convert
> 3. add the fields and put them back into the line, packed
> 4. write the line back to the file.

Can you throw a small example input file and whatever you've written so far on github.com or somewhere so we can see it?

j



From Jay at RebootTheUser.com  Thu Feb 18 10:54:39 2010
From: Jay at RebootTheUser.com (Jay Swackhamer)
Date: Thu, 18 Feb 2010 12:54:39 -0600
Subject: [Omaha.pm] More data code pointers.
In-Reply-To: <04B62341-D03A-454A-9675-0A7DE53F2C5D@jays.net>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>
	<20100218101850.m2t7hpaqxw4gg8sk@webmail.hotr.com>
	<04B62341-D03A-454A-9675-0A7DE53F2C5D@jays.net>
Message-ID: <20100218125439.g1fx20vlio04ss0k@webmail.hotr.com>

I split the input file, and put it all in a tgz at

http://www.hotr.com/files/dev/test_syncsort.tgz
contents:
infile.dat
outfile.dat
syncsort
syncsort_parm.srt

the syntax would be
./syncsort <  syncsort_parm.srt

The subroutine i'm working on is do_summarize

disclamer:first perl program, just using what works, and cleaning up  
later......


-- 
Jay Swackhamer
Reboot The User
402-933-6449
http://www.reboottheuser.com
http://www.cafepress.com/rtu
http://stores.ebay.com/RebootTheUser
http://www.hotr.com


Quoting Jay Hannah <jay at jays.net>:

> On Feb 18, 2010, at 10:18 AM, Jay Swackhamer wrote:
>> So what I need some insight on, is the correct way to
>> 1. read in a line, where you dont know the length.
>> 2. Pull specific fields out of the line that may need to be   
>> unpacked or convert
>> 3. add the fields and put them back into the line, packed
>> 4. write the line back to the file.
>
> Can you throw a small example input file and whatever you've written  
>  so far on github.com or somewhere so we can see it?
>
> j
>
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm
>




From Jay at RebootTheUser.com  Thu Feb 18 11:49:12 2010
From: Jay at RebootTheUser.com (Jay Swackhamer)
Date: Thu, 18 Feb 2010 13:49:12 -0600
Subject: [Omaha.pm] More data code pointers.
In-Reply-To: <20100218125439.g1fx20vlio04ss0k@webmail.hotr.com>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>
	<20100218101850.m2t7hpaqxw4gg8sk@webmail.hotr.com>
	<04B62341-D03A-454A-9675-0A7DE53F2C5D@jays.net>
	<20100218125439.g1fx20vlio04ss0k@webmail.hotr.com>
Message-ID: <20100218134912.sn1mu31cu8wwgks8@webmail.hotr.com>

Also, if anyone has ideas on processing the below line.....

taking this and split and use it.

the code written takes the fieldname cond value.

My thoughts are to build arrays splitting on the (),or, and

/condition include_1 (f7 ne 'CE' and f10 ne 'R' and f1 ne 'CE' and
                       f8 ne 'LG' and f8 ne 'LI' and f8 ne 'LJ' and
                       f8 ne 'LR' and f8 ne 'LU' and f8 ne 'LV' and
                       f8 ne 'TL' and f8 ne 'TA' and
                      (f4 eq 'E' or f4 eq 'G' or f4 eq 'W'))


I'm working on a routine now, but if someone has done something like  
this already........

-- 
Jay Swackhamer
Reboot The User
402-933-6449
http://www.reboottheuser.com
http://www.cafepress.com/rtu
http://stores.ebay.com/RebootTheUser
http://www.hotr.com


Quoting Jay Swackhamer <Jay at RebootTheUser.com>:

> I split the input file, and put it all in a tgz at
>
> http://www.hotr.com/files/dev/test_syncsort.tgz
> contents:
> infile.dat
> outfile.dat
> syncsort
> syncsort_parm.srt
>
> the syntax would be
> ./syncsort <  syncsort_parm.srt
>
> The subroutine i'm working on is do_summarize
>
> disclamer:first perl program, just using what works, and cleaning up
> later......
>
>
> -- 
> Jay Swackhamer
> Reboot The User
> 402-933-6449
> http://www.reboottheuser.com
> http://www.cafepress.com/rtu
> http://stores.ebay.com/RebootTheUser
> http://www.hotr.com
>
>
> Quoting Jay Hannah <jay at jays.net>:
>
>> On Feb 18, 2010, at 10:18 AM, Jay Swackhamer wrote:
>>> So what I need some insight on, is the correct way to
>>> 1. read in a line, where you dont know the length.
>>> 2. Pull specific fields out of the line that may need to be     
>>> unpacked or convert
>>> 3. add the fields and put them back into the line, packed
>>> 4. write the line back to the file.
>>
>> Can you throw a small example input file and whatever you've   
>> written   so far on github.com or somewhere so we can see it?
>>
>> j
>>
>>
>> _______________________________________________
>> 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




From Jay at RebootTheUser.com  Fri Feb 19 08:17:25 2010
From: Jay at RebootTheUser.com (Jay Swackhamer)
Date: Fri, 19 Feb 2010 10:17:25 -0600
Subject: [Omaha.pm] regex gurus
In-Reply-To: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>
Message-ID: <20100219101725.xysyr6iivkso4ggw@webmail.hotr.com>


Looking at examples, not getting it done.

Any regex gurus out there that can give me a tip on taking a string  
and splitting into groups based on what is between '( )'

So I can take condstring, split it into an array by whats grouped in  
(), then take each element and split out the rest of the () groups.
i.e.

   my $condstring="include_1 (f7 ne \'ce\' and f10 ne \'r\' and f1 ne  
\'ce\' and f8 ne \'lg\' and f8 ne \'li\' and f8 ne \'lj\' and f8 ne  
\'lr\' and f8 ne \'lu\' and f8 ne \'lv\' and f8 ne \'tl\' and f8 ne  
\'ta\' and(f4 eq \'e\' or f4 eq \'g\' or f4 eq \'w\')) ";

   @condarr = split /(\).*\))/, $condstring;


-- 
Jay Swackhamer
Reboot The User
402-933-6449
http://www.reboottheuser.com
http://www.cafepress.com/rtu
http://stores.ebay.com/RebootTheUser
http://www.hotr.com




From evaddnomaid at gmail.com  Fri Feb 19 08:21:24 2010
From: evaddnomaid at gmail.com (Dave Burchell)
Date: Fri, 19 Feb 2010 10:21:24 -0600
Subject: [Omaha.pm] regex gurus
In-Reply-To: <20100219101725.xysyr6iivkso4ggw@webmail.hotr.com>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net> 
	<20100219101725.xysyr6iivkso4ggw@webmail.hotr.com>
Message-ID: <6e25cf311002190821n49d6119bk5224caac07abd7a4@mail.gmail.com>

Sure Jay, I'm no guru but I use regex whenever I can.

What do you mean when you say "based on what is between '( )'"?

- Dave

On Fri, Feb 19, 2010 at 10:17 AM, Jay Swackhamer <Jay at reboottheuser.com>wrote:

>
> Looking at examples, not getting it done.
>
> Any regex gurus out there that can give me a tip on taking a string and
> splitting into groups based on what is between '( )'
>
> So I can take condstring, split it into an array by whats grouped in (),
> then take each element and split out the rest of the () groups.
> i.e.
>
>  my $condstring="include_1 (f7 ne \'ce\' and f10 ne \'r\' and f1 ne \'ce\'
> and f8 ne \'lg\' and f8 ne \'li\' and f8 ne \'lj\' and f8 ne \'lr\' and f8
> ne \'lu\' and f8 ne \'lv\' and f8 ne \'tl\' and f8 ne \'ta\' and(f4 eq \'e\'
> or f4 eq \'g\' or f4 eq \'w\')) ";
>
>  @condarr = split /(\).*\))/, $condstring;
>
>
> --
> Jay Swackhamer
> Reboot The User
> 402-933-6449
> http://www.reboottheuser.com
> http://www.cafepress.com/rtu
> http://stores.ebay.com/RebootTheUser
> http://www.hotr.com
>
>
>
> _______________________________________________
> Omaha-pm mailing list
> Omaha-pm at pm.org
> http://mail.pm.org/mailman/listinfo/omaha-pm
>



-- 
Dave Burchell
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20100219/991c51be/attachment.html>

From Jay at RebootTheUser.com  Fri Feb 19 08:45:38 2010
From: Jay at RebootTheUser.com (Jay Swackhamer)
Date: Fri, 19 Feb 2010 10:45:38 -0600
Subject: [Omaha.pm] regex gurus
In-Reply-To: <6e25cf311002190821n49d6119bk5224caac07abd7a4@mail.gmail.com>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>
	<20100219101725.xysyr6iivkso4ggw@webmail.hotr.com>
	<6e25cf311002190821n49d6119bk5224caac07abd7a4@mail.gmail.com>
Message-ID: <20100219104538.yu55amn68cws0wo4@webmail.hotr.com>

In the string below, it's from a parameter file.

I need to break it out by what's the longest string between the '('  
and the ')'
and then the shorter strings between '(' and ')' , then the and/or's  
so I can translate/process the logic.

the include_1 would be a condition name, and the f7/f10/f8 etc are  
field names that are substrings of lines of data.

-- 
Jay Swackhamer
Reboot The User
402-933-6449
http://www.reboottheuser.com
http://www.cafepress.com/rtu
http://stores.ebay.com/RebootTheUser
http://www.hotr.com


Quoting Dave Burchell <evaddnomaid at gmail.com>:

> Sure Jay, I'm no guru but I use regex whenever I can.
>
> What do you mean when you say "based on what is between '( )'"?
>
> - Dave
>
> On Fri, Feb 19, 2010 at 10:17 AM, Jay Swackhamer   
> <Jay at reboottheuser.com>wrote:
>
>>
>> Looking at examples, not getting it done.
>>
>> Any regex gurus out there that can give me a tip on taking a string and
>> splitting into groups based on what is between '( )'
>>
>> So I can take condstring, split it into an array by whats grouped in (),
>> then take each element and split out the rest of the () groups.
>> i.e.
>>
>>  my $condstring="include_1 (f7 ne \'ce\' and f10 ne \'r\' and f1 ne \'ce\'
>> and f8 ne \'lg\' and f8 ne \'li\' and f8 ne \'lj\' and f8 ne \'lr\' and f8
>> ne \'lu\' and f8 ne \'lv\' and f8 ne \'tl\' and f8 ne \'ta\' and(f4 eq \'e\'
>> or f4 eq \'g\' or f4 eq \'w\')) ";
>>
>>  @condarr = split /(\).*\))/, $condstring;
>>
>>
>> --
>> Jay Swackhamer
>> Reboot The User
>> 402-933-6449
>> http://www.reboottheuser.com
>> http://www.cafepress.com/rtu
>> http://stores.ebay.com/RebootTheUser
>> http://www.hotr.com
>>
>>
>>
>> _______________________________________________
>> Omaha-pm mailing list
>> Omaha-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/omaha-pm
>>
>
>
>
> --
> Dave Burchell
>




From dan at linder.org  Fri Feb 19 09:26:27 2010
From: dan at linder.org (Dan Linder)
Date: Fri, 19 Feb 2010 11:26:27 -0600
Subject: [Omaha.pm] regex gurus
In-Reply-To: <20100219104538.yu55amn68cws0wo4@webmail.hotr.com>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net> 
	<20100219101725.xysyr6iivkso4ggw@webmail.hotr.com>
	<6e25cf311002190821n49d6119bk5224caac07abd7a4@mail.gmail.com> 
	<20100219104538.yu55amn68cws0wo4@webmail.hotr.com>
Message-ID: <3e2be51002190926y3c062420re36fdabb47de2d0b@mail.gmail.com>

So, you have this:
 my $condstring="include_1 (f7 ne \'ce\' and f10 ne \'r\' and f1 ne
\'ce\' and f8 ne \'lg\' and f8 ne \'li\' and f8 ne \'lj\' and f8 ne
\'lr\' and f8 ne \'lu\' and f8 ne \'lv\' and f8 ne \'tl\' and f8 ne
\'ta\' and(f4 eq \'e\' or f4 eq \'g\' or f4 eq \'w\')) ";

And you want to break it up so that you get an array something like this:
 @condarr = ["f7", "ne", "\'ce\'", "and", ..., "eq", "\'w\'"];
???

If so, a basic split using "/ /" should do it:
 @condarr = split / /, $condstring;

But, you mentioned grouping the array based on ()s.

  @condarr = [
    include_1,
    [
        f7 ne \'ce\' and f10 ne \'r\' and f1 ne \'ce\' and f8 ne
\'lg\' and f8 ne \'li\' and f8 ne \'lj\' and f8 ne \'lr\' and f8 ne
\'lu\' and f8 ne \'lv\' and f8 ne \'tl\' and f8 ne \'ta\' and,
        f4 eq \'e\' or f4 eq \'g\' or f4 eq \'w\',
    ]
]
(Probably not syntactically correct - done by hand...)

Is something like this closer to what you are looking for?

A split based on the parethesis characters might do it, but you'd have
to make sure the regexp would handle nested parenthesis correctly...

Dan

On Fri, Feb 19, 2010 at 10:45, Jay Swackhamer <Jay at reboottheuser.com> wrote:
> In the string below, it's from a parameter file.
>
> I need to break it out by what's the longest string between the '(' and the
> ')'
> and then the shorter strings between '(' and ')' , then the and/or's so I
> can translate/process the logic.
>
> the include_1 would be a condition name, and the f7/f10/f8 etc are field
> names that are substrings of lines of data.
>
> --
> Jay Swackhamer
> Reboot The User
> 402-933-6449
> http://www.reboottheuser.com
> http://www.cafepress.com/rtu
> http://stores.ebay.com/RebootTheUser
> http://www.hotr.com
>
>
> Quoting Dave Burchell <evaddnomaid at gmail.com>:
>
>> Sure Jay, I'm no guru but I use regex whenever I can.
>>
>> What do you mean when you say "based on what is between '( )'"?
>>
>> - Dave
>>
>> On Fri, Feb 19, 2010 at 10:17 AM, Jay Swackhamer
>> ?<Jay at reboottheuser.com>wrote:
>>
>>>
>>> Looking at examples, not getting it done.
>>>
>>> Any regex gurus out there that can give me a tip on taking a string and
>>> splitting into groups based on what is between '( )'
>>>
>>> So I can take condstring, split it into an array by whats grouped in (),
>>> then take each element and split out the rest of the () groups.
>>> i.e.
>>>
>>> ?my $condstring="include_1 (f7 ne \'ce\' and f10 ne \'r\' and f1 ne
>>> \'ce\'
>>> and f8 ne \'lg\' and f8 ne \'li\' and f8 ne \'lj\' and f8 ne \'lr\' and
>>> f8
>>> ne \'lu\' and f8 ne \'lv\' and f8 ne \'tl\' and f8 ne \'ta\' and(f4 eq
>>> \'e\'
>>> or f4 eq \'g\' or f4 eq \'w\')) ";
>>>
>>> ?@condarr = split /(\).*\))/, $condstring;
>>>
>>>
>>> --
>>> Jay Swackhamer
>>> Reboot The User
>>> 402-933-6449
>>> http://www.reboottheuser.com
>>> http://www.cafepress.com/rtu
>>> http://stores.ebay.com/RebootTheUser
>>> http://www.hotr.com
>>>
>>>
>>>
>>> _______________________________________________
>>> Omaha-pm mailing list
>>> Omaha-pm at pm.org
>>> http://mail.pm.org/mailman/listinfo/omaha-pm
>>>
>>
>>
>>
>> --
>> Dave Burchell
>>
>
>
>
> _______________________________________________
> 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)
** *** ***** ******* *********** ************* *****************

From evaddnomaid at gmail.com  Fri Feb 19 09:28:34 2010
From: evaddnomaid at gmail.com (Dave Burchell)
Date: Fri, 19 Feb 2010 11:28:34 -0600
Subject: [Omaha.pm] regex gurus
In-Reply-To: <20100219104538.yu55amn68cws0wo4@webmail.hotr.com>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net> 
	<20100219101725.xysyr6iivkso4ggw@webmail.hotr.com>
	<6e25cf311002190821n49d6119bk5224caac07abd7a4@mail.gmail.com> 
	<20100219104538.yu55amn68cws0wo4@webmail.hotr.com>
Message-ID: <6e25cf311002190928o25e37facnc68b782d1acf8dfb@mail.gmail.com>

Ok, a good strategy might be to break it up by the ( and ) characters first,
then further process the parts:

@part = split(/[()]/, $condstring);

This gives you a "shallow parse", which may or may not be a useful starting
point.

- Dave

On Fri, Feb 19, 2010 at 10:45 AM, Jay Swackhamer <Jay at reboottheuser.com>wrote:

> In the string below, it's from a parameter file.
>
> I need to break it out by what's the longest string between the '(' and the
> ')'
> and then the shorter strings between '(' and ')' , then the and/or's so I
> can translate/process the logic.
>
> the include_1 would be a condition name, and the f7/f10/f8 etc are field
> names that are substrings of lines of data.
>
>
> --
> Jay Swackhamer
> Reboot The User
> 402-933-6449
> http://www.reboottheuser.com
> http://www.cafepress.com/rtu
> http://stores.ebay.com/RebootTheUser
> http://www.hotr.com
>
>
> Quoting Dave Burchell <evaddnomaid at gmail.com>:
>
>  Sure Jay, I'm no guru but I use regex whenever I can.
>>
>> What do you mean when you say "based on what is between '( )'"?
>>
>> - Dave
>>
>> On Fri, Feb 19, 2010 at 10:17 AM, Jay Swackhamer  <Jay at reboottheuser.com
>> >wrote:
>>
>>
>>> Looking at examples, not getting it done.
>>>
>>> Any regex gurus out there that can give me a tip on taking a string and
>>> splitting into groups based on what is between '( )'
>>>
>>> So I can take condstring, split it into an array by whats grouped in (),
>>> then take each element and split out the rest of the () groups.
>>> i.e.
>>>
>>>  my $condstring="include_1 (f7 ne \'ce\' and f10 ne \'r\' and f1 ne
>>> \'ce\'
>>> and f8 ne \'lg\' and f8 ne \'li\' and f8 ne \'lj\' and f8 ne \'lr\' and
>>> f8
>>> ne \'lu\' and f8 ne \'lv\' and f8 ne \'tl\' and f8 ne \'ta\' and(f4 eq
>>> \'e\'
>>> or f4 eq \'g\' or f4 eq \'w\')) ";
>>>
>>>  @condarr = split /(\).*\))/, $condstring;
>>>
>>>
>>> --
>>> Jay Swackhamer
>>> Reboot The User
>>> 402-933-6449
>>> http://www.reboottheuser.com
>>> http://www.cafepress.com/rtu
>>> http://stores.ebay.com/RebootTheUser
>>> http://www.hotr.com
>>>
>>>
>>>
>>> _______________________________________________
>>> Omaha-pm mailing list
>>> Omaha-pm at pm.org
>>> http://mail.pm.org/mailman/listinfo/omaha-pm
>>>
>>>
>>
>>
>> --
>> Dave Burchell
>>
>>
>
>
>


-- 
Dave Burchell
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/omaha-pm/attachments/20100219/e4b7741f/attachment.html>

From Jay at RebootTheUser.com  Fri Feb 19 09:48:03 2010
From: Jay at RebootTheUser.com (Jay Swackhamer)
Date: Fri, 19 Feb 2010 11:48:03 -0600
Subject: [Omaha.pm] regex gurus
In-Reply-To: <6e25cf311002190928o25e37facnc68b782d1acf8dfb@mail.gmail.com>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net>
	<20100219101725.xysyr6iivkso4ggw@webmail.hotr.com>
	<6e25cf311002190821n49d6119bk5224caac07abd7a4@mail.gmail.com>
	<20100219104538.yu55amn68cws0wo4@webmail.hotr.com>
	<6e25cf311002190928o25e37facnc68b782d1acf8dfb@mail.gmail.com>
Message-ID: <20100219114803.he8tqk6a04848s80@webmail.hotr.com>

That works for the first split I was stuck on.

Thanks
-- 
Jay Swackhamer
Reboot The User
402-933-6449
http://www.reboottheuser.com
http://www.cafepress.com/rtu
http://stores.ebay.com/RebootTheUser
http://www.hotr.com


Quoting Dave Burchell <evaddnomaid at gmail.com>:

> Ok, a good strategy might be to break it up by the ( and ) characters first,
> then further process the parts:
>
> @part = split(/[()]/, $condstring);
>
> This gives you a "shallow parse", which may or may not be a useful starting
> point.
>
> - Dave
>
> On Fri, Feb 19, 2010 at 10:45 AM, Jay Swackhamer   
> <Jay at reboottheuser.com>wrote:
>
>> In the string below, it's from a parameter file.
>>
>> I need to break it out by what's the longest string between the '(' and the
>> ')'
>> and then the shorter strings between '(' and ')' , then the and/or's so I
>> can translate/process the logic.
>>
>> the include_1 would be a condition name, and the f7/f10/f8 etc are field
>> names that are substrings of lines of data.
>>
>>
>> --
>> Jay Swackhamer
>> Reboot The User
>> 402-933-6449
>> http://www.reboottheuser.com
>> http://www.cafepress.com/rtu
>> http://stores.ebay.com/RebootTheUser
>> http://www.hotr.com
>>
>>
>> Quoting Dave Burchell <evaddnomaid at gmail.com>:
>>
>>  Sure Jay, I'm no guru but I use regex whenever I can.
>>>
>>> What do you mean when you say "based on what is between '( )'"?
>>>
>>> - Dave
>>>
>>> On Fri, Feb 19, 2010 at 10:17 AM, Jay Swackhamer  <Jay at reboottheuser.com
>>> >wrote:
>>>
>>>
>>>> Looking at examples, not getting it done.
>>>>
>>>> Any regex gurus out there that can give me a tip on taking a string and
>>>> splitting into groups based on what is between '( )'
>>>>
>>>> So I can take condstring, split it into an array by whats grouped in (),
>>>> then take each element and split out the rest of the () groups.
>>>> i.e.
>>>>
>>>>  my $condstring="include_1 (f7 ne \'ce\' and f10 ne \'r\' and f1 ne
>>>> \'ce\'
>>>> and f8 ne \'lg\' and f8 ne \'li\' and f8 ne \'lj\' and f8 ne \'lr\' and
>>>> f8
>>>> ne \'lu\' and f8 ne \'lv\' and f8 ne \'tl\' and f8 ne \'ta\' and(f4 eq
>>>> \'e\'
>>>> or f4 eq \'g\' or f4 eq \'w\')) ";
>>>>
>>>>  @condarr = split /(\).*\))/, $condstring;
>>>>
>>>>
>>>> --
>>>> Jay Swackhamer
>>>> Reboot The User
>>>> 402-933-6449
>>>> http://www.reboottheuser.com
>>>> http://www.cafepress.com/rtu
>>>> http://stores.ebay.com/RebootTheUser
>>>> http://www.hotr.com
>>>>
>>>>
>>>>
>>>> _______________________________________________
>>>> Omaha-pm mailing list
>>>> Omaha-pm at pm.org
>>>> http://mail.pm.org/mailman/listinfo/omaha-pm
>>>>
>>>>
>>>
>>>
>>> --
>>> Dave Burchell
>>>
>>>
>>
>>
>>
>
>
> --
> Dave Burchell
>




From dan at linder.org  Sat Feb 20 13:51:26 2010
From: dan at linder.org (Dan Linder)
Date: Sat, 20 Feb 2010 15:51:26 -0600
Subject: [Omaha.pm] regex gurus
In-Reply-To: <20100219114803.he8tqk6a04848s80@webmail.hotr.com>
References: <64F09983-6B40-4FCF-A943-6098E424E7B8@jays.net> 
	<20100219101725.xysyr6iivkso4ggw@webmail.hotr.com>
	<6e25cf311002190821n49d6119bk5224caac07abd7a4@mail.gmail.com> 
	<20100219104538.yu55amn68cws0wo4@webmail.hotr.com>
	<6e25cf311002190928o25e37facnc68b782d1acf8dfb@mail.gmail.com> 
	<20100219114803.he8tqk6a04848s80@webmail.hotr.com>
Message-ID: <3e2be51002201351r65c026c0pbf4fedca67a61f74@mail.gmail.com>

I stumbled across this link on PerlMonks.com:
    http://perlmonks.com/?node_id=803034

It has a lot of good examples on parsing parentheses bound text...

Dan

On Fri, Feb 19, 2010 at 11:48, Jay Swackhamer <Jay at reboottheuser.com> wrote:
> That works for the first split I was stuck on.
>
> Thanks
> --
> Jay Swackhamer
> Reboot The User
> 402-933-6449
> http://www.reboottheuser.com
> http://www.cafepress.com/rtu
> http://stores.ebay.com/RebootTheUser
> http://www.hotr.com
>
>
> Quoting Dave Burchell <evaddnomaid at gmail.com>:
>
>> Ok, a good strategy might be to break it up by the ( and ) characters
>> first,
>> then further process the parts:
>>
>> @part = split(/[()]/, $condstring);
>>
>> This gives you a "shallow parse", which may or may not be a useful
>> starting
>> point.
>>
>> - Dave
>>
>> On Fri, Feb 19, 2010 at 10:45 AM, Jay Swackhamer
>> ?<Jay at reboottheuser.com>wrote:
>>
>>> In the string below, it's from a parameter file.
>>>
>>> I need to break it out by what's the longest string between the '(' and
>>> the
>>> ')'
>>> and then the shorter strings between '(' and ')' , then the and/or's so I
>>> can translate/process the logic.
>>>
>>> the include_1 would be a condition name, and the f7/f10/f8 etc are field
>>> names that are substrings of lines of data.
>>>
>>>
>>> --
>>> Jay Swackhamer
>>> Reboot The User
>>> 402-933-6449
>>> http://www.reboottheuser.com
>>> http://www.cafepress.com/rtu
>>> http://stores.ebay.com/RebootTheUser
>>> http://www.hotr.com
>>>
>>>
>>> Quoting Dave Burchell <evaddnomaid at gmail.com>:
>>>
>>> ?Sure Jay, I'm no guru but I use regex whenever I can.
>>>>
>>>> What do you mean when you say "based on what is between '( )'"?
>>>>
>>>> - Dave
>>>>
>>>> On Fri, Feb 19, 2010 at 10:17 AM, Jay Swackhamer ?<Jay at reboottheuser.com
>>>> >wrote:
>>>>
>>>>
>>>>> Looking at examples, not getting it done.
>>>>>
>>>>> Any regex gurus out there that can give me a tip on taking a string and
>>>>> splitting into groups based on what is between '( )'
>>>>>
>>>>> So I can take condstring, split it into an array by whats grouped in
>>>>> (),
>>>>> then take each element and split out the rest of the () groups.
>>>>> i.e.
>>>>>
>>>>> ?my $condstring="include_1 (f7 ne \'ce\' and f10 ne \'r\' and f1 ne
>>>>> \'ce\'
>>>>> and f8 ne \'lg\' and f8 ne \'li\' and f8 ne \'lj\' and f8 ne \'lr\' and
>>>>> f8
>>>>> ne \'lu\' and f8 ne \'lv\' and f8 ne \'tl\' and f8 ne \'ta\' and(f4 eq
>>>>> \'e\'
>>>>> or f4 eq \'g\' or f4 eq \'w\')) ";
>>>>>
>>>>> ?@condarr = split /(\).*\))/, $condstring;
>>>>>
>>>>>
>>>>> --
>>>>> Jay Swackhamer
>>>>> Reboot The User
>>>>> 402-933-6449
>>>>> http://www.reboottheuser.com
>>>>> http://www.cafepress.com/rtu
>>>>> http://stores.ebay.com/RebootTheUser
>>>>> http://www.hotr.com
>>>>>
>>>>>
>>>>>
>>>>> _______________________________________________
>>>>> Omaha-pm mailing list
>>>>> Omaha-pm at pm.org
>>>>> http://mail.pm.org/mailman/listinfo/omaha-pm
>>>>>
>>>>>
>>>>
>>>>
>>>> --
>>>> Dave Burchell
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>> --
>> Dave Burchell
>>
>
>
>
> _______________________________________________
> 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)
** *** ***** ******* *********** ************* *****************