TetaTricks/code/id2h.pm

8 lines
95 B
Perl
Raw Normal View History

2020-11-28 00:43:55 +11:00
#!/usr/bin/perl -w
use strict;
sub TraiterLigne($)
{
my $in = shift;
print "input: $in\n";
}
1;