1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| #!/usr/bin/perl
use warnings;
use strict;
use Cwd; #module permettant de lire le repertoire courant
my $rep_courant = getcwd; #recupere le repertoire courant
print "$rep_courant\n";
NAME();
print "\nValidez-vous que le nom est: $name,et le numero est: $IRN (0/1)";
my $valide=<stdin>;
chomp $valide;
while($valide!= 0) {
NAME();
print "\nValidez-vous que le nom est: $name,et le numero est: $IRN (0/1)";
$valide=<stdin>;
chomp $valide;
}
EXEC();
#procedures
sub NAME{
print "Rentrez le numero d'IRN\n";
my $IRN=<stdin>;
chomp $IRN;
print "Rentrez le nom de l'IRN\n";
my $name=<stdin>;
chomp $name;
return;
}
sub EXEC{
my $repertoire = "d:";
my $chemin = "d:/svn-importer-1.1-M8/Svn_Importer_Reference_CVS/$IRN";
print "$rep_courant\n";
chdir $repertoire;
chdir $chemin;
$rep_courant = getcwd;
print "$rep_courant\n";
return;
} |
Partager