Concernant cette ligne
$pwd = $_[2].$_[0].$_[1];
Use of uninitialized value in concatenation (.) or string at ./monscript.pl line 101
Alors que plus haut j'ai bien spécifié
$prenom = $_[0];
$nom = $_[1];
$groupe = $_[2];
Je ne comprends pas!!
$pwd = $_[2].$_[0].$_[1];
$prenom = $_[0];
$nom = $_[1];
$groupe = $_[2];
hello,
j'ai un systeme qui tourne sur la machine A et je veux la virtualiser sur une machine B qui tourne avec debian/XEN:
Depuis B:
dd if=/dev/zero of=/home/disks/test2.img bs=1024k count=6000
mkfs.ext3 -F /home/disks/test2.img
mount -o loop /home/disks/test2.img /media/externe
On importe les données a chaud
rsync -azuv --exclude=/proc --exclude=/lost+found --exclude=/mnt --exclude=/sys root@MACHINE_A:/ .
mkdir proc
mkdir lost+found
mkdir mnt
mkdir sys
quand je monte l'image je vois bien le systeme:
debian:/# ls /media/externe
total 92
drwxr-xr-x 21 root root 4 mar
(…)
Cher Forum,
Je cherche à mettre en place un VPN sur SSH pour l’architecture suivante :
--------- ------------------------| /\/\/\/\/\ | DMZ | | LAN1 || LAN2 | | | | SSH || | --|-->PN0 | | | || | | | | \/\/\/\/\/ | | | || N1 N2 ... | --------- ------------------------|
Les connexions à la machine passerelle N0 ne peuvent se faire que par SSH et doivent permettre un accès aux machines Nn avec la contrainte qu’un même (…)
(…)
#!/usr/bin/perl -w
open (LISTE, "while (my $ligne = ) {
next unless my ($nom, $prenom, $group) =
$ligne =~ /"([^"]+[^"])",\s*"([^"]+)",\s*"([^"]+)"/g;
print "$group$prenom$nom\n";
}