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>