my Perl is rusted...

2020-11-27 14:43:55 +01:00
parent 8684520c5a
commit c6d8042995
4 changed files with 82 additions and 0 deletions
--- a/code/id2h.pl
+++ b/code/id2h.pl
@@ -0,0 +1,5 @@
+#!/usr/bin/perl -w
+use strict;
+use code::id2h;
+
+TraiterLigne("ID un texte quelconque.");
--- a/code/id2h.pm
+++ b/code/id2h.pm
@@ -0,0 +1,8 @@
+#!/usr/bin/perl -w
+use strict;
+sub TraiterLigne($)
+{
+my $in = shift;
+print "input: $in\n";
+}
+1;