diff options
| -rw-r--r-- | challenge-029/lubos-kolouch/perl5/ch-2.pl | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/challenge-029/lubos-kolouch/perl5/ch-2.pl b/challenge-029/lubos-kolouch/perl5/ch-2.pl new file mode 100644 index 0000000000..bd11741d01 --- /dev/null +++ b/challenge-029/lubos-kolouch/perl5/ch-2.pl @@ -0,0 +1,37 @@ +#!/usr/bin/perl +#=============================================================================== +# +# FILE: ch-2.pl +# +# USAGE: ./ch-2.pl +# +# DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-029/ +# +# Write a script to demonstrate calling a C function. It could be any user defined or standard C function. +# +# OPTIONS: --- +# REQUIREMENTS: --- +# BUGS: --- +# NOTES: --- +# AUTHOR: YOUR NAME (), +# ORGANIZATION: +# VERSION: 1.0 +# CREATED: 10/12/2019 07:55:51 PM +# REVISION: --- +#=============================================================================== + +use strict; +use warnings; +use feature qw/say/; + +use Inline C => << 'END'; + +void print_c() { + printf("test"); +} + +END + +print_c; + + |