perl’´“ü

„،„ں„ں„ں„ں„ں„ں„ں„¢ „ perl’´“ü–ه(3) „ „ پ@ 2002/10/27 „ „¤„ں„ں„ں„ں„ں„ں„ں„£ [پ£Perl Homeپ£] پœƒpƒ^پ[ƒ“ƒ}ƒbƒ` پ@پںƒ}ƒbƒ`‰‰ژZژq پ@ پ@پ@پEƒ}ƒbƒ`‰‰ژZژqپu/ژw’è•¶ژڑ—ٌ/پv ‚ة‚و‚èƒfپ[ƒ^‚ھژw’è•¶ژڑ—ٌ‚ًٹـ‚ق‚©”غ‚©‚ًƒ`ƒFƒbƒNپB پ@پ@پEƒ}ƒbƒ`‘خڈغ‚ة‚حƒپƒ^•¶ژڑ(\n, \a, \t)‚àٹـ‚ـ‚ê‚éپB پ@پ@پE“ء•ت‚ب(ƒ}ƒbƒ`/گ³‹K•\Œ»ڈم“ء•ت‚بˆس–،‚ًژ‌‚آ)•¶ژڑ‚ة‚حƒGƒXƒPپ[ƒv•\‹L(\‹Lچ†‚ً•t پ@پ@پ@‚¯‚é)‚ً“K—p‚·‚éپB(—ل‚حژ¦‚³‚ب‚¢) پ@پ@پ@پ@پ@. : \. پ@پ@پ@پ@پ@\ : \\ پ@پ@پ@پ@پ@* : \* پ@پ@پ@پ@پ@? : \? پ@پ@پ@پ@پ@| : \| پ@پ@پ@پ@پ@+ : \+ پ@پ@پ@پ@پ@^ : \^ پ@پ@پE‹@ژي‚ة‚و‚è\‹Lچ†‚حƒoƒbƒNƒXƒ‰ƒbƒVƒ…‚ة‚ب‚éپB پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@while (<>) { پ@پ@پ@پ@if (/abc/) { پ@پ@پ@پ@پ@پ@print "پ› ", $_; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $_; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@[data.txt] پ@پ@„،„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@„ abc:001پ@پ@پ@ „ پ@پ@„ ABC:002پ@پ@پ@ „ پ@پ@„ abcdefg:004پ@ „ پ@پ@„ ABCDEFG:005پ@ „ پ@پ@„ 012abcdefg:006„ پ@پ@„ 012ABCDEFG:007„ پ@پ@„¤„ں„ں„ں„ں„ں„ں„ں„£ پ@پ@ پ@پ@C:> jperl test.pl data.txt پ@پ@پ› abc:001 پ@پ@پ~ ABC:002 پ@پ@پ› abcdefg:004 پ@پ@پ~ ABCDEFG:005 پ@پ@پ› 012abcdefg:006 پ@پ@پ~ 012ABCDEFG:007 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@ پ@پ@پE‘ه•¶ژڑ‚ئڈ¬•¶ژڑ‚ً‹و•ت‚³‚¹‚ب‚¢ƒIƒvƒVƒ‡ƒ“پu/ژw’è•¶ژڑ—ٌ/iپvپB پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@while (<>) { پ@پ@پ@پ@if (/abc/i) { پ@پ@پ@پ@پ@پ@print "پ› ", $_; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $_; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@[data.txt] پ© ‘O‚ج—ل‚ئ“¯‚¶ پ@پ@ پ@پ@C:> jperl test.pl data.txt پ@پ@پ› abc:001 پ@پ@پ› ABC:002 پ@پ@پ› abcdefg:004 پ@پ@پ› ABCDEFG:005 پ@پ@پ› 012abcdefg:006 پ@پ@پ› 012ABCDEFG:007 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@ پ@پںƒpƒ^پ[ƒ“Œ‹چ‡‰‰ژZژq پ@پ@پEƒ}ƒbƒ`‘خڈغ‚ً•دگ”‚ئŒ‹‚ر•t‚¯‚é‚ة‚حپAƒpƒ^پ[ƒ“Œ‹چ‡‰‰ژZژqپu=~پv‚ًژg—pپB پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abc:001', پ@پ@پ@پ@پ@پ@پ@ 'ABC:002', پ@پ@پ@پ@پ@پ@پ@ 'abcdefg:004', پ@پ@پ@پ@پ@پ@پ@ 'ABCDEFG:005', پ@پ@پ@پ@پ@پ@پ@ '012abcdefg:006', پ@پ@پ@پ@پ@پ@پ@ '012ABCDEFG:007' ); پ@پ@پ@پ@پ@پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /abc/) { پ@پ@پ@پ@پ@پ@print "پ› ", $tmp, "\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $tmp, "\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ› abc:001 پ@پ@پ~ ABC:002 پ@پ@پ› abcdefg:004 پ@پ@پ~ ABCDEFG:005 پ@پ@پ› 012abcdefg:006 پ@پ@پ~ 012ABCDEFG:007 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پںƒAƒ“ƒ}ƒbƒ` پ@ پ@پ@پEƒ}ƒbƒ`‚µ‚ب‚¢‚±‚ئ‚حƒpƒ^پ[ƒ“Œ‹چ‡‰‰ژZژq‚جˆê‚آ‚إ‚ ‚éپu!~پv‚إ•\‚·پB پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abc:001', پ@پ@پ@پ@پ@پ@پ@ 'ABC:002', پ@پ@پ@پ@پ@پ@پ@ 'abcdefg:004', پ@پ@پ@پ@پ@پ@پ@ 'ABCDEFG:005', پ@پ@پ@پ@پ@پ@پ@ '012abcdefg:006', پ@پ@پ@پ@پ@پ@پ@ '012ABCDEFG:007' ); پ@پ@پ@پ@پ@پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp !~ /abc/) { پ@پ@پ@پ@پ@پ@print "پ› ", $tmp, "\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $tmp, "\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ~ abc:001 پ@پ@پ› ABC:002 پ@پ@پ~ abcdefg:004 پ@پ@پ› ABCDEFG:005 پ@پ@پ~ 012abcdefg:006 پ@پ@پ› 012ABCDEFG:007 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@ پ@پ@پE”غ’è‚حŒ‹چ‡‰‰ژZژq‚إ•\‚·‚ج‚إپA$_‚جڈب—ھ‚ة‘خ‚µ‚ؤ‚ح”غ’è•\Œ»‚ھ–³‚¢پB‚±‚جڈêچ‡‚حڈب پ@پ@پ@—ھ‚µ‚ب‚¢‚إ‹Lڈq‚·‚éپB پ@پ@پ@ پ@پ@پ@پ@پ@if ($_ !~ /abc/) { پ@پ@پ@پ@پ@پ@: پ@پ@پ@پ@پ@} پ@پںƒ}ƒbƒ`‰‰ژZژq‚ج•¶ژڑ•دچX پ@ پ@پ@پEƒ}ƒbƒ`‘خڈغ•¶ژڑ—ٌ‚ةپu/پv‚ًٹـ‚ٌ‚إ‚¢‚éڈêچ‡پAƒ}ƒbƒ`‰‰ژZژq‚ج•¶ژڑ‚ً•دچX‚·‚éپB پ@پ@پ@پ@پ@mƒ}ƒbƒ`‰‰ژZژq•¶ژڑ پ¨ m#/abc# پ@پ@پ@پ@پ@پ@پ@پ@پ@پ@پ@پ@پ@پ@پ@ m%/abc% “™پX... پ@پ@پ@پ@پ@ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( '/abc:001',پ@پ@پ@پ@#Œںچُ‘خڈغ1 پ@پ@پ@پ@پ@پ@پ@ 'ABC:002', پ@پ@پ@پ@پ@پ@پ@ 'abcdefg:004', پ@پ@پ@پ@پ@پ@پ@ 'ABCDEFG:005', پ@پ@پ@پ@پ@پ@پ@ '012/abcdefg:006', #Œںچُ‘خڈغ2 پ@پ@پ@پ@پ@پ@پ@ '012ABCDEFG:007' ); پ@پ@پ@پ@پ@پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ m#/abc#) { پ@پ@پ@پ@پ@پ@print "پ› ", $tmp, "\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $tmp, "\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ› /abc:001 پ@پ@پ~ ABC:002 پ@پ@پ~ abcdefg:004 پ@پ@پ~ ABCDEFG:005 پ@پ@پ› 012/abcdefg:006 پ@پ@پ~ 012ABCDEFG:007 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پœگ³‹K•\Œ» پ@پںچs“ھ/چs–– پ@ پ@پ@پE•¶ژڑ—ٌ’†‚ةˆس–،‚ج‚ ‚éƒپƒ^•¶ژڑ‚ً“K—p‚·‚é‚±‚ئ‚ھڈo—ˆ‚éپFگ³‹K•\Œ» پ@پ@ پ@پ@پEچs“ھ/چs––‚ج•\Œ» پ@پ@پ@پ@^پ@: چs“ھ پ@پ@پ@پ@$پ@: چs–– پ@پ@پ@پ@\Z : \nچs–– پ© chop()‚³‚ê‚ؤ‚¢‚ب‚¢•دگ”“™‚ة“K—p پ@پ@پ@پ@پ@پ@پ@پ@پ@پ@پ@ \n(‰üچs)‚ًƒGƒXƒPپ[ƒv‚·‚é پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@while (<>) { پ@پ@پ@پ@if (/^abc/) { پ@پ@پ@پ@پ@پ@print "پ› ", $_; پ@پ@پ@پ@} else if (/6\Z/){ پ@پ@پ@پ@پ@پ@print "پ¢ ", $_; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $_; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@[data.txt] پ@پ@„،„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@„ abc:001پ@پ@پ@ „ پ@پ@„ ABC:002پ@پ@پ@ „ پ@پ@„ abcdefg:004پ@ „ پ@پ@„ ABCDEFG:005پ@ „ پ@پ@„ 012abcdefg:006„ پ@پ@„ 012ABCDEFG:007„ پ@پ@„¤„ں„ں„ں„ں„ں„ں„ں„£ پ@پ@ پ@پ@C:> jperl test.pl data.txt پ@پ@پ› abc:001 پ@پ@پ~ ABC:002 پ@پ@پ› abcdefg:004 پ@پ@پ~ ABCDEFG:005 پ@پ@پ¢ 012abcdefg:006 پ@پ@پ~ 012ABCDEFG:007 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پںگ”ژڑ/گ”ژڑˆبٹO : (”¼ٹp) پ@ پ@پ@پ@\d : گ”ژڑ1•¶ژڑ پ@پ@پ@\D : گ”ژڑˆبٹO1•¶ژڑ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abc:001', پ@پ@پ@پ@پ@پ@پ@ 'ABC:002', پ@پ@پ@پ@پ@پ@پ@ 'Gabcdefg:004', پ@پ@پ@پ@پ@پ@پ@ 'SABCDEFG:005', پ@پ@پ@پ@پ@پ@پ@ '012abcdefg:006', پ@پ@پ@پ@پ@پ@پ@ '012ABCDEFG:007' ); پ@پ@پ@پ@پ@پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /\dabc/) { پ@پ@پ@پ@پ@پ@print "پ› ", $tmp, "\n"; پ@پ@پ@پ@} elsif ($tmp =~ /\Dabc/) { پ@پ@پ@پ@پ@پ@print "پ¢ ", $tmp, "\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $tmp, "\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ~ abc:001 پ@پ@پ~ ABC:002 پ@پ@پ¢ Gabcdefg:004 پ@پ@پ~ SABCDEFG:005 پ@پ@پ› 012abcdefg:006 پ@پ@پ~ 012ABCDEFG:007 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پں‰pگ”ژڑ/‰pگ”ژڑˆبٹO : (”¼ٹp) پ@ پ@پ@پ@\w : ‰pگ”ژڑ1•¶ژڑ پ@پ@پ@\W : ‰pگ”ژڑˆبٹO1•¶ژڑ (@, :, ; “™‚ج‹Lچ†‚ئƒ}ƒbƒ`) پ@پ@پ@(’چ)_(ƒAƒ“ƒ_پ[ƒoپ[)‚ح‰p•¶ژڑˆµ‚¢‚ئ‚ب‚é پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abc001', پ@پ@پ@پ@پ@پ@پ@ 'ABC002', پ@پ@پ@پ@پ@پ@پ@ 'Gabc:defg003', پ@پ@پ@پ@پ@پ@پ@ 'Gabc_defg004', پ@پ@پ@پ@پ@پ@پ@ 'SGABCDEFG005' ); پ@پ@پ@پ@پ@پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /abc\w/) { پ@پ@پ@پ@پ@پ@print "پ› ", $tmp, "\n"; پ@پ@پ@پ@} elsif ($tmp =~ /abc\W/) { پ@پ@پ@پ@پ@پ@print "پ¢ ", $tmp, "\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $tmp, "\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ› abc001 پ@پ@پ~ ABC002 پ@پ@پ¢ Gabc:defg003 پ@پ@پ› Gabc_defg004 پ@پ@پ~ SGABCDEFG005 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پں‹َ”’/‹َ”’ˆبٹO : (”¼ٹp) پ@ پ@پ@پ@\s : ‹َ”’1•¶ژڑ پ@پ@پ@\S : ‹َ”’ˆبٹO1•¶ژڑ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abc 001', پ@پ@پ@پ@پ@پ@پ@ 'abc_002', پ@پ@پ@پ@پ@پ@پ@ 'defg 003', پ@پ@پ@پ@پ@پ@پ@ 'defg004' ); پ@پ@پ@پ@پ@پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /abc\s/) { پ@پ@پ@پ@پ@پ@print "پ› ", $tmp, "\n"; پ@پ@پ@پ@} elsif ($tmp =~ /\s/) { پ@پ@پ@پ@پ@پ@print "پ¢ ", $tmp, "\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $tmp, "\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ› abc 001 پ@پ@پ~ abc_002 پ@پ@پ¢ defg 003 پ@پ@پ~ defg004 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پں”Cˆس‚ج1•¶ژڑ پ@ پ@پ@پ@. : ”Cˆس‚ج1•¶ژڑ‚ئˆê’v پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abc', پ@پ@پ@پ@پ@پ@پ@ 'abc0', پ@پ@پ@پ@پ@پ@پ@ 'def1', پ@پ@پ@پ@پ@پ@پ@ 'abc2' ); پ@پ@پ@پ@پ@پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /abc./) { پ@پ@پ@پ@پ@پ@print "پ› ", $tmp, "\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $tmp, "\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ~ abc پ@پ@پ› abc0 پ@پ@پ~ def1 پ@پ@پ› abc2 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پں•¶ژڑƒNƒ‰ƒX پ@ پ@پ@پ@[•¶ژڑA•¶ژڑBپEپEپE] (—ل)[ABC]پ@: A or B or C‚ةˆê’v پ@پ@پ@[^•¶ژڑA•¶ژڑBپEپE ] (—ل)[^ABC] : A or B or CˆبٹO‚ةˆê’v پ@پ@پ@ پ@پ@پ@پu-پv‚إ”حˆحژw’è‚à‚إ‚«‚é پ@پ@پ@پ@پ@(‰‍—p—ل) [a-c0-2] : a/b/c–”‚ح0/1/2‚ةˆê’v پ@پ@پ@پ@پ@پ@پ@پ@پ@ [a-zA-Z] : ‘S‚ؤ‚جƒAƒ‹ƒtƒ@ƒxƒbƒg‚ةˆê’v پ@پ@پ@پ@پ@پ@پ@پ@پ@ [0-9]پ@پ@: ‘S‚ؤ‚جگ”ژڑ‚ةˆê’v پ@پ@پ@پ@پ@پ@پ@پ@پ@ [‚ں-‚ٌ]پ@: ‘S‚ؤ‚ج‚ذ‚ç‚ھ‚ب‚ةˆê’v پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abc', پ@پ@پ@پ@پ@پ@پ@ 'abC0', پ@پ@پ@پ@پ@پ@پ@ 'def1', پ@پ@پ@پ@پ@پ@پ@ 'abC2', پ@پ@پ@پ@پ@پ@پ@ 'abC3', پ@پ@پ@پ@پ@پ@پ@ 'abC4' ); پ@پ@پ@پ@پ@پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /[0c]/) { پ@پ@پ@پ@پ@پ@print "پ› ", $tmp, "\n"; پ@پ@پ@پ@} elsif ($tmp =~ /C[^1-3]/) { پ@پ@پ@پ@پ@پ@print "پ¢ ", $tmp, "\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@print "پ~ ", $tmp, "\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ› abc پ@پ@پ› abC0 پ@پ@پ~ def1 پ@پ@پ~ abC2 پ@پ@پ~ abC3 پ@پ@پ¢ abC4 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پںکA‘±•¶ژڑ پ@ پ@پ@پ@پ¦‚±‚جƒZƒNƒVƒ‡ƒ“ˆبچ~پAپu•¶ژڑپv‚حپu•¶ژڑƒNƒ‰ƒXپv‚àٹـ‚قپB پ@پ@پ@ پ@پ@پ@•¶ژڑ*پ@پ@پ@: •¶ژڑ‚ھکA‘±‚إ0Œآˆبڈم‚ةˆê’v پ@پ@پ@•¶ژڑ+پ@پ@پ@: •¶ژڑ‚ھکA‘±‚إ1Œآˆبڈم‚ةˆê’v پ@پ@پ@•¶ژڑ?پ@پ@پ@: •¶ژڑ‚ھ0Œآor1Œآ‚ ‚éƒpƒ^پ[ƒ“‚ةˆê’v پ@پ@پ@ پ@پ@پ@•¶ژڑ{گ”1}پ@پ@ : •¶ژڑ‚ھکA‘±‚إپuگ”1پvŒآ‚ ‚éƒpƒ^پ[ƒ“‚ةˆê’v پ@پ@پ@•¶ژڑ{گ”1,}پ@پ@: •¶ژڑ‚ھکA‘±‚إپuگ”’lˆبڈمپvŒآ‚ ‚éƒpƒ^پ[ƒ“‚ةˆê’v پ@پ@پ@•¶ژڑ{گ”1,گ”2} : •¶ژڑ‚ھکA‘±‚إپuگ”1ˆبڈم,گ”2ˆب‰؛پvŒآ‚ ‚éƒpƒ^پ[ƒ“‚ةˆê’v پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abc', پ@پ@پ@پ@پ@پ@پ@ 'abc0', پ@پ@پ@پ@پ@پ@پ@ 'abc00', پ@پ@پ@پ@پ@پ@پ@ 'abc000', پ@پ@پ@پ@پ@پ@پ@ 'abc0000', پ@پ@پ@پ@پ@پ@پ@ 'abc0def0', پ@پ@پ@پ@پ@پ@پ@ 'abc00000', پ@پ@پ@پ@پ@پ@پ@ 'abc00000a', پ@پ@پ@پ@پ@پ@پ@ 'abc000000', پ@پ@پ@پ@پ@پ@پ@ 'def0000000' ); پ@پ@ پ@پ@print "1 2 3 4 5 6\n"; پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /abc0*/) { print '* ' }پ@پ@پ@پ@ #ڈًŒڈ1 پ@پ@پ@پ@else { print '. ' } پ@پ@پ@پ@ پ@پ@پ@پ@if ($tmp =~ /abc0+/) { print '* ' }پ@پ@پ@پ@ #ڈًŒڈ2 پ@پ@پ@پ@else { print '. ' } پ@پ@پ@پ@ پ@پ@پ@پ@if ($tmp =~ /abc0?[a-zA-Z]/) { print '* ' } #ڈًŒڈ3 پ@پ@پ@پ@else { print '. ' } پ@پ@پ@پ@ پ@پ@پ@پ@if ($tmp =~ /abc0{3}$/) { print '* ' }پ@پ@پ@#ڈًŒڈ4 پ@پ@پ@پ@else { print '. ' } پ@پ@پ@پ@ پ@پ@پ@پ@if ($tmp =~ /abc0{3,}$/) { print '* ' }پ@پ@ #ڈًŒڈ5 پ@پ@پ@پ@else { print '. ' } پ@پ@پ@پ@ پ@پ@پ@پ@if ($tmp =~ /abc0{3,5}$/) { print '* ' }پ@پ@#ڈًŒڈ6 پ@پ@پ@پ@else { print '. ' } پ@پ@پ@پ@ پ@پ@پ@پ@print "$tmp\n"; پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@1 2 3 4 5 6 پ@پ@* . . . . . abc پ@پ@* * . . . . abc0 پ@پ@* * . . . . abc00 پ@پ@* * . * * * abc000 پ@پ@* * . . * * abc0000 پ@پ@* * * . . . abc0def0 پ@پ@* * . . * * abc00000 پ@پ@* * . . . . abc00000a پ@پ@* * . . * . abc000000 پ@پ@. . . . . . def0000000 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پں‘I‘ً پ@ پ@پ@پ@•¶ژڑ—ٌA | •¶ژڑ—ٌB : •¶ژڑ—ٌA or •¶ژڑ—ٌB‚ھٹـ‚ـ‚ê‚é پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abc', پ@پ@پ@پ@پ@پ@پ@ 'def', پ@پ@پ@پ@پ@پ@پ@ 'ghi', پ@پ@پ@پ@پ@پ@پ@ 'abcghi', پ@پ@پ@پ@پ@پ@پ@ 'ghidef', پ@پ@پ@پ@پ@پ@پ@ 'jkl' پ@پ@پ@پ@پ@پ@ ); پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /abc|def/) { پ@پ@پ@پ@پ@پ@ print "پ› ",$tmp,"\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@ print "پ~ ",$tmp,"\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ› abc پ@پ@پ› def پ@پ@پ~ ghi پ@پ@پ› abcghi پ@پ@پ› ghidef پ@پ@پ~ jkl پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پں’PŒê‚ج‹«ٹE پ@ پ@پ@پ@\b : ‹«ٹE•¶ژڑ(”ٌ‰pگ”ژڑ)‚ب‚çˆê’v پ@پ@پ@\B : ”ٌ‹«ٹE•¶ژڑ(‰pگ”ژڑ)‚ب‚çˆê’v پ@پ@پ@پ@پ@ پ@پ@پ@پ@پ@پ« ژہژ؟“I‚ة‚حˆب‰؛‚ج‚و‚¤‚ةژg—p‚·‚é‚±‚ئ‚ھ‘½‚¢ پ@پ@پ@پ@پ@ پ@پ@پ@\b•¶ژڑ—ٌ\b : •¶ژڑ—ٌ‚ج‘OŒم‚ھ‰p•¶ژڑˆبٹO(“ئ—§’PŒê)‚ب‚çˆê’v پ@پ@پ@\B•¶ژڑ—ٌ\B : ژw’è•¶ژڑ—ٌ‚ھ‚ ‚é•¶ژڑ—ٌ‚جˆê•”(“ئ—§‚µ‚ؤ‚¢‚ب‚¢)‚ب‚çˆê’v پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'ژ„‚ج–¼‘O‚حmonpe‚إ‚·', پ@پ@پ@پ@پ@پ@پ@ 'ژ„‚ج–¼‘O‚حmonpe2‚إ‚·', پ@پ@پ@پ@پ@پ@پ@ 'ƒپپ[ƒ‹ƒAƒhƒŒƒX‚ھmonpe@mail.jp (‚¤‚»)', پ@پ@پ@پ@پ@پ@پ@ 'Webmastermonperoom', پ@پ@پ@پ@پ@پ@پ@ '‘S‚‚جˆس–،–³‚µ•¶ژڑ—ٌ', پ@پ@پ@پ@پ@پ@پ@ 'Webmaster monpe room' پ@پ@پ@پ@پ@پ@ ); پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /\bmonpe\b/) { پ@پ@پ@پ@پ@پ@ print "پ› ",$tmp,"\n"; پ@پ@پ@پ@} elsif ($tmp =~ /\Bmonpe\B/) { پ@پ@پ@پ@پ@پ@ print "پ¢ ",$tmp,"\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@ print "پ~ ",$tmp,"\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ› ژ„‚ج–¼‘O‚حmonpe‚إ‚· پ@پ@پ~ ژ„‚ج–¼‘O‚حmonpe2‚إ‚· پ@پ@پ› ƒپپ[ƒ‹ƒAƒhƒŒƒX‚ھmonpe@mail.jp (‚¤‚») پ@پ@پ¢ Webmastermonperoom پ@پ@پ~ ‘S‚‚جˆس–،–³‚µ•¶ژڑ—ٌ پ@پ@پ› Webmaster monpe room پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پںŒم•ûژQڈئ پ@ پ@پ@پEٹùڈo‚ج•¶ژڑ—ٌ‚ً•\Œ»‚·‚éپB(ƒpƒ^پ[ƒ“ژw’è•¶ژڑ—ٌ“à‚ج‚ف) پ@پ@ پ@پ@پ@پ@(•¶ژڑ—ٌa) •¶ژڑ—ٌ (•¶ژڑ—ٌb) •¶ژڑ—ٌ \1 •¶ژڑ—ٌ \2 •¶ژڑ—ٌ پ@پ@پ@پ@پ@‚±‚±‚إ پ@پ@پ@پ@پ@پ@\1 : •¶ژڑ—ٌa پ@پ@پ@پ@پ@پ@\2 : •¶ژڑ—ٌb پ@پ@پ@پ@پ@‚ً•\‚·پB\‚جŒم‚جگ”’l‚ح•K—v•ھ•t‚¯‚ç‚ê‚éپB پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( 'abcdefghi abcjklmn', پ@پ@پ@پ@پ@پ@پ@ 'abcdefghi jklmnopq' پ@پ@پ@پ@پ@پ@ ); پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /(abc)defghi \1/) { پ@پ@پ@پ@پ@پ@ print "پ› ",$tmp,"\n"; پ@پ@پ@پ@} else { پ@پ@پ@پ@پ@پ@ print "پ~ ",$tmp,"\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@پ› abcdefghi abcjklmn پ@پ@پ~ abcdefghi jklmnopq پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@پںƒ}ƒbƒ`•¶ژڑ—ٌ‚ج—ک—p پ@ پ@پ@پEƒ}ƒbƒ`‚µ‚½•”•ھ•¶ژڑ—ٌ‚ً—ک—p‚·‚é پ@پ@ پ@پ@پ@پ@(ƒ}ƒbƒ`•¶ژڑ—ٌ1) •¶ژڑ—ٌ (ƒ}ƒbƒ`•¶ژڑ—ٌ2) •¶ژڑ—ٌ پ@پ@پ@پ@پ@پ@$1 : ƒ}ƒbƒ`•¶ژڑ—ٌ1 پ@پ@پ@پ@پ@پ@$2 : ƒ}ƒbƒ`•¶ژڑ—ٌ2 پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@@datas = ( '•i•¨A ‰؟ٹi \1000 //”ُچl1', پ@پ@پ@پ@پ@پ@پ@ '•i•¨B ‰؟ٹi \2000', پ@پ@پ@پ@پ@پ@پ@ '•i•¨C ‰؟ٹi \3000 //”ُچl2', پ@پ@پ@پ@پ@پ@پ@ '•i•¨D ‰؟ٹi \4000' پ@پ@پ@پ@پ@پ@ ); پ@پ@ پ@پ@foreach $tmp (@datas) { پ@پ@پ@پ@if ($tmp =~ /(•i•¨\w) ‰؟ٹi (\\\d+)/) { پ@پ@پ@پ@پ@پ@ print $1," : ",$2,"\n"; پ@پ@پ@پ@} پ@پ@} پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ پ@„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„¢ پ@پ@•i•¨A : \1000 پ@پ@•i•¨B : \2000 پ@پ@•i•¨C : \3000 پ@پ@•i•¨D : \4000 پ@„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„£ ˆبڈم [پ£Perl Homeپ£]