Pythonの質問に答えるためにPerlスクリプトを提供するのはちょっと奇妙かもしれませんが、Perlの場合と同様にPythonでもうまく動作します。これは 'fixin
'と呼ばれるスクリプトで、「インタプリタを修正する」という意味です。これは、現在のPATHのシバン行を正しい文字列に変更します。
#!/Users/jleffler/perl/v5.10.0/bin/perl
#
# @(#)$Id: fixin.pl,v 1.3 2003/03/11 21:20:08 jleffler Exp $
#
# FIXIN: from Programming Perl
# Usage: fixin [-s] [file ...]
# Configuration
$does_hashbang = 1; # Kernel recognises #!
$verbose = 1; # Verbose by default
# Construct list of directories to search.
@absdirs = reverse grep(m!^/!, split(/:/, $ENV{'PATH'}, 999));
# Process command line arguments
if ($ARGV[0] eq '-s')
{
shift;
$verbose = 0;
}
die "Usage: $0 [-s] [file ...]\n" unless @ARGV || !-t;
@ARGV = '-' unless @ARGV;
# Process each file.
FILE: foreach $filename (@ARGV)
{
open(IN, $filename) || ((warn "Can't process $filename: $!\n"), next);
$_ = <IN>;
next FILE unless /^#!/; # Not a hash/bang file
chop($cmd = $_);
$cmd =~ s/^#! *//;
($cmd, $arg) = split(' ', $cmd, 2);
$cmd =~ s!^.*/!!;
# Now look (in reverse) for interpreter in absolute path
$found = '';
foreach $dir (@absdirs)
{
if (-x "$dir/$cmd")
{
warn "Ignoring $found\n" if $verbose && $found;
$found = "$dir/$cmd";
}
}
# Figure out how to invoke interpreter on this machine
if ($found)
{
warn "Changing $filename to $found\n" if $verbose;
if ($does_hashbang)
{
$_ = "#!$found";
$_ .= ' ' . $arg if $arg ne '';
$_ .= "\n";
}
else
{
$_ = <<EOF;
:
eval 'exec $found $arg -S \$0 \${1+"\[email protected]"}'
if \$running_under_some_shell;
EOF
}
}
else
{
warn "Can't find $cmd in PATH, $filename unchanged\n" if $verbose;
next FILE;
}
# Make new file if necessary
if ($filename eq '-') { select(STDOUT); }
else
{
rename($filename, "$filename.bak") ||
((warn "Can't modify $filename"), next FILE);
open(OUT, ">$filename") ||
die "Can't create new $filename: $!\n";
($def, $ino, $mode) = stat IN;
$mode = 0755 unless $dev;
chmod $mode, $filename;
select(OUT);
}
# Print the new #! line (or the equivalent) and copy the rest of the file.
print;
while (<IN>)
{
print;
}
close IN;
close OUT;
}
コードは、元のラクダブック(「プログラミングPerlの、初版)の同名のスクリプトから導出されます。このコピーはそれ以来ちょっとハッキングされています。もう少しハッキングする必要があります。
$ perl fixin fixin
Changing fixin to /usr/bin/perl
$
これにより民間インストールから変更:確かに、私はちょうど別の1台のMacからそれをコピーして、私は2番目にはPerl 5.10.0をインストールしていませんでしたから、私が走った - しかし、私はそれが日常使いますPerlから標準のものまで。
リーダーのためのエクササイズ - Pythonでスクリプトを書き直します。
おそらく、/ usr/bin/pythonをシンボリックリンクで置き換えるのはベストセラーではありません。いくつかのOS Xユーティリティは/ usr/bin/pythonを参照することがあり、Python 3KはPython 2.xと100%後方互換性がないので、これらのユーティリティの一部を壊す危険性があります。 – mipadi
ええ、OS Xに付属のPythonを使いこなすことをお勧めします。 –
システムPythonを意図的に互換性のないバージョン(Python 3.x)に置き換えることをお勧めします。 – Arafangion