PERL24小时

Perl1Perl2Perl3456781PerlPerlWebPerlPerlPerlPerlWebPerlPerlPerlHTMLWebPerlPerlPerlPerlPerlperlperlPerlPERLPerlPracticalExtractionandReportLanguagePERLPerlPerlPerlPathologicallyEclecticRubbishLister•Perl•Perl•Perl1.1PerlPerlPerlPerlPerl1.1.1PerlPerlPerlUNIXPerlWindowsNTPerlWindowsNT(ResourceKit)PerlUNIX$%bash%shellPerlPerl$$perl-vcommandnotfoundPerlPerl55.0045.0055.6Perl4.xPerl4Perl45.005Perl5.61999WindowsPerl1-1MS-DOS4Perl1-1DOSPerlC:\perl-vPerl5DOSBadcommandorfilenamePerlMacintosh1-2FileFindCommamd-fFindMacPerlPerlAppleAboutMacPerlVersion5.2.0Patchlevel5.004MacPerl1.1.2Windows95/98/NTPerlWindowsPerlCMakefileshellPerlPerl16PerlWindowsPerlPerlActiveStateToolPerlWindows1-3PerlActiveStateCommunityLicenseActiveStateURL://://://:\Perl\htmlMacintoshMacPerlShuckMacPerlPerl1-48Perl1-4MacPerlShuck1.2.2perldocshellperldocshellPATHPerlPerlPerlPerlPerlPerlWebPerl:\PROGRAMSperlhelloPerlHello,world!•Badcommandorfilenameperl:commandnotfoundperlperlshellPATH•Can’topenperlscripthello:AfileordirectorydoesnotexistPerlhellohello•syntaxerrorPerlhelloUNIXcatDOStypeMacPerlScriptRun“helloperlMacPerlFileOpenMacPerlRun1.3.3perlhelloperlperlperlPerlhello)Perlperlperlhello1.3.4PerlHello10Perl#!/usr/bin/perlPerl#Perl#/usr/bin/perlperlUNIX#UNIXPerlWebApache#perl#printHello,World!\n;PerlPerlprintprintprintPerlPerlprintHello,World!\nPerl\nPerl1.3.5PerlPerlPerlprint2561HelloWorld!PerlPerlPerlPerlPerlperlstyle1Perl11PerlPerlPerlPerlJournal)Perlperla.12Perlb.c.DOS2)Perla.://)Perla.perlsynb.perlopc.perlfaq1.5.31)bPerlDOSshellc2)b3)aperldocperl1.5.4•FAQ()FAQ•••2.1Perl2.1.1Perl2-1Perl2-1612.515.00.73205081e106.67E-33eE4_294_296ePerl0010Perl8Perl162perldata2.1.2PerlASCII1ASCIIPerl''\PerlPerlGoGoahead,makemydayPerlPerlPerlPerl2-2Perl2Perl152-2\n\r\t\b\u\l\\\''''\PerlperldocPerlperlopQuoteandQuote-likeOperatorsPerlqqqqqqqqqqqqqqqq,{},[]qqqPerl2.2PerlPerl16PerlPerlPerl•az,AZ_•$value$VALUE$Value$valuEPerl$_$$/$2$$PerlPerlPerlPerlPerl0Perl-w#!-wPerlPerlPerlUseofuninitializedvalue$_Perl$$$_$_$_6$_2Perl172.3PerlPerlPerl32-1Perl2-1Perl1Perl-wPerl350$radius5$radius***2$area6$area254*$rJavasin$pi*8$t=6Perl2.3.12-1=$a$b$c42$c42$b$c=4242$a$b=42$a$countPerl18Perl2.3.2Perl2-32-35+$t5$t$y-$x$y$x$e*$pi$e$pi$f/6$f624%524544**242.3.3Perl.$a$b$a$bHello,World!Nicetomeetyou$c$a$bPerlPerlPerl$nameJohnprintIusedthevariable$name$name2Perl19PerlPerlPerl$date$datedayxx-x70$line2.4PerlPerl2.4.16/3635*252-Perl-2-4PerlPerl2-42-4intint5.62345lengthlength(nose)4lclcMETOOmetooucuchal9000lcHAL9000coscos5050.964966randrand500120Perl1PerlperldocPerlperlopperlfunc2.4.2Perl++1$counter1Perl--12.4.355STDINPerlSTDIN2Perl219.5STDINEnter$sizeSTDINEnterchompchomp102.4.4=PerlPerl==$a=$a+3$a+2.4.5PerlPerl•Perl•Perl22Perl•Perl0PerlPerlPerlPerl#-w-wPerlPerlArgumentxisntnumericx2.52-2Interest12-21-w34$pmt5$pmt2Perl2379$interest1113$mons16$interest12$interest18$total2021perlInterest2-32-32.6PerlPerl2.72.7.1printf9PerlprintfroundPOSIXPerlIntelUNIX3003000142.7.21)qqa.b.24Perl2)$c$a=6;$a++;$b=$a;$b--;$c=$b;a.6b.7c.83).a.b.2.7.31)aqq2)a$a6$a7$b$b6$c3)bPerlTIMTOWTDIqq$a$b$c):2.7.4•325/97521.1•2-3printfint2Perl2532PerlXPerlPerl•••••Perl3.1PerlPerlPerlPerl3.2ifPerlififTRUEFALSE$r==5==$r5print$r5printifif-elseelse$r=$r=====