发新话题
打印

Perl 中能使用链表吗?

Perl 中能使用链表吗?

如果可以的话怎么用?
急~      
…………………………………………………………………我的 ?????? ?????? ?????? 永远属于你! . . ???? ... .. ?? …………………………………………………………………………………… 我最大的愿望是能看到中国自己的CPU和operating system!

TOP

你指的是类似C中的链表吗?

perl可以实现类似C中那样的链表,但是没有必要这样做吧。这样的链表在perl中效率不高。      

TOP

有些数据不用连表很难操作啊~~      
…………………………………………………………………我的 ?????? ?????? ?????? 永远属于你! . . ???? ... .. ?? …………………………………………………………………………………… 我最大的愿望是能看到中国自己的CPU和operating system!

TOP

既然使用perl就应该以perl的方式来思考

可以看看Oreilly出版的一系列的有关于perl的书籍。
这里下载:
ftp://211.66.128.34/pub/BookShelf/English/Oreilly/CD.BookShelf      

TOP

一个简单的Stack

这是我在练习“引用”和“类”时写的一个很简单的类似c中的栈的数据结构。
千万不要笑我哦。
package Stack;
use strict;

sub new {
        my $Stack = {};
        $Stack->{"size"} = 0;
        my (%Element);
        %Element = (
                "value" => "Head",
        );
        $Stack->{"top"} = \%Element;
        return bless $Stack;
}

sub Stack_push {
        my ($Stack,$value)=@_;
        my (%Element);
        $Element{"value"} = $value;
        $Element{"prev"} = $Stack->{"top"};
        $Stack->{"top"} = \%Element;
        $Stack->{"size"}++;
}

sub Stack_pop {
        my ($Stack) = @_;
        my $top;
        if ($Stack->{"size"}>0) {
                $top = $Stack->{"top"};
                $Stack->{"top"} = $top->{"prev"};
                $Stack->{"size"}--;
        }
}

1;

其实在perl中,对于这样的栈完全可以使用散列的数组来实现。      

TOP

非常感谢      
…………………………………………………………………我的 ?????? ?????? ?????? 永远属于你! . . ???? ... .. ?? …………………………………………………………………………………… 我最大的愿望是能看到中国自己的CPU和operating system!

TOP

发新话题