¡¡º£¤Þ¤ÇÁ÷¤é¤ì¤Æ¤¤¿CD¤ËÆþ¤Ã¤Æ¤¤¤ë¥â¡¼¥·¥ç¥ó¥Ç¡¼¥¿¤Ï¡¢roboScript¤Î¥½¥Õ¥È¤Ç¤ÏÆ°ºî¤·¤Ê¤¤¤³¤È¤¬¤ï¤«¤ê¤Þ¤·¤¿¡£¤½¤³¤Ç¡¢roboScript¤Ç¤âÆ°¤¯¤è¤¦¤Ë¤¹¤ë¤¿¤á¤Ërsf¥Õ¥¡¥¤¥ë¤òÊÑ´¹¤¹¤ë¤³¤È¤Ë¤·¤Þ¤·¤¿¡£¤·¤«¤·¡¢¥Õ¥¡¥¤¥ë¤Î¿ô¤¬Â¿¤¤¤Î¤È¡¢¼ê½ç¤ò´Ö°ã¤¨¤ë¤È¤ä¤êľ¤·¤È¤Ê¤ë¤¿¤á¡¢Ê¸»úÎóÁàºî¤¬³Ú¤ÊPerl¸À¸ì¤ò»È¤Ã¤Æ¡¢´Êñ¤Ê¥×¥í¥°¥é¥à¤òÁȤó¤Ç¤ß¤Þ¤·¤¿¡£
¡¡¼Â¹Ô¤ÏActivePerl¤Çver¤Ë¤Ï´Ø·¸¤Ê¤¯Æ°ºî¤¹¤ë¤È»×¤¤¤Þ¤¹¡£
¤Ê¤ª¡¢»ä¤Î¾ì¹ç¤Ë¤Ï¼óÉô¤Î¥µ¡¼¥ÜÊäÀµ¤âƱ»þ¤Ë¹Ô¤¦¤è¤¦¤Ë¤·¤Æ¤¤¤Þ¤·¤¿¤Î¤Ç¡¢¡Ø$move[5] = 78;¡Ù¤ò¥³¥á¥ó¥Èʸ¤Ç»ß¤á¤Æ¤Þ¤¹¡£¤Þ¤¿¡¢º£¤ÎRZ-1¤ÏÊÒ¤ʤΤǡ¢¥Ð¥é¥ó¥¹¤ò¤È¤ë¤¿¤á¤Ë¡¢move[1]¤ò104¤Ë¤·¤Ê¤¤¤ÈÅݤì¤Æ¤·¤Þ¤¤¤Þ¤¹¤¬¡¢¤³¤ÎÊäÀµ¤Ï»ÃÄê¤Ê¤Î¤Ç¥Õ¥¡¥¤¥ëÊÑ´¹¤ò¤»¤º¤Ë¡¢rsf¥Õ¥¡¥¤¥ë¤òÆɹþ¤ó¤À¤È¤¤Ë¥Þ¥Ë¥å¥¢¥ë¤Ç½¤Àµ¤·¤Æ¼Â¹Ô¤¹¤ë¤è¤¦¤Ë¤·¤Þ¤·¤¿¡£
¡ÚÄɵ¡ÛÍøÍѤ·¤ä¤¹¤¯¥Õ¥¡¥¤¥ë̾¤òÆþÎϤ¹¤ë¤è¤¦¤ËÊѹ¹¤·¤Þ¤·¤¿¡£
¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¤³¤³¤«¤éÊÑ´¹¥½¥Õ¥È¡Êrz2rs.pl¡Ë¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú
#------------------------------------------------------------------------------
# ¡¡¡¡¡¡rsf¥Õ¥¡¥¤¥ë¤òroboScriptÍѤ˥ǡ¼¥¿ÊÑ´¹¡Êperl¸À¸ì¡Ë
#
# 2007.8.26 by takuo ¡§¥Õ¥ê¡¼¥½¥Õ¥È
# ¼«¸ÊÀÕǤ¤Ë¤Æ¤´ÍøÍѤ¯¤À¤µ¤¤¡£¼Â¹Ô¤Ëȼ¤¦Â»³²¤Ï°ìÀÚÉ餤¤Þ¤»¤ó¡£
#------------------------------------------------------------------------------
{
# ɸ½àÆþÎϤ«¤é£±¹Ôʬ¤Î¥Ç¡¼¥¿¤ò¼õ¤±¼è¤ê¡¢ËöÈø¤Î²þ¹Ôʸ»ú¤òºï½ü
print "ÊÑ´¹¤¹¤ë¥Õ¥¡¥¤¥ë̾¤òÆþÎϤ·¤Æ²¼¤µ¤¤¡£";
$in = ;
chomp $in; # ɸ½àÆþÎϤ«¤é£±¹Ôʬ¤Î¥Ç¡¼¥¿¤ò¼õ¤±¼è¤ë
$file_in = $in;
# ÊÑ´¹¤Îrsf¥Õ¥¡¥¤¥ë¡Ê¥Õ¥¡¥¤¥ë̾¤ò»ØÄê¡Ë
$file_out = "activ_".$file_in; # ÊÑ´¹¸å¤Îrsf¥Õ¥¡¥¤¥ë̾
# ÊÑ´¹Á°¤Î¥Õ¥¡¥¤¥ë¤ò¥ª¡¼¥×¥ó
binmode IN;
unless (open (IN, "$file_in")) {
print "Read open error ($file_in).¥n";
exit (1);
}
# ÊÑ´¹¸å¤Î¥Õ¥¡¥¤¥ë¤ò¥ª¡¼¥×¥ó
binmode OUT;
open (OUT, ">$file_out");
$count = 0;
# ʸ»úÎó¤ÎÊÑ´¹
while () {
$line = $_;
$line =~ s/¥n//g;
if ($line =~ /WAIT/){
$line =~ s/WAIT/DELAY/g; # WAIT¤òDELAY¤ËÊÑ´¹
}
if ($line =~ /MOVE G24/){
@move = split(/¥,/, $line); # MOVE¤òʬ²ò¤¹¤ë
# $move[5] = 78; # ¼ó¤Î¥µ¡¼¥Ü¤ÎÊäÀµ
# MOVE¤Î¥«¥é¥à¤ò·¤¨¤Æµ½Ò
$line = sprintf("MOVE24%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,%4s,",$move[1],$move[2],$move[3],$move[4],$move[5],$move[6],$move[7],$move[8],$move[9],$move[10],$move[11],$move[12],$move[13],$move[14],$move[15],$move[16],$move[17],$move[18],$move[19],$move[20],$move[21],$move[22],$move[23],$move[24]);
}
if($count eq 1){
printf OUT "$line¥000¥000¥003"; # ±£¤·¥³¡¼¥É¤òËä¤á¹þ¤à
}else{
printf OUT "$line¥r"; # ¹ÔËö¤Ë£Ã£Ò¤Î¤ß¤òÉÕ¤±¤ë
}
$count++;
}
# ¥Õ¥¡¥¤¥ë¤Î¥¯¥í¡¼¥º
close(IN);
close(OUT);
}
¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¤³¤³¤Þ¤ÇÊÑ´¹¥½¥Õ¥È¡Êrz2rs.pl¡Ë¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú¡ú