Python到Perl轉換器，Python縮進

Question

我正在將Python轉換為Perl進行項目。 我要求的是提示或問題的起點。

問題：如何將多行if / for / while語句轉換為Perl中的if / for / while語句（假設一個塊的縮進等於每個4個空格）？

我是用Perl編寫的，所以我在考慮使用某種數據結構（例如數組）來捕獲具有相同縮進級別的連續行的塊，但是我不確定我該怎么做？

另一種可能的方法是“窺視”下一行（我正在使用while (<>)讀取Python文件），但是這會將指針更改為下一行。

這是一個示例Python代碼：

#!/usr/bin/python
import sys

x = 4
for i in range(0, x+1):
    print i
    i = i + 1

希望翻譯成：

#!/usr/bin/perl -w

$x = 4;
foreach $i (0..$x) {
    print $i, "\n";
    $i = $i + 1;
}

Answer 1

我不明白為什么有人會這樣做，但是顯然有一個名為Perthon的項目聲稱將Python轉換為Perl。

至少他們使用Parse :: RecDescent而不是使用正則表達式;-)來正確地做到這一點。