python 代码转 Perl

ttcn_cu

有个Python代码不解
方括号里带了for操作，这种代码如何转换为Perl代码？
s = [(word[:i], word[i:]) for i in range(len(word) + 1)]

MMMIX

回复 1# ttcn_cu


    这个你先应该到 Python 版问明白它是做什么的，然后才是重新实现的问题。

ttcn_cu

回复 2# MMMIX


    说不定Perler里有懂python的，同时我也在google啊

ttcn_cu

>>> word="hello"
>>> [(word[:i], word[i:]) for i in range(len(word) + 1)]
[('', 'hello'), ('h', 'ello'), ('he', 'llo'), ('hel', 'lo'), ('hell', 'o'), ('hello', '')]
>>>

原来是tuple in list
Perl里好像没有tuple

1         您不能向 tuple 增加元素。Tuple 没有 append 或 extend 方法。
2         您不能从 tuple 删除元素。Tuple 没有 remove 或 pop 方法。
3         您不能在 tuple 中查找元素。Tuple 没有 index 方法。
4         然而，您可以使用 in 来查看一个元素是否存在于 tuple 中。

那么使用 tuple 有什么好处呢？

    Tuple 比 list 操作速度快。如果您定义了一个值的常量集，并且唯一要用它做的是不断地遍历它，请使用 tuple 代替 list。
    如果对不需要修改的数据进行 “写保护”，可以使代码更安全。使用 tuple 而不是 list 如同拥有一个隐含的 assert 语句，说明这一数据是常量。如果必须要改变这些值，则需要执行 tuple 到 list 的转换 (需要使用一个特殊的函数)。
    还记得我说过 dictionary keys 可以是字符串，整数和 “其它几种类型”吗？Tuples 就是这些类型之一。Tuples 可以在 dictionary 中被用做 key，但是 list 不行。实际上，事情要比这更复杂。Dictionary key 必须是不可变的。Tuple 本身是不可改变的，但是如果您有一个 list 的 tuple，那就认为是可变的了，用做 dictionary key 就是不安全的。只有字符串、整数或其它对 dictionary 安全的 tuple 才可以用作 dictionary key。
    Tuples 可以用在字符串格式化中，我们会很快看到。

注意
Tuple 可以转换成 list，反之亦然。内置的 tuple 函数接收一个 list，并返回一个有着相同元素的 tuple。而 list 函数接收一个 tuple 返回一个 list。从效果上看，tuple 冻结一个 list，而 list 解冻一个 tuple。

ttcn_cu

论坛人气不够啊
自己找到答案了
这个Python的代码的对应Perl代码如下

(感觉Perl的实现方法太不优雅了， $1 $2 $1, 感觉像喊号子，可能我的实现比较功利)

1. alphabet = 'abcdefghijklmnopqrstuvwxyz'
   
2. 
   
3. def edits1(word):
   
4.    s = [(word[:i], word[i:]) for i in range(len(word) + 1)]
   
5.    deletes    = [a + b[1:] for a, b in s if b]
   
6.    transposes = [a + b[1] + b[0] + b[2:] for a, b in s if len(b)>1]
   
7.    replaces   = [a + c + b[1:] for a, b in s for c in alphabet if b]
   
8.    inserts    = [a + c + b     for a, b in s for c in alphabet]
   
9.    return set(deletes + transposes + replaces + inserts)

复制代码

1. my @Alphabet = split //,'abcdefghijklmnopqrstuvwxyz';
   
2. sub Edits1{
   
3.         my $Word = shift;
   
4.         my @Deletes;
   
5.         my @Transposes;
   
6.         my @Replaces;
   
7.         my @Inserts;
   
8.         for my $i (0..length($Word)){
   
9.                 $Word=~/^(.{$i})((.?)((.?)(.*)))$/;
   
10.                 push @Deletes,$1.$4;
    
11.                 push @Transposes, $1.$5.$3.$6;
    
12.                 if ($2){
    
13.                         push @Replaces, $1.$_.$4 for @Alphabet;
    
14.                 }
    
15.                 push @Inserts, $1.$_.$2 for @Alphabet;
    
16.         }
    
17. 
    
18.         say Dumper \@Deletes;
    
19.         say Dumper \@Transposes;
    
20.         say Dumper \@Replaces;
    
21.         say Dumper \@Inserts;
    
22. }

复制代码

sjdy521

回复 4# ttcn_cu


    如果依葫芦画瓢，不考虑perl style的话，是不是这样写？

1. $word="hello";
   
2. @word=split//,$word;
   
3. push @s,[join("",@word[0..$_-1]),join("",@word[$_..$#word])] for(0..@word+1);
   
4. 
   
5. use Data::Dumper;
   
6. print Dumper \@s

复制代码

输出：

1. [
   
2.           [
   
3.             '',
   
4.             'hello'
   
5.           ],
   
6.           [
   
7.             'h',
   
8.             'ello'
   
9.           ],
   
10.           [
    
11.             'he',
    
12.             'llo'
    
13.           ],
    
14.           [
    
15.             'hel',
    
16.             'lo'
    
17.           ],
    
18.           [
    
19.             'hell',
    
20.             'o'
    
21.           ],
    
22.           [
    
23.             'hello',
    
24.             ''
    
25.           ],
    
26.           [
    
27.             'hello',
    
28.             ''
    
29.           ]
    
30.         ];

复制代码

用perl6应该会更舒服些

sjdy521

回复 5# ttcn_cu


    如果要用正则，这样ok？

$word="hello";
push @s,[$`,$&.$'] while($word=~//g);
use Data:umper;
print Dumper \@s;

输出结果：

1. [
   
2.           [
   
3.             '',
   
4.             'hello'
   
5.           ],
   
6.           [
   
7.             'h',
   
8.             'ello'
   
9.           ],
   
10.           [
    
11.             'he',
    
12.             'llo'
    
13.           ],
    
14.           [
    
15.             'hel',
    
16.             'lo'
    
17.           ],
    
18.           [
    
19.             'hell',
    
20.             'o'
    
21.           ],
    
22.           [
    
23.             'hello',
    
24.             ''
    
25.           ]
    
26.         ];

复制代码

]

yinyuemi

1. 和楼上的思路大同小异
   
2. perl -MData::Dumper -le '$s="12345";while($s=~//g){push @a,[substr($s,0,pos($s)),substr($s,pos($s))]};print Dumper \@a'
   
3. $VAR1 = [
   
4.           [
   
5.             '',
   
6.             '12345'
   
7.           ],
   
8.           [
   
9.             '1',
   
10.             '2345'
    
11.           ],
    
12.           [
    
13.             '12',
    
14.             '345'
    
15.           ],
    
16.           [
    
17.             '123',
    
18.             '45'
    
19.           ],
    
20.           [
    
21.             '1234',
    
22.             '5'
    
23.           ],
    
24.           [
    
25.             '12345',
    
26.             ''
    
27.           ]
    
28.         ];
    
29. 
    

复制代码

ttcn_cu

回复 7# sjdy521


    对的，不过见一次说一次

Match variable used at line 3, column 10.  See page 82 of PBP.  Severity: 4
http://perl-critic.stacka.to/pod ... hibitMatchVars.html

ttcn_cu

大家都答对了，期待Perl6版本