challenge-029/dave-cross/perl5/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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);