Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
  1. Home
  2. Other Discussions
  3. The Insider News
  4. Larry Wall Unveils Perl 6.0.0

Larry Wall Unveils Perl 6.0.0

Scheduled Pinned Locked Moved The Insider News
perlhtmlquestion
11 Posts 8 Posters 1 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • S Offline
    S Offline
    Sean Ewington
    wrote on last edited by
    #1

    Pigdog Journal[^]:

    On October 5th, 2015 Larry Wall addressed a crowd of geeks at San Francisco's Exploratorium, saying he couldn't properly express his gratitude to Craigslist. Then he acknowledged how long the development arc had been for Perl 6. "As the old joke goes, Perl 6 is coming out this Christmas." Only this time, he meant it.

    Hopefully Christmas comes early?

    M J 3 Replies Last reply
    0
    • S Sean Ewington

      Pigdog Journal[^]:

      On October 5th, 2015 Larry Wall addressed a crowd of geeks at San Francisco's Exploratorium, saying he couldn't properly express his gratitude to Craigslist. Then he acknowledged how long the development arc had been for Perl 6. "As the old joke goes, Perl 6 is coming out this Christmas." Only this time, he meant it.

      Hopefully Christmas comes early?

      M Offline
      M Offline
      Marc Clifton
      wrote on last edited by
      #2

      Does anyone actually use Perl? And if so, why? I'm actually not being sarcastic. I'll go check out their page. Marc

      Imperative to Functional Programming Succinctly Contributors Wanted for Higher Order Programming Project!

      D P K N J 5 Replies Last reply
      0
      • M Marc Clifton

        Does anyone actually use Perl? And if so, why? I'm actually not being sarcastic. I'll go check out their page. Marc

        Imperative to Functional Programming Succinctly Contributors Wanted for Higher Order Programming Project!

        D Offline
        D Offline
        Dave Calkins
        wrote on last edited by
        #3

        Its a scripting language which has been around a long time and had a lot of popularity in the past. So I'm guessing lots use it even if it isn't the newest fad :) And there's probably still TONS of code out there which uses it.

        1 Reply Last reply
        0
        • M Marc Clifton

          Does anyone actually use Perl? And if so, why? I'm actually not being sarcastic. I'll go check out their page. Marc

          Imperative to Functional Programming Succinctly Contributors Wanted for Higher Order Programming Project!

          P Offline
          P Offline
          PIEBALDconsult
          wrote on last edited by
          #4

          Used it unwillingly twenty years ago.

          K 1 Reply Last reply
          0
          • S Sean Ewington

            Pigdog Journal[^]:

            On October 5th, 2015 Larry Wall addressed a crowd of geeks at San Francisco's Exploratorium, saying he couldn't properly express his gratitude to Craigslist. Then he acknowledged how long the development arc had been for Perl 6. "As the old joke goes, Perl 6 is coming out this Christmas." Only this time, he meant it.

            Hopefully Christmas comes early?

            J Offline
            J Offline
            James_Parsons
            wrote on last edited by
            #5

            # sub j(\$){($ P,$V)= @_;while($$P=~s:^ ([()])::x){ $V+=('('eq$1)?-32:31 }$V+=ord( substr( $$P,0,1,""))-74} sub a{ my($I,$K,$ J,$L)=@_ ;$I=int($I*$M/$Z);$K=int( $K*$M/$Z);$J=int($J*$M /$Z);$L=int($L*$M/$Z); $G=$ J-$I;$F=$L-$K;$E=(abs($ G)>=abs($F))?$G:$F;($E<0) and($ I,$K)=($J,$L);$E||=.01 ;for($i=0;$i<=abs$E;$i++ ){ $D->{$K +int($i*$F/$E) }->{$I+int($i*$G/$E)}=1}}sub p{$D={};$ Z=$z||.01;map{ $H=$_;$I=$N=j$H;$K=$O=j$H;while($H){$q=ord substr($H,0,1,"" );if(42==$q){$J=j$H;$L=j$H}else{$q-=43;$L =$q %9;$J=($q-$L)/9;$L=$q-9*$J-4;$J-=4}$J+=$I;$L+=$K;a($I,$K,$J,$ L); ($I,$K)=($J,$L)}a($I,$K,$N,$O)}@_;my$T;map{$y=$_;map{ $T.=$D->{$y} ->{$_}?$\:' '}(-59..59);$T.="\n"}(-23..23);print"\e[H$T"}$w= eval{ require Win32::Console::ANSI};$b=$w?'1;7;':"";($j,$u,$s,$t,$a,$n,$o ,$h,$c,$k,$p,$e,$r,$l,$C)=split/}/,'Tw*JSK8IAg*PJ[*J@wR}*JR]*QJ[*J'. 'BA*JQK8I*JC}KUz]BAIJT]*QJ[R?-R[e]\RI'.'}Tn*JQ]wRAI*JDnR8QAU}wT8KT'. ']n*JEI*EJR*QJ]*JR*DJ@IQ[}*JSe*JD[n]*JPe*'.'JBI/KI}T8@?PcdnfgVCBRcP'. '?ABKV]]}*JWe*JD[n]*JPe*JC?8B*JE};Vq*OJQ/IP['.'wQ}*JWeOe{n*EERk8;'. 'J*JC}/U*OJd[OI@*BJ*JXn*J>w]U}CWq*OJc8KJ?O[e]U/T*QJP?}*JSe*JCnTe'. 'QIAKJR}*JV]wRAI*J?}T]*RJcJI[\]3;U]Uq*PM[wV]W]WCT*DM*SJ'. 'ZP[Z'. 'PZa[\]UKVgogK9K*QJ[\]n[RI@*EH@IddR[Q[]T]T]T3o[dk*JE'. '[Z\U'. '{T]*JPKTKK]*OJ[QIO[PIQIO[[gUKU\k*JE+J+J5R5AI*EJ00'. 'BCB*'. 'DMKKJIR[Q+*EJ0*EK';sub h{$\ = qw(% & @ x)[int rand 4];map{printf "\e[$b;%dm",int(rand 6)+101-60* ($w ||0);system( "cls")if$w ;($A,$S)= ($_[1], $ _[0]);($M, @,)= split '}';for( $z=256 ;$z>0; $z -=$S){$S*= $A;p @,} sleep$_ [2];while ($_[3]&&($ z+=$ S) <=256){ p@,}}("". "32}7D$j" ."}AG". "$u}OG" ."$s}WG" ."$t","" ."24}(" ."IJ$a"

            1 Reply Last reply
            0
            • S Sean Ewington

              Pigdog Journal[^]:

              On October 5th, 2015 Larry Wall addressed a crowd of geeks at San Francisco's Exploratorium, saying he couldn't properly express his gratitude to Craigslist. Then he acknowledged how long the development arc had been for Perl 6. "As the old joke goes, Perl 6 is coming out this Christmas." Only this time, he meant it.

              Hopefully Christmas comes early?

              J Offline
              J Offline
              James_Parsons
              wrote on last edited by
              #6
                                                                 #
                                                             sub j(\\$){($
                               P,$V)=                      @\_;while($$P=~s:^
                           (\[()\])::x){                    $V+=('('eq$1)?-32:31
                     }$V+=ord(  substr(                 $$P,0,1,""))-74} sub a{
                    my($I,$K,$  J,$L)=@\_               ;$I=int($I\*$M/$Z);$K=int(
                   $K\*$M/$Z);$J=int($J\*$M             /$Z);$L=int($L\*$M/$Z); $G=$
                   J-$I;$F=$L-$K;$E=(abs($          G)>=abs($F))?$G:$F;($E<0) and($
                    I,$K)=($J,$L);$E||=.01       ;for($i=0;$i<=abs$E;$i++ ){ $D->{$K
                            +int($i\*$F/$E)      }->{$I+int($i\*$G/$E)}=1}}sub p{$D={};$
                           Z=$z||.01;map{    $H=$\_;$I=$N=j$H;$K=$O=j$H;while($H){$q=ord
                          substr($H,0,1,"" );if(42==$q){$J=j$H;$L=j$H}else{$q-=43;$L =$q
                        %9;$J=($q-$L)/9;$L=$q-9\*$J-4;$J-=4}$J+=$I;$L+=$K;a($I,$K,$J,$ L);
                        ($I,$K)=($J,$L)}a($I,$K,$N,$O)}@\_;my$T;map{$y=$\_;map{ $T.=$D->{$y}
                        ->{$\_}?$\\:' '}(-59..59);$T.="\\n"}(-23..23);print"\\e\[H$T"}$w= eval{
                        require Win32::Console::ANSI};$b=$w?'1;7;':"";($j,$u,$s,$t,$a,$n,$o
                        ,$h,$c,$k,$p,$e,$r,$l,$C)=split/}/,'Tw\*JSK8IAg\*PJ\[\*J@wR}\*JR\]\*QJ\[\*J'.
                         'BA\*JQK8I\*JC}KUz\]BAIJT\]\*QJ\[R?-R\[e\]\\RI'.'}Tn\*JQ\]wRAI\*JDnR8QAU}wT8KT'.
                         '\]n\*JEI\*EJR\*QJ\]\*JR\*DJ@IQ\[}\*JSe\*JD\[n\]\*JPe\*'.'JBI/KI}T8@?PcdnfgVCBRcP'.
                          '?ABKV\]\]}\*JWe\*JD\[n\]\*JPe\*JC?8B\*JE};Vq\*OJQ/IP\['.'wQ}\*JWeOe{n\*EERk8;'.
                            'J\*JC}/U\*OJd\[OI@\*BJ\*JXn\*J>w\]U}CWq\*OJc8KJ?O\[e\]U/T\*QJP?}\*JSe\*JCnTe'.
                             'QIAKJR}\*JV\]wRAI\*J?}T\]\*RJcJI\[\\\]3;U\]Uq\*PM\[wV\]W\]WCT\*DM\*SJ'.  'ZP\[Z'.
                                'PZa\[\\\]UKVgogK9K\*QJ\[\\\]n\[RI@\*EH@IddR\[Q\[\]T\]T\]T3o\[dk\*JE'.  '\[Z\\U'.
                                  '{T\]\*JPKTKK\]\*OJ\[QIO\[PIQIO\[\[gUKU\\k\*JE+J+J5R5AI\*EJ00'.  'BCB\*'.
                                       'DMKKJIR\[Q+\*EJ0\*EK';sub h{$\\ = qw(% & @ x)\[int    rand
                                        4\];map{printf  "\\e\[$b;%dm",int(rand 6)+101-60\*   ($w
                                         ||0);system(  "cls")if$w ;($A,$S)=    ($\_\[1\],   $
                                          \_\[0\]);($M,   @,)= split  '}';for(     $z=256
                                          ;$z>0; $z   -=$S){$S\*=   $A;p @,}      sleep$\_
                                          \[2\];while   ($\_\[3\]&&($    z+=$ S)       <=256){
                                          p@,}}("".   "32}7D$j"     ."}AG".       "$u}OG"
                                          ."$s}WG"    ."$t",""      ."24}("        ."IJ$a"
              
              K 1 Reply Last reply
              0
              • P PIEBALDconsult

                Used it unwillingly twenty years ago.

                K Offline
                K Offline
                Kevin McFarlane
                wrote on last edited by
                #7

                Used it unwillingly fourteen years ago. :laugh:

                Kevin

                1 Reply Last reply
                0
                • J James_Parsons
                                                                     #
                                                                 sub j(\\$){($
                                   P,$V)=                      @\_;while($$P=~s:^
                               (\[()\])::x){                    $V+=('('eq$1)?-32:31
                         }$V+=ord(  substr(                 $$P,0,1,""))-74} sub a{
                        my($I,$K,$  J,$L)=@\_               ;$I=int($I\*$M/$Z);$K=int(
                       $K\*$M/$Z);$J=int($J\*$M             /$Z);$L=int($L\*$M/$Z); $G=$
                       J-$I;$F=$L-$K;$E=(abs($          G)>=abs($F))?$G:$F;($E<0) and($
                        I,$K)=($J,$L);$E||=.01       ;for($i=0;$i<=abs$E;$i++ ){ $D->{$K
                                +int($i\*$F/$E)      }->{$I+int($i\*$G/$E)}=1}}sub p{$D={};$
                               Z=$z||.01;map{    $H=$\_;$I=$N=j$H;$K=$O=j$H;while($H){$q=ord
                              substr($H,0,1,"" );if(42==$q){$J=j$H;$L=j$H}else{$q-=43;$L =$q
                            %9;$J=($q-$L)/9;$L=$q-9\*$J-4;$J-=4}$J+=$I;$L+=$K;a($I,$K,$J,$ L);
                            ($I,$K)=($J,$L)}a($I,$K,$N,$O)}@\_;my$T;map{$y=$\_;map{ $T.=$D->{$y}
                            ->{$\_}?$\\:' '}(-59..59);$T.="\\n"}(-23..23);print"\\e\[H$T"}$w= eval{
                            require Win32::Console::ANSI};$b=$w?'1;7;':"";($j,$u,$s,$t,$a,$n,$o
                            ,$h,$c,$k,$p,$e,$r,$l,$C)=split/}/,'Tw\*JSK8IAg\*PJ\[\*J@wR}\*JR\]\*QJ\[\*J'.
                             'BA\*JQK8I\*JC}KUz\]BAIJT\]\*QJ\[R?-R\[e\]\\RI'.'}Tn\*JQ\]wRAI\*JDnR8QAU}wT8KT'.
                             '\]n\*JEI\*EJR\*QJ\]\*JR\*DJ@IQ\[}\*JSe\*JD\[n\]\*JPe\*'.'JBI/KI}T8@?PcdnfgVCBRcP'.
                              '?ABKV\]\]}\*JWe\*JD\[n\]\*JPe\*JC?8B\*JE};Vq\*OJQ/IP\['.'wQ}\*JWeOe{n\*EERk8;'.
                                'J\*JC}/U\*OJd\[OI@\*BJ\*JXn\*J>w\]U}CWq\*OJc8KJ?O\[e\]U/T\*QJP?}\*JSe\*JCnTe'.
                                 'QIAKJR}\*JV\]wRAI\*J?}T\]\*RJcJI\[\\\]3;U\]Uq\*PM\[wV\]W\]WCT\*DM\*SJ'.  'ZP\[Z'.
                                    'PZa\[\\\]UKVgogK9K\*QJ\[\\\]n\[RI@\*EH@IddR\[Q\[\]T\]T\]T3o\[dk\*JE'.  '\[Z\\U'.
                                      '{T\]\*JPKTKK\]\*OJ\[QIO\[PIQIO\[\[gUKU\\k\*JE+J+J5R5AI\*EJ00'.  'BCB\*'.
                                           'DMKKJIR\[Q+\*EJ0\*EK';sub h{$\\ = qw(% & @ x)\[int    rand
                                            4\];map{printf  "\\e\[$b;%dm",int(rand 6)+101-60\*   ($w
                                             ||0);system(  "cls")if$w ;($A,$S)=    ($\_\[1\],   $
                                              \_\[0\]);($M,   @,)= split  '}';for(     $z=256
                                              ;$z>0; $z   -=$S){$S\*=   $A;p @,}      sleep$\_
                                              \[2\];while   ($\_\[3\]&&($    z+=$ S)       <=256){
                                              p@,}}("".   "32}7D$j"     ."}AG".       "$u}OG"
                                              ."$s}WG"    ."$t",""      ."24}("        ."IJ$a"
                  
                  K Offline
                  K Offline
                  Kevin McFarlane
                  wrote on last edited by
                  #8

                  :laugh: That's what I thought when I had to maintain someone else's code.

                  Kevin

                  1 Reply Last reply
                  0
                  • M Marc Clifton

                    Does anyone actually use Perl? And if so, why? I'm actually not being sarcastic. I'll go check out their page. Marc

                    Imperative to Functional Programming Succinctly Contributors Wanted for Higher Order Programming Project!

                    K Offline
                    K Offline
                    Kevin McFarlane
                    wrote on last edited by
                    #9

                    I used it fourteen years ago and developed a lifelong hatred of it. I admit it's very powerful for its niche but definitely a "write once, read never" language.

                    Kevin

                    1 Reply Last reply
                    0
                    • M Marc Clifton

                      Does anyone actually use Perl? And if so, why? I'm actually not being sarcastic. I'll go check out their page. Marc

                      Imperative to Functional Programming Succinctly Contributors Wanted for Higher Order Programming Project!

                      N Offline
                      N Offline
                      Nemanja Trifunovic
                      wrote on last edited by
                      #10

                      Marc Clifton wrote:

                      Does anyone actually use Perl?

                      Yep - it is still used a lot.

                      Marc Clifton wrote:

                      And if so, why?

                      Can't speak for others, but I use it because it is universally available on different Unix machines. A script written in Perl is likely to work on anything *nix out of the box.

                      utf8-cpp

                      1 Reply Last reply
                      0
                      • M Marc Clifton

                        Does anyone actually use Perl? And if so, why? I'm actually not being sarcastic. I'll go check out their page. Marc

                        Imperative to Functional Programming Succinctly Contributors Wanted for Higher Order Programming Project!

                        J Offline
                        J Offline
                        Joe Woodbury
                        wrote on last edited by
                        #11

                        I use it when building OpenSSL and modified their scripts to do more what I want. I don't mind it. A friend uses it extensively for computational linguistics.

                        1 Reply Last reply
                        0
                        Reply
                        • Reply as topic
                        Log in to reply
                        • Oldest to Newest
                        • Newest to Oldest
                        • Most Votes


                        • Login

                        • Don't have an account? Register

                        • Login or register to search.
                        • First post
                          Last post
                        0
                        • Categories
                        • Recent
                        • Tags
                        • Popular
                        • World
                        • Users
                        • Groups