1#!/usr/bin/perl
2use Inline C;
3$arg = $ARGV[0];
4$arg = tr/[a-z]/[A-Z]/; # modification du paramètre
5exit main0($arg);
6__END__
7__C__
8#include <stdio.h>
9
10int main0(char *arg1)
11{
12 printf("Hello %s \n",arg1);
13 return 0;
14}
15
1#!/usr/bin/perl
2use Inline C;
3exit main0();
4__END__
5__C__
6#include <stdio.h>
7
8int main0()
9{
10 printf("Hello world !\n");
11 return 0;
12}
13