"Martin A. Hansen" wrote: > > hi > > im trying to make a script to read a textfile with the following format:" > > TITLE > Welcome to Carcinoma in Situ > > " > i want my script to recognice the TITLE tag and save the following line(s) in $TITLE: > > heres what i have done: > > while (<>) { > chomp; > if (/TITLE\s*([A-Za-z]+)/) { > $TITLE=$1; > } > } > print $TITLE; > > upon script textfile.txt > outputfile i get this error: > Use of uninitialized value in concatenation (.) or string in line (the one with >print $TITLE in it) > > i think my regex is not doing what i want it to do??? why?
Because it is trying to match something that is not there. Once you find TITLE you have to read the next line. #!/usr/bin/perl -w use strict; my $title; while ( <> ) { chomp; if ( /^TITLE$/ ) { $title = <>; # read the _next_ line } } print "$title\n"; John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]