#!/usr/bin/perl use Inline C; $arg = $ARGV[0]; $arg = tr/[a-z]/[A-Z]/; # modification du paramètre exit main0($arg); __END__ __C__ #include <stdio.h> int main0(char *arg1) { printf("Hello %s ",arg1); return 0; }