Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

[Lancer perldoc depuis un script]

4 réponses
Avatar
moretti
Bonjour,
pour des raisons de securite, je cherche a lancer la commande perldoc, ou
equivalent, depuis mon script sans faire appel a system("perldoc $0") ou
consort.

Mes lignes de commande actuelles ne me satisfont pas:
$perldoc="/usr/bin/perldoc ";
our $inEST=$ARGV[0] or system("$perldoc ./$0");

Quelqu'un a-t-il une idee ?
Merci

----------
Sebastien Moretti

4 réponses

Avatar
Benoit Izac
Bonjour,

le 04/08/2004 à 17:23, moretti a écrit
dans le message <ceqv1k$36l$ :

pour des raisons de securite, je cherche a lancer la commande perldoc, ou
equivalent, depuis mon script sans faire appel a system("perldoc $0") ou
consort.

Mes lignes de commande actuelles ne me satisfont pas:
$perldoc="/usr/bin/perldoc ";
our $inEST=$ARGV[0] or system("$perldoc ./$0");


less `which perldoc` donne un début de réponse.

--
Benoit Izac

Avatar
DominiX
ici même:ceqv1k$36l$,
moretti a écrit
Bonjour,
pour des raisons de securite, je cherche a lancer la commande
perldoc, ou equivalent, depuis mon script sans faire appel a
system("perldoc $0") ou consort.

Mes lignes de commande actuelles ne me satisfont pas:
$perldoc="/usr/bin/perldoc ";
our $inEST=$ARGV[0] or system("$perldoc ./$0");

Quelqu'un a-t-il une idee ?
Merci



Pod::Perldoc Pod::Perldocs Tk::Pod

--
dominix

Avatar
Jérémy JUST
On Wed, 04 Aug 2004 17:23:32 +0200
moretti wrote:

pour des raisons de securite, je cherche a lancer la commande perldoc,
ou equivalent, depuis mon script sans faire appel a system("perldoc
$0") ou consort.


Pour la sécurité, tu as intérêt à faire directement le travail de
perldoc sans lancer de shell.
Regarde son code et recopie ce qui t'est utile (de mémoire, je crois
que l'essentiel est un « use Pod::Perldoc ; » et que la suite est
triviale).

--
Jérémy JUST

Avatar
moretti
Bonjour,
pour des raisons de securite, je cherche a lancer la commande
perldoc, ou equivalent, depuis mon script sans faire appel a
system("perldoc $0") ou consort.

Mes lignes de commande actuelles ne me satisfont pas:
$perldoc="/usr/bin/perldoc ";
our $inEST=$ARGV[0] or system("$perldoc ./$0");

Quelqu'un a-t-il une idee ?
Merci



Pod::Perldoc Pod::Perldocs Tk::Pod


Merci,
j'utilise Pod::Text pour remplacer l'appel system:
use Pod::Text;
my $parser = Pod::Text->new();
our $inEST=$ARGV[0] or $parser->parse_from_file ("./$0");

Merci

----------
Sebastien Moretti