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>
