/usr/bin/pdl2 is in pdl 1:2.4.7+dfsg-2ubuntu5.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | #!/usr/bin/env perl
BEGIN {
$ENV{DEVEL_REPL_PROFILE} = 'PDL::Perldl2::Profile::Perldl2';
# This should be based on
$HOME = $ENV{HOME}; # Useful in shell
if ($^O =~ /win32/i and
(! defined($HOME)) or
(defined($HOME) and $HOME eq "")) {
$HOME = $ENV{USERPROFILE};
$HOME =~ s/\\/\//g;
}
$ENV{PERLREPL_HISTFILE} = "$HOME/.perldl_hist";
$ENV{PERLREPL_HISTLEN} = 500;
}
BEGIN {
my $minversion = "1.003011";
eval " use Devel::REPL $minversion ";
if ($@) {
warn "pdl2: Devel::REPL version $minversion not found, running perldl instead...\n";
exec 'perldl';
exit 0;
}
}
use PDL::Perldl2::Script 'run';
__END__
=head1 NAME
pdl2 - Simple shell (version 2) for PDL
=head1 SYNOPSIS
Use PDL interactively:
%> pdl2
PDL> $a = sequence(10) # or any other perl or PDL command
PDL> print "\$a = $a\n";
$a = [0 1 2 3 4 5 6 7 8 9]
=head1 DESCRIPTION
The pdl2 program, also known as the Perldl2 shell, is a second
generation version of the original perldl interactive PDL shell.
It attempts to be backward compatible in usage while providing
improved more features, better support for Perl syntax, built
on an easier to extend framework based on L<Devel::REPL>.
If you have L<Devel::REPL> version 1.003011 or later, then pdl2
will start with full functionality. If L<Devel::REPL> is not
installed or found then C<pdl2> will print a warning and run
the legacy C<perldl> shell command instead.
By default, command lines beginning with the default prompt
of either pdl2 or perldl (one of 'pdl> ', 'PDL> ', or 'perldl> ')
will have the prefix string and surrounding whitespace stripped.
This allows for easy cut-and-paste from example PDL shell
sessions or examples into another shell session.
=head1 SEE ALSO
L<perldl>
=cut
|