From f2a41dcecdce4d25875f899e3c43ec536dd7b44e Mon Sep 17 00:00:00 2001 From: burg Date: Sat, 18 Sep 2004 23:32:54 +0000 Subject: Suppression de fichier script --- i/serialplot/gene.pl | 8 -------- i/serialplot/read.pl | 46 ---------------------------------------------- i/serialplot/toto.pl | 10 ---------- 3 files changed, 64 deletions(-) delete mode 100644 i/serialplot/gene.pl delete mode 100644 i/serialplot/read.pl delete mode 100644 i/serialplot/toto.pl (limited to 'i') diff --git a/i/serialplot/gene.pl b/i/serialplot/gene.pl deleted file mode 100644 index 8420d21..0000000 --- a/i/serialplot/gene.pl +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/perl -w -use strict; -while (1) -{ - print "P11,11\n"; - print "Q22,22\n"; - print "R33,33\n"; -} diff --git a/i/serialplot/read.pl b/i/serialplot/read.pl deleted file mode 100644 index 0a9c722..0000000 --- a/i/serialplot/read.pl +++ /dev/null @@ -1,46 +0,0 @@ -#!/usr/bin/perl -w -#use strict; - -my $i=0; -my $tab; -my $init=0; - -while (defined($line = ) && $init == 0) -{ - #if ($line =~ m/[P-W][0-9a-f1-F]{2},[0-9a-f1-F]{2}/) - { - $tab[$i] = substr ($line,1,1); - for (my $j=0; $j<= $i-1; $j++) - { - if (substr($line,1,1) eq $tab[$j]) - { - $init =1; - } - - } - $i++ if ($init == 0); - } -} - - -for (my $j=0; $j <= $i; $j++) -{ - $line = ; -} - -while ($init != 2 ) -{ - for (my $j=0; $j <= $i-1; $j++) - { - if (defined($line = )) - { - print "0x" . substr($line,2,2) . substr($line,5,2); - } - else - { - $init = 2; - } - print " "; - } - print "\n"; -} diff --git a/i/serialplot/toto.pl b/i/serialplot/toto.pl deleted file mode 100644 index 9c95718..0000000 --- a/i/serialplot/toto.pl +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -my $a = 0; - -while (1) -{ - print sin ($a * 3.14), ' ', cos ($a * 3.14), "\n"; - $a += 0.02; -} -- cgit v1.2.3