Tfe

Old stuff/Perl/at/beta_tests/test_pipe/client.pl

#!/usr/bin/perl -w
my $chemin_f;
use Fcntl;

chdir;
$chemin_f = '/home/tfe/truc/at/test_pipe/.signature';
if (! -e $chemin_f)
{	die "Fichier a disparu\n"; }
else 
{
    sysopen(FIFO,$chemin_f,O_WRONLY)
	or die("Impossible de lire $chemin_f: $!\n");
    print FIFO "test\n";
    close FIFO;
    select(undef,undef,undef,1);
}