would this be correct? I have a feeling no..
$_ = "$db_name\n" if ($. == 1 && $_ !~ /$db_name/); > -----Original Message----- > From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, January 09, 2002 12:21 > To: Yacketta, Ronald > Cc: Beginners (E-mail) > Subject: RE: array of filenames to open > > > On Jan 9, Yacketta, Ronald said: > > >I see that :) but not sure how to pull just the first line > from the file > >WITHOUT closing it and skipping to the next... > > Oh. Well, what are you trying to do? Change the first line > of a set of > files? > > >local @ARGV = @sleepystart; > >while (<>) { > > $line = $_; # ?????? > > s/\Q$line\E/$db_name/g; > > print; > >} > > If you wish to edit the files in-place, you'll also need to > use $^I here. > > { > local ($^I, @ARGV) = (".bak", @sleepystart); > while (<>) { > $_ = "$db_name\n" if $. == 1; > print; > close ARGV if eof; > } > } > > That changes the first line of each file to $db_name's value (plus a > newline!), and then prints the file back to itself (a backup copy is > stored with extension .bak). > > -- > Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
