小编Tim*_*Tim的帖子

我尝试了一些方法来匹配一个包含3次斜线但却无法工作的单词.以下是示例

@array = qw( abc/ab1/abc/abc a2/b1/c3/d4/ee w/5/a  s/t )
foreach my $string (@array){
    if ( $string =~ /^\/{3}/ ){
          print " yes, word with 3 / found !\n";
          print "$string\n";
    }
    else {
          print " no word contain 3 / found\n";
    }

很少有macthing我尝试但没有一个工作

$string =~ /^\/{3}/;
$string =~ /^(\w+\/\w+\/\w+\/\w+)/;
$string =~ /^(.*\/.*\/.*\/.*)/;

任何其他方式我可以匹配这种类型的字符串并打印字符串？

我想在foreach循环中创建一个更改名称本身的数组

our $j = 1;

foreach $key ( sort keys %hash ){
    @array1 = $hash{$key};
    $j++;
}

如何更改数组名称$j.像每个键一样,我的数组名称将会改变@array1, @array2, @array3....