Blue Light的专栏 C++,OOA/D/P

#file name: listdir.pl $dir = $ARGV[0]; sub listdir {   my @arr, $j = 0;   for($i=0;$i  if(-d $_[$i]) {     if(opendir($handle, $_[$i])) {      while($dir = readdir($handle)) {       if(!($dir

  # 该测试程序可以测试写的正则表达式是否跟输入的字符串匹配 while ( chomp; if (/YOUR_REGEXP/) {  print "Matched: |$`$|/n"; } else {  print "No match: |$_|/n"; }}