不能調用方法'說'

我有一個運行一個Perl代碼的問題。它給我這個消息：「無法調用方法」說'沒有包或對象引用'不能調用方法'說'

事情是，我找到了這個代碼，我想用它來檢查我的結果序列對齊。但它不會運行。

use strict; 
use warnings; 

use List::Util 'min'; 
use Memoize; 

chomp(my $str1 = <"atattga">); 
chomp(my $str2 = <"gagassa">); 

my ($distance, $aligned1, $aligned2) = align($str1, $str2); 
say $distance; 
say $aligned1; 
say $aligned2; 

sub align { 
    my ($str1, $str2) = @_; 

    return (length($str2), ('-' x length($str2)), $str2) if !length($str1); 
    return (length($str1), $str1, ('-' x length($str1))) if !length($str2); 

    my @delete = align(substr($str1, 1), $str2); 
    $delete[0]++; 
    $delete[1] = substr($str1, 0, 1) . $delete[1]; 
    $delete[2] = '-' . $delete[2]; 

    my @insert = align($str1, substr($str2, 1)); 
    $insert[0]++; 
    $insert[1] = '-' . $insert[1]; 
    $insert[2] = substr($str2, 0, 1) . $insert[2]; 

    my @substitute = align(substr($str1, 1), substr($str2, 1)); 
    $substitute[0]++ if substr($str1, 0, 1) ne substr($str2, 0, 1); 
    $substitute[1] = substr($str1, 0, 1) . $substitute[1]; 
    $substitute[2] = substr($str2, 0, 1) . $substitute[2]; 

    if ($delete[0] <= $insert[0] && $delete[0] <= $substitute[0]) { 
     return @delete; 
    } 
    elsif ($insert[0] <= $delete[0] && $insert[0] <= $substitute[0]) { 
     return @insert; 
    } 
    else { 
     return @substitute; 
    } 
} 
BEGIN { memoize('align') };

來源

2012-12-28 ttwis

你也可以'使用功能qw（說）;'也是。 – squiguy

就在你的腳本的開頭加入這一行

use 5.010;

來源

2012-12-28 12:01:08 Toto

它工作:)我只是用了另一個版本:)謝謝 – ttwis

@ttwis：不客氣。 – Toto

錯誤消息是因爲你還沒有包括其中包含「說」關鍵字的定義包。默認情況下，Perl僅包含'main'包，除非其他人明確使用'use'關鍵字指定。

使用5.010;

這將解決問題:)

來源

2012-12-28 13:07:43

不能調用方法'說'

回答

相關問題