Sorry, that's while(<INFILE>){-----Original Message----- From: Timothy Johnson [mailto:[EMAIL PROTECTED]] Sent: Friday, February 01, 2002 3:28 PM To: 'Booher Timothy B 1stLt AFRL/MNAC'; [EMAIL PROTECTED] Subject: RE: one question to end the day on . . . Use the split command. open(INFILE,"hobbitbooks.txt"); while(INFILE){ @results = split /\"/,$_; print $results[1]; } -----Original Message----- From: Booher Timothy B 1stLt AFRL/MNAC [mailto:[EMAIL PROTECTED]] Sent: Friday, February 01, 2002 3:28 PM To: [EMAIL PROTECTED] Subject: one question to end the day on . . . Hello out there - I have learned a lot of Perl today, but I am still trying to figure one more thing out. How can I go through a file and extract all the text between certain delimiters - for example I have: Bilbo, "Why I like rings" Freemont Press, 1998. Frodo, "Why I don't" Bridgedale Freemans, 1832 Etc I want to get: Why I like rings Why I don't It seems like there should be a real quick way to do this. . . thoughts? tim ---------------------------------------------------------------------------- ---- This email may contain confidential and privileged material for the sole use of the intended recipient. If you are not the intended recipient, please contact the sender and delete all copies. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -------------------------------------------------------------------------------- This email may contain confidential and privileged material for the sole use of the intended recipient. If you are not the intended recipient, please contact the sender and delete all copies. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
