Discussion :

[jonmor]

Bonjour tlm,

Après 4h de codage et de recherche, je me suis dit je vais demander de laide. Voici ce que je veux faire.

Je veux un script avec 3 argument possible qui avec l'arg1 irais dans le dossier /arg1 et déplacerais son contenue vers /oldarg1 et la meme chose pour les 2 autre arguments.

Voici le code que j'ai fais jusqua présent.

J'étais seulement rendu a voir si mes IF fonctionnais mais je n'ai pas eu de chance hehehe.

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
#!/usr/bin/perl
# Script:   Move_File.pl
# Author:   Jonathan M. Lebrun
# 
# # # # # # # # # # # # # # # # # # # # # # # # # # # # 
 
$XXGAR_TOP = $ENV{XXGAR_TOP};
$SrcDir = '/apps/u01/env02appl/xxgar/1.0.0/outbound';
 
 
print "Text files in $SrcDir are:\n";
opendir(BIN, $SrcDir) or die "Can't open $SrcDir: $!";
my @list = sort readdir (BIN);
        foreach ($dir , @list) {
                          next if $dir =~ /^\.\.?$/;     # skip . and ..
                          if  ($dir = 'pwp' ) {print "Dossier Pwp - ";}
                          elsif  ($dir = 'puro' ) {print "Dossier Puro - ";}
                          elsif  ($dir = 'tower' ) {print "Dossier Tower - ";}
                        }
 
    #system("mv $oldfile $newfile");  #Il faut Rajouter le chemain complet ************
    # ...
 
closedir(BIN);

[djibril]

balise code pour ton code s'il te plait. lire les regles du forum dans ma signature.
merci

[jonmor]

Desoler

[jonmor]

Mon code fonctionne maintenant, Mais je ne comprend pas clairement comment fonctionne les arguments

Voici mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
#!/usr/bin/perl
# Script:   Move_File.pl
# Author:   Jonathan M. Lebrun
# Purpose:  Will move every File in a folder to another Folder
# Usage:    Move_File.pl
 
$XXGAR_TOP = $ENV{XXGAR_TOP};
$SrcDir  = $XXGAR_TOP.'/outbound/';
 
$SrcPur =  $SrcDir.'/puro';
$DesPur = '/dc07/puro';
$filePuro = $SrcPur.'/*'
 
$SrcPwp =  $SrcDir.'/pwp';
$DesPwp = '/dc07/pwp';
$filePwp  = $SrcPwp.'/*'
 
$SrcTow =  $SrcDir.'/tower';
$DesTow = '/dc07/tower';
$fileTow  = $SrcTow.'/*'
 
 
 
print "Text files in $SrcPur are:\n";
opendir(PURO, $SrcPur) or die "Can't open $SrcPur: $!";
   system("mv $filePuro $DesPur");
closedir(PURO);
 
print "Text files in $SrcPwp are:\n";
opendir(PWP, $SrcPwp) or die "Can't open $SrcPwp: $!";
 system("mv $filePwp $DesPwp");
closedir(PWP);
 
print "Text files in $SrcTow are:\n";
opendir(TOW, $SrcTow) or die "Can't open $SrcTow: $!";
   system("mv $fileTow $DesTow");
closedir(TOW);