Discussion :

[zets22]

Bonjour,

Je débute complètement en Perl, et on me demande de réaliser un script qui semble assez simple.

Cependant, le script est hébergé sur une machine Linux (serveur), et il doit aller vérifier l’existence d'un fichier sur un windows.
C'est la que je bloque.

Comment faire pour que je puisse aller faire des vérification de présence du fichier sur le pc Windows \\PC123\dossier\fichier.txt ? (par exemple)

Je dois obligatoirement faire un mount ? Que dois-je utiliser ? (sachant que les répertoires Windows où sont les fichiers sont partagés)

Merci de votre aide

[Lolo78]

La plateforme Windows, c'est un PC ou un serveur? As-tu des moyens de te connecter sur la machine Windows par telnet, ssh (voire FTP ou SFTP) ou un autre moyen?

[zets22]

La machine Windows qui génère les fichiers, il me semble que c'est un PC, et non un serveur.

Je viens d'essayer de communiquer avec lui par telnet, ça ne fonctionne pas. C'est en fait un simple PC sur le réseau, sans serveur ftp ni rien

Edit :

J'avance un peut... N'ayant pas beaucoup de connaissance, j'ai réussis tout de même sur mon Linux à faire un mount du dossier sur le Windows contenant les fichiers.

J'ai donc ceci qui fonctionne bien :

Code :

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

1
2
3
4
5
6
7
8
 
root@pcdm38:~# mount -t cifs -o user=utilisateur //ptro20/F_PTRO20/Fichiers_Historiques /mnt
Password:
root@pcdm38:~# ls /mnt/
13121000.idx  13123000.lgh  14012000.idx  14020900.lgh  14030200.idx
13121000.lgh  13123100.idx  14012000.lgh  14021000.idx  14030200.lgh
13121100.idx  13123100.lgh  14012100.idx  14021000.lgh  14030300.idx
root@pcdm38:~#

Je pense dans mon script Perl à mettre ces commandes de mount, faire mon traitement, puis un unmount...
C'est simple à mettre dans un script Perl ? Je pense que exécuter les commandes oui, mais j'ai peur au niveau de l'invite "Password"... Je vais voir ça...

[ggnore]

Il me semble qu'on peut stocker un mot de passe dans un fichier et indiquer son chemin à la commande mount.

credentials=filename
specifies a file that contains a username and/or password. The format of the file is:

username=value
password=value
This is preferred over having passwords in plaintext in a shared file, such as /etc/fstab. Be sure to protect any credentials file properly.

Il va sûrement falloir ajouter l'utilisateur de ton script dans /etc/sudoers : mount nécessite souvent des droits root.

[zets22]

Merci, ça m'aide pas mal, je vais me lancer !

[zets22]

Bonjour,

Je up afin de vous partager ma solution qui me convient et qui fonctionne, si ça intéresse quelqu'un à l'avenir

J'ai mis directement le user/pwd dans la ligne de commande, ces derniers n'étant pas critiques, car commun à tout les postes et connu de tout le monde sur le réseau privé.

Code :

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

1
2
3
4
5
6
7
8
9
my $cheminHistoriquesWindows = "//ptro20/F_PTR20/Fichiers_Historiques"
my $cheminMontage = "/mnt/Historiques";
 
system("mount -t cifs -o user=utilisateur,password=pwd $cheminHistoriquesWindows $cheminMontage");
 
#Vérification de la présence des fichiers
#[...]
 
system("umount $cheminMontage");

Merci beaucoup de votre aide