小编sea*_*ran的帖子

例:

use strict;
my $file = shift;

open(IN, $file) || die "Unable to open $file\n";
open(OUT, ">$file.$$") or die $!;

这是怎么回事my $file = shift？