Lines Matching full:script

9 FindBin - Locate directory of original Perl script
21 Locates the full path to the script bin directory to allow the use
29 If C<perl> is invoked using the C<-e> option or the Perl script is read from
39 Path to the bin B<directory> from where script was invoked
41 =item C<$Script>
43 B<Basename> of the script from which C<perl> was invoked
51 C<$Script> with all links resolved
104 our ($Bin, $Script, $RealBin, $RealScript, $Dir, $RealDir);
105 our @EXPORT_OK = qw($Bin $Script $RealBin $RealScript $Dir $RealDir);
106 our %EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]);
132    # perl invoked with -e or script is on C<STDIN>
133    $Script = $RealScript = $0;
139    my $script = $0;
143      ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*[\]>\/]+)(.*)/s;
146      ($RealBin,$RealScript) = ($Bin,$Script);
150      croak("Cannot find current script '$0'") unless(-f $script);
152      # Ensure $script contains the complete path in case we C<chdir>
154      $script = File::Spec->catfile(cwd2(), $script)
155        unless File::Spec->file_name_is_absolute($script);
157      ($Script,$Bin) = fileparse($script);
159      # Resolve $script if it is a link
162        my $linktext = readlink($script);
164        ($RealScript,$RealBin) = fileparse($script);
167        $script = (File::Spec->file_name_is_absolute($linktext))