redirect.pl

来自「QUALCOMM JNAND DRIVER」· PL 代码 · 共 13 行

#===================================================================
# FILE: redirect.pl
#===================================================================
open (FILEHANDLE, "> $ARGV[0]");
foreach $i (1..$#ARGV)
{
  $_=$ARGV[$i];
  s#\/#\\#g;
  print FILEHANDLE "$_ ";
}
close FILEHANDLE;