小编Tre*_*ree的帖子

我试图使用push添加数组中的所有元素.然后我存储到另一个文件

但是文件的开头我看到每件事都有一个白人......

问题是什么..任何人在面对这个问题之前.

open FILE , "a.txt"

while (<FILE>)
{

  my $temp =$_;

  push @array ,$temp;

}
close(FILE);

open FILE2, "b.txt";
print FILE2 "@array";
close FILE2;

sub DirectoryExists {

    my $param = shift;

    # Remove first element of the array
    shift @{$param};

    # Loop through each directory to see if it exists

    foreach my $directory (@{$param}) {

        unless (-e $directory && -d $directory) {
                return 0;
        }
    }

    # True
    return 1;
}

有没有办法优化这段代码？

有没有什么好方法可以优化这段代码？

我有一个像这样的字符串:

$a = "Mike , Tree "; 

我想把它改回来"Tree, Mike".

这有什么功能吗？

$df{key} =10 ; return ; if $result == 10 ;

给了我一个错误.我怎样才能做到这一点？

$ab = "asljdhashdklasjkl ;dajs;ld";

我想要前10个字符$ab.

可以使用该splice功能吗？

例如:

#!/usr/bin/perl
my @arr = ('/usr/test/test.*.con');
my $result = FileExists(\@arr);

print $result ;

sub FileExists {
    my $param = shift;
    foreach my $file (@{$param}) {
        print $file ;
        if (-e $file) {
            return 1;
        }
    }
    return 0;
}

它返回0.但我想找到所有狂野的角色......如何解决这个问题？

@browser = ("NS", "IE", "Opera");

my $add_str = "Browser:";

$count = 0; 
foreach  (@browser) { 
 my $br = $_;
 $browser[$count] =  "$add_str:$br";
 $count++ ;

}

还有其他办法吗？最好的办法 ？

如何在不使用任何额外模块的情况下在Perl的标准输出中为文本着色？

如何查找UNIX中的每个人是否可以读取文件？

可能重复:
与-e匹配的文件名和perl中的正则表达式.

对于前

if(-e/home/tree/a*){print"file found"}

如何在文件测试操作符上使用正则表达式