°£¤F¼ÆÈ¥~¡A¦r¦ê¤]¬OÄÝ©ó Perl ªº¯Â¶q¸ê®Æ«¬ºA¡C¥Ñ©ó Perl ³Ì±j¤jªº¥\¯à´N¦b©ó¤å¦r³B²z»P¤ñ¹ï¡A¦]¦¹¦r¦ê¬O¤@Ó«Ü«nªº¸ê®ÆÃþ§O¡C¦b Perl ¤¤¡A¤j³¡¤Àªº¦r¦ê³£¥ÎÂù¤Þ¸¹¡]Double Quote¡^¨Ó¬É©w¡A¦Ó¦bÂù¤Þ¸¹¤¤ªºÅܼơA«h·|³Q¥N´«¦¨ÅܼÆÈ¡A¨Ò¦p¡G
$name = "Timmy"; # $name ªºÈ¬O "Timmy" $str1 =¡§My name is $name"; # $str1 ªºÈ¬O "My name is Timmy" ¦b¤W¨Ò¤¤¡AY¤£§Æ±æ $name ªºÈ³Q¥N´«¦¨ "Timmy"¡A«h§ÚÌ¥i¦b $name ¤§«e¥[¤W¤@Ӥϱ׽u¡G$str2 = "My name is \$name"; # $str2 ªºÈ¬O "My name is $name" ¥t¤@ºØ§@ªk¡A«h¬O¥H³æ¤Þ¸¹¡]Single Quote¡^¨Ó¬É©w¦r¦ê¡A¦¹®É Perl ´N¤£·|¹ï¨ä¤ºªºÅܼƶi¦æ¥N´«¡A¨Ò¦p¡G$str3 = 'My name is $name'; # $str3 ªºÈ¬O "My name is $name" Yn±N¦r¦ê¬Û³s¡A¥i¥Î¥yÂI²Å¸¹¡A¦p¤U¡G$str4 = "Timmy is " . (2*5) . "years old"; # $str4 ªºÈ¬O "Timmy is 10 years old" ½Ðª`·N¦b¤W¨Ò¤¤¡A(2*5) ¬O¼ÆÈ¹Bºâ¡A¨äµ²ªG¬°¼ÆÈ 10¡APerl ·|±N¼ÆÈ 10 Âন¦r¦ê "10"¡A¦A¶i¦æ¦r¦ê³s±µªº°Ê§@¡C´«¥y¸Ü»¡¡APerl ·|¶i¦æ¥²nªºÂà´«¡AÅý¼ÆÈ©M¦r¦ê²V¦Xªº¹Bºâ¡A¯à°÷¶¶§Qªº§¹¦¨¡C§A¥i¥H¥Î length ¨ç¼Æ¨Ópºâ¦r¦êªºªø«×¡A¨Ò¦p¡G
$leng = length($str4); # pºâ $str4 ªºªø«×¡A¶Ç¦^ȬO 21 §A¤]¥i¥H¥Î¡ux¡v¹Bºâ¨Ó¶i¦æ¦r¦êªº«½Æ¡A¨Ò¦p¡G$name = "Roger"; $repeat = $name x 3; # $repeat ªºÈ¬O "RogerRogerRoger" ¥Ñ©ó¡ux¡v¹Bºâ¬O§â«e±ªº¹Bºâ¤¸¬Ý¦¨¬O¦r¦ê¡A§â«á±ªº¹Bºâ¤¸¬Ý¦¨¬O¼ÆÈ¡]§Y«½Æ¦¸¼Æ¡^¡A¦]¦¹§ÚÌ·|¦³¤U¦Cµ²ªG¡G$str5 = (1+2) x 4; # $str5 ªºÈ¬O "3333" $str6 = 4 x (1+2); # $str6 ªºÈ¬O "444" Áo©úªº§A¡A¬Ý¥X¤F¨ä¤¤ªº¹D²z¤F¶Ü¡HPerl ¤ä´©¥H¤Ï±×½u¶}©lªº¯S®í¦r¤¸¡A¥i¥H¦Cªí¦p¤U¡G
²Å¸¹ »¡©ú \a ¹aÁn \b °h¦ìÁä¡]Backspace¡^ \e Escape Áä \f Formfeed \n ´«¦æ¡]Return¡^ \t ©w¦ìÁä¡]Tab¡^ \cJ ±±¨î¦r¤¸¡A¦¹¨Ò¥Nªí Control-J \xA 16 ¶i¦ì°O¸¹¡AA16 = 1010 = ´«¦æ¦r¤¸ \012 8 ¶i¦ì°O¸¹¡A128 = 1010 = ´«¦æ¦r¤¸ \\ ¤Ï±×½u \" Âù¤Þ¸¹ \' ³æ¤Þ¸¹ \l ¤U¤@Ó¦r¤¸§ï¬°¤p¼g \u ¤U¤@Ó¦r¤¸§ï¬°¤j¼g \L ¥Ñ¤U¤@Ó¦r¤¸¶}©l¡A¨ì\E©Î¦r¦êµ²§ô¤§¦ì¸m¡A³£§ï¬°¤p¼g \U ¥Ñ¤U¤@Ó¦r¤¸¶}©l¡A¨ì\E©Î¦r¦êµ²§ô¤§¦ì¸m¡A³£§ï¬°¤j¼g \E µ²§ô \L ©Î \U ªº®Ä¥Î ¤U¦Cµ{¦¡½X¬O Perl ¹ï¦r¦ê¶i¦æ¦UºØ¤j¤p¼gÅÜ´«ªº¨Ò¤l¡G
$name = "Roger"; $name1 = "\U$name"; # $name1 ªºÈ¬O "ROGER" $name2 = "\L$name1"; # $name2 ªºÈ¬O "roger" $name3 = "\u$name2"; # $name3 ªºÈ¬O "Roger" $name4 = "\l$name1"; # $name4 ªºÈ¬O "rOGER" ¥H¤U¬O¤@Ó¤p¤pªº´ú¸Õµ{¦¡¡A¦C¥X¤@¨Ç¦Û¦êªº³]©w¤è¦¡¡]tstring.pl¡^¡A´£¨Ñ¦U¦ìŪªÌ°Ñ¦Ò¡G¦L¥X®ÄªG¦p¤U¡G
$str1 = hello\n $str2 = hello $str3 = don't $str4 = a string: "test" $str5 = sprite coke $path1 = c:\winnt\temp\ $path2 = c:\winnt\temp $path3 = c:/winnt/temp $path4 = c:\winnt\temp\roger $path5 = c:\winnt\temp\roger ¦pªG§A¹ï Perl ³B²z¦r¦êªº¤è¦¡¦³©ÒºÃ¸q¡A¥i¥H§Q¥ÎÃþ¦ü¤Wzªº¤pµ{¦¡¨Ó¶i¦æ´ú¸Õ¡C»P¦r¦ê³B²z¬ÛÃöªº¨ç¼Æ¡A¥i¥H¦Cªí¦p¤U¡G
²Å¸¹ »¡©ú chomp ²¾°£¦r¦ê§ÀºÝªº´«¦æ¦r¤¸ chop ²¾°£¦r¦ê§ÀºÝªº¦r¤¸ chr ±N ASCII ¥N½XÂà´«¦Ü¦r¤¸ crypt ¦r¦ê¥[±K hex ±N 16 ¶i¦ìªí¥Üªº¦r¦êÂର¼ÆÈ index ¶Ç¦^¤@¦r¦ê¦b¥t¤@¦Û¦ê¥X²{ªº²Ä¤@Ó¦ì¸m lc Âର¤p¼g¦r¤¸ lcfirst ²Ä¤@Ó¦r¥ÀÂର¤p¼g¦r¤¸ length pºâ¦r¦êªø«× oct ±N 8 ¶i¦ìªí¥Üªº¦r¦êÂର¼ÆÈ ord ±N¦r¤¸Âà´«¬°¼ÆÈ¡]ASCII ¥N½X©Î Unicode¡^ pack ±N¼ÆÈ©Î¦r¦ê¶i¦æ¦UºØÀ£ÁY»PÂà´« q/STRING/ qq/STRING/ reverse ±N¦Û¦ê¥ª¥kÄAË rindex ¶Ç¦^¤@¦r¦ê¦b¥t¤@¦Û¦ê¥X²{ªº³Ì«á¤@Ó¦ì¸m sprintf ¶Ç¦^¥Ñ printf ©Ò§Î¦¨ªº¦r¦ê substr ¨ú¥X¤l¦r¦ê tr/// ¦r¦êÂà´«¹Bºâ¡]Transliteral Operation¡^ uc ±N¦r¦ê¥þ³¡Åܦ¨¤j¼g ucfirst ±N¦r¦êªº²Ä¤@Ó¦r¥ÀÅܦ¨¤j¼g y/// ¦r¦êÂà´«¹Bºâ¡]Transliteral Operation¡^ Y¹ï³o¨Ç¨ç¼Æªº¥Îªk¤£ÁA¸Ñ¡A¥i¥Î perldoc ¨Ó¨ú±o½u¤W»¡©ú¡A¨Ò¦p¡A±ýŪ¨ú ucfirst ªº½u¤W»¡©ú¡A¥i¦b¹q¸£ªº©R¥Oµøµ¡¿é¤J
perldoc -f ucfirst ½Ð¥ß¨è¸Õ¸Õ¬Ý¡I§ÚÌ¥i¥Î¦r¦ê¨ÓŪ¨úÁä½L¿é¤J¡A¨Ò¦p¡G
$a = ¤Wz½d¨Ò¤]¥i¥H¦X¦¨¤@¦Cµ{¦¡½X¡G; # ±qÁä½L¡]§Y¼Ð·Ç¿é¤J¸Ë¸m¡ASTDIN¡^¨ú±o¤@¦C¤å¦r¿é¤J chomp($a); # §R°£¦¹¿é¤J¦r¦ê§ÀºÝªº´«¦æ²Å¸¹ chomp($a = Yn±N¤@ÓÀɮס]test.txt¡^ªº¤º®e³v¤@Ū¥X¡A¥i¥Î¤U¦Cµ{¦¡½X¡G); open(FILE, "test.txt") || die("Cannot open file"); $line = ¨ä¤¤²Ä¤@¦Cªº±Ôz¬O¥Ñ¨âÓ¨ç¼Æ©Òºc¦¨¡A¦A¥Ñ¡u||¡v¡]¥Nªí¡u©Î¡vªºÅÞ¿è¹Bºâ¡^¨Ó³sµ²¡C¡uopen(File, "test.txt")¡v¬O¶}±Ò test.txt ÀɮסA¨Ã±NÀɮ׫ü¼Ð³]©w¦Ü FILE¡F¡udie("Cannot open file")¡v«h¬O¦L¥X Cannot open file ªº¿ù»~°T®§¡A¨Ã¸õ¥Xµ{¦¡½X¡C´«¥y¸Ü»¡¡AY¶¶§Q¶}±ÒÀɮסA«h¦¹ open ¨ç¼Æ¶Ç¦^ 1¡A«h Perl ¤£¦A°õ¦æ die ¨ç¼Æ¡A¦]¬°¾ã¦C±Ôz¥Ñ¡u©Î¡vÅÞ¿è¹Bºâ©Òºc¦¨¡A¥un¦³¤@ªÌ¬° 1¡A§Y¥i¨M©w¾ãÓ±ÔzªºÈ¡C¤Ï¤§¡AY open ¨ç¼Æ¶Ç¦^¹s¡]¥Nªí¶}±ÒÀÉ®×¥¢±Ñ¡^¡A«h Perl ·|¦A°õ¦æ die ¨ç¼Æ¡A¤w½T«O¯à°÷¨D±o¾ãÓ±ÔzªºÅÞ¿èÈ¡C¡u$line = <FILE>¡v«h¬O³v¦¸±qÀÉ®×Ū¥X¤@¦C¡Aª½¨ìÀÉ®×µ²§ô¡A¥ç§Y $line µL©w¸q¡A©Î defined($line) ¶Ç¦^ 0 ¬°¤î¡C; while (defined($line)) { print "$line"; $line = ; }
Perl![]()