Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    my $module_name = $1;
    print "Module name = >$module_name<\n";  
}
  2. or download this
    18:49 >perl 1939_SoPW.pl
Module name = >MODULE C17<

18:49 >
  3. or download this
    if (defined($MODULE_NAME) && ($MODULE_NAME =~ / ^ (.+) \( /x))  
{  
...
       $module_name =~ s/ \s+ $ //x;
    print "Module name = >$module_name<\n";  
}