diff options
| author | Dave Cross <d.cross@fairfx.com> | 2019-10-08 14:13:31 +0100 |
|---|---|---|
| committer | Dave Cross <d.cross@fairfx.com> | 2019-10-08 14:13:31 +0100 |
| commit | e9801a75d506ef78132c3a9ddad82f4a4f23ec73 (patch) | |
| tree | 9f2ba800c77278802adf899e8c886db8da4c6476 | |
| parent | 7ecbfb1c3681b5ba5c2a0cb8b8fa67b058954df1 (diff) | |
| download | perlweeklychallenge-club-e9801a75d506ef78132c3a9ddad82f4a4f23ec73.tar.gz perlweeklychallenge-club-e9801a75d506ef78132c3a9ddad82f4a4f23ec73.tar.bz2 perlweeklychallenge-club-e9801a75d506ef78132c3a9ddad82f4a4f23ec73.zip | |
Added challenge #28 Task #2
| -rw-r--r-- | challenge-029/dave-cross/perl5/ch-2.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/challenge-029/dave-cross/perl5/ch-2.pl b/challenge-029/dave-cross/perl5/ch-2.pl new file mode 100644 index 0000000000..3b69712105 --- /dev/null +++ b/challenge-029/dave-cross/perl5/ch-2.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use Inline C => <<'END_OF_C'; + +void hello(char* name) { + printf("Hello, %s\n", name); +} + +END_OF_C + +my $name = shift || 'Perl'; + +hello($name); |