Discussion :

[princesse95]

Bonjour,

Je cherche à créer un script qui va me modifier suite à la saisie de l'utilisateur, le fichier hosts et hostname

En fait, je lance un script qui doit demander à l'utilisateur de choisir un hostname.
Après avoir tapé le hostname qu'il a choisi, le nom doit se modifier dans les 2 fichiers cités ci dessus.

Je sais pas si c'est très clair ce que je demande...
Je vous montre déjà le script que j'ai fait. Je précise que je ne l'ai pas encore testé.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#!/usr/bin/perl
use warnings;
use strict;
 
use Term::UI;
use Term::ReadLine;
 
use Sys::Hostname;
use Socket;
 
 
#######
my $host = hostname;
print "Hostname is : $host \n";
 
##### Choice for change Ip, Hostname #####
 
my $term    = Term::ReadLine->new('prompt');
my $reponse = $term->get_reply(
  prompt  => 'Choice a number : ',
  choices => [ 'Change HostName', 'Change Address IP', 'Exit'],
  default => 'No choice',
);
 
print "You are choice : $reponse\n";
 
 
 
######## Manage Choice ########
 
if($choices == 1){
  print "What's the hostname? "
  modifier fichier hosts et hostname 
  open
}
else{
 
  if($choix == 2)
  {
    print "What's the ip adress?"
    print "What's the netmask?"
    print "What's the broadcast?"
    print "What's the gateway?"
    modifier fichier interfaces dans /etc/network
adress = 
netmask = 
   }
 
  else{
    if($choix == 3)
   {
     #Traitement cas 3
     ###Je dois fermer le script
   }
       }
    }

Merci pour votre aide

[Mr6]

Salut !

Qui exécute le script ?
Qui a les droits sur ces fichiers ?
2 éléments déterminants pour l'écriture des fonctions en question.


@+
Mr6

[princesse95]

root exécute le script
En fait il n'y a aucun problème de droits pour ouvrir écrire sur ces fichiers
On se connecte en root

[Mr6]

Donc l'édition directe des fichiers par le script ne devrait pas poser de problème (il en aurait été autrement si ce script avait été appelé via une interface web par exemple).
Quelle est la question ? Le problème ? Ce sont les fonctions manquantes ? le open du fichier de conf ? la récupération STDIN ?

@+
Mr6

[princesse95]

Alors en fait, mon problème est que je dois ouvrir un fichier de conf, modifier des valeurs en mettant celle rentré par l'utilisateur. Ensuite, enregistrer et je ferme le fichier.

Par exemple dans le fichier hostname, je dois remplacer le nom existant par celui que l'utilisateur a rentré précédemment.
Mais comment faire? Je dvrais faire une recherche dans le fichier du nom nom_machine par exemple et le remplacer par le nom princesse95 par exemple.

Je fais faire cela dans plusieurs fichiers. Surtout dans le fichier interface pour passer une ip statique..

[Mr6]

Pour lire/écrire un fichier on utilise généralement la fonction open (perldoc open).

Perso, je ferais le feignant si je n'ai aucune restriction sur la machine :

Code :

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

1
2
3
4
5
6
7
8
9
 
my $hostsfile = `cat /etc/hosts`; #lecture du fichier
my @hostsfile = split /\n/, $hostsfile; #remise en forme
open HOSTS, ">/etc/hosts"...
foreach my $line (@hostsfile) {
$line =~ s/ancienne ligne/nouvelle ligne/; #modification de la ligne concernée
print HOSTS $line;
}
close(HOSTS);

@+
Mr6