Script Perl sur Linux : Accéder à des fichiers Windows

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 :)

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?

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:

---

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...

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

Citation:

---

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.

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

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:

---

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 :)