From schuh at farmdale.com  Wed Oct  5 14:06:38 2011
From: schuh at farmdale.com (Mike Schuh)
Date: Wed, 5 Oct 2011 14:06:38 -0700 (PDT)
Subject: SPUG: Django equivalent for Perl?
Message-ID: <Pine.LNX.4.58.1110051349540.31279@shell4.speakeasy.net>

Hi everyone,

At my current day job the house language is the-other-one-that-starts-
with-P-but-isn't-Perl and lately I have begun to learn Django.  It's pretty
cool (so far, anyway).

Nearly all of my non-day jobs use Perl, and a few of them could make good
use of a Django-like tool.  Are any of using (or have used) such a
Perl-based (or at least Perl-friendly) framework and what were your
experiences with it?  Recommendations?  Suggestions?

I've worked with Gantry in the past and found it to be more complex than I
think it needs to be.

Thanks.

-- 
Mike Schuh, Seattle USA

From kesteb at wsipc.org  Wed Oct  5 15:17:06 2011
From: kesteb at wsipc.org (Kevin Esteb)
Date: Wed, 5 Oct 2011 15:17:06 -0700
Subject: SPUG: Django equivalent for Perl?
In-Reply-To: <Pine.LNX.4.58.1110051349540.31279@shell4.speakeasy.net>
References: <Pine.LNX.4.58.1110051349540.31279@shell4.speakeasy.net>
Message-ID: <2C4D2F304C57FB4EB05DF8A079E1BD2606B4337B1F@lan-srv-exch02.wsipc.org>

I have used Gantry in the past and the best thing is the Bigtop code generator. But after a well you move past what the code generator can do for you. When I did that, I wrote Scaffold, which is very loosely based on Gantry. It is available on the CPAN. I consider it "web based infrastructure", that is, I modeled it after what an OS does. Provide system services, that an application can use to interact with the end user.   

A companion application framework that I call XAS is used to interact with the end user. This is located at http://svn.kesteb.us/repos/XAS. It is a work in process. An application named Desktop is located at http://svn.kesteb.us/repos/Desktop, this is evolving continually and fleshes out the ExtJS 4.0 Desktop example to make it somewhat useful.

I have no idea how any of this compares to Django.


-----Original Message-----
From: spug-list-bounces+kesteb=wsipc.org at pm.org [mailto:spug-list-bounces+kesteb=wsipc.org at pm.org] On Behalf Of Mike Schuh
Sent: Wednesday, October 05, 2011 2:07 PM
To: SPUG
Subject: SPUG: Django equivalent for Perl?

Hi everyone,

At my current day job the house language is the-other-one-that-starts-
with-P-but-isn't-Perl and lately I have begun to learn Django.  It's pretty
cool (so far, anyway).

Nearly all of my non-day jobs use Perl, and a few of them could make good
use of a Django-like tool.  Are any of using (or have used) such a
Perl-based (or at least Perl-friendly) framework and what were your
experiences with it?  Recommendations?  Suggestions?

I've worked with Gantry in the past and found it to be more complex than I
think it needs to be.

Thanks.

-- 
Mike Schuh, Seattle USA
_____________________________________________________________
Seattle Perl Users Group Mailing List
     POST TO: spug-list at pm.org
SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list
    MEETINGS: 3rd Tuesdays
    WEB PAGE: http://seattleperl.org/

From ingy at ingy.net  Wed Oct  5 16:37:22 2011
From: ingy at ingy.net (Ingy dot Net)
Date: Wed, 5 Oct 2011 19:37:22 -0400
Subject: SPUG: Django equivalent for Perl?
In-Reply-To: <2C4D2F304C57FB4EB05DF8A079E1BD2606B4337B1F@lan-srv-exch02.wsipc.org>
References: <Pine.LNX.4.58.1110051349540.31279@shell4.speakeasy.net>
	<2C4D2F304C57FB4EB05DF8A079E1BD2606B4337B1F@lan-srv-exch02.wsipc.org>
Message-ID: <CAHJtQJ45FFD1=f99Jmi_8Z7Ujk9YSARmCW37vbgdXkDzxyECBg@mail.gmail.com>

Google "django perl" suggests Catalyst is something for you to look at.

On Wed, Oct 5, 2011 at 6:17 PM, Kevin Esteb <kesteb at wsipc.org> wrote:

> I have used Gantry in the past and the best thing is the Bigtop code
> generator. But after a well you move past what the code generator can do for
> you. When I did that, I wrote Scaffold, which is very loosely based on
> Gantry. It is available on the CPAN. I consider it "web based
> infrastructure", that is, I modeled it after what an OS does. Provide system
> services, that an application can use to interact with the end user.
>
> A companion application framework that I call XAS is used to interact with
> the end user. This is located at http://svn.kesteb.us/repos/XAS. It is a
> work in process. An application named Desktop is located at
> http://svn.kesteb.us/repos/Desktop, this is evolving continually and
> fleshes out the ExtJS 4.0 Desktop example to make it somewhat useful.
>
> I have no idea how any of this compares to Django.
>
>
> -----Original Message-----
> From: spug-list-bounces+kesteb=wsipc.org at pm.org [mailto:
> spug-list-bounces+kesteb=wsipc.org at pm.org] On Behalf Of Mike Schuh
> Sent: Wednesday, October 05, 2011 2:07 PM
> To: SPUG
> Subject: SPUG: Django equivalent for Perl?
>
> Hi everyone,
>
> At my current day job the house language is the-other-one-that-starts-
> with-P-but-isn't-Perl and lately I have begun to learn Django.  It's pretty
> cool (so far, anyway).
>
> Nearly all of my non-day jobs use Perl, and a few of them could make good
> use of a Django-like tool.  Are any of using (or have used) such a
> Perl-based (or at least Perl-friendly) framework and what were your
> experiences with it?  Recommendations?  Suggestions?
>
> I've worked with Gantry in the past and found it to be more complex than I
> think it needs to be.
>
> Thanks.
>
> --
> Mike Schuh, Seattle USA
> _____________________________________________________________
> Seattle Perl Users Group Mailing List
>     POST TO: spug-list at pm.org
> SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list
>    MEETINGS: 3rd Tuesdays
>    WEB PAGE: http://seattleperl.org/
> _____________________________________________________________
> Seattle Perl Users Group Mailing List
>     POST TO: spug-list at pm.org
> SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list
>    MEETINGS: 3rd Tuesdays
>    WEB PAGE: http://seattleperl.org/
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20111005/b1d17133/attachment.html>

From sthoenna at gmail.com  Wed Oct  5 17:06:02 2011
From: sthoenna at gmail.com (Yitzchak Scott-Thoennes)
Date: Wed, 5 Oct 2011 17:06:02 -0700
Subject: SPUG: Django equivalent for Perl?
In-Reply-To: <CAHJtQJ45FFD1=f99Jmi_8Z7Ujk9YSARmCW37vbgdXkDzxyECBg@mail.gmail.com>
References: <Pine.LNX.4.58.1110051349540.31279@shell4.speakeasy.net>
	<2C4D2F304C57FB4EB05DF8A079E1BD2606B4337B1F@lan-srv-exch02.wsipc.org>
	<CAHJtQJ45FFD1=f99Jmi_8Z7Ujk9YSARmCW37vbgdXkDzxyECBg@mail.gmail.com>
Message-ID: <CAN7g7HW5iyvQ+V1Jxb_JEVA5nhGKYdy1Xe+Ro8s0fjoEg52aKg@mail.gmail.com>

On Wed, Oct 5, 2011 at 4:37 PM, Ingy dot Net <ingy at ingy.net> wrote:
> Google "django perl" suggests Catalyst is something for you to look at.

Or on the lighter side, Dancer.

(Sorry Ingy, accidentally replied just to you at first.)

From cmeyer at helvella.org  Thu Oct  6 15:33:12 2011
From: cmeyer at helvella.org (Colin Meyer)
Date: Thu, 6 Oct 2011 15:33:12 -0700
Subject: SPUG: Django equivalent for Perl?
In-Reply-To: <CAN7g7HW5iyvQ+V1Jxb_JEVA5nhGKYdy1Xe+Ro8s0fjoEg52aKg@mail.gmail.com>
References: <Pine.LNX.4.58.1110051349540.31279@shell4.speakeasy.net>
	<2C4D2F304C57FB4EB05DF8A079E1BD2606B4337B1F@lan-srv-exch02.wsipc.org>
	<CAHJtQJ45FFD1=f99Jmi_8Z7Ujk9YSARmCW37vbgdXkDzxyECBg@mail.gmail.com>
	<CAN7g7HW5iyvQ+V1Jxb_JEVA5nhGKYdy1Xe+Ro8s0fjoEg52aKg@mail.gmail.com>
Message-ID: <CALCwhBaz8d-KNn1wZJQnWmyKdacqsrx93=NtHN_YM_dMDULg0A@mail.gmail.com>

On Wed, Oct 5, 2011 at 5:06 PM, Yitzchak Scott-Thoennes <sthoenna at gmail.com>
 wrote:

> On Wed, Oct 5, 2011 at 4:37 PM, Ingy dot Net <ingy at ingy.net> wrote:
> > Google "django perl" suggests Catalyst is something for you to look at.
>
> Or on the lighter side, Dancer.
>

I've used Catalyst for a number of web applications, and find it to be very
decent software. It is flexible, mature, well documented, and has a thriving
support community (email list, irc, regular releases).

I have not used Dancer, but I have looked at it to some degree. The biggest
attraction to me is that it does not have nearly the list of CPAN module
dependencies that Catalyst does. If you are in any sort
of enterprise-y situation, where it is not trivial to install arbitrary
modules from the CPAN, then getting Catalyst up and running can be quite a
headache.

-Colin.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20111006/80558376/attachment.html>

From mtshomsky at flowersandrobots.com  Fri Oct  7 14:22:35 2011
From: mtshomsky at flowersandrobots.com (mtshomsky)
Date: Fri, 7 Oct 2011 14:22:35 -0700
Subject: SPUG: New to spug
Message-ID: <9D46BC6C-4AA2-4F04-9A89-4A885812539B@flowersandrobots.com>

I am hoping to make it to the next meeting.   I couldnt find detailsnon where it is at:
http://seattleperl.org/

Where is it going to be?

From eboerem at yahoo.com  Fri Oct  7 22:48:42 2011
From: eboerem at yahoo.com (Erlinda Boerem)
Date: Fri, 7 Oct 2011 22:48:42 -0700
Subject: SPUG: New to spug
Message-ID: <828908.72964.qm@smtp107-mob.biz.mail.bf1.yahoo.com>

Usually at marchex.

-----Original Message-----
From: mtshomsky
Sent: Friday, October 07, 2011 2:22 PM
To: spug-list at pm.org
Subject: SPUG: New to spug

I am hoping to make it to the next meeting.   I couldnt find detailsnon where it is at:
http://seattleperl.org/

Where is it going to be?
_____________________________________________________________
Seattle Perl Users Group Mailing List
     POST TO: spug-list at pm.org
SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list
    MEETINGS: 3rd Tuesdays
    WEB PAGE: http://seattleperl.org/


From ryanc at greengrey.org  Mon Oct 10 14:57:13 2011
From: ryanc at greengrey.org (Ryan Corder)
Date: Mon, 10 Oct 2011 14:57:13 -0700
Subject: SPUG: Django equivalent for Perl?
In-Reply-To: <CALCwhBaz8d-KNn1wZJQnWmyKdacqsrx93=NtHN_YM_dMDULg0A@mail.gmail.com>
References: <Pine.LNX.4.58.1110051349540.31279@shell4.speakeasy.net>
	<2C4D2F304C57FB4EB05DF8A079E1BD2606B4337B1F@lan-srv-exch02.wsipc.org>
	<CAHJtQJ45FFD1=f99Jmi_8Z7Ujk9YSARmCW37vbgdXkDzxyECBg@mail.gmail.com>
	<CAN7g7HW5iyvQ+V1Jxb_JEVA5nhGKYdy1Xe+Ro8s0fjoEg52aKg@mail.gmail.com>
	<CALCwhBaz8d-KNn1wZJQnWmyKdacqsrx93=NtHN_YM_dMDULg0A@mail.gmail.com>
Message-ID: <20111010215713.GB28233@greengrey.org>

On Thu, Oct 06, 2011 at 03:33:12PM -0700, Colin Meyer wrote:
| I have not used Dancer, but I have looked at it to some degree. The biggest
| attraction to me is that it does not have nearly the list of CPAN module
| dependencies that Catalyst does. If you are in any sort
| of enterprise-y situation, where it is not trivial to install arbitrary
| modules from the CPAN, then getting Catalyst up and running can be quite a
| headache.

I'll chime in and mention Mojolicious, since we're talking about module
dependencies...it has none outside of Core.


-- 
Ryan Corder                  ||     () ASCII ribbon campaign
<ryanc at greengrey.org>     ||     /\  against HTML email
http://pgp.mit.edu:11371/pks/lookup?op=get&search=0xBEE37813
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 195 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20111010/c5dc1c5b/attachment.bin>

From schuh at farmdale.com  Tue Oct 11 09:38:17 2011
From: schuh at farmdale.com (Mike Schuh)
Date: Tue, 11 Oct 2011 09:38:17 -0700 (PDT)
Subject: SPUG: Django equivalent for Perl?
In-Reply-To: <Pine.LNX.4.58.1110051349540.31279@shell4.speakeasy.net>
References: <Pine.LNX.4.58.1110051349540.31279@shell4.speakeasy.net>
Message-ID: <Pine.LNX.4.58.1110110928500.1016@shell2.speakeasy.net>

Last week I asked:

>At my current day job the house language is the-other-one-that-starts-
>with-P-but-isn't-Perl and lately I have begun to learn Django. ...
>
>Nearly all of my non-day jobs use Perl, and a few of them could make good
>use of a Django-like tool.  Are any of using (or have used) such a
>Perl-based (or at least Perl-friendly) framework and what were your
>experiences with it?  Recommendations?  Suggestions?

My thanks to Kevin (who offered an enhancement to Gantry/Bigtop), Ingy (who
suggested a productive phrase to ask Google that, oddly, I hadn't tried -
the results pointed to Catalyst), Yitzchak (Dancer), Colin (who contrasted
the dependencies of Catalyst and Dancer), and Ryan (who endorsed
Mojolicious).  Thank you all.

SPUG is a wonderful resource, made so by its knowledgeable and generous
members ...

-- 
Mike Schuh, Seattle USA

From cmeyer at helvella.org  Wed Oct 12 20:05:10 2011
From: cmeyer at helvella.org (Colin Meyer)
Date: Wed, 12 Oct 2011 20:05:10 -0700
Subject: SPUG: October 2011 Seattle Perl Users Group (SPUG) Meeting
Message-ID: <CALCwhBY3d+N53RzYp9HY6BMeSa1kE54_Wx_onS+S8kQyetLT7g@mail.gmail.com>

    October 2011 Seattle Perl Users Group (SPUG) Meeting
    ====================================================

    Topic: Scratch
    Speaker:
    Meeting Date: Tuesday, 18 October 2011
    Meeting Time: 6:30 - 8:30 p.m.
    Location: Marchex - 520 Pike Street

    Cost: Admission is free and open to the public
    Info: http://seattleperl.org/

    ====================================================

Tuesday, October 18, is the next meeting of the THE SEATTLE PERL USERS
GROUP.

This Month's Talk
-----------------

Scratch: it's not Perl, nor has much of anything to do with Perl. But it
is kinda neat and fun to play with. You see, have a look here:
http://scratch.mit.edu/
It's a programming language for kids. With no syntax. Or, rather, the syntax
is
disguised as the shape of blocks that fit together to make programs. Er,
"scripts".

Here's a scratch project that my partner and I made while on an airplane
ride.
http://scratch.mit.edu/projects/helvella/2001223
(If you create an account & login, then you get access to the beta flash
player,
which is much better at playing these scratch projets in the browser than
the
default java applet.)

Turned out to be pretty fun to pass the laptop back and forth, taking turns
dorking with the sratch. Kind of like those stories you wrote in junior
high,
where you passed pieces of paper around the room, and each person in turn
added
another sentence.

Anyhow, let's do that, yeah. Pre-install scratch on your laptop, bring it to
the
bar. Then we'll make some projects, pass the puters around to take turns
dorkin
'em all up. Sounds fun.


About
------

This will be a social meeting, all of up inna bar. Elephant & Castle, you
know.


Pre-Meeting
===========

If you are so inclined, please come to the pre-meeting at the nearby
Elephant
& Castle pub on 5th & Union (see map link below). Come enjoy some friendly
conversation and perhaps a favorite beverage (they have a full restaurant
too). We can usually be found at the back under the TV near the rear
entrance
that goes up into the hotel (if you enter through the front doors, just go
straight back past the bar). We'll be there from 5:00 pm to 6:19 pm.

Meeting Location
================
(same as pre-meeting, this month)

   http://bit.ly/jGI364

Due to all of the shopping around us there is plenty of parking available in
garages, but it can be hard to find street parking in the evening. There is
also a parking garage in the building, but check the rates and closing time
(subject to change due to downtown events)!

call (425) 533-2964 to ask a question

See you there!


p.s. top secret irc channel #spug on irc.perl.org
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20111012/779c1ca8/attachment.html>

From m3047 at m3047.net  Wed Oct 12 21:01:47 2011
From: m3047 at m3047.net (Fred Morris)
Date: Wed, 12 Oct 2011 21:01:47 -0700
Subject: SPUG: October 2011 Seattle Perl Users Group (SPUG) Meeting
In-Reply-To: <CALCwhBY3d+N53RzYp9HY6BMeSa1kE54_Wx_onS+S8kQyetLT7g@mail.gmail.com>
References: <CALCwhBY3d+N53RzYp9HY6BMeSa1kE54_Wx_onS+S8kQyetLT7g@mail.gmail.com>
Message-ID: <201110122101.47122.m3047@m3047.net>

Practically...no.

On Wednesday 12 October 2011 20:05, Colin Meyer wrote:
> [...]
> Scratch: it's not Perl, nor has much of anything to do with Perl. But it
> is kinda neat and fun to play with. You see, have a look here:
> http://scratch.mit.edu/
> It's a programming language for kids. With no syntax.

Considering Larry's linguistic roots... I wouldn't be so sure.

Don't  count on me being there to be the receiver of brickbats, because I'm in 
Tacoma nowadays...

--

Fred Morris
FWM6

From ramonred at gmail.com  Fri Oct 14 12:35:38 2011
From: ramonred at gmail.com (Ramon Hildreth)
Date: Fri, 14 Oct 2011 12:35:38 -0700
Subject: SPUG: reg pattern matching in a loop
Message-ID: <CAOy9VrLHKDO2Xa=bAB_OQHg9GufUXpKan6byCzUoaeqoOQC8-w@mail.gmail.com>

Esteemed colleges, I have recently re-opened my mental archives and am
attempting to create some scripts at work using perl to create some
utilities we need for our Lawson system.  I am having trouble with doing a
pattern match/substitution by line in a while loop -

........

open (OUTPUT, ">>$OUTPUTFILE");

while (<INPUT>)
{
        $_ =~ s/ \ +/|/;
        print OUTPUT "$PRODUCTLINE $_";
}
..........

my code works fine without the substitution listed above the print
statement, what I'm attempting to do it for each line is to remove all
spaces and replace with a pipe (|) - when I do leave this bit a code it, it
appears to be ignored.  I done a lot of googling and dusting off copies of
perl books, but so far no luck in the context I'm working with.  Any help
would be greatly appreciated.

Thank You.

Ramon
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20111014/7ff2d8dd/attachment.html>

From klevin at eskimo.com  Fri Oct 14 16:01:19 2011
From: klevin at eskimo.com (=?ISO-8859-1?Q?Noah_R=F8mer?=)
Date: Fri, 14 Oct 2011 16:01:19 -0700
Subject: SPUG: reg pattern matching in a loop
In-Reply-To: <CAOy9VrLHKDO2Xa=bAB_OQHg9GufUXpKan6byCzUoaeqoOQC8-w@mail.gmail.com>
References: <CAOy9VrLHKDO2Xa=bAB_OQHg9GufUXpKan6byCzUoaeqoOQC8-w@mail.gmail.com>
Message-ID: <4E98BF3F.2030505@eskimo.com>

On 10/14/2011 12:35 PM, Ramon Hildreth wrote:

> open (OUTPUT, ">>$OUTPUTFILE");
> 
> while (<INPUT>)
> {
>         $_ =~ s/ \ +/|/;
>         print OUTPUT "$PRODUCTLINE $_";
> }

Well, there's nothing syntactically wrong with the above. However, it
may be more limited in effect than you're looking for. The above regex
will replace the first occurrence of two or more spaces on a line with a
single '|' character.

In order to replace all contiguous occurrences of the ' ' character with
a single '|', the regex would be

s/ +/|/g;

No backslash is needed, and the 'g' at the end tells Perl to not stop
after finding the first matching string on the line. If you don't want
to condense multiple spaces into a single '|' ('    ' -> '|'), but want
a '|' for each space char ('    ' -> '||||'), then the 'tr' command is
your friend

tr/ /|/;

This will replace every space found with a pipe character.

-- 
Noah Romer              | Character is easier kept than recovered.
klevin at eskimo.com       |
PGP key available       |
by finger or email      |

From mark.mertel at yahoo.com  Fri Oct 14 17:13:46 2011
From: mark.mertel at yahoo.com (Mark Mertel)
Date: Fri, 14 Oct 2011 17:13:46 -0700
Subject: SPUG: reg pattern matching in a loop
In-Reply-To: <4E98BF3F.2030505@eskimo.com>
References: <CAOy9VrLHKDO2Xa=bAB_OQHg9GufUXpKan6byCzUoaeqoOQC8-w@mail.gmail.com>
	<4E98BF3F.2030505@eskimo.com>
Message-ID: <4E98D03A.3060900@yahoo.com>

and if the spaces are tabs or other white space characters:

$_ =~ s/\s+/|/g;


On 10/14/2011 4:01 PM, Noah R?mer wrote:
> On 10/14/2011 12:35 PM, Ramon Hildreth wrote:
>
>> open (OUTPUT, ">>$OUTPUTFILE");
>>
>> while (<INPUT>)
>> {
>>          $_ =~ s/ \ +/|/;
>>          print OUTPUT "$PRODUCTLINE $_";
>> }
> Well, there's nothing syntactically wrong with the above. However, it
> may be more limited in effect than you're looking for. The above regex
> will replace the first occurrence of two or more spaces on a line with a
> single '|' character.
>
> In order to replace all contiguous occurrences of the ' ' character with
> a single '|', the regex would be
>
> s/ +/|/g;
>
> No backslash is needed, and the 'g' at the end tells Perl to not stop
> after finding the first matching string on the line. If you don't want
> to condense multiple spaces into a single '|' ('    ' ->  '|'), but want
> a '|' for each space char ('    ' ->  '||||'), then the 'tr' command is
> your friend
>
> tr/ /|/;
>
> This will replace every space found with a pipe character.
>


-- 
Mark Mertel
mark.mertel at yahoo.com


From dbenhur at whitepages.com  Fri Oct 14 17:47:55 2011
From: dbenhur at whitepages.com (Devin Ben-Hur)
Date: Fri, 14 Oct 2011 17:47:55 -0700
Subject: SPUG: reg pattern matching in a loop
In-Reply-To: <4E98BF3F.2030505@eskimo.com>
References: <CAOy9VrLHKDO2Xa=bAB_OQHg9GufUXpKan6byCzUoaeqoOQC8-w@mail.gmail.com>
	<4E98BF3F.2030505@eskimo.com>
Message-ID: <4E98D83B.3050509@whitepages.com>

On 10/14/2011 04:01 PM, Noah R?mer wrote:
> If you don't want
> to condense multiple spaces into a single '|' ('    ' ->  '|'), but want
> a '|' for each space char ('    ' ->  '||||'), then the 'tr' command is
> your friend
>
> tr/ /|/;
>
> This will replace every space found with a pipe character.


Perl's transliterate will happily condense multiple substitutions to the 
same character. The squash option tells it to do so: tr/ /|/s;

From ingy at ingy.net  Fri Oct 14 18:04:17 2011
From: ingy at ingy.net (Ingy dot Net)
Date: Fri, 14 Oct 2011 21:04:17 -0400
Subject: SPUG: reg pattern matching in a loop
In-Reply-To: <4E98D83B.3050509@whitepages.com>
References: <CAOy9VrLHKDO2Xa=bAB_OQHg9GufUXpKan6byCzUoaeqoOQC8-w@mail.gmail.com>
	<4E98BF3F.2030505@eskimo.com> <4E98D83B.3050509@whitepages.com>
Message-ID: <CAHJtQJ7AmbGF0WHuTFX+e8=xCbhVjwKkex0Ai2A6=yJVTwvWtw@mail.gmail.com>

Mmm, Golf...

use IO::All;io($OUTPUTFILE)->append($_)for map{tr/
/|/s;$_}io($PRODUCTLINE)->slurp

On Fri, Oct 14, 2011 at 8:47 PM, Devin Ben-Hur <dbenhur at whitepages.com>wrote:

> On 10/14/2011 04:01 PM, Noah R?mer wrote:
>
>> If you don't want
>> to condense multiple spaces into a single '|' ('    ' ->  '|'), but want
>> a '|' for each space char ('    ' ->  '||||'), then the 'tr' command is
>> your friend
>>
>> tr/ /|/;
>>
>> This will replace every space found with a pipe character.
>>
>
>
> Perl's transliterate will happily condense multiple substitutions to the
> same character. The squash option tells it to do so: tr/ /|/s;
>
> ______________________________**______________________________**_
> Seattle Perl Users Group Mailing List
>    POST TO: spug-list at pm.org
> SUBSCRIPTION: http://mail.pm.org/mailman/**listinfo/spug-list<http://mail.pm.org/mailman/listinfo/spug-list>
>   MEETINGS: 3rd Tuesdays
>   WEB PAGE: http://seattleperl.org/
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20111014/32a81b91/attachment.html>

From seaperldev at gmail.com  Fri Oct 14 20:00:54 2011
From: seaperldev at gmail.com (Craig Steffler)
Date: Fri, 14 Oct 2011 20:00:54 -0700
Subject: SPUG: reg pattern matching in a loop
In-Reply-To: <CAOy9VrLHKDO2Xa=bAB_OQHg9GufUXpKan6byCzUoaeqoOQC8-w@mail.gmail.com>
References: <CAOy9VrLHKDO2Xa=bAB_OQHg9GufUXpKan6byCzUoaeqoOQC8-w@mail.gmail.com>
Message-ID: <CALvQyoitWjbKkLuUGVzzp5v+giwNW8qXnK-9k1cJuCwHNATX3Q@mail.gmail.com>

Actually you probably want something more like this:

  $_ =~ s/\s+/|/g;     # this will substitute all multiple instances with a
single pipe but if you actually want each space substituted you'd need $_ =~
s/\s/|/g;

Also when you want to avoid backslashitis you can do something like
s#\s+#|#g   which is kind of hard to read but it's basically s # \s+ # | #
g; so just ignore the spaces
(of course there's a setting that ignores white space to i your expression
as well).
Even s{\s+}{|}g can be used.

On Fri, Oct 14, 2011 at 12:35 PM, Ramon Hildreth <ramonred at gmail.com> wrote:

> Esteemed colleges, I have recently re-opened my mental archives and am
> attempting to create some scripts at work using perl to create some
> utilities we need for our Lawson system.  I am having trouble with doing a
> pattern match/substitution by line in a while loop -
>
> ........
>
> open (OUTPUT, ">>$OUTPUTFILE");
>
> while (<INPUT>)
> {
>         $_ =~ s/ \ +/|/;
>         print OUTPUT "$PRODUCTLINE $_";
> }
> ..........
>
> my code works fine without the substitution listed above the print
> statement, what I'm attempting to do it for each line is to remove all
> spaces and replace with a pipe (|) - when I do leave this bit a code it, it
> appears to be ignored.  I done a lot of googling and dusting off copies of
> perl books, but so far no luck in the context I'm working with.  Any help
> would be greatly appreciated.
>
> Thank You.
>
> Ramon
>
> _____________________________________________________________
> Seattle Perl Users Group Mailing List
>     POST TO: spug-list at pm.org
> SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list
>    MEETINGS: 3rd Tuesdays
>    WEB PAGE: http://seattleperl.org/
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20111014/220d3a00/attachment-0001.html>

From cmeyer at helvella.org  Mon Oct 17 18:24:03 2011
From: cmeyer at helvella.org (Colin Meyer)
Date: Mon, 17 Oct 2011 18:24:03 -0700
Subject: SPUG: October 2011 Seattle Perl Users Group (SPUG) Meeting
In-Reply-To: <CALCwhBY3d+N53RzYp9HY6BMeSa1kE54_Wx_onS+S8kQyetLT7g@mail.gmail.com>
References: <CALCwhBY3d+N53RzYp9HY6BMeSa1kE54_Wx_onS+S8kQyetLT7g@mail.gmail.com>
Message-ID: <CALCwhBbabeMGnSBqqoAy322dgOdOmgC4MPFJTBwCmzhUy8CUng@mail.gmail.com>

Reminder: meeting is tomorrow (Tuesday).
On Oct 12, 2011 8:05 PM, "Colin Meyer" <cmeyer at helvella.org> wrote:

>     October 2011 Seattle Perl Users Group (SPUG) Meeting
>     ====================================================
>
>     Topic: Scratch
>     Speaker:
>     Meeting Date: Tuesday, 18 October 2011
>     Meeting Time: 6:30 - 8:30 p.m.
>     Location: Marchex - 520 Pike Street
>
>     Cost: Admission is free and open to the public
>     Info: http://seattleperl.org/
>
>     ====================================================
>
> Tuesday, October 18, is the next meeting of the THE SEATTLE PERL USERS
> GROUP.
>
> This Month's Talk
> -----------------
>
> Scratch: it's not Perl, nor has much of anything to do with Perl. But it
> is kinda neat and fun to play with. You see, have a look here:
> http://scratch.mit.edu/
> It's a programming language for kids. With no syntax. Or, rather, the
> syntax is
> disguised as the shape of blocks that fit together to make programs. Er,
> "scripts".
>
> Here's a scratch project that my partner and I made while on an airplane
> ride.
> http://scratch.mit.edu/projects/helvella/2001223
> (If you create an account & login, then you get access to the beta flash
> player,
> which is much better at playing these scratch projets in the browser than
> the
> default java applet.)
>
> Turned out to be pretty fun to pass the laptop back and forth, taking
> turns
> dorking with the sratch. Kind of like those stories you wrote in junior
> high,
> where you passed pieces of paper around the room, and each person in turn
> added
> another sentence.
>
> Anyhow, let's do that, yeah. Pre-install scratch on your laptop, bring it
> to the
> bar. Then we'll make some projects, pass the puters around to take turns
> dorkin
> 'em all up. Sounds fun.
>
>
> About
> ------
>
> This will be a social meeting, all of up inna bar. Elephant & Castle, you
> know.
>
>
> Pre-Meeting
> ===========
>
> If you are so inclined, please come to the pre-meeting at the nearby
> Elephant
> & Castle pub on 5th & Union (see map link below). Come enjoy some friendly
> conversation and perhaps a favorite beverage (they have a full restaurant
> too). We can usually be found at the back under the TV near the rear
> entrance
> that goes up into the hotel (if you enter through the front doors, just go
> straight back past the bar). We'll be there from 5:00 pm to 6:19 pm.
>
> Meeting Location
> ================
> (same as pre-meeting, this month)
>
>    http://bit.ly/jGI364
>
> Due to all of the shopping around us there is plenty of parking available
> in
> garages, but it can be hard to find street parking in the evening. There is
> also a parking garage in the building, but check the rates and closing time
> (subject to change due to downtown events)!
>
> call (425) 533-2964 to ask a question
>
> See you there!
>
>
> p.s. top secret irc channel #spug on irc.perl.org
>
>
> _____________________________________________________________
> Seattle Perl Users Group Mailing List
>     POST TO: spug-list at pm.org
> SUBSCRIPTION: http://mail.pm.org/mailman/listinfo/spug-list
>    MEETINGS: 3rd Tuesdays
>    WEB PAGE: http://seattleperl.org/
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20111017/24db648f/attachment.html>

From twists at gmail.com  Tue Oct 18 18:34:21 2011
From: twists at gmail.com (Joshua ben Jore)
Date: Tue, 18 Oct 2011 18:34:21 -0700
Subject: SPUG: Meeting at E&C!
Message-ID: <CAHmienduiXOew-bo3nnX4gUOUaEAthU9nsNa2jCb5yAdkQ2Oug@mail.gmail.com>

There was a mix up. We're at Elephant and Castle.

Josh
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/spug-list/attachments/20111018/21623100/attachment.html>

From andrew at sweger.net  Wed Oct 26 08:18:13 2011
From: andrew at sweger.net (Andrew Sweger)
Date: Wed, 26 Oct 2011 08:18:13 -0700 (PDT)
Subject: SPUG: Perl Weekly
Message-ID: <Pine.LNX.4.21.1110260817090.2179-100000@gandalf.addnorya.net>

The Perl Weekly is a newsletter sent out every Monday morning to more than
1600 addresses with 10-15 Perl related news items of the previous week.

It helps you keep up-to-date with the latest development in Perl, CPAN and
the Perl community, even if you don't have time to follow those on a daily
base.

It is curated by Gabor Szabo, long time Perl developer and Perl trainer.

To sign-up visit     http://perlweekly.com/

-- 
Andrew B. Sweger -- The great thing about multitasking is that several
                                things can go wrong at once.