develooper Front page | perl.perl6.users | Postings from June 2018

Re: need second pair of eyes

Thread Previous | Thread Next
From:
Brandon Allbery
Date:
June 12, 2018 23:37
Subject:
Re: need second pair of eyes
Message ID:
CAKFCL4X2y_CPtwkade1Gio0aSn=XkqdCAghhW3JuaZoWWuZMdQ@mail.gmail.com
Same as in perl 5:  m<delim> ... <delim>

m|xxx|


On Tue, Jun 12, 2018 at 7:35 PM ToddAndMargo <ToddAndMargo@zoho.com> wrote:

> On 06/12/2018 03:41 PM, ToddAndMargo wrote:
> > Hi Alk,
> >
> > What am I dong wrong here?
> >
> >
> > $ p6 'my $Line = "wine-patched/archive/staging-/xxxxx.tar.gz"; if $Line
> > ~~ | "wine-patched/archive/staging-/"   &&   ".tar.gz " |  {say "yes"}
> > else {say "no};'
> >
> > ===SORRY!===
> > Expression needs parens to avoid gobbling block
> > at -e:1
> > ------> ging-/"   &&   ".tar.gz " |  {say "yes"}⏏ else {say "no};
> > Missing block (apparently claimed by expression)
> > at -e:1
> > ------> ging-/"   &&   ".tar.gz " |  {say "yes"}⏏ else {say "no};
> >
> >
> > :'(
> >
> > -T
>
>
> This fixed it:
>
> $ p6 'my $Line = "wine-patched/archive/staging-/xxxxx.tar.gz";if $Line
> ~~ / "wine-patched\/archive\/staging\-\/" / & / ".tar.gz" /  {say "yes"}
> else {say "no"};'
>
>
> How do I use "|" instead of "/"?  I am trying to rid myself of the
> /\/\//\//\\/\/  tree
>


-- 
brandon s allbery kf8nh                               sine nomine associates
allbery.b@gmail.com                                  ballbery@sinenomine.net
unix, openafs, kerberos, infrastructure, xmonad        http://sinenomine.net

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About