Thank you that worked, and thank you for the tip about chomp/chop --- Rob Dixon <[EMAIL PROTECTED]> wrote: > > "Quenten Griffith" <[EMAIL PROTECTED]> wrote in > message > news:[EMAIL PROTECTED] > > Hello all I have a script that reads in a control > file > > that list a dir. to > > change to inside the control file I have > > > > Dir: /cf/courseware > > > > The part of the Perl script that I run to pull in > that > > info is > > > > # Open the control file or log > > my $control_file= "/home/qgriff/FTP.CTL"; > > unless ( open CTL, $control_file ) { $log->write( > > "<Error> Could not open > > $control_file: $!"); > > exit 1; > > } > > > > my ($site, $user, $password, $dir, $file ); > > my $stanza = 0; > > while ( <CTL> ) { > > chop; > > #skip all comments > > next if /^\s*#/; > > #skip blank lines > > next unless length; > > #Check to see the control file has the site listed > and > > pass it to $site > > if ( /^Site:\s+(\w+)/ ) { > > $site = $1; > > $stanza = 1; > > ($user, $password, $dir, $file ) = ('', '', > '', > > '' ); > > next; > > } > > if ($stanza) { > > $user = $1 if /^User:\s+(\w+)/; > > $password = $1 if /^Password:\s+(\w+)/; > > <b>$dir = $1 if > /^Dir:\s+(\W\w+\W\w+)/;</b> > > $file = $1 if /^File:\s+(.+)$/; > > if ( $user && $password && $dir && $file ) > { > > #Exit the loop > > $stanza = 0; > > > > #Submit the job for the real work > > &submit_job($site, $user, $password, $dir, > > $file); > > } > > } > > } > > > > This line is what I am having an issue with $dir = > $1 > > if > > /^Dir:\s+(\W\w+\W\w+)/; > > That will match /your/path but it will not match > /your > > or /your/path/is. > > > Is there a better reg.exp. I can use that will > match > > anything with a / in and everything after it so I > can > > have /your our /your/path or even a dir. ten > > levels deep and it will still match it? > > /^Dir:\s+(\/\S+)/ > > will capture a slash and all following > non-whitespace characters > after "Dir:" and some whitespace. This should do it > for you > unless you could have spaces in the path? > > By the way, use 'chomp' instead of 'chop'. The > latter will > remove the last character from the string whether or > not it > is a newline. The last line of a file may not be > terminated > by a newline and you will lose valid data. > > Cheers, > > Rob > > > > -- > To unsubscribe, e-mail: > [EMAIL PROTECTED] > For additional commands, e-mail: > [EMAIL PROTECTED] >
__________________________________ Do you Yahoo!? Yahoo! SiteBuilder - Free, easy-to-use web site design software http://sitebuilder.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
