Thank you for your help... Where I'm still confused is, the script below does just what I want it to do and I can even see the results in the STOUT... I'm just not sure how I get the changes written to the 5 files in the dir...
my $dir = "C:/brian/test_html"; opendir (HTML, $dir) or die "Can't open $dir: $!"; Do I change opendir to (HTML, ">>$dir/*.html) That didn't seem to work... Thanks again for your help! Brian > -----Original Message----- > From: bright true [mailto:[EMAIL PROTECTED] > Sent: Friday, February 11, 2005 12:27 PM > To: Brian Volk > Cc: Beginners (E-mail) > Subject: Re: write new file to same dir > > > Hi , > actually you're just opening a directory ... and you're not > writing into a file > to write a file .. you can use the following > 1- with replace the old file > open(FILE,">$dir/filenamt.txt"); > print FILE "Something Here"; > close(FILE); > 2- to write into a file with out replace it .. (with out > removing the old one). > open(FILE,">>$dir/filename.txt"); > print FILE "Something to print in the file"; > close(FILE); > > i hope i helped you :) > > bye > > On Fri, 11 Feb 2005 10:45:40 -0500, Brian Volk > <[EMAIL PROTECTED]> wrote: > > Hi All, > > > > I'm having trouble w/ my script... I can open the dir, read > the dir and even > > get the s/// to work.... I just don't know how to write the > new file to a > > new dir. .... or the same dir for that matter... If > someone could point me > > in the right direction I would really appreciate it. Maybe > a page in the > > Lama book... :~) > > > > #!/usr/local/bin/perl > > > > use strict; > > use warnings; > > > > my $dir = "C:/brian/test_html"; > > opendir (HTML, $dir) or die "Can't open $dir: $!"; > > #my $newdir ="C:/brian/test_html_1"; > > # opendir (HTML1, $newdir) or die "Can't open $newdir: $!"; > > > > # load @ARGV for <> operator below > > > > @ARGV = map { "$dir/$_" } grep { !/^\./ } readdir HTML; > > > > while (<>) { > > chomp; > > s/31990/31720/g; > > print; > > } > > > > closedir (HTML); > > > > ___END > > > > > > Brian Volk > > HP Products > > 317.298.9950 x1245 > > <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED] > > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
