perl变量未初始化

skyyy90

哪位大侠帮忙看一下我的程序代码到底哪里出问题了啊？perl老是提示 “use of uninitiated value $number1 in numeric gt (>) at countindel.pl line11”和“use of uninitiated value $number1 in numeric gt (>) at countindel.pl line11”，到底是哪里出错了呢？

#! usr/bin/perl -w

use warnings;
open (IN, "try2.txt") or die "Can not open try2.txt for reading: $!";
while (<IN>)
{         $line=$_;
        my ($first, $second)=($line =~ /chr\d+ \d+\s*\. (\w+) (\w+) \d+/);
        my $number1=length($first);
        my $number2=length($second);
        if ($number1>$number2)
        {print "0\n";}
        else
        {print "1\n";}
}
close IN or die "Can not close file";

shalk11

my ($first, $second)=($line =~ /chr\d+ \d+\s*\. (\w+) (\w+) \d+/);

这一句

skyyy90

还是不甚明白，能稍微详细一点么...刚刚开始学习perl不久...

hbmhalley

回复 3# skyyy90


    my ($first, $second)=($line =~ /chr\d+ \d+\s*\. (\w+) (\w+) \d+/) or die "bad matching";

rubyish

shalk11 发表于 2013-06-11 18:10
my ($first, $second)=($line =~ /chr\d+ \d+\s*\. (\w+) (\w+) \d+/);

这一句

3Q~

wupenhu

到底哪错了，就一句搞定？

rubyish

use of uninitiated value $number1 in numeric gt (>) at countindel.pl line11
=>

1. if ($number1>$number2)

复制代码

=>

1. my $number1=length($first);

复制代码

=>

1. my ($first, $second)=($line =~ /chr\d+ \d+\s*\. (\w+) (\w+) \d+/);

复制代码

skyyy90

有高手给点建议吗？

blackfur

  1 #!usr/bin/perl -w
  2
  3 use warnings;
  4 open (IN, "t.txt") or die "Can not open try2.txt for reading: $!";
  5 while (<IN>)
  6 {         $line=$_;
  7         $line =~ /chr\d+ \d+\s*\. (\w+) (\w+) \d+/;
  8         if(!($1&&$2)){
  9                 print "no match\n";
10                 exit 0;
11         }
12         my $number1=length($1);
13         my $number2=length($2);
14         if ($number1>$number2)
15         {print "0\n";}
16         else
17         {print "1\n";}
18 }
19 close IN or die "Can not close file";

返回结果在$1,$2这两个默认变量里，话说是不是没匹配到你要的字符串？

rubyish

请粘贴你的 try2.txt~