Hi,
I recently started learning perl because I need to write some code to modify some netlists. For now, I'm trying to figure out a script written by someone else. I mostly understand the logic, I'm stuck at a point where he uses a comparison.
if ($val =~ /^[ ]+Pin:[ ]*([^\.]*)\.([^ ]*)[ ]*out/) {
$cellname = $mod->find_cell($1);
$pin_connected = $2;
}
How would I go about deciphering the thing after $val?
Also, the verilog-perl module is used here. I'm struggling to figure out what the "$1" does in
$mod->find_cell($1)
Is it something related to perl? I could not find anything in the verilog perl module documentation.
Thanks.