Perl Weekly Challenge 029

ch-1.pl

use strict;
use warnings;
##
# Write a script to demonstrate brace expansion.
##
my $statement = "@ARGV";
$statement =~ m/(.*)\{(.*)\}(.*)/;
for my $brace (split(/,/, $2)){
    print "$1$brace$3\n";
}

ch-2.pl

use strict;
use warnings;
##
# Write a script to demonstrate calling a C function.
##
use pwc;
my $number = $ARGV[0]; 
my $sqrt = pwc::sqrt($number);
print "$sqrt\n";  

Makefile.PL

use ExtUtils::MakeMaker;
WriteMakefile(
    "NAME"    => "pwc",                  # Name of package
    "OBJECT"  => "pwc_wrap.o"            # Object files
);

pwc.i

%module pwc 
%{
#include <math.h> 
%}

double sqrt(double x);