小编Tre*_*ree的帖子

$line = " TEST: asdas :asd asdasad s";

if ($line =~ /(.*):(.*)/
{
  print "$1  = $2 "
}

我在期待 TEST =asdas :asd asdasad s

但它不起作用？什么是问题

@browser = ("NS", "IE", "Opera");
@browser =join("Browser:", @browser); 

我在嘲笑

Browser:NS Browser:IE Browser:Opera

但只显示最后2个字符串的结尾.如何重新解决这个问题.

如何在不使用Cvs模块的情况下使用Perl进行CVS ？

对于Ex:

echo "adsa " >> a.txt
echo "asdad " >> a.txt

在我的档案中

adsa
asdad

但我在找

adsa asdad 

我正在执行以下Perl命令:

system ("cvs ci a.txt"); 

它正在显示CVS消息.怎么避免这个？

$a ="SCNSC:                                            SME@companay.isa.come";
$b ="alerts:                                         nek";
$c ="daily-report:                           tasd,dfgd,fgdfg,dfgdf,sdf@dfs.com";

print "matched" if ($a =~ /\w+:\s*\w+@\w+\.\w+/ );
print "matched" if ($b =~ /\w+:\s*\w+[,\w+]{0,}/ );

 print "matched" if ($c =~ /\w+:\s*\w+[,\w+]{0,}/ );

它没有显示匹配

我想要比赛

my @array = ( 'Tree' , 'JoeTree','Joe');

    foreach (@array ) {
      if ( $_ =~ /^(Joe)[^Tree]/gi) {
        print "matched $_";
      }
    }

它只匹配乔.它不应该匹配任何其他东西

如何在不使用foreach的情况下选择阵列？

 @array = ( " adfasdas 
", "asdas " , "23232 

",
"ads as" ; 

chomp (@array);

如何将多行字符串转换为数组？

my $text= " ads da
sda
s 
da
d
as

das
d a as dasd
\n

";

注意:我不想删除或删除换行符？

从这里开始

#!/usr/bin/perl
my @arr = ('/usr/test/test-[\d.*].*.con');

如何基于正则表达式支持搜索文件

my $pat = '^x.*d$';

my $dir = '/etc/inet.d';

if ( $dir =~ /$pat/xmsg ) { 

print "found ";

}

如何让它成功

$a = "<no> 3232 </no> "

$a =~ s/<no>(.*)</no>/000/gi ;

我期待那$a变成了"<no> 000 </no> ",但它不起作用.

这不是一般性问题.我问过这个问题,因为我对创建Perl数组很困惑.

1. 如何创建或定义数组或哈希？有什么其他方法可以做到这一点？
2. 如何清除数组或哈希？有什么其他方法可以做到这一点？
3. 如何使用空元素创建数组或哈希？
4. 使用out值创建哈希的方法有哪些？