Arguments d'un script Perl

Bonjour,

je débute sur le langage Perl, je voudrais récupérer les arguments passés en ligne de commande. Voici mon programme tout simple :

Code:

---

1 2 3 4 5 6

#!/usr/bin/perl -w   use strict;   print "$ARGV[0`\n"

---

J'appelle le programme avec la commande :

Code:

---

1 2	perl script.pl toto

---

On me renvoit l'erreur suivante :

Code:

---

1 2 3

syntax error at script.pl line 5, near "print" Execution of script.pl aborted due to compilation errors.

---

Sauriez-vous d'où vient le problème ?
Merci

Désolé pour l'erreur de frappe :

Code:

---

1 2 3 4 5 6

#!/usr/bin/perl -w   use strict;   print "$ARGV[0]\n"

---

Ca manque de ";" à la fin...

--
Jedaï

Code:

---

1 2 3 4 5 6

#!/usr/bin/perl -w   use strict;   print "$ARGV[0]\n";

---

J'ai toujours une erreur :
Use of uninitialized value at script.pl line 5.

Citation:

---

Envoyé par azad_892000

J'ai toujours une erreur :
Use of uninitialized value at script.pl line 5.

---

Tu n'as pas fourni d'arguments au script.

--
Jedaï

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use warnings; use strict;   if (scalar(@ARGV) == 0) { print "Vous n'avez pas donné d'arguments au script\n"; print "$0 arg1 arg2 ...\n"; exit; } print "$ARGV[0]\n";

---