小编Mob*_*yde的帖子

我想知道如何从站点ex解析路径:

http://example.org/hello/ok/fl.jpg

有没有办法解析这部分(路径)

/hello/ok/

所以我有3个perl文件(1.pl,2.pl,3.pl),我想从2.pl中的循环中获取一个值并在3.pl中打印它

脚本

1.pl

use strict;
use warnings;

require "./2.pl";
sub red {
    our $var;
    print "try : ";
    require "./3.pl"
}

2.pl

use strict;
use warnings;

my @array = ("http://exemple.org", "http://test.org","http://perl.org");

foreach our $var(@array){
    chomp ($var);
    red();
}

1;

3.pl

use strict;
use warnings;

our $var;

print "3 : $var\n";

1;

我在终端打开1.pl时得到的结果:

try : 3 : http://exemple.org
try : try :

而我想得到的是:

try : 3 : http://exemple.org
try : 3 : http://test.org
try : 3 : http://perl.org

看起来3.pl的第二个要求不起作用,所以我该怎么办？