http://qs321.pair.com?node_id=11137581


in reply to Re^3: my within brackets
in thread my within brackets

Now, spot the difference! ;-)

$ diff -u \
   <( perl -Mstrict -Mwarnings -MO=Concise -e'my ($u, $v)    = split /
+,/, "U,V";' 2>&1 ) \
   <( perl -Mstrict -Mwarnings -MO=Concise -e'(my $u, my $v) = split /
+,/, "U,V";' 2>&1 ) \
&& echo same
same

[download]

PS, I usually use -MO=Concise,-exec 

1  <0> enter
2  <;> nextstate(main 1 -e:1) v:*,&,{,x*,x&,x$,$
3  <0> pushmark s
4  <$> const[PV "U,V"] s
5  <$> const[IV 3] s
6  </> split(/","/)[t3] lK/IMPLIM
7  <0> padrange[$u:1,2; $v:1,2] RM/LVINTRO,range=2
8  <2> aassign[t4] vKS
9  <@> leave[1 ref] vKP/REFC
-e syntax OK

[download]

Replies are listed 'Best First'.
Re^5: my within brackets
by LanX (Saint) on Oct 15, 2021 at 18:56 UTC
    I though about diff, but I'm mostly on Win and was too lazy to fire up the VM for that °...

    But now I remembered gitbash ...

     MINGW64 ~
$ diff -u \
>    <( perl -Mstrict -Mwarnings -MO=Concise -e'my ($u, $v)    = split
+ /,/, "U,V";' 2>&1 ) \
>    <( perl -Mstrict -Mwarnings -MO=Concise -e'(my $u, my $v) = split
+ /,/, "U,V";' 2>&1 ) \
> && echo same
same

    [download]

    thanks! :)

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery

    °) and I firmly expected someone would do it for me anyway ;-)

[reply]
[d/l]

      I purchased a license of Beyond Compare many years back. I've used it *a lot*

[reply]
        I'm quite happy with kdiff3.

        I ignored till now that it has CLI, but I'm still too lazy to try translate your one liner with two sub-shells to CMD/BAT ° and kdiff3.

        gitbash does this job with little snippets just fine :)

        Cheers Rolf
        (addicted to the Perl Programming Language :)
        Wikisyntax for the Monastery

        °) if that's even possible

[reply]

In Section Seekers of Perl Wisdom