the question of one program

[gaochong]

Now I have see the following page ,but I have some question and need help .

http://www.cpan.org/authors/id/S/SU/SUJAI/Process-Detail-0.1.pl

 

first,what is the meaning of  if($pcs =~ /(\d+)/ && $pcs =~ /\./) ，I can’t
understand the re /\./ 

 

sub hidden

{

print "\n##########Hidden processlist###############\n\n";

foreach $pcs (readdir(DIR))

{

if($pcs =~ /(\d+)/ && $pcs =~ /\./)

{

&detailedview("$pcs");

}

}

}

 

the second , @array=split(/([A-Z]+(_|[A-Z])+\=.[^A-Z]+)/,$_);           also
the re \=.[^A-Z]+ what’s it ?

 

 

open(FILE,"<$envir");
while(<FILE>)
{
@array=split(/([A-Z]+(_|[A-Z])+\=.[^A-Z]+)/,$_);
 
thanks