-
Notifications
You must be signed in to change notification settings - Fork 2
Perl 5 to Perl 6 Translator
License
Util/Blue_Tiger
Folders and files
Name | Name | Last commit message | Last commit date | |
---|---|---|---|---|
Repository files navigation
Blue Tiger is an assistant for Perl 5 to Perl 6 translation. How to try it without installing: git clone git://github.com/Util/Blue_Tiger.git cd Blue_Tiger bin/p526 path/to/program.pl > program_and_warnings.p6 Initial Author: Bruce Gray Email: bruce dot gray at acm dot org IRC: "Util" on freenode/#perl6 Pre-requisite modules: PPI 1.204_03 or higher Currently handles (with examples): Mandatory: Operator changes . -> ~ Invariant sigils $hash{$key} -> %hash{$key} Casts @{$arrayref} -> @($arrayref) Nums with trailing. 42. -> 42.0 KeywordNoSpace if( -> if ( Bare hash keys $hash{KEY} -> %hash{'KEY'} map/grep comma @z=map {...} @a -> @z=map {...}, @a mapish EXPR @z=map !$_, @a -> @z=map { !$_ }, @a Optional: Warnings for user review of transforms. Planned/TODO: Mandatory: for/loop for(;$i>5;$i++) -> loop (;$i>5;$i++) foreach arrow for my $i (@a) -> for @a -> $i open open my $fh,... -> my $fh = open... bareword filehandle open FH, ... -> my $FH = open... readline via <> <$fh> -> $fh.get (if scalar) readline func readline $fh -> $fh.get (if scalar) while readline while (<$fh>){} -> for $fh.lines {} magic diamond while (<>){} -> for lines() {...} ARGV/ARGS @ARGV -> @*ARGS Hash init? => -> P5=> (sometimes) rand function rand -> P5rand qq changes "${foo}bar" -> "{$foo}bar" "\l$foo" -> "{lc $foo}" "\v" double-underscore __PACKAGE__ -> $?PACKAGE indent-i_fiers "$foo_bar-30" -> "$foo_bar\-30" or -> "{$foo_bar}-30" syntax collisions '\qq[...]' -> '\\qq[...]' (especially qq) "@array" -> "@array[]" "$a.b()" -> "$a.b\()" "abc{def()}ghi" -> "abc\{def()\}ghi" or -> qq:!c "abc{def()}ghi" Unicode "\N{NEGATED DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE}" -> "\c[NEGATED DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE]" Unicode? Lots! Optional (and configurable!): Hashkey short form %hash{'KEY'} -> %hash<KEY> Remove parens if ($foo) {} -> if $foo {} func vs method @z=map {...} @a -> @z=@a.map({...}) Infinite loop while (1) {...} -> loop {...} qq un-hack "@{[ $a * 2 ]}" -> "{$a * 2}" print/say print "Hi!\n" -> say "Hi!"; Regex improvements qr{ a [ ]+ b }x -> re{ a b } XXXX smart spacing? Bad slurp for (<fh>){} -> for $fh.slurp pick int(rand 12) -> (^12).pick pick array $a[rand @a] -> @a.pick Hash init %h=map{$_=>1}@a -> %h = @a X=> 1 @_ handling sub f{($n)=@_} -> sub f ($n) {} Divides ($n % 2) == 0 -> $n %% 2 List::Util comma first {...} @a -> first {...}, @a
About
Perl 5 to Perl 6 Translator
Resources
License
Stars
Watchers
Forks
Releases
No releases published
Packages 0
No packages published