Two-liner to one-liner

[Jan Eden]

Hi all,

I tried to stuff the following two lines into one, but did not succeed:

my($teilnehmer) = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;
my(@teilzeilen) = split /\n/, $teilnehmer;

This does not work:

my @teilnehmer = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;

This does neither:

my @teilnehmer = split /\n/, $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;

Any ideas?

Thanks,

Jan
--
How many Microsoft engineers does it take to screw in a lightbulb? None. They just redefine "dark" as the new standard.

[John W. Krahn]

Jan Eden wrote:

>
> Hi all,

Hello,

> I tried to stuff the following two lines into one, but did not succeed:
>
> my($teilnehmer) = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;
> my(@teilzeilen) = split /\n/, $teilnehmer;
>
> This does not work:
>
> my @teilnehmer = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;
>
> This does neither:
>
> my @teilnehmer = split /\n/, $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;
>
> Any ideas?

my @teilnehmer = map /.+/g, $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;



John
--
use Perl;
program
fulfillment

[Charles K. Clarkson]

Jan Eden <lists@jan-eden.de> wrote:
:
: I tried to stuff the following two lines into one, but did
: not succeed:
:
: my($teilnehmer) = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;
: my(@teilzeilen) = split /\n/, $teilnehmer;

Care to share a typical value for $eingabe with us?

How about:

my @teilzeilen = split /\n/, ( $eingabe =~ /(?<=Teilnehmer:\n\n)(.+)/s )[0];

I think(?) "( $eingabe =~ /(?<=Teilnehmer:\n\n)(.+)/s )[0]"
is forcing the regex into list context. In scalar context it
returns 1 (for success?) and split assumes scalar context of
its second argument.



HTH,

Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328

[Tim Johnson]

Just a small correction: In scalar context it returns 1 because there
is 1 element in the list. If there were more parentheses it might
return a higher number.



-----Original Message-----
From: Charles K. Clarkson [mailto:cclarkson@htcomp.net]
Sent: Wednesday, January 28, 2004 6:13 PM
To: 'Jan Eden'; 'Perl Lists'
Subject: RE: Two-liner to one-liner

I think(?) "( $eingabe =~ /(?<=Teilnehmer:\n\n)(.+)/s )[0]"
is forcing the regex into list context. In scalar context it returns 1
(for success?) and split assumes scalar context of its second argument.

[Jeff 'Japhy' Pinyan]

On Jan 27, Jan Eden said:

>my($teilnehmer) = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;

As far as I can tell, there is no need for a look-behind in this regex.

my ($teilnehmer) = $eingabe =~ /Teilnehmer:\n\n(.+)/s;

should be sufficient.

>my(@teilzeilen) = split /\n/, $teilnehmer;

As for shrinking them

my @teilzeilen = split /\n/, ($eingabe =~ /Teilnehmer:\n\n(.+)/s)[0];

should work.

--
Jeff "japhy" Pinyan [email]japhy@pobox.com[/email] [url]http://www.pobox.com/~japhy/[/url]
RPI Acacia brother #734 [url]http://www.perlmonks.org/[/url] [url]http://www.cpan.org/[/url]
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]

[Jan Eden]

Thanks for all the suggestions. This is a very helpful list.

Charles K. Clarkson wrote:

>Jan Eden <lists@jan-eden.de> wrote:
>:
>: I tried to stuff the following two lines into one, but did
>: not succeed:
>:
>: my($teilnehmer) = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s;
>: my(@teilzeilen) = split /\n/, $teilnehmer;
>
> Care to share a typical value for $eingabe with us?
>

It's just a bunch of text. The string "Teilnehmer:\n\n" appears just beforethe list of attendants (which I want to extract).

> How about:
>
>my @teilzeilen = split /\n/, ( $eingabe =~ /(?<=Teilnehmer:\n\n)(.+)/s )[0];
>
> I think(?) "( $eingabe =~ /(?<=Teilnehmer:\n\n)(.+)/s )[0]"
>is forcing the regex into list context. In scalar context it
>returns 1 (for success?) and split assumes scalar context of
>its second argument.
>

Ah! I knew about regex results in scalar and list context, but I took the @teilzeilen to define a list context, while in fact split defines the context. My fault.

BTW, accessing $1 like this implies that $1, $2 ... form an array. How can it be accessed as a whole?

Thanks again,

Jan
--
How many Microsoft engineers does it take to screw in a lightbulb? None. They just redefine "dark" as the new standard.

[Jan Eden]

Since 0 is always false and all other numbers are true, the returned numberof elements can indicate success at the same time. My admiration for the the way Larry Wall thinks is growing by the minute.

- Jan

Tim Johnson wrote:

>
>Just a small correction: In scalar context it returns 1 because there
>is 1 element in the list. If there were more parentheses it might
>return a higher number.
>
>
>
>-----Original Message-----
>From: Charles K. Clarkson [mailto:cclarkson@htcomp.net]
>Sent: Wednesday, January 28, 2004 6:13 PM
>To: 'Jan Eden'; 'Perl Lists'
>Subject: RE: Two-liner to one-liner
>
> I think(?) "( $eingabe =~ /(?<=Teilnehmer:\n\n)(.+)/s )[0]"
>is forcing the regex into list context. In scalar context it returns 1
>(for success?) and split assumes scalar context of its second argument.
>
>

--
There are 10 kinds of people: those who understand binary, and those who don't

[R. Joseph Newton]

Jan Eden wrote:

>
> BTW, accessing $1 like this implies that $1, $2 ... form an array. How can it be accessed as a whole?

my @matches = /($regex)/g;
my @matches = /hard-coded random stuff(.*) boilerplate(.*)more unwanted (.*)/;

Joseph

[R. Joseph Newton]

"R. Joseph Newton" wrote:
Oooops, sorry, needs a small adjustment, I think:

> Jan Eden wrote:
>

> >
> > BTW, accessing $1 like this implies that $1, $2 ... form an array. How can it be accessed as a whole?

>
> my @matches =( /($regex)/g);
> my @matches = (/hard-coded random stuff(.*) boilerplate(.*)more unwanted (.*)/);

To put the regex expressions into list context.

> Joseph

[Jan Eden]

R. Joseph Newton wrote:

>"R. Joseph Newton" wrote: Oooops, sorry, needs a small adjustment, I
>think:
>

>>Jan Eden wrote:
>>

>>>
>>>BTW, accessing $1 like this implies that $1, $2 ... form an array.
>>>How can it be accessed as a whole?

>>
>>my @matches =( /($regex)/g);

Ok, that should have been obvious. Thank you.

>To put the regex expressions into list context.
>

Doesn't the array on the left already form a list context? Do I really needthe parentheses around the regex part?

- Jan
--
There are two major products that come out of Berkeley: LSD and UNIX. We don't believe this to be a coincidence. - Jeremy S. Anderson

[John W. Krahn]

Jan Eden wrote:

>
> R. Joseph Newton wrote:
>

> >"R. Joseph Newton" wrote: Oooops, sorry, needs a small adjustment, I
> >think:
> >

> >>Jan Eden wrote:
> >>
> >>>
> >>>BTW, accessing $1 like this implies that $1, $2 ... form an array.
> >>>How can it be accessed as a whole?
> >>
> >>my @matches =( /($regex)/g);

>
> Ok, that should have been obvious. Thank you.
>

> >To put the regex expressions into list context.
> >

> Doesn't the array on the left already form a list context?

Yes.

> Do I really need the parentheses around the regex part?

No, no parenthesis are required.

my @matches = /$regex/g;


John
--
use Perl;
program
fulfillment