´ÙÀ½Àº UNIX
cat ¸í·É°ú °ÅÀÇ µ¿ÀÏÇÑ ÆÞ ÇÁ·Î±×·¥ÀÌ´Ù.
#!/usr/local/bin/perl
#
# ¾ÏÈ£ÆÄÀÏÀ» Àаí, ÀÌ°ÍÀ» Ãâ·ÂÇÑ ÈÄ, ´Ù½Ã ´Ý´Â´Ù.
$file = '/etc/passwd'; # ÆÄÀϸí
open(INFO, $file); # ÆÄÀÏ ¿±â
@lines = <INFO> # ÀÐ¾î¼ ¹è¿·Î ÀúÀå
close(INFO); # ÆÄÀÏ ´Ý±â
print @lines; # ¹è¿Ãâ·Â
open ÇÔ¼ö´Â ÀÔ·Â ÆÄÀÏÀ» ¿¬´Ù(¿¹: Àбâ). ù¹ø° ¸Å°³º¯¼ö´Â ¾ÕÀ¸·Î ÆÞÀÌ ÆÄÀÏÀ» ÂüÁ¶ÇÒ ¶§ »ç¿ëÇÏ´Â
filehandleÀÌ´Ù. µÎ¹ø° ¸Å°³º¯¼ö´Â ÆÄÀϸíÀ» Ç¥½ÃÇϴ ǥÇö½ÄÀÌ´Ù. ÆÄÀϸíÀÌ ÀοëµÇ¸é ½©È®Àå¾øÀÌ ¹®ÀÚÀûÀ¸·Î ÃëÇØÁø´Ù. µû¶ó¼ Ç¥Çö½Ä '~/notes/todolist'´Â ¼º°øÀûÀ¸·Î Çؼ®µÇÁö ¸øÇÑ´Ù. °Á¦·Î ½© È®ÀåÀ» ÇÏ·Á¸é ¼Ò°ýÈ£¸¦ »ç¿ëÇÑ´Ù. Áï, ¸¦ »ç¿ëÇÏ¸é µÈ´Ù.
close ÇÔ¼ö´Â ÆÄÀÏ¿¡´ëÇÑ µ¿ÀÛÀ» Á¾·áÇϵµ·Ï ÆÞ¿¡ Áö½ÃÇÑ´Ù.
ÆÄÀÏÇڵ鿡´ëÇÑ ³íÀÇ¿¡ Ãß°¡ÇØ¾ß ÇÏ´Â ¸î¸î À¯¿ëÇÑ °ÍµéÀÌ ÀÖ´Ù. ¸ÕÀú
open¹®Àº ÀԷ»Ӹ¸¾Æ´Ï¶ó Ãâ·Â ÆÄÀÏ, Ãß°¡¿ë ÆÄÀÏÀ» ÁöÁ¤ÇÒ ¼ö ÀÖ´Ù. Ãâ·Â ÇϱâÀ§Çؼ´Â ÆÄÀÏ¸í ¾Õ¿¡
>¸¦ ºÙÀ̸ç, µ¡ºÙÀ̱âÀ§Çؼ´Â
>>¸¦ ºÙÀδÙ:
open(INFO, $file); # ÀÔ·ÂÀ¸·Î ¿±â
open(INFO, ">$file"); # Ãâ·ÂÀ¸·Î ¿±â
open(INFO, ">>$file"); # Ãß°¡·Î ¿±â
open(INFO, "-'); # Ç¥ÁØÃâ·Â ¿±â
À§ÀÇ ÇÁ·Î±×·¥¿¡¼ Á¤º¸´Â ÆÄÀϷκÎÅÍ ÀÐÇôÁø´Ù. ÆÄÀÏÀº INFO ÆÄÀÏÀ̸ç, ÀÌ°ÍÀ¸·Î ºÎÅÍ ÀбâÀ§ÇØ ÆÞÀº ¼Ò°ýÈ£¸¦ »ç¿ëÇÑ´Ù. µû¶ó¼
@lines = ;
Àº ÆÄÀÏÇڵ鿡ÀÇÇØ Áö½ÃµÈ ÆÄÀÏÀ» ¹è¿ @lines·Î ÀоîµéÀδÙ. ¶ó´Â Ç¥Çö½ÄÀº Çѹø¿¡ ÆÄÀÏ Àüü¸¦ ÀаԵȴÙ. ÀÌ °ÍÀº ¹è¿ ȯ°æ¿¡¼ ÀбⰡ ÃëÇØÁ³±â ¶§¹®ÀÌ´Ù. @lines¸¦ ½ºÄ®¶ó $lines·Î ´ëÄ¡Çϸé ÇÑ Çุ ÀÐÇôÁø´Ù. ¾î¶°ÇÑ °æ¿ìÀÌµç °¢ ÇàÀº °³Ç๮ÀÚ·Î ³¡³´Ù.
¿¬½À
°¢ÇàÀÇ ¼±µÎ¿¡ # ±âÈ£¸¦ Ãâ·ÂÇϵµ·Ï À§ÀÇ ÇÁ·Î±×·¥À» º¯°æÇÑ´Ù. ÇÑÇุ º¯°æÇؾßÇϸç,
$" º¯¼ö¸¦ »ç¿ëÇÑ´Ù. ¿¹±âÄ¡ ¾ÊÀº ÀϵéÀÌ ÆÄÀÏÀ» ó¸®ÇÏ´Â Áß¿¡ ¹ß»ýÇÒ ¼ö ÀÖÀ¸¹Ç·Î
ÆÞ ÇÁ·Î±×·¥ ½ÇÇà Àý¿¡¼ ¾ð±ÞÇÑ
-wÀ» »ç¿ëÇÑ´Ù.