小编use*_*414的帖子

my $line2 = ("My cat Garfield");
my $leng2 = length $line2;
my $longmatch;
my $post = 0;
my $letter = 1; 

for(my $post = 0; $post < $leng2; $post++) {
    for($letter = 1; $letter <= $leng2; $letter++) {
        $longmatch = (substr($line2,$post,$letter));
        print $longmatch,  "\n";    
    }   
}

如何消除重复的线？

如何只打印哈希的第一个键和元素？

我已经有一个排序的哈希,但我想只打印第一个键和各自的值谢谢,

感谢大家最后我将键和值推送到两个不同的@array和每个数组的打印元素0,它的工作原理:)

如果我有两个不同的字符串,如:

my $a = "garfieldaagt";
my $b = "field";

我需要将它们对齐

garfieldaagt
   field

比较它们,我怎么能这样做？

有任何想法吗？谢谢