¹ï Perl ¨Ó»¡¡A¼Ð·Ç¿é¤J´N¬OÁä½L¡A¥i¥Î¨Óªí¥Ü¡A¦]¦¹Yn±qÁä½LŪ¨ú¨Ï¥ÎªÌªº¿é¤J¡A¥i¥Î¤U¦C½d¨Òµ{¦¡½X¡]tstdin1.pl¡^¡G ¥H¤W½d¨Ò¥i¥H²¤Æ¦p¤U¡]tstdin2.pl¡^¡G
¦b¤W¨Ò¤¤¡APerl ·|¦Û°Ê¨ú¥ÎµêÀÀÅÜ¼Æ $_ ¨Ó¨ú¥N $line ªº¨¤¦â¡C
YnÅã¥Ü¥Ñ©R¥O¦C¡]Command Line¡^©Ò°e¶i¨ÓªºÀɮסA¥i¨Ï¥Î¤U¦Cµ{¦¡½X¡]tcmd1.pl¡^¡G
¥ç¥i²¤Æ¦p¤U¡]tcmd2.pl¡^¡G
¦b¤W¨Ò¤¤¡A¡u<>>¡v§Y¥Nªí¦s©ñ©ó°}¦CÅÜ¼Æ @ARGV ªºÀɮצWºÙ¡A©Î¬O¥Ñ©R¥O¦C°e¤JªºÀɮצWºÙ¡C¦]¦¹Y¿é¤J¤U¦C©R¥O¡G
perl tcmd1.pl tstdin1.pl tstdin2.pl ¿Ã¹õ§Y·|¦L¥X tstdin1.pl ©M tstdin2.pl ¨âÀɮתº¤º®e¡A¨ä¥\¯à©M DOS ¤Uªº type ©R¥O©Î UNIX ¤Uªº cat ©R¥O¬O¬Û¦Pªº¡CYn±N°T®§¦C¦L¦Ü¼Ð·Ç¿é¥X¡]§Y¿Ã¹õ¡^¡A¥i¨Ï¥Î print ©R¥O¡A¨Ò¦p¤U±¨âÂyµ{¦¡½X¡A³£¥i±N "This is a test!" °e¦Ü¿Ã¹õ¡G
print "This is a test!\n"; print("This is a test!\n"); ¨ä¤¤¡u\n¡v¥Nªí´«¦æ²Å¸¹¡Cprint ¤]¥i¥H±µ¨ü¥Ñ³rÂI¤À¶}ªº¦r¦ê¡A©Ò¥H¤W±ªºµ{¦¡½X¤]¥i¥H¼g¦¨¡Gprint("This ", "is a test!", "\n"); print ÁÙ¦³¤@Ó¯S²§¥\¯à¡A¥i¥H²£¥Í©Ò¿×ªº Here Document¡A¨Ò¦p¡]tprint1.pl¡^¡G¦b¤W¨Ò¤¤¡Aprint ·|¦L¥X¨ä«áªº¦U¦C¤å¦r¡Aª½¨ì END_OF_DOC ¥X²{¬°¤î¡C¡]·íµM¡A§A¤]¥i¥H±N END_OF_TEXT §ï¦¨¥ô¦ó»P©Ò¦L¥X°T®§¤£¬Û¤zªº¤å¦r¡A¨Ò¦p END_OF_TEXT ©Î END_OF_HTML µ¥¡C¡^
Yn²£¥Í¸û½ÆÂøªº¿é¥X¡A´N¥²¶·¾a printf ©R¥O¡A¨ä¥Îªk©M C »y¨¥ªº printf ´X¥G¬O¤@Pªº¡A¨Ò¦p¡G
printf("%10s %8d \t%5.3f\n" , $str, $integ, $real); ¤Wzµ{¦¡½X±N·|¨Ï¥Î 10 Ó¦r¤¸ªºÄæ¦ì¨Ó¦L¥X¦r¦ê $str¡A±µ¤@ӪťաA¦A¥Î 8 Ó¦r¤¸ªºÄæ¦ì¨Ó¦L¥X¾ã¼Æ $integ¡A±µ¤@ӪťաA¦A±µ¤@Ó©w¦ìÁä¡]Tab¡A\t¡^¡AµM«á¥Î 5 Ó¦r¤¸ªºÄæ¦ì¡]¾ã¼Æ³¡¤À¦û¤F¤TÓ¦r¤¸¡^¨Ó¦L¥X¯BÂI¼Æ $real¡CŪªÌ¥i¥Ñ¹q¸£©R¥O¦C¿é¤J¡uperldoc -f printf¡v¨Ó¨ú±o§ó¦h¦³Ãö printf ªº»¡©ú¡C
Perl