[SOLVED] [Moved] Difficulty in understanding perl commands.......Please help!!!

[er.akhilkumar]

Hello all, as I am new to Perl so please explain the meaning of following commands:

(1.) $test_name         =~ s/\/\s*$//;

(2.) foreach $corn (@sel_corn) {
        $corn1 = $corn;
        $corn1 =~ s/.*-//;
        foreach $gener (@sel_gener) {
          $gener1 = $gener;
          $gener1 =~ s/.*-//;
          # Check if the trinity is not pushed in result array. Push it if not.  
          if (grep(/^(${des})-(${corn1})-(${gener1})$/, @{$r_get}) == 0) {
            dbg_msg(2, "Pushing: ${des}-${corn1}-${gener1}");
            push(@{$r_get}, "${des}-${corn1}-${gener1}");
          }
        }
      }

(3.) foreach $item (@{$r_items}) {
        $sdf_name = $item->{"sdf_file"};
        $sdf_name =~ /([^\/]*?\.sdf)$/;
        $sdf_name = $lib_path."/".$1.".compiled";


        printf($outf "ncsdfc %s -nolog -output %s\n", 
          $item->{"sdf_file"},
          $sdf_name
        );
      }

(4.) if ($log_line =~ /\*E,[\w\s]+\(.*\/(.*\.vhd),.*\):.*/i)
      {
        $curr_err_object = $1;
        $err_found = 1;    

        if ($prev_err_object ne $curr_err_object)
        {
          $prev_err_object = $curr_err_object;
          printf("\n");           
          err_msg("Errors in ".$curr_err_object);
          printf("%s\n",$log_line);           
        }  
        else
        {
          printf("%s\n",$log_line); 
        }

      }

 

[papunblg]

you may see [Courses] [Perl] Part 8: The "s///" Operator