Modify the program of Fig. 29.17 to save information sent to the server into a text file.

What will be an ideal response?


```

1 #!perl

2 # Exercise 29.9 Solution

3 # Program to save information to a comma

4 # delimited text file (records.txt).

5

6 use CGI qw( :standard );

7

8 $os = param( "OS" );

9 $firstName = param( "FNAME" );

10 $lastName = param( "LNAME" );

11 $email = param( "EMAIL" );

12 $phone = param( "PHONE" );

13 $book = param( "BOOK" );

14

15 print header;

16 print "";

17

18 if ( $phone =~ / ^ ( d{3} ) d{3} - d{4} $ /x )

19 {

20 # Write data to a text file

21 open( FILE, ">>records.txt" );

22 print FILE "$firstname, $lastname, $email, $phone
";

23 close FILE;

24

25 print <
26 Hi $firstName.

27 Thank you for completing the survey.


28 You have been added to the

29 $book

30 mailing list.



31 The following information has been saved

32 in our database:



33

Computer Science & Information Technology

You might also like to view...

Why is the maximum value of any color channel 255?

What will be an ideal response?

Computer Science & Information Technology

What is the output from print "Hi" + 10? Why do you get this output?

What will be an ideal response?

Computer Science & Information Technology

Write C++ statements to accomplish each of the following:

Write C++ statements to accomplish each of the following:

Computer Science & Information Technology

The name that will appear in the Property inspector when one of the rollover graphics is highlighted is known as the ____.

A. alt text B. filename C. graphic name D. image name

Computer Science & Information Technology