jw_cad 外部変形 - (1260) perlでコマンドライン引数を使う -

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

 

perlコマンドライン引数を使う

:perlコマンドライン引数を使う
@echo off
perl -x %~f0 %* %0 > jwc_temp.txt
type jwc_temp.txt
pause
goto:eof

REM #jww
REM #c a = /_a
REM #e

#!perl
$ARGV[0] = substr($ARGV[0], 1) if (@ARGV > 1);
print "0 = $ARGV[0]\n";
print "1 = $ARGV[1]\n";
print "2 = $ARGV[2]\n";
print "3 = $ARGV[3]\n";
print "4 = $ARGV[4]\n";
__END__