|
|
¿ô£Ë£Â¤À¤Ã¤¿¤éʸ»úÎó¤Ë°ìµ¤¤ËÆþ¤ì¤Á¤ã¤Ã¤Æ¤ä¤ì¤Ð¤¤¤¤¤ó¤¸¤ã¤Ê¤¤¤«¤Ë¤ã¡£
Perl ¤Ï¥Ç¥Õ¥©¥ë¥È ASCII ¥â¡¼¥É¤Î¹Ôñ°Ì½èÍý¤Ê¤Î¤Ç¥Ð¥¤¥Ê¥ê½èÍý¤Ï¾¯¡¹¥á¥ó¥É¤¯¤µ¤¤¤±¤É¡£
#!/usr/bin/perl
$filename = $ARGV[0];
$size = -s $filename;
if (!open(FILE, $filename)) {
print("Cannot open $filename\n");
exit 1;
}
binmode(FILE);
read(FILE, $buf, $size);
close(FILE);
for ($i = 20; $i <= 44; $i++) {
$buf[i] = ' ';
}
if (!open(FILE, ">temp.tmp")) {
print("Cannot open tmpfile\n");
exit 1;
}
binmode(FILE);
print FILE $buf;
close(FILE);
unlink($filename);
rename("temp.tmp", $filename);
¤À¤¤¤¿¤¤²¿¤ä¤Ã¤Æ¤ë¤«¤Ï¸«¤Æ¤ÎÄ̤ê¤Ç¤¹¡£
binmode ¤Ã¤Æ¤Î¤¬¥Õ¥¡¥¤¥ë I/O ¤Î¥Ð¥¤¥Ê¥ê¥â¡¼¥É»ØÄê¡¢
-s ¤Ã¤Æ¤Î¤Ï¥Ò¥¸¥ç¡¼¤ËȽ¤ê¤Ë¤¯¤¤¤ó¤Ç¤¹¤¬¥Õ¥¡¥¤¥ë¥µ¥¤¥º¼èÆÀ¡¢
unlink ¤¬¥Õ¥¡¥¤¥ëºï½ü¤Ç¤¹¡£
|
|
