Larry Wall Unveils Perl 6.0.0
-
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?
-
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?
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!
-
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!
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.
-
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!
Used it unwillingly twenty years ago.
-
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?
# 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"
-
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?
# 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" -
Used it unwillingly twenty years ago.
Used it unwillingly fourteen years ago. :laugh:
Kevin
-
# 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":laugh: That's what I thought when I had to maintain someone else's code.
Kevin
-
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!
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
-
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!
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.
-
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!
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.