All pastes #411366 Raw Edit

Untitled

public text v1 · immutable
#411366 ·published 2007-03-26 23:43 UTC
rendered paste body
#!/usr/bin/perl

$file = '/home/zac/Desktop/text.txt';

open (INFO, $file);

if ($file eq "dimitri") {

print("Le fichier est securise\n");}

if ($file ne "dimitri") {

print("Le fichier n'est pas securise\n");}

close(INFO);