Beginning Perl Third Edition PHẦN 5 potx

... print "Case? Where are you, Case?\n"; } $ perl match5.pl Case? Where are you, Case? $ CHAPTER 7 ■ REGULAR EXPRESSIONS 155 if ($_ =~ /people/) { print "Hooray! Found ... this command is $ dir | more We can write Perl programs that pipe into programs (our Perl program will write into the pipe) or pipe from programs (our Perl program will read from the p...

Ngày tải lên: 09/08/2014, 14:21

... "\n"; All of these are representations of the number 255 , and accordingly, we get the following output: $ perl goodnums.pl 255 255 255 255 $ ■ CONTENTS CONTENTS vi Operators 22 Numeric ... Miscellaneous Functions 50 The exit() Function 50 The die() Function 51 Summary 52 Exercises 52 ■Chapter 3: Control Flow Constructs 53 The if Statement 54 O...

Ngày tải lên: 09/08/2014, 14:21

... rick@’192.168.0.0/ 255 . 255 . 255 .0’ to grant access to rick from any local network computer, we can specify rick@’192.168.0.1’ to limit rick’s access to a single workstation or specify rick@’192.0.0.0/ 255 .0.0.0’ ... password each time to ensure there is never a hole in your security. 3 15 MySQL b544977 Ch08.qxd 12/1/03 8 :56 AM Page 3 15 Creating the Tables Now we need to determine...

Ngày tải lên: 09/08/2014, 14:21

... (localTime.toLocaleDateString) { document.write(localTime.toLocaleDateString()) } </script> </h4> <h4> Using toDateString() gives: 3 35 Chapter 9: Date, Time, and Timers 12_ 051 511 ch09.qxp 4/13/07 6:21 PM Page 3 35 questionHTML = questionHTML + “<p><input type=text ... “<p>” + questions[questionNumber] + “</p>”; 3 25 Chapter 8: String Manipulation...

Ngày tải lên: 09/08/2014, 14:21

... (classic or .NET), ColdFusion, PERL — anything that can output data in a text format. 651 Chapter 16: Ajax and Remote Scripting 19_ 051 511 ch16.qxp 4/13/07 6:22 PM Page 651 function checkEmail_callBack(sResponseText) { var ... file1_onblur()”> </form> </body> </html> 612 Chapter 15: Using ActiveX and Plug-Ins with JavaScript 18_ 051 511 ch 15. qxp 4/13/07 6:24 PM Pa...

Ngày tải lên: 09/08/2014, 14:21

... "3 051 0 Yen is ", (30 _51 0/$yen), " dollars\n"; Save this, and run it through Perl. You should see something like this: $ perl currency1.pl 4 951 8 Yen is 54 7.46268 656 7164 ... 360 Yen is 3.98009 950 248 756 dollars 3 051 0 Yen is 337.3134328 358 21 dollars $ First, we declare the exchange rate to be a lexical variable and set it to 90. 45. my $yen = 90....

Ngày tải lên: 09/08/2014, 14:21

... There’s no difference at all between any of these three lists: (3, 8, 5, 15) ((3, 8), (5, 15) ) (3, (8, 5) , 15) Similarly, Perl sees each of these lists exactly the same as the others: ('one', ... the following output: $ perl looplabel1.pl 1 ** 1 = 1 1 ** 1 = 1 2 ** 1 = 2 2 ** 2 = 4 3 ** 1 = 3 3 ** 2 = 9 4 ** 1 = 4 4 ** 2 = 16 5 ** 1 = 5 5 ** 2 =...

Ngày tải lên: 09/08/2014, 14:21

... "The total is $total\n"; } And to see it in action: $ perl total1.pl The total is 50 6 The total is 50 50 $ This program illustrates that you can pass any list to a subroutine, ... program: #!/usr/bin /perl # listcontext.pl use warnings; use strict; my %person = ( name => 'John Doe', age => 39, phone => &apos ;55 5-1212',...

Ngày tải lên: 09/08/2014, 14:21

... an example of running this program: $ perl index.pl Enter a string: Perl is cool! Enter a substring: cool the substring was found at index: 8 $ perl index.pl Enter a string: hello, world! ... jdoe users 349 22 Apr 14: 05 links.pl $ perl links.pl link created ok! linktolinks.pl is a sym link to links.pl $ ls -l link* -rw-r r 1 jdoe users 349 22 Apr 14: 05 links.pl lrwxr...

Ngày tải lên: 09/08/2014, 14:21

... (@INC contains: /etc /perl /usr/local/lib /perl/ 5. 10.0 /usr/local/share /perl/ 5. 10.0 /usr/lib /perl5 /usr/share /perl5 /usr/lib /perl/ 5. 10 /usr/share /perl/ 5. 10 /usr/local/lib/site _perl .) at ./cantload.pl ... perl data1.pl $VAR1 = [ 'hello, world', '1234 .56 ', [ 2, 4, 6 ], CHAPTER 12 ■ MODULES 277 use strict; use Win32::Sound;...

Ngày tải lên: 09/08/2014, 14:21