找DESKTOP 输入报名找＃

最新推荐文章于 2024-02-16 13:25:44 发布

原创最新推荐文章于 2024-02-16 13:25:44 发布 · 573 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#file #path #input

本文介绍了一个使用Perl脚本进行文件读取、特定模式匹配及数据输出的方法。通过输入文件路径和包名，脚本能够从指定文件中提取与特定包名相关的编号，并将这些编号作为结果返回。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

print "pls input file path:/n";
$fpath=<STDIN>;
chop $fpath;
print "pls input pakage name:/n";
$pgname=<STDIN>;
chop $pgname;
@listNo=&bugNo($fpath, $pgname);
print "@listNo/n";

####################################################33
sub bugNo
{
open(MYFILE,"$_[0]");
@test1= <MYFILE>;
$num=@test1;
@result=();
$A="";
$B="";
$path="/usr/redhat/perl-study/work/result";
open(FILE, ">$path");
$flag="0";
for($n=0; $n<=$num; $n++)
{
$item=$test1[$n];
chop $item;

    if ($item =~ //*+ ([a-zA-Z0-9 ]+)/*/)
    {
        if($1 eq "DESKTOP GROUP ")
        {
            $flag="1";
        }
        else
            {
                $flag="0";
            }

    }

    if($flag eq "1")
    {
        if ($item =~ /^< /)
        {
        $A=$item;

        }
            else
        {
            while($item =~ /(#[a-zA-Z0-9]+)/g)
            {
                $B=$&;
                if($A =~ /([a-zA-Z.]+[a-zA-Z0-9-]+[a-zA-Z]+/d?)/)
                {
                    #print FILE "$1$B/n";

                    if($1 eq "$_[1]")
                            {
                                           #print FILE "$B/n";
                        @result=(@result, $B);
                            }
                }
               }
        }
    }
}

close FILE;
@result;
}