ファイルã®èªã¿è¾¼ã¿é–‹å§‹ä½ç½®ã¨çµ‚了ä½ç½®ã‚’指定ã—ã¦æ›¸ã出ã™ã€œseekã€read - WEB開発åˆå¿ƒè€…ã®æˆé•·è¨˜éŒ²â—ãƒã‚¤ãƒ³ãƒˆ â—Žseek([ファルãƒãƒ³ãƒ‰ãƒ«], [起点ã‹ã‚‰ã®ä½ç½®(スタート地点ã«ãªã‚‹)], [起点]); 起点ã¯ã€0ã ã¨ãƒ•ã‚¡ã‚¤ãƒ«ã®å…ˆé ã€1ã ã¨ç¾åœ¨ã®ä½ç½®ã€2ã ã¨ãƒ•ã‚¡ã‚¤ãƒ«ã®æœ«å°¾ã«ãªã‚‹ã€‚(0, 1, 2以外ã¯å…¥ã‚Šã¾ã›ã‚“) 例), seek($fh, 20,0); →ファイルã®å…ˆé ã‹ã‚‰20ãƒã‚¤ãƒˆé€²ã‚“ã ã¨ã“ã‚ãŒèªã¿è¾¼ã¿ãƒ»æ›¸ãè¾¼ã¿ä½ç½®ã«ãªã‚‹ã€‚ â—Žread([ファイルãƒãƒ³ãƒ‰ãƒ«], [èªã¿è¾¼ã‚“ã æƒ…å ±ã‚’æ ¼ç´ã™ã‚‹ã‚¹ã‚«ãƒ©ãƒ¼å¤‰æ•°], [èªã¿è¾¼ã‚€æƒ…å ±ã®çµ‚点])â—ãŠé¡Œ ã“ã‚“ãªâ†“ファイル(test_yoko_ryouri.eps)ãŒã‚ã‚‹ã¨ã—ã¾ã™ã€‚ ãƒ—ãƒ¬ãƒ“ãƒ¥ãƒ¼æƒ…å ±ã‚’èªã¿å–ã£ã¦ã€TIFFファイルã®ã¿ã‚’抽出ã—ã¦ä¿å˜ã—ã¦ãã ã•ã„。 #! /usr/bin/perl use strict; use warnings; #何度もã“ã®ã‚¹ã‚¯ãƒªãƒ—トを回ã—ã¦å¤§ä¸ˆå¤«ãªã‚ˆã†ã«ã€æ—¢ã«æŠ½å‡ºã—ãŸTIFFファイルãŒã‚ã‚‹ã¨ãã¯æ¶ˆåŽ»ã—ã¦ãŠã system
{{#tags}}- {{label}}
{{/tags}}