From c2c10c258b414e82e8f44199d5691bdb1df4fd35 Mon Sep 17 00:00:00 2001 From: Lubos Kolouch Date: Sun, 13 Oct 2019 09:59:02 +0200 Subject: 029 Chal 2 LK --- challenge-029/lubos-kolouch/perl5/ch-2.pl | 37 +++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 challenge-029/lubos-kolouch/perl5/ch-2.pl 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; + + -- cgit