Automatisation de lien de fichier / perl

Résolu/Fermé

VivoBaggio Messages postés 140 Date d'inscription jeudi 27 octobre 2005 Statut Membre Dernière intervention 23 janvier 2009 - 10 oct. 2007 à 12:01
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 10 oct. 2007 à 13:59

Bonjour,

Voilà, toujours sur mon code depuis une semaine. La problématique que je viens de rencontrer n'en est pas vraiment une. Il s'agit juste d'automatiser le programme. A l'heure actuelle, les liens sont écrits en dur, que ce soit le fichier excel ou csv.
Ce que je voudrais, ça serait que la personne saisisse le nom du fichier, et à partir de là, les fichiers sont crées. Mon problème se trouve sur l'extension.
Je vous mets mon code :

use strict;
use warnings;
use Spreadsheet::ParseExcel;

# Saisie du nom du fichier de sortie
print "Saisissez le mois et l'année de l'opération ainsi que l'extension (mmyy.xxx) ! ";
my $num_ope=<stdin>;
print "Vous avez saisi : $num_ope\n";
open FILECSV,">>C:\\produits_SU".$num_ope; "Je n'arrive pas à mettre l'extension ".csv" en dur, sachant $num_ope
comprends par exemple 1107"
my $file = "C:\\produits_SU1107.xls";

Merci d'avance de votre aide.

A voir également:

Automatisation de lien de fichier / perl
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Lien url - Guide
Verifier un lien - Guide

4 réponses

Réponse 1 / 4

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
10 oct. 2007 à 12:10

Salut,

je ne comprends pas.

pas besoin d'écrire tout
dit ce que tu veux saisir et ce que tu veux obtenir comme résultat

Réponse 2 / 4

VivoBaggio Messages postés 140 Date d'inscription jeudi 27 octobre 2005 Statut Membre Dernière intervention 23 janvier 2009
10 oct. 2007 à 12:32

Par exemple, tu saisi "test", et il te sort "produits_SUtest.csv

Réponse 3 / 4

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
10 oct. 2007 à 13:01

#!/usr/bin/perl
use strict;use warnings;
print "Entrez le nom du fichier : ";
chomp( my $fic = <STDIN>);
$fic = "produits_SU${fic}.csv";
print "$fic\n";
__END__

Réponse 4 / 4

VivoBaggio Messages postés 140 Date d'inscription jeudi 27 octobre 2005 Statut Membre Dernière intervention 23 janvier 2009
10 oct. 2007 à 13:57

Rien à dire. Merci

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 567
10 oct. 2007 à 13:59

de rien ;-)
j'attends la question suivante ;-))

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

comment donner les droits sur fichier partage

Rajout de lien sur plusieurs pages

Chemin Logo du site de la Cité de l'espace

lien copié

Discussions similaires

Newsletters