如何将perl转换为shell脚本

Question

我有一个perl脚本，它将文件名作为输入。。如何将其转换为shell脚本？请帮我

$path = shift;
$path =~ /.*/(.*)/;
$filename = $1;
if (0 == length($filename)) {
$filename = $path;
}   
$rev = `git log -- $path | head -n 3`;
$rev =~ /^Date:s*(.*)s*$/m;
$date = $1;
while (<STDIN>) {
s/$Date[^$]*$/$Date:   $date $/;
s/$Revision[^$]*$/$Revision: $ident $/;
} continue {
print or die "-p destination: $!n";
} 

Answer 1

以下sh命令/脚本将执行与提供的Perl程序相同的操作：

perl -e'
$path = shift;
$path =~ /.*/(.*)/;
$filename = $1;
if (0 == length($filename)) {
$filename = $path;
}   
$rev = `git log -- $path | head -n 3`;
$rev =~ /^Date:s*(.*)s*$/m;
$date = $1;
while (<STDIN>) {
s/$Date[^$]*$/$Date:   $date $/;
s/$Revision[^$]*$/$Revision: $ident $/;
} continue {
print or die "-p destination: $!n";
}
' "$path"